dzieki Artik :)
ten problem rozwiazalem w troche inny sposob, ale Twoje rozwiazanie powinno mi pomoc w obecnym problemie
poczatkowo wklejalem do zakresu ciaglego komorek (ktore zostaly poddane dzialaniu autofiltra, mimo to i tak byl to nadal zakres ciagly), teraz natomiast musze wklejac dane do komorek "autoprzefiltrowanych" (fajne slowo ;) ), ktore nie stanowia zakresu ciaglego
moje rozwiazanie (z zapozyczeniami od innych osob, jedna chyba korzystala z opcji rejestrowania makr, czesc "wyszukiwanie adresu komorki" znalazlem na forum):
'wlaczenie autofiltra:
Range("C6:F6").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=Range("D5").Value
'zaznaczenie widocznych komorek:
Range(Range("AR7", Range("AR7").End(xlDown)).SpecialCells(xlCellTypeVisible).Cells(1, 1), _
Range("AR7").End(xlDown)).Select
'wyszukanie adresu komorki:
Komorka = Mid(ActiveCell.Address, 4, 5) 'Wynik: $xxxxx - zaznaczony zakres komorek
Komorka2 = Mid(Zelle, 2) 'Wynik: xxxxx - usuniecie znaku $
'kopiowanie danych:
Sheets("Wykresy").Select
Range("E7", Range("E7").End(xlDown)).Select
Selection.Copy
'wklejanie danych:
Sheets("Dane").Select
Cells(Komorka2, 44).Select 'Komorka (Komorka2, 44), 44-->AR
Selection.PasteSpecial |