kayıt bulup son hücreye tarih atsın

[asi_kartal]

slm arkadaşlar

ekte bir çalışma yaptım, öğrenci araya öğrenci numarsı yazdığım kişinin son boş hücresine tarih atmasını istiyorum. yardımlarınızı bekliyorum. saygılarımla

 

[asi_kartal]

kimse yokmu !!!

 

[dEdE]

Merhaba,
TextBox2 nin Exit olayına aşağıdaki kodu ekleyip dener misiniz.

Satır = Range("A:A").Find(TextBox2, , , xlWhole).Row
SonK = Range("A" & Satır).End(2).Column + 1
Cells(Satır, SonK).Value = Date

 

[asi_kartal]

teşekkür ederim hocam bir sorum daha olacak listbox1 deki işyerlerine tıklayınca listbox2 de o işyerine ait öğrencilerin gelmesini istiyorum. teşekkür ederim.

 

[dEdE]

teşekkür ederim hocam bir sorum daha olacak listbox1 deki işyerlerine tıklayınca listbox2 de o işyerine ait öğrencilerin gelmesini istiyorum. teşekkür ederim.

Buyurun.

Private Sub ListBox1_Click()
    If ListBox1.ListCount < 0 Then Exit Sub
    ListBox2.Clear
    Sat = 0
For i = 2 To [D65536].End(3).Row
    ListBox2.AddItem
    If Cells(i, 4).Value = ListBox1.Text Then
        ListBox2.Column(0, Sat) = Cells(i, 2).Value
        Sat = Sat + 1
    End If
Next
End Sub

 

[asi_kartal]

teşekkür ederim hocam sağolun