İki Tarih Arasındaki Verilerin Silinmesi

[1Al2Ver]

Merhaba,

"Aylık" isimli sayfada iki tarih arasında ( Örn, 01.12.2008:15.12.2008 ) , C4:AG200 aralığındaki verileri, ikaz vererek silen makroya ihtiyacım var.

Seçilecek ilk ve son tarih değişkendir.

Teşekkür ederim.

 

[Ayhan Ercan]

Merhaba

Örnek bir sosya ekleyebilirmisiniz?

C4:AG200 arasındaki veri tipleri nedir?
Tarih aralığı dediğiniz tarihi nerden baz alacağız?

 

[1Al2Ver]

Merhaba

Örnek bir sosya ekleyebilirmisiniz?

C4:AG200 arasındaki veri tipleri nedir?
Tarih aralığı dediğiniz tarihi nerden baz alacağız?

Sayın Ayhan Ercan,merhaba,

AI4 = İlk Tarih (Veri Doğrulama Uygulandı)
AI5 = Son Tarih (Veri Doğrulama Uygulandı)

C4:AG200 aralığındaki veriler sayıdır ve bu sayılar bir başka makro aracılıyla "Aylık" sayfasına taşınmaktadır.

Dosyadaki tarihler değişince eski verilerin makro ile silinmesi gerekiyor, bu nedenle İki Tarih Arası'ndaki verileri, ikaz alarak silmek istiyorum.

Teşekkür ederim.

 

[Ayhan Ercan]

Tekrar Merhaba

Ek dosyayı inceleyiniz. Arzu ettiğiniz şey böyle bişeymi?

Sub sil()
Dim hcr As Range, tar As Date, tar2 As Date
tar = Sheets("Aylık").Range("AI4").Value
tar2 = Sheets("Aylık").Range("AI5").Value
For Each hcr In Sheets("Aylık").Range("C2:AG2")
If hcr >= tar And hcr <= tar2 Then
Sheets("Aylık").Range(Cells(4, hcr.Column), Cells(23, hcr.Column)).ClearContents
End If
Next
End Sub

 

[Ayhan Ercan]

İkazı atlamışım...
Next ile End Sub arasına aşağıdaki kodu ilave ediniz..

MsgBox tar & " tarihi ile " & tar2 & " tarihi arasındaki bilgiler silinmiştir..!", vbInformation

 

[1Al2Ver]

Tekrar Merhaba

Ek dosyayı inceleyiniz. Arzu ettiğiniz şey böyle bişeymi?

Sub sil()
Dim hcr As Range, tar As Date, tar2 As Date
tar = Sheets("Aylık").Range("AI4").Value
tar2 = Sheets("Aylık").Range("AI5").Value
For Each hcr In Sheets("Aylık").Range("C2:AG2")
If hcr >= tar And hcr <= tar2 Then
Sheets("Aylık").Range(Cells(4, hcr.Column), Cells(23, hcr.Column)).ClearContents
End If
Next
End Sub

Sayın Ayhan Ercan, merhaba

Teşekkür ederim, elinize sağlık,

Saygılarımla.

 

[Ayhan Ercan]

Sayın Ayhan Ercan, merhaba

Teşekkür ederim, elinize sağlık,

Saygılarımla.

Rica ederim.
İyi Çalışmalar... k::

 

[1Al2Ver]

Rica ederim.
İyi Çalışmalar... k::

Sayın Ayhan Ercan,merhaba

Silerken de "Veriler silinecektir, eminmisiniz !" mesajını da alabilmek için kodun neresine nasıl bir komut yazmalıyız ?

Teşekkür ederim.

 

[Ayhan Ercan]

Sayın Ayhan Ercan,merhaba

Silerken de "Veriler silinecektir, eminmisiniz !" mesajını da alabilmek için kodun neresine nasıl bir komut yazmalıyız ?

Teşekkür ederim.

Tekrar Merhaba

Kodlarınızı aşağıdaki gibi revize ederek deneyiniz...

Sub sil()
Dim hcr As Range, tar As Date, tar2 As Date
tar = Sheets("Aylık").Range("AI4").Value
tar2 = Sheets("Aylık").Range("AI5").Value
For Each hcr In Sheets("Aylık").Range("C2:AG2")
    If hcr >= tar And hcr <= tar2 Then
        Beep
        soru = MsgBox(hcr & " tarihli bilgiler silinecektir, eminmisiniz..!", vbOKCancel)
        If soru = vbOK Then
            Sheets("Aylık").Range(Cells(4, hcr.Column), Cells(23, hcr.Column)).ClearContents
        Else
            GoTo devam
        End If
    End If
devam:
Next
End Sub

 

[1Al2Ver]

Tekrar Merhaba

Kodlarınızı aşağıdaki gibi revize ederek deneyiniz...

Sub sil()
Dim hcr As Range, tar As Date, tar2 As Date
tar = Sheets("Aylık").Range("AI4").Value
tar2 = Sheets("Aylık").Range("AI5").Value
For Each hcr In Sheets("Aylık").Range("C2:AG2")
    If hcr >= tar And hcr <= tar2 Then
        Beep
        soru = MsgBox(hcr & " tarihli bilgiler silinecektir, eminmisiniz..!", vbOKCancel)
        If soru = vbOK Then
            Sheets("Aylık").Range(Cells(4, hcr.Column), Cells(23, hcr.Column)).ClearContents
        Else
            GoTo devam
        End If
    End If
devam:
Next
End Sub

Sayın Ayhan Ercan, merhaba

Herşey için bir kez daha teşekkür ederim.

Saygılarımla.

 

[Ayhan Ercan]

Sayın Ayhan Ercan, merhaba

Herşey için bir kez daha teşekkür ederim.

Saygılarımla.

Rica ederim ...