textbox ta sürekli bugünün tarihi

[mehmetfatih]

textbozta sürekli bugünün tarihini nasıl gösterebiliriz ve o tarihi kaydet dediğimizde Sayfa2 de A3 ve altına sürekli kaydetmeliyim..
yardımcı olabilirseniz sevinirim..

 

[Ömer]

textbozta sürekli bugünün tarihini nasıl gösterebiliriz ve o tarihi kaydet dediğimizde Sayfa2 de A3 ve altına sürekli kaydetmeliyim..
yardımcı olabilirseniz sevinirim..

Merhaba,

Bu şekilde deneyin.

[COLOR=darkgreen]'aktarma
[/COLOR]Private Sub CommandButton1_Click()
    
    Dim son As Long
    
    With Sheets("Sayfa2")
        son = .Cells(Rows.Count, "A").End(xlUp).Row + 1
        If son < 4 Then son = 3
        .Cells(son, "A") = TextBox1.Text
    End With
    
End Sub
 
[COLOR=darkgreen]'textbox da tarih
[/COLOR]Private Sub UserForm_Initialize()
    TextBox1.Text = Date
End Sub

.

 

[mehmetfatih]

Teşekkür edrim yardımcı olduğunuz için..