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

• #39905 lappy őstag friccccc #39904

  Új Válasz 2019-01-04 21:27:25 #39905

  Ú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

  

  lappy

  őstag

  válasz friccccc #39904 üzenetére

  Private Sub Worksheet_Change(ByVal Target As Range)


If Not Intersect(Target, Range("A1")) Is Nothing Then

Range("B1").Value = Range("B1").Value + 1
End If

End Sub

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