Son Girilen Veriyi Silmek istiyorum

[Mdemir63]

Selamlar,

Dosyanızda kullandığınız yapıyı bizler bilemediğimiz için sizin söylediğiniz bilgiler doğrultusunda çözüm üretmeye çalışıyoruz. Eğer örnek bir dosya üzerinde tam olarak nasıl bir işlem yapmak istediğinizi açıklarsanız yardımcı olabiliriz.

Hocam merhaba

Örnek dosya değil kullandığım dosyamı gönderiyorum.

Kısaca bahsetmek istiyorum. personel veya yakını ismini seçtikten sonra hasta kağıdı türünü de seçip YAZDIR dediğimde sevk defterine yazıyor. Yani herşey düzgün çalışıyor. ancak biz yanlışlık yaptığımızda sevk defterine işlenmiş bir bilgiyi (Tabi en son işlem olarak) bir buton yardımıyla sildirmek istiyorum ama SIRA sütunu ve en sondaki sütunda formüller var o formüller bozulmasın istiyorum

saygılar sunuyorum.

Dosya ekte

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub CommandButton1_Click()
    ONAY = MsgBox("SON GİRİLEN KAYDI SİLMEK İSTİYOR MUSUNUZ?", vbYesNo + vbCritical, "DİKKAT !")
    If ONAY = vbYes Then
    SON = [B65536].End(3).Row
    Range(Cells(SON, 2), Cells(SON, 7)).ClearContents
    Else
    MsgBox "SİLME İŞLEMİ İPTAL EDİLMİŞTİR.", vbInformation
    End If
End Sub

 

[Mdemir63]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub CommandButton1_Click()
    ONAY = MsgBox("SON GİRİLEN KAYDI SİLMEK İSTİYOR MUSUNUZ?", vbYesNo + vbCritical, "DİKKAT !")
    If ONAY = vbYes Then
    SON = [B65536].End(3).Row
    Range(Cells(SON, 2), Cells(SON, 7)).ClearContents
    Else
    MsgBox "SİLME İŞLEMİ İPTAL EDİLMİŞTİR.", vbInformation
    End If
End Sub

Hocam eline sağlık sorun halloldu sayende

Saygılar

iyi geceler