Worksheet Change İçin 2 Durumlu İşlem

[baydeniro]

Merhaba arkadaşlar. Worksheet Change olayında tek bir komut olunca gayet güzel çalışıyor. Birden fazla ya da 2 durum olduğunda komutu nasıl revize etmeli.
Örnek dosya ekte.

* F sütununda sayı girildiğinde otomatikman E sütunundaki rakam ile çarpar ve G sütununa yazar.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [F:F]) Is Nothing Then Exit Sub
Target.Offset(0, 1) = Target * Target.Offset(0, -1)
Target.Offset(0, 2).Select
End Sub

* I sütununda "Peşin" ibaresi girildiğinde Cursorün otomatikman K sütununa gitmesi.

 

[Korhan Ayhan]

Merhaba,

Birçok farklı yöntem uygulanabilir. Mesela aşağıdaki yöntemi kullanabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    
    Application.EnableEvents = False
    
    If Not Intersect(Target, [F:F]) Is Nothing Then
        If IsNumeric(Target) Then
            Target.Offset(0, 1) = Target * Target.Offset(0, -1)
            Target.Offset(0, 2).Select
        End If
    ElseIf Not Intersect(Target, [I:I]) Is Nothing Then
        If Target = "Peşin" Then Target.Next.Next.Select
    End If
 
Son: Application.EnableEvents = True
End Sub

 

[baydeniro]

Sayın Korhan Ayhan çok teşekkür ederim. Her zamanki gibi, hem muhteşem, hem süratlisiniz. Sağlıcakla kalın. Allah siz üstadlarımızdan razı olsun.