Hücre dolu ise kaydetmesin ve uyarı mesajı verdirmek

[ozmacig]

Arkadaşlar;

1 adet excel formunun üzerinde textbox ve bir adet combobox var textboxa yazdığım değeri b1 hücresine yazıyor. benim sorum şu b1 hücresi dolu ise textbox'a yazdığım veriyi b1 hücresine yazmasın ve "Bu hücrede kayıt var" gibi bir mesaj verdirmek istiyorum bunu nasıl yapabilirim.

 

[Necdet]

Merhaba,

Private Sub CommandButton1_Click()
If Sheets("Sayfa1").Range("B1") <> "" Then
    MsgBox "b1 hücresi dolu"
Else
    Sheets("Sayfa1").[B1] = TextBox1.Text
    TextBox1.Value = ""
End If
End Sub

 

[ozmacig]

Hocam cok teşekkürler eline sağlık