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

• #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