Tabloya tarih atmak

[akilic54]

değerli arkadaşlarım. yardımlarınız için teşekkur ederim.ekte gönderdiğim dosyada belirttiğim gibi sorgulamasını yaptığım kişinin görüşme tarihi sutununu kullanarak günün tarihini atabilirmiyiz. bana yardımcı olursanız çok sevinirim. saygılar

 

[Orion1]

dosyanız ekte.

Sub vergi_bul()
Dim k As Range, i As Integer
Sheets("SORGU EKRANI").Select
Range("F3:F13").Value = "Bulunamdı"
With Sheets("BİLGİ EKRANI")
    Set k = .Range("B3:B65536").Find(CStr(Range("B3").Value), , xlValues, xlWhole)
    If Not k Is Nothing Then
        For i = -1 To 9
            Range("F" & i + 4).Value = k.Offset(0, i).Value
        Next i
    End If
End With
End Sub
Sub kimlik_bul()
Dim k As Range, i As Integer
Sheets("SORGU EKRANI").Select
Range("F3:F13").Value = "Bulunamdı"
With Sheets("BİLGİ EKRANI")
    Set k = .Range("C3:C65536").Find(CStr(Format(Range("B4").Value, "000 000 0000")), , xlValues, xlWhole)
    If Not k Is Nothing Then
        For i = -2 To 9
            Range("F" & i + 5).Value = k.Offset(0, i).Value
        Next i
    End If
End With
End Sub