Hücre Bİlgİlerİnİ Sİlme

[vasifokur]

Örnek sayfada son ödeme tarihi geçmiş olan satırlardaki bilgilerden C sütünündaki bilgiler hariç diğer bilgilerin silinmesin istiyorum. Böyle bir makro oluşturabilir miyiz ?

 

[Orion1]

Ekli dosyayı inceleyiniz.

Sub sil()
Dim i As Long
Sheets("Sayfa1").Select
Application.ScreenUpdating = False
For i = Cells(65536, "A").End(xlUp).Row To 5 Step -1
    If CLng(CDate(Cells(i, "C").Value)) > CLng(CDate(Cells(i, "A").Value)) Then
        Range("A" & i & ":B" & i).ClearContents
        Cells(i, "D").ClearContents
    End If
Next i
Application.ScreenUpdating = True
MsgBox "Silme tamamlandı..!!"
End Sub

 

[vasifokur]

Sn Orion2; bilgi paylaşımınız için teşekkür ederim ama benim istediğim biraz farklı galiba. Şöyleki ; C4'teki tarih daha gelmedi. Ben öncelikle 4. sıradaki hiç bir bilginin silinmesin istemiyorum.Bunun yanı sıra C5 ve C6 tarihleri geçmişte kaldığından bu iki hücre hariç ( C5,C6) 5. ve 6. satırdaki diğer tüm hücre bilgilerinin silinmesini istiyorum.

 

[uzmanamele]

1-bu kodu kullanarak a1-c35 aralığı için sütunları için cells(a1:c35) ilave ediyoruz (galiba) bunun yanında f1-k35 aralığınıda nasıl ilave edebiliriz?
2-işlemi geri alma seçeneği için başka kod ilavesi nasıl olur?

not: vasifokur tarih sorgusuna bağlı silme işlemi istiyor, bana ayrıca bir sorgu gerekmiyor. istediğim anda kendim silebilmeliyim.

 

[Orion1]

Sn Orion2; bilgi paylaşımınız için teşekkür ederim ama benim istediğim biraz farklı galiba. Şöyleki ; C4'teki tarih daha gelmedi. Ben öncelikle 4. sıradaki hiç bir bilginin silinmesin istemiyorum.Bunun yanı sıra C5 ve C6 tarihleri geçmişte kaldığından bu iki hücre hariç ( C5,C6) 5. ve 6. satırdaki diğer tüm hücre bilgilerinin silinmesini istiyorum.

Dosyayı düzenledim.
Önceki mesajımdan indirebilirsiniz.

 

[Orion1]

1-bu kodu kullanarak a1-c35 aralığı için sütunları için cells(a1:c35) ilave ediyoruz (galiba) bunun yanında f1-k35 aralığınıda nasıl ilave edebiliriz?
2-işlemi geri alma seçeneği için başka kod ilavesi nasıl olur?

not: vasifokur tarih sorgusuna bağlı silme işlemi istiyor, bana ayrıca bir sorgu gerekmiyor. istediğim anda kendim silebilmeliyim.

1nci sorunuzun cevabı.:

Sub sil()
'A1:A35 aralığını siliyor.
Range("A1:A35").ClearContents
'F1:K35 aralığını siliyor.
Range("F1:K35").ClearContents
End Sub

2nci sorunuz:Makro ile yapılan bir işlem maalesef geri alınamıyor.

 

[uzmanamele]

teşekkürler orion2

 

[Orion1]

teşekkürler orion2

Rica ederim.
İyi çalışmalar.

 

[uzmanamele]

laz aklı sonradan çalışıyor sizin verdiğiniz kodları henüz uyarlamadım, akşam bakmayı düşünüyordum ama makro ile yapılan silme işlemi geri alınamıyorsa silmeden önce tekrar onay istemesi lazım. kodları tekrar düzenleyebilir misiniz?

 

[Orion1]

Aşağıdaki şekilde denermisiniz?

Sub sil()
If MsgBox("A1:A35,F1:K35 aralığını silmek istiyormusunuz?", vbYesNo) = vbNo Then Exit Sub
'A1:A35 aralığını siliyor.
Range("A1:A35").ClearContents
'F1:K35 aralığını siliyor.
Range("F1:K35").ClearContents
End Sub

 

[vasifokur]

Sn Orion2 ; gönderdiğiniz 2. çalışmayı da inceledim. C4'teki tarih ne olursa olsun o sıradaki bilgiler silinmiyor. C5 ve ondan sonraki tarihler ne olursa olsun o sıradaki bilgiler siliniyor. İstediğim ise C sütünündaki tarihler güncel tarihten önce ise silinmesi sonra ise silinmemesi. Tekrar teşekkür ederim.

 

[Seyit Tiken]

Sub Düğme2_Tıklat()
For s = 1 To 100
If Range("c" & s) < Date Then Range("c" & s) = Empty
Next
End Sub

Şeklinde deneyiniz.

 

[vasifokur]

Sn Seyit Bey ; Makronuzu denedim. Bu seferde süresi dolan sıradaki C hücre bilgisini siliyor. Bunun tam tersinin olmasını istiyorum.

 

[Seyit Tiken]

Kod i&#231;indeki bu "<" i&#351;areti, &#351;u ">" i&#351;aret &#351;eklinde deneyiniz.