Mefisto...diabeł czy anioł?
witam wszystkich i Wesolych Swiat zycze:-)
Mam prosbe do forumowiczow o pomoc w rozwiazaniu problemu jaki napotkalem podczas zaczytywania plikow do pliku zbiorczego:
mam jeden zbiorczy plik z arkuszami "B", "C" i "D" i donich zczytuje dane z okolo 10 -13 plikow ktore maja takei same arkusze tylko inny uklad danych niz plik zbiorczy ale te 10 plikow ma taki sam uklad. Normalnie jak zczytywalbym dane uzywalbym takiego kodu:
ActiveSheet.Range("G3").Select
ActiveSheet.Range(Selection, Selection.End(xlDown)).Select
r = Selection.Rows.Count
p = 2 + r
ActiveSheet.Range("A3:I" & p).Select
Selection.Copy
jedank tutaj napotykam problem poniewaz mam wyjatki do zaczytywania danych: jezeli w kolumnie "W" pliku do zaczytania pojawia sie nazwa "miesiecznie" (czyli kwoty sa rozbite miesiecznei - ale nie sa osobne wiersze podane dla poszczegolnych miesiecy - tylko dodane sa w tym samym wierszu w osobnych kolumnach dane z wartosciami dla poszczegolnych miesiecy)
i tutaj pojawia sie problem ze nei moge uzywac kopiwoania wszystkich danych w 'dol' tylko musze tez brac pod uwage dane dla warunku "miesiecznie" z poszczegolnych kolumn dla tego wiersza z dana "miesiecznie"......
takze widze ze musze uzyc tutaj petle z warunkiem if - na ktorej sie neistety nei znam:-(
dlatego prosilbym was o pomoc jak moglbym napisac taka petle z warunkiem wystapienia danych miesiecznie. ponizej zamieszczam przyklad dla jednego pliku do zaczytania i pliku do ktorego zaczytuje dane (przycisk step 3 w pliku zbiorczym).
[ Dodano: 2009-04-14, 17:37 ]
zanotowane.pl doc.pisz.pl pdf.pisz.pl katkaras.opx.pl
Mam prosbe do forumowiczow o pomoc w rozwiazaniu problemu jaki napotkalem podczas zaczytywania plikow do pliku zbiorczego:
mam jeden zbiorczy plik z arkuszami "B", "C" i "D" i donich zczytuje dane z okolo 10 -13 plikow ktore maja takei same arkusze tylko inny uklad danych niz plik zbiorczy ale te 10 plikow ma taki sam uklad. Normalnie jak zczytywalbym dane uzywalbym takiego kodu:
ActiveSheet.Range("G3").Select
ActiveSheet.Range(Selection, Selection.End(xlDown)).Select
r = Selection.Rows.Count
p = 2 + r
ActiveSheet.Range("A3:I" & p).Select
Selection.Copy
jedank tutaj napotykam problem poniewaz mam wyjatki do zaczytywania danych: jezeli w kolumnie "W" pliku do zaczytania pojawia sie nazwa "miesiecznie" (czyli kwoty sa rozbite miesiecznei - ale nie sa osobne wiersze podane dla poszczegolnych miesiecy - tylko dodane sa w tym samym wierszu w osobnych kolumnach dane z wartosciami dla poszczegolnych miesiecy)
i tutaj pojawia sie problem ze nei moge uzywac kopiwoania wszystkich danych w 'dol' tylko musze tez brac pod uwage dane dla warunku "miesiecznie" z poszczegolnych kolumn dla tego wiersza z dana "miesiecznie"......
takze widze ze musze uzyc tutaj petle z warunkiem if - na ktorej sie neistety nei znam:-(
dlatego prosilbym was o pomoc jak moglbym napisac taka petle z warunkiem wystapienia danych miesiecznie. ponizej zamieszczam przyklad dla jednego pliku do zaczytania i pliku do ktorego zaczytuje dane (przycisk step 3 w pliku zbiorczym).
[ Dodano: 2009-04-14, 17:37 ]