sayfaları aktarma

[yesilcan]

arkadaşlar , veri girişi sayfasında saat ve tarih yazıp aktara bastığımda ilgili sayfaya tekamül eden tarih ve mesai saatini aktarmasını isterim ama yapılabilirmi..?


yardımlarınızdan ötürü şimdiden çok teşekkür ederim

sayfılarımla..

 

[Orion1]

Ben 1nci buton için kodları yazdım.
Diğer butonlarıda siz yazınız.
Ekli dosyayı inceleyiniz.

Sub Düğme1_Tıklat()
Dim k As Range
If Range("C2").Value = "" Then
    MsgBox "Bir tarih giriniz..!!"
    Exit Sub
End If
Set s2 = Sheets(Range("A2").Value)
Set k = s2.Range("A6:A65536").Find(Range("C2").Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    s2.Cells(k.Row, "D").Value = Range("B2").Value
    MsgBox "Veri aktarıldı"
End If
End Sub

 

[yesilcan]

sayfaya aktarma

sorularımın cevaplanmasında emeği geçen tüm hocalarıma,arkadaşlarıma çok teşekkür ederim.