Veri tabanında kritere uyan satıra veri girme

[kemal turan]

Merhaba
Telefondan yazdığım için dosya yükleyemedim. Kusura bakmayın
Sorum şu
VERITABANI Sahifesinin A2:A65536 sütünü ID no yani benzersiz sayıdır.
SATISFISDETAY A6:A30 sutunu da ID no dur.(hepsi dolu olmayabilir)
Bir commandbutton düğmesi click olayına bağlı SATİSFİSDETAY değeri VERITABANI Değeri ile aynı ise VERİTABANİ AC Sutunu 29ncu sütun satırına textbox 1 tarih değerini yazacak.
Teşekkür ederim

 

[PLİNT]

Merhaba
Aşağıdaki gibi bir döngü ile arama yapılabilir.

Private Sub CommandButton1_Click()
Dim s1, s2 As Worksheet
Dim r As Range
Dim a As Integer
Set s1 = Sheets("SATISFISDETAY")
Set s2 = Sheets("VERITABANI")
For a = 6 To 30
If s1.Cells(a, 1) <> "" Then
Set r = s2.[A:A].Find(s1.Cells(a, 1), , xlValues)
If Not r Is Nothing Then
If IsDate(TextBox1.Text) = True Then s2.Cells(r.Row, "AC") = CDate(TextBox1)
End If
End If
Next
End Sub

 

[kemal turan]

Sn.Plint merhaba
Çok teşekkür ederim.
Hakkınızı helal ediniz.
Selametle kalınız.