paraf

[sirkülasyon]

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
ToggleButton1.Caption = "Sil"
[A6] = Date & " " & [A2]
Else
ToggleButton1.Caption = "Paraf Ekle"
[A6] = ""
End If
End Sub

Yukarıdaki kod Hamitcan Uzmanıma ait. Bu kodu ;
Tarih .../aa/yyyy paraf edecek kişinin adı
gelecek şekilde değiştire bilmeme yardımcı olabilir misiniz?

 

[cenk e.]

Merhaba,

[A6] = Mid(Date, 1, 2) & "/" & Mid(Date, 4, 2) & "/" & Mid(Date, 7, 4) & " " & [A2]

şeklinde dener misiniz?

Not: İşinizi görmesi açısından yazdım ama Format ve Date ile çözümü varsa bilenlerden öğrenmek isterim.

 

[sirkülasyon]

İstediğim şekilde olmadı gibi. Yinede abime teşekkür ederim

 

[bilgitron]

[A6]= "Tarih " & Format(Date,dd) & "/" & " Format(Date,mm) & "/" & " Format(Date,yyyy) &Space(5) &[A2]

Şeklinde dene bakalım.