uyarı mesajı verme

[buurakengin]

Merhaba bu kodda "deneme" sayfasındaki "soyadı" sütununu butona basınca ilk sütuna taşıyor. Butona ikinci basmamda "soyadı sütunu zaten ilk satırda" uyarısını almak istiyorum. Yardımcı olur musunuz ?


Sub blge_aktar()
Dim Bak As Long
With Worksheets("deneme")
For Bak = 1 To .Cells(1, Columns.Count).End(xlToLeft).Column
If .Cells(1, Bak) = "soyadı" Then
.Columns(Bak).Cut
.Columns(1).Insert

MsgBox ("BÖLGE_KODU TAŞIMA BAŞARILI")



Exit Sub

End If
Next
End With
End Sub

 

[ÖmerFaruk]

For Bak =2 To .Cells(1, Columns.Count).End(xlToLeft).Column
derseniz mesaja gerek kalmaz.

İlla mesaj alacam derseniz

Sub blge_aktar()
Dim Bak As Long
    With Worksheets("deneme")
        If .Cells(1, 1) = "soyadı" Then
            MsgBox "Soyadı zaten birinci sütunda"
            Exit Sub
        End If
        For Bak = 1 To .Cells(1, Columns.Count).End(xlToLeft).Column
            If .Cells(1, Bak) = "soyadı" Then
                .Columns(Bak).Cut
                .Columns(1).Insert
                MsgBox "BÖLGE_KODU TAŞIMA BAŞARILI"
                Exit Sub
            End If
        Next
    End With
End Sub

 

[buurakengin]

teşekkür ederim Ömer Bey