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

• #7842 Fire/SOUL/CD félisten bandus #7841

  Új Válasz 2010-08-03 23:24:04 #7842

  Ú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 bandus #7841 üzenetére

  Hali!

  Igen, jó meglátás, minden 2. sort kell törölni, vagy ha úgy tetszik a páros sorokat.
  Itt egy CommandButton-hoz tartozik a makró, és az A oszlop alapján határozza meg az utolsó használt sor indexét. Ennek abban az esetben nincs jelentősége, ha minden oszlopban ugyanannyi sor van használatban.

  Private Sub CommandButton1_Click()
  Dim LastRow As Integer
  
  Application.ScreenUpdating = False
  LastRow = Cells(Cells.Rows.Count, "A").End(xlUp).Row
  If LastRow >= 2 Then
  For i = 1 To LastRow \ 2
  Rows(i + 1).EntireRow.Delete
  Next i
  Else: MsgBox ("Legalább 2 sort tartalmaznia kell az adott oszlopnak!")
  End If
  Application.ScreenUpdating = True
  
  End Sub

  Fire.

  UI: Vigyázz, mert nem lehet visszavonni a műveletet! Szóval először egy másik táblán teszteld...

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