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

• #39924 friccccc tag Fferi50 #39923

  Új Válasz 2019-01-07 16:27:05 #39924

  Ú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

  

  friccccc

  tag

  válasz Fferi50 #39923 üzenetére

  Szia

  eseménykezelést hogy/hol kapcsolom ki/be ? hol tudom megnézni h ki van e kapcsolva?

  a kiíratás így történik:
  Private Sub Worksheet_Calculate()
Dim i As Integer
Application.EnableEvents = False
For i = 1 To 100 Step 2
If Cells(i, 90) <> Cells(i + 1, 20) And Cells(i + 1, 20) <> "" Then
Cells(i, 90) = Cells(i + 1, 20)
End If
Next
Application.EnableEvents = True
End Sub

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