24 yazan hücreden bir gün sonrasını otomatik silmek

[ozcanya]

24 yazan hücreden bir gün sonraki hücreyi silmek dosyam ekle açıklama dosya içerisindedir teşekkür ederim

 

[Necdet]

Merhaba,

Silmekten amacınız içeriğinin boşaltılması ve sonraki günden amacınız da sonraki satırdaki değer ise :
Aşağıdaki kodları bir modüle kopyalayıp deneyiniz.

24 ten başka bir değer aratırsanız kodun içindeki 24'ü değiştirebilirsiniz.

Sub Sil()

    Dim c   As Range, _
        Adr As String, _
        Deg As String, _
        Adt As Integer
    
    Deg = 24
    
    With Sheets("Sayfa1").Range("B:B")
        Set c = .Find(Deg, LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then
            Adr = c.Address
            Do
                c.Offset(1, 0) = ""
                Adt = Adt + 1
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> Adr
        End If
    End With
    
    If Adt = 0 Then
        MsgBox "Aranan Değer Bulunamadı....", vbCritical, "www.excel.web.tr"
    Else
        MsgBox Adt & " Adet Veri Silinmiştir...", vbInformation, "www.excel.web.tr"
    End If
    
End Sub

 

[ozcanya]

Teşekkür ederim.Necdet bey modülü ben çalıştıramadım galiba. yapmak istediğim şey 24 saat nöbet tutan bir kişi bir sonraki günden silmek.yani 24 saat kalıyor bir sonraki hücre ne varsa "Örn: 8" onun silinmesi boş kalması

 

[Necdet]

E kodları istenen yere koymuşsunuz, neden çalıştıramadığınızı anlamadım.
Sadece makroyu çalıştırmanız gerekiyor.
Geliştirici sekmesinden makrolara gireceksiniz, karşınıza çıkacak. Tıklandığında çalışacak.
Ya da bir şekil ekleyin, o şekle sağ tıklayın, makro ekle deyin, eklediğiniz makroyu göreceksiniz, tamam dediğinizde artık o şekle tıkladığınzda makro çalışacaktır.

 

[ozcanya]

E kodları istenen yere koymuşsunuz, neden çalıştıramadığınızı anlamadım.
Sadece makroyu çalıştırmanız gerekiyor.
Geliştirici sekmesinden makrolara gireceksiniz, karşınıza çıkacak. Tıklandığında çalışacak.
Ya da bir şekil ekleyin, o şekle sağ tıklayın, makro ekle deyin, eklediğiniz makroyu göreceksiniz, tamam dediğinizde artık o şekle tıkladığınzda makro çalışacaktır.

Yaptım Necdet bey çok teşekkür ederim. Saygılar sunarım...

 

[ozcanya]

Yaptım Necdet bey çok teşekkür ederim. Saygılar sunarım...

Necdet bey sizden son bir isteğim olacak açıklama dosya da var.Yapmak istediğim şey nöbet listesi 2 dosyasındaki bilgiler nöbet listesi 1 tras ver yapmak. Burada örnek olarak özcan E hücresi 24 yazan yerler diğer sayfaya isim olarak özcan yazacak . Gün ve tarihler aynı olacak tabi. Sadece 24 ler diğerleri değil . Ay içerisinde yaptığım değişiklikler değişecek. Örnek dosyayı ekledim