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

• #50280 Delila_1 veterán RAiN91 #50275

  Új Válasz 2023-01-17 07:22:24 #50280

  Ú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 RAiN91 #50275 üzenetére

  A Worksheet_Change eseményt javaslom.

  Private Sub Worksheet_Change(ByVal Target As Range)
Dim k As Long
Application.EnableEvents = False
If Target.Address = "$F$4" Then
If Target.Value <> Range("AH9").Value Then
k = Range("AH" & Rows.Count).End(xlUp).Row + 1
Range("AH" & k) = Range("K9").Value
End If
End If
Application.EnableEvents = True
End Sub

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