Tarihi bul satırı sil

[barışD34]

Selam,
Bir modül oluşturmak ve bunu başka bir kod içinde çağırmak istiyorum.

Modülde yapmak istediğim ;
Veriler sayfasında A sütunu boyunca tarihler mevcut.
Veriler sayfasında U1 de verilen tarihi , A sütununda bulunan sıralı tarih listesinde bulup o satırı silmesi.

Mümkünse şu şekilde bir örnek olursa da memnun olurum , aynı kod farklı versiyon
İşlem aynı fakat bu defa veriler sayfasında U1 de tanımladığımız tarihi kod içerisinde sabit olarak tanımlayalım. 05.02.2023 gibi.

Teşekkürler...

 

[dEdE]

Merhaba,
Aşağıdaki kodu bir modüle yapıştırarak dener misiniz?

Sub Tarih_Sil()
    Set s1 = Sheets("Veriler")
    Aranan = s1.Range("U1").Value
    'Aranan = "05.02.2023" 'Tarih kod içinde sabit tanımlandı. Baştaki tek tırnak işaretini kaldırırsanız aktif olur.
    Set c = s1.Range("A:A").Find(Aranan, , xlValues, , xlByColumns)
    If Not c Is Nothing Then Rows(c.Row).Delete Shift:=xlUp
End Sub

 

[Muzaffer Ali]

Merhaba.
Alternatif

Sub Sil(Aranan As Date)
    Dim Bul As Range
    With Worksheets("Veriler")
        Set Bul = .Range("A:A").Find(what:=Aranan, lookat:=xlWhole)
        If Bul Is Nothing Then
            MsgBox "'" & Aranan & "' bulunamadığı için silinemedi."
        Else
            Bul.EntireRow.Delete
        End If
    End With
End Sub

Kullanımı aşağıdaki koddaki gibi

Sub test()
    Sil (Range("U1")) 'Bir hücre belirtileceği gibi
    Sil (DateValue("18.01.2023")) ' Bir tarih de belirtilerek silinebilir.
End Sub

 

[barışD34]

Merhaba,
Aşağıdaki kodu bir modüle yapıştırarak dener misiniz?

Sub Tarih_Sil()
    Set s1 = Sheets("Veriler")
    Aranan = s1.Range("U1").Value
    'Aranan = "05.02.2023" 'Tarih kod içinde sabit tanımlandı. Baştaki tek tırnak işaretini kaldırırsanız aktif olur.
    Set c = s1.Range("A:A").Find(Aranan, , xlValues, , xlByColumns)
    If Not c Is Nothing Then Rows(c.Row).Delete Shift:=xlUp
End Sub

Yardımınız için teşekkür ederim. Şöyle bir durum var , bende ilk satır dondurulmuş durumda , yani başlık satırı olarak .
Bu nedenden dolayı çalışmasına engel bir durum olabilir mi ?
Modül üzerinde denedim bir aksiyon olmadı , bu sebepten olabilir mi diye düşünüyorum.

 

[barışD34]

Merhaba.
Alternatif

Sub Sil(Aranan As Date)
    Dim Bul As Range
    With Worksheets("Veriler")
        Set Bul = .Range("A:A").Find(what:=Aranan, lookat:=xlWhole)
        If Bul Is Nothing Then
            MsgBox "'" & Aranan & "' bulunamadığı için silinemedi."
        Else
            Bul.EntireRow.Delete
        End If
    End With
End Sub

Kullanımı aşağıdaki koddaki gibi

Sub test()
    Sil (Range("U1")) 'Bir hücre belirtileceği gibi
    Sil (DateValue("18.01.2023")) ' Bir tarih de belirtilerek silinebilir.
End Sub

Yardımınız için teşekkür ederim , fakat bu iki ayrı kodu nasıl birbirine tanıtacağım bilemedim, bazı noktaları kaçırıyorum mutlaka çünkü deneyim olarak giriş seviyesi diye düşünün.

 

[Muzaffer Ali]

Yardımınız için teşekkür ederim , fakat bu iki ayrı kodu nasıl birbirine tanıtacağım bilemedim, bazı noktaları kaçırıyorum mutlaka çünkü deneyim olarak giriş seviyesi diye düşünün.

İki kodu da aynı kod sayfasına kopyalayın.
Aşağıdaki kodu kullanacaksınız diğeri otomatik çalışacak.

Sub test()
    Sil (Range("U1"))
    Sil (DateValue("18.01.2023")) 
End Sub

 

[barışD34]

İki kodu da aynı kod sayfasına kopyalayın.
Aşağıdaki kodu kullanacaksınız diğeri otomatik çalışacak.

Sub test()
    Sil (Range("U1"))
    Sil (DateValue("18.01.2023"))
End Sub

Çok teşekkür ederim , hızlı şekilde çalışıyor.
Çalışmalarınızda başarılar dilerim.

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.