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

• #13447 Fire/SOUL/CD félisten ixtom #13446

  Új Válasz 2012-04-17 23:03:41 #13447

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz ixtom #13446 üzenetére

  Készíts egy másolatot a Excel munkafüzetről a biztonság kedvéért, és csak ha tényleg jól dolgozik a makró, akkor mentsd a változásokat.
  Ez a makró azt feltételezi, hogy az adott munkalapon (sheet) csak az a táblázat van, amiből a sorokat törölni kellene, és, hogy a táblázat első sora(ahonnan az adatsorok kezdődnek) az valóban első sortól indul. Ha nem így lenne, akkor ne is futtasd a makrót.

  Private Sub CommandButton1_Click()
  
  Application.ScreenUpdating = False
  LastRow = UsedRange.Rows.Count
  For i = 2 To LastRow \ 5 + 2
  Range(i & ":" & i + 3).Delete
  Next i
  Range("A1").Activate
  Application.ScreenUpdating = True
  
  End Sub

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