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

• #21207 Delila_1 veterán raynen #21205

  Új Válasz 2014-04-05 17:35:00 #21207

  Ú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 raynen #21205 üzenetére

  Makróval gyorsan megy.
  Nálam a másolandó lap a Munka1, ahova másolsz, Munka2. Ezeket írd át a makróban a saját lapjaid nevére.
  Az előző adatok törlésénél az A:F helyett a saját törlendő oszlopaidat írd be.
  Írtam megjegyzéseket a makróba.

  Sub Masol()
  Dim sor As Long, usor As Long, ujsor As Long
  
  'Előző adatok törlése a Munka2 lapon
  Sheets("Munka2").Columns("A:F").Delete
  
  Sheets("Munka1").Select
  
  'Címsor másolása
  Rows(1).Copy Sheets("Munka2").Range("A1")
  
  'Alsó sor a másolandó lapon
  usor = Application.CountA(Columns(1))
  
  'Ebbe a sorba másoljon
  ujsor = 2
  
  'Minden 5. sor másolása
  For sor = 2 To usor Step 5
  Rows(sor).Copy Sheets("Munka2").Range("A" & ujsor)
  ujsor = ujsor + 1
  Next
  End Sub

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