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

• #41353 Delila_1 veterán RazoR #41350

  Új Válasz 2019-07-11 19:31:50 #41353

  Ú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 RazoR #41350 üzenetére

  Biztosan át tudtad írni.

  Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B2")) Is Nothing And Target.Value = "" Then
Application.EnableEvents = False
Range("C5:E10, C12:E20") = ""
Application.EnableEvents = True
End If
End Sub

  A 11-es sor címszavait meghagytam.

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