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

• #52231 Delila_1 veterán huan #52229

  Új Válasz 2024-02-27 09:36:26 #52231

  Ú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 huan #52229 üzenetére

  Sub Torles()
    Dim ter As Range, v
    Set ter = Application.InputBox(prompt:="Add meg a területet", Type:=8)
    v = MsgBox("Bizti?", vbYesNo, "Kérdés")
    If v <> 7 Then Range(ter.Address).ClearContents
End Sub
  
  Közben már megírtam a makrót.
  Sub Torles_1()
    Dim ter As Range, v
    Set ter = Range("B10:D12")
    v = MsgBox("Bizti?", vbYesNo, "Kérdés")
    If v <> 7 Then Range(ter.Address).ClearContents
End Sub

  A Set sorban a saját törlendő területet add meg!

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