Aynı Hucrede farklı makroları calıstırma

[mnsahin]

Merhaba

S kolonunda S4 : S10000 aralıgında ABC yazınca macro1
S kolonunda S4 : S10000 aralıgında ABCD yazınca macro2
S kolonunda S4 : S10000 aralıgında ABCDE yazınca macro3

seklınde kodu nasıl yazarız.

 

[Ömer]

Merhaba,

Eğer bir şart çalıştığında diğerlerininde çalışıp çalışmadığına bakmak istiyorsanız, kırmızı bölümleri silersiniz.

Sub bak()

    Dim alan As Range, Wf As WorksheetFunction
    
    Set alan = Range("S4:S10000")
    Set Wf = WorksheetFunction
    
    If Wf.CountIf(alan, "ABC") > 0 Then
        Call makro1
        [COLOR="Red"]Exit Sub[/COLOR]
    ElseIf Wf.CountIf(alan, "ABCD") > 0 Then
        Call makro2
        [COLOR="red"]Exit Sub[/COLOR]
    ElseIf Wf.CountIf(alan, "ABCDE") > 0 Then
        Call makro3
    End If
    
End Sub

.

 

[mnsahin]

Merhaba

Tesekkur ederım yalnız calıstıramadım. Ingılızce excel kullanıyorum.

https://www.dropbox.com/s/5pqex3y2lmk2hyy/Book1.xlsm?dl=0

dosyayı dropboxa ekledım.

 

[Ömer]

Bu şekilde deneyin.

Yalnız bu sizin asıl yapmak istediğinizi karşılar mı?

Sub bak()

    Dim alan As Range, Wf As WorksheetFunction
    
    Set alan = Range("S4:S10000")
    Set Wf = WorksheetFunction
    
    If Wf.CountIf(alan, "ABC") > 0 Then
        Call Macro1
    ElseIf Wf.CountIf(alan, "ABCD") > 0 Then
        Call Macro2
    ElseIf Wf.CountIf(alan, "ABCDE") > 0 Then
        Call Macro3
    End If
    
End Sub

.

 

[mnsahin]

hocam ABC yaziyorum ama makrolar bir turlu calismiyor

 

[mnsahin]

Şu şekilde yazdıgım zaman calısıyor ancak rakam yerine harf yazdıgımda calısmıyor

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [S1:S100]) Is Nothing Then Exit Sub
If Target.Value = 123 Then Call Macro1
If Target.Value = 1234 Then Call Macro2
If Target.Value = 1235 Then Call Macro3
End Sub

 

[mnsahin]

Su sekilde calisti

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [S1:S100]) Is Nothing Then Exit Sub
If Target.Value = "ABC" Then Call Macro1
If Target.Value = "ABCD" Then Call Macro2
If Target.Value = "ABCDE" Then Call Macro3
End Sub