DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Aşağıdaki şekilde deneyebilirmisiniz?For.. Next döngüsünü önüne geçemedim bir türlü, devamlı çalışıyor.
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
For x = [A65536].End(3).Row To 2 Step -1
If Cells(x, 1) < [a1] Then Cells(x, 2) = "ACT"
Next
Application.EnableEvents = True
End Sub