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

• #50131 friccccc tag lappy #50128

  Új Válasz 2022-12-16 09:35:09 #50131

  Ú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 lappy #50128 üzenetére

  Sajnos nm ok.
  Egyszerűsíteni akartam , de akkor leírom , hátha ez sem mind1.
  Dim i As Integer
Application.EnableEvents = False
For i = 1 To 200 Step 5

If Cells(i, 3).Value = "OK" And Cells(i, 10).Value = "ÉN" Then
Cells(i, 100).Value = Range("X3").Value
End If
Next

Application.EnableEvents = True
  
  End Sub
  
  Köszi a segítséget!

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