Silineni Geri Alma

[eminuslu]

Sevgili arkadaşlar ekte gönderdiğim dosyamda Temizle butonu ile sildiğim bilgileri Geri Al butonu ile yine aynı yerine geri getirmek istiyorum saygılarımla

 

[Ömer]

Merhaba,

Modul1 deki kodları silerek aşağıdaki kodları kopyalayın.

Dim a, b
Sub temizle()
    With Sheets("Sayfa1")
        a = .Range("C8")
        b = .Range("D8")
        .Range("c8:d8").ClearContents
    End With
End Sub
 
Sub GeriAl()
    With Sheets("Sayfa1")
        If Range("C8") = "" Or .Range("D8") = "" Then
            .Range("C8") = a
            .Range("D8") = b
        End If
    End With
End Sub

.

 

[eminuslu]

Ömer bey çok teşekkür ederim fevkaladenin fevkinde olmuş eline,koluna,yüreğine sağlık

 

[eminuslu]

Formülleri silmesin

Ömerbey dosyamda bir sorun daha oluştu yardımcı olabilirseniz sevinirim sorun şu Temizle Butonuna tıkladığımızda E8 deki formülleride siliyor Geri Al tuşuna tıkladığımda bilgiler formülsüz geliryor dosyam ektedir saygılarımla.

 

[Ömer]

Geri al kodlarında;

.Range("e8") = c

yerine aşağıdaki satırı kullanın.

.Range("e8") = "=CONCATENATE(YEAR(D8-C8)-1900,"" YIL, "",MONTH(D8-C8)-1,"" AY, "",DAY(D8-C8),"" GÜN"")"

 

[eminuslu]

Çok teşekkür ederim