Mefisto...diabeł czy anioł?
Witam, mam dwa pliki, w których ponagrywałem sobie makra, których ostatnim etapem jest filtr zaawansowany. I tutaj zagadka: pod Excelem 2003 wynikiem filtrowania jest lista wierszy, które spełniaj± warunki, pod Excelem 2007 otrzymuję wynik jedynie w postaci nagłówków kolumn, czyli wła¶ciwie nie otrzymuję żadnego wyniku. Sprawa jest do¶ć istotna, bo z założenia rzecz ma być wykorzystywana w pliku współdzielonym między użytkownikami obu w/w wersji.
Od razu uprzedzam: operacja była wykonywana na tym samym zbiorze danych.
No i kluczowe pytanie: dlaczego tak się dzieje?
Nie wiem czy to co¶ pomoże, ale wklejam kod, który ja potrafię czytać tylko tak, że wiem mniej-więcej która czę¶ć za co odpowiada.
Fragment pierwszy:
Sheets("wynik").Select
Range("A1").Select
Sheets("dane").Range("A1:IV65536").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("filtr").Range("A1:AR42"), CopyToRange:=Range("A1"), _
Unique:=False
Fragment drugi:
Sheets("101+").Select
Range("A1").Select
Sheets("dane101").Columns("A:J").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("filtr+").Range("A1:C2"), CopyToRange:=Range("A1"), _
Unique:=False
Sheets("101-").Select
Range("A1").Select
Sheets("dane101").Columns("A:J").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("filtr-").Range("A1:C2"), CopyToRange:=Range("A1"), _
Unique:=False
[ Dodano: 2010-07-01, 08:57 ]
zanotowane.pl doc.pisz.pl pdf.pisz.pl katkaras.opx.pl
Od razu uprzedzam: operacja była wykonywana na tym samym zbiorze danych.
No i kluczowe pytanie: dlaczego tak się dzieje?
Nie wiem czy to co¶ pomoże, ale wklejam kod, który ja potrafię czytać tylko tak, że wiem mniej-więcej która czę¶ć za co odpowiada.
Fragment pierwszy:
Sheets("wynik").Select
Range("A1").Select
Sheets("dane").Range("A1:IV65536").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("filtr").Range("A1:AR42"), CopyToRange:=Range("A1"), _
Unique:=False
Fragment drugi:
Sheets("101+").Select
Range("A1").Select
Sheets("dane101").Columns("A:J").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("filtr+").Range("A1:C2"), CopyToRange:=Range("A1"), _
Unique:=False
Sheets("101-").Select
Range("A1").Select
Sheets("dane101").Columns("A:J").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("filtr-").Range("A1:C2"), CopyToRange:=Range("A1"), _
Unique:=False
[ Dodano: 2010-07-01, 08:57 ]