İle başlıyorsa yazdır

[nadirornek]

Ana Sayfa isimli sayfamda C1 hücresi AA236 ile başlıyorsa sayfa2 ve sayfa3'ü yazdır.C1 hücresi
AA852 ile başlıyorsa sayfa2 ve Sayfa4'ü yazdır.Macro ile yapabilirmiyiz?

 

[mancubus]

Sub yazdır()

    Application.ScreenUpdating = False
    
    With Sheets("Ana Sayfa").Range("C1")
        If Left(.Value, 5) = "AA236" Then
            Sheets(Array("Sayfa2", "Sayfa3")).PrintOut
        ElseIf Left(.Value, 5) = "AA852" Then
            Sheets(Array("Sayfa2", "Sayfa4")).PrintOut
        End If
    End With
    
    Application.ScreenUpdating = True
    
End Sub

 

[nadirornek]

Kod Çalışıyor yanlız bunların dışında yazdırma işlemi yine çalışıyor.Farklı ile başlayan olursa yazdırma işlemi yapılamıyor hatası versin.

 

[mancubus]

anlamadım maalesef...

 

[nadirornek]

C1 hücresi AA236 ile başlıyorsa sayfa2 ve sayfa3'ü yazdır.C1 hücresi
AA852 ile başlıyorsa sayfa2 ve Sayfa4'ü yazdır.Farklı sayılar ile başlıyorsa hiçbir sayfa yazdırmasın.

 

[mancubus]

verdiğim kod:

- C1 hücresindeki metinin soldan 5 karakteri "AA236" ise (= bunun ile başlıyorsa) Sayfa2 ve Sayfa3'ü yazdırır,

- C1 hücresindeki metinin soldan 5 karakteri "AA852" ise Sayfa2 ve Sayfa4'ü yazdırır,

- bunun dışındaki durumlarda işlem yapmaz.


problem ne oldu? ne gibi hata aldınız?