Hücreye tarih ile birlikte metin yazdırma

[elaziz23]

Değerli hocalarım, bir konuda yardımınıza ihtiyacım var. Ekli excel belgesinde bir düğme ile belirli bir hücreye günün tarihi (.../.../.... formatında olacak şekilde) ile birlikte başka bir hücrede yer alan bir metni araya boşluk koyarak eklemek istiyorum. Aynı düğmeye 2. kez bastığımda eklediğim yazıyı hücreden silmek (temizlemek) istiyorum. Bir türlü yapamadım. Yardımlarınız için şimdiden teşekkürler.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Private Sub CommandButton1_Click()
 
    Range("A6") = Format(Date, "dd.mm.yyyy") & " " & Range("A2")
    Range("A2") = ""
    
End Sub

.

 

[hamitcan]

Bir tane ToggleButton nesnesi içine aşağıdaki kodu ekleyin.

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

 

[elaziz23]

Ömer Hocam eline sağlık, ilk kod tamam Allah senden razı olsun. Fakat benim düğmeye 2. kez bastığımda silinmesini istediğim hücre "A6"

 

[elaziz23]

hamitcan hocam çok sağolasın şimdi oldu. Allah razı olsun.

 

[Ömer]

Silinecek hücreyi yanlış anlamışım.

Sayın hamitcan'ın kodlarını togglebuton da kullanmak daha mantıklı.

Benim verdiğim kodları da aşağıdaki gibi kullanabilirsiniz.

Private Sub CommandButton1_Click()
 
    If Range("A6") <> "" Then Range("A6") = "": Exit Sub
    Range("A6") = Format(Date, "dd.mm.yyyy") & " " & Range("A2")
    
End Sub

.

 

[elaziz23]

Çok sağolun Ömer hocam. Elinize sağlık. İlk etapta bu kod hayli hayli işimi görüyor ama dediğiniz gibi Sayın hamitcan'ın kodlarını togglebuton da kullanırsak düğmenin ismi her tıklamada değiştiğinden daha şık duruyor. Emeğiniz için teşekkürler.