Then Exit Sub

[hakki83]

Merhaba Değerli Excel Hocalarımız,

Bir sayfada yan yana sütunlarda veriler var.

Bu sayfadaki en sağdaki en son sütunun başlık hücresi "RAPORLAR" değil ise,
o kod çalışmasın. (Then Exit Sub yapsın)

Nasıl yazılır?

 

[Muzaffer Ali]

Merhaba.

Sub Test()
    Dim SonSutun As Integer
    SonSutun = Cells(1, Columns.Count).End(xlToLeft).Column
    If Not Cells(1, SonSutun) = "RAPORLAR" Then
        Exit Sub
    End If
End Sub

 

[hakki83]

Muzaffer Ali hocam, teşekkürler, emeğinize sağlık. Olmuştur.

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.