Builder.cz - Informacni server o programovani

Odběr fotomagazínu

Fotografický magazín "iZIN IDIF" každý týden ve Vašem e-mailu.
Co nového ve světě fotografie!

 

Zadejte Vaši e-mailovou adresu:

Kamarád fotí rád?

Přihlas ho k odběru fotomagazínu!

 

Zadejte e-mailovou adresu kamaráda:

makro Excel - přesun řádků do druhého listu

Seznam témat     Nová odpověď

Přihlásit se     Registrace     Zapomenuté heslo

přenesení buňěk s nenulovou hodnotou,názvu a ceny

Autor: táňa

13:12:39 28.09.2009

dobrý den
mám takový problém :
potřebuji přenést z listu "objednávky" bunky "cena","název" a "oděratel 1-6" tehdy pokud je v množství číslo 1 a větší,tak jak jsem to udělal dle přílohy ale pokud je tam "0" tak mi to vyhodí chybu a ještě tam zůstane řádek s nulovou hodnotou.
nevím jak vynechat řádky s nulovou hodnotou.
pokud totiž bude více zboží tak se mi to nevejde na dodací list.
jeden dodací list je pro jednoho odběratele.
prostě podle přílohy bych se potřeboval zbavit řádků 22 a 20 ale jen ve sloupcích
c,d,e,f,g,h,ostatní bych potřeboval zachovat.
zkuste mi poradit.
moc děkuji.
přikládaný soubor přejmenujte na xls
Táňa

Citovat příspěvek

 

Re: makro Excel - přesun řádků do druhého listu

Autor: Gábina

12:39:41 11.09.2009

To i19:
Jak se zjištuje nulová hodnota?
Součet? Hodnota sloupce?

Zcela prázdné řádky?

Třeba smazat druhý, ale úpně celý prázdný řádek:
[code]
Dim r As Long
r = 2
If Application.WorksheetFunction.CountBlank(Rows(r)) = Rows(r).Cells.Count Then
Rows(r).Delete
End If
[/code]

To kolsa:
Nebo řádky oblasti A:E ,kde součet neprázdných buněk
v řádku bude zrovna a právě 5 ?

Podmínka pro druhý řádek s pěti neprázdnými buňkami:
[code]
Dim r As Long
r = 2
If Application.WorksheetFunction.CountA(Range(Cells(r, 1), Cells(r, 5))) = 5 Then
'copy, paste etc.
MsgBox "Hotový řádek"
Else
'or do nothing
MsgBox "Rozprcaný řádek"
End If
[/code]

Mnoho zdaru! :)

Citovat příspěvek

 

Re: makro Excel - přesun řádků do druhého listu

Autor: i19

14:35:52 09.09.2009

Dobrý den, chtěla bych se zeptat, jak odstraním řádky s nulovou hodnotou? Děkuji

Citovat příspěvek

 

makro Excel - přesun řádků do druhého listu

Autor: kolsa

14:54:22 28.08.2008

Prosím o radu
potřebuju z jednoho listu přesunout řádky, buňky do druhého. A to za podmínky že součet neprázdných buněk bude 5 a více.

Sub PreneseniRadku2()

k = 2
Patern = Worksheets("Rozpracované").Range("G2").Value
For I = 2 To 50
SledovanyPatern = Worksheets("Rozpracované").Cells(I, 7).Value
If Patern = SledovanyPatern Then
Worksheets("Rozpracované").Rows(I).Copy
ActiveSheet.Paste Destination:=Worksheets("Hotové").Cells(k, 1)
k = k + 1
End If
Next I

End Sub

jenže pak nastane prblém co s prázdnými řádky v listě 1(rozpracované). Takže jak odstranit tyto prázdné řádky, které nejsou za hned pod sebou. a nebo pouze tyto buňky zkopírovat do druhého listu a obsah v listě 1 vymazat. pak ale je problém, že při další přesunu se ty na listě 2 přepisují.
díky za radu

Citovat příspěvek

 

 

 

Přihlášení k mému účtu

Uživatelské jméno:

Heslo: