Excelde makro ile ara bul ve yapıştır

[hakankilic]

Cep telefonumdan yazıyorum. İş yerimde intranet var. İnternet yok.
Sorunum sayfa1 de Tc numaraları içeren isim listem var. Sayfa2 A1 hücresine tc kimlik nummarasını yazdığımda ve butona bastığımda Sayfa2 A2 hücresindeki bugünün tarihini sayfa1 deki tabloda tc numarasının karşısına yazdırmak istiyorum. Yardımcı olabilir misiniz?

 

[YUSUF44]

Aşağıdaki kodları Sayfa2'nin kod bölümüne (sayfa adına sağ tıklayıp kod görüntüle deyince açılan sayfaya) yazınız. Sayfa1'in B sütununu tarih olarak biçimlendirmeyi unutmayınız:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
If Selection.Count > 1 Then Exit Sub
If Target = "" Then Exit Sub
son = Sheets("Sayfa1").Cells(Rows.Count, "A").End(3).Row
If WorksheetFunction.CountIf(Sheets("Sayfa1").Range("A1:A" & son), Target) > 0 Then
    a = WorksheetFunction.Match(Target, Sheets("Sayfa1").Range("A1:A" & son), 0)
    Sheets("Sayfa1").Cells(a, "B") = [A2]
End If
End Sub

 

[hakankilic]

Elinize sağlık. Çok güzel çalışıyor.