ExcelVBA.Net

Hayırlı ramazanlar. Yapmak istediğim programda düşeyara formülünün makrosunu yazmak istedim. Makroyu çalıştırdığımda Sayfa2 de B sütununa Sayfa1 den T.C. Kimlik Numarası gelmesini istedim. Ancak isim geliyor. Yardımcı olursanız sevinirim. Şimdiden teşekkür ederim.
Örnek Dosya

Çalışma sayfanızda ki kodu;
Sub Duseyara()
Call fonksiyonlariKapat

Dim ws1 As Worksheet, ws2 As Worksheet
Set ws1 = ThisWorkbook.Sheets("Sayfa1")
Set ws2 = ThisWorkbook.Sheets("Sayfa2")

For i = 7 To ws2.Cells(ws2.Rows.Count, "C").End(xlUp).Row
If ws2.Cells(i, "C").Value <> "" Then
Dim isimSoyisim As String
isimSoyisim = ws2.Cells(i, "C").Value

Dim bulunan As Range
Set bulunan = ws1.Columns("C").Find(What:=isimSoyisim, LookIn:=xlValues, LookAt:=xlWhole)
If Not bulunan Is Nothing Then
ws2.Cells(i, "B").Value = bulunan.Offset(0, -1).Value
End If
End If
Next i

Call fonksiyonlariAc
End Sub


Bu kodla değiştirin.

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