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

• #42383 Fferi50 Topikgazda tgumis #42381

  Új Válasz 2019-12-05 08:01:40 #42383

  Ú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 tgumis #42381 üzenetére

  Szia!
  Ezzel még egyszerűbb:
  Sheets("sheetneve").Listobjects("Táblázat1").DataBodyRange.Delete
  Üdv.

• #42382 Delila_1 veterán tgumis #42381

  Új Válasz 2019-12-05 06:57:03 #42382

  Ú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 tgumis #42381 üzenetére

  Sub Torles()
Dim sor As Integer, usor As Integer
usor = Range("Táblázat1").Rows.Count

For sor = usor To 2 Step -1
Range("Táblázat1").Select
Selection.ListObject.ListRows(sor).Delete
Next
End Sub

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