Belirli boş hücrede enter basılınca makro tetiklensin

[Tevfik_Kursun]

Merhaba Arkadaşlar,
F8:J8 arasında hücre boşken enter basıldığında makronun tetiklenmesi nasıl sağlanır?
Saygılarımla

 

[Muzaffer Ali]

Merhaba.
Sadece entere basınca değil aralıktaki bir hücreyi mouse ile seçince de çalışan kod örneği.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Range("F8:J8"), Target) Is Nothing And Target.Text = "" Then
        MsgBox "Hücre boş."
    End If
End Sub

 

[Tevfik_Kursun]

Merhaba Arkadaşım,
Dolu olan hücrede de tetikliyor, dolayısiyle makro hata veriyor.
Belki tam anlatamadım, F8:J8 aralığında J8 den itibaren sayı yazılıyor. J8 doldu entere bastım, I8 doldu entere bastım, H8 doldu entere bastım, G8 boş. Olmasını istediğim, boş hücrede entere bastığımda makro çalışsın.
Saygılarımla

 

[Muzaffer Ali]

Deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Static rng As Range
    If Not Intersect(Range("F8:J8"), Target) Is Nothing And Target.Text = "" Then
        If Not rng Is Nothing Then
            If rng.Text = "" Then
                MsgBox "Hücre boş."
            End If
        End If
        Set rng = Target
    End If
End Sub

 

[Tevfik_Kursun]

Merhaba Arkadaşım,
İlk işlemi doğru yapıyor, sonrasında ilk hücrede yazıp entere basınca hata veriyor. İlgilenirseniz makbule geçer.
Saygılarımla

 

[Muzaffer Ali]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Static rng As Range
    If Not Intersect(Range("F8:J8"), Target) Is Nothing Then
        If Not rng Is Nothing Then
            If rng.Text = "" Then
                Application.EnableEvents = False
                Call Bitir
                Application.EnableEvents = True
            End If
        End If
        Set rng = Target
    End If
End Sub

 

[Tevfik_Kursun]

Merhaba Arkadaşım,
Az önceki durum aynen devam ediyor.
Saygılarımla