Worksheet_SelectionChange timer kontrolü

[tamer42]

Merhaba,
Aşağıdaki kodda B4 hücresi seçildikten sonra 5 saniye beklesin, eğer 5 sn. içinde bu hücrede herhangi bir değişiklik yapılmazsa otomatik olarak
Worksheet_Change prosedürünü çalıştırsın; yani tekrar B11 hücresi aktif olsun;

Kodu nasıl düzenlersek en doğru sonucu alabiliriz?

Teşekkürler,

iyi Çalışmalar.

Dim islem2 As Byte

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rng As Range

Set Rng = ActiveSheet.Range("B11")

If Target.Address = "$B$12" And islem2 = 1 Then
    UrunGetir2
    Rng.Value = "":     Rng.Select

ElseIf Target.Address = "$B$4" Then
    islem2 = 2
    
Else

    Rng.Value = "":     Rng.Select
    
End If

Set Rng = Nothing

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
   islem2 = 2
    ActiveSheet.Range("B11").Select
    islem2 = 1
End Sub

 

[Korhan Ayhan]

Örnek dosyayı kendinize uyarlarsınız.