Új hozzászólás Aktív témák

• #38497 Fferi50 Topikgazda föccer #38495

  Új Válasz 2018-07-09 16:23:18 #38497

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz föccer #38495 üzenetére

  Szia!

  Egyrészt a For ciklusokhoz nincs Next. Az End utasítás befejezi a makró végrehajtását.

  Másrészt a For ciklusban megtalált első nem rejtett cella után ki kell ugrani a ciklusból a másoláshoz:
  For sor = 7 To 100000
If Rows(sor).Hidden = False Then
Range("E" & sor).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Exit For
End If

  Mert egyébként a ciklus végigmegy az összes nem rejtett soron és az utolsót fogja neked bemásolni.

  Amúgy pedig a Range SpecialCells(xlCellTypeVisible) hasznos a szűrőknél, mert "egyben" visszaadja a nem rejtett cellák tartományát. Azért írtam idézőjelbe az egybent, mert természetesen ez a tartomány több területből is állhat, az így kapott objektum tartalmazza mindet. Arra figyelj, hogy természetesen a fejléc is látható, ezért azt kihagyva kell használni.

  Üdv.

• #38496 Delila_1 veterán föccer #38495

  Új Válasz 2018-07-09 16:17:44 #38496

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz föccer #38495 üzenetére

  Szia Föccer!

  A szűrt adatok másolásáig

  Sheets("Munka1").Select
Range("A:B,J:J").ClearContents
Range("K1:K150") = "=Countifs(A:A,J1)"

Sheets("Mintavételek").Range("E7:E" & Range("E7").End(xlDown)).Copy
Sheets("Munka1").Range("B1").PasteSpecial xlPasteValues

  Innen már azt hiszem, nem volt problémád az ismétlődések eltávolításával, és másolásával.

  Azért csak 1 sort másolt, mert a For-Next ciklusban csak másoltad a memóriába az egyes sorokat, de nem illesztetted be sehova.
  Az első For ciklusod végére Next helyett End került, itt nyilván kiakadt a makró, ill. el sem indulhatott.

Új hozzászólás Aktív témák