Seçilen Satıra bilgi girme

[sirkülasyon]

Değerli Arkadaşlar;
Sayfa1'in "A4:A" aralığında rakamlar mevcut. (1,2,3,4,... gibi)
Userform1'de bulunan Textbox1 de hangi rakam yazılı ise seçilen rakamın olduğu satırın R4:R sütununa tarih (gg.aa.yyyy) yazmak istiyorum.
Eğer olurda Textbox1' e R sütununa tarih girilmiş olan satırdaki rakam tekrar yazılırsa "Bu Satır ile ilgili işlem yapılamaz" Uyarısı verecek bir makro koduna ihtiyacım var. Yardımcı olabilir misiniz? Saygılarımla

 

[AdemCan]

Merhaba, örnek kod.

Private Sub CommandButton1_Click()
If TextBox1.Value = "" Then Exit Sub
    With Sayfa1
        son = .Cells(Rows.Count, 1).End(3).Row
            Set bul = Sayfa1.Range("A4:A" & son).Find(TextBox1, LookAt:=xlWhole)
            If Not bul Is Nothing Then
                bul = bul.Row
                If IsDate(.Cells(bul, "R")) And .Cells(bul, "R") <> "" Then
                    MsgBox bul & ". satır ile ilgili işlem yapılamaz!", vbExclamation, ""
                    Exit Sub
                Else
                    .Cells(bul, "R") = Date
                End If
            Else
                MsgBox "Aranan rakam (" & TextBox1 & ") bulunamadı.", vbExclamation, ""
            End If
    End With
End Sub

 

[sirkülasyon]

Teşekküe ederim. Elinize sağlık