Tarih Yazan Koda Silme Satırı Ekleme

[vurkan]

Arkadaşlar merhaba. Bu forumdan edindiğim aşağıdaki koda silme satırı eklemek istiyorum. Yardımcı olursanız sevinirim.

Kodda v1:V50000 aralığına birşey yazınca W sütununa tarih yazıyor. Ben bu aralıktaki verileri sildikçe tarihlerin de silinmesini nasıl sağlayabilirim? Yani ben birşey yazarsam tarih yazılsın, yazdığımı silersem tarihte silinsin. Tabii aynı işlem diğer satır için de geçerli olmalı. Saygılar.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [v1:V50000]) Is Nothing Then Cells(Target.Row, "W") = Format(Date, "dd/mm/yyyy")
If Not Intersect(Target, [AS1:AS50000]) Is Nothing Then Cells(Target.Row, "AT") = Format(Date, "dd/mm/yyyy")
End Sub

 

[Necdet]

Merhaba,

Deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)

    On Error GoTo Son
    If Intersect(Target, [V:V,AS:AS]) Is Nothing Then Exit Sub
    
    If Target.Value = "" Then
        Target.Offset(0, 1) = ""
    Else
        Target.Offset(0, 1) = Date
    End If
Son:

End Sub

 

[vurkan]

Üstadım teşekkür ederim Verdiğiniz kod çalışıyor. Ancak Dosyamda format gereği birleştirilmiş hücrelerde tarihi yazmada problem yok ama silmek istediğimde ;

If Target.Value = "" Then

satırı sarı olup işlem yapmıyor. İlginize minnettarım. Saygılar.

İndir KURAN HATİM TAKİP

Dosyayı indir KURAN HATİM TAKİP

dosya.co

 

[Seyit Tiken]

Target'leri ActiveCell ile değiştiriniz.

 

[Necdet]

Üstadım teşekkür ederim Verdiğiniz kod çalışıyor. Ancak Dosyamda format gereği birleştirilmiş hücrelerde tarihi yazmada problem yok ama silmek istediğimde ;

If Target.Value = "" Then

satırı sarı olup işlem yapmıyor. İlginize minnettarım. Saygılar.

İndir KURAN HATİM TAKİP

Dosyayı indir KURAN HATİM TAKİP

dosya.co

Silmekten kastınız Satır silmek sanırım. Yukarıdaki kodu yeniledim, tekrar kopyalayınız.

 

[vurkan]

Sayın Üstadlarım satır değil V ile AS sütunlarında değişik sayıda hücre birleştirerek sayfa numaralarını yazıyorum. Mesela Bakara Suresi 1 den 5. ayete kadar 1. sayfada. V sütununda 1 - 5 Ayetlere denk gelen hücreleri birleştirip 1 yazınca aynı şekilde birleştirilmiş W sütununda o sayfayı okuduğum tarih otomatik olarak yazılıyor. Benim istediğim satır değil 1 i sildiğimde tarihin de silinmesi, Hücre birleştirmesem Necdet Bey'in verdiği ilk kod çalışıyor. Ancak birleştirince hata veriyor. Seyit Tiken Bey'in önerisini de başaramadım. Saygılar.

 

[YUSUF44]

Cepten baktığımdan deneyemiyorum:

Target.Offset(0,1).Select
Selection.ClearContents

Şeklinde dener misiniz?

 

[vurkan]

Sayın Yusuf Bey bir türlü yapamadım. Yapmak istediğim ekli dosyada sarı renk dolguyla gösterdiğim (V ve AS sütunları) hücreleri boşaltınca yandaki tarihlerin de silinmesi. Saygılar.

İndir KURAN HATİM TAKİP

Dosyayı indir KURAN HATİM TAKİP

dosya.co

 

[Necdet]

Merhaba,

Dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, [V:V,AS:AS]) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If Target(1).Value = "" Then
        Target.Offset(0, 1).MergeArea.ClearContents
    Else
        Target.Offset(0, 1) = Date
    End If
    Application.EnableEvents = True

End Sub

 

[vurkan]

Sayın Necdet Üstadım Bu sefer tam istediğim gibi çalıştı. Çok teşekkür ediyorum. Diğer ilgilenen üstadlara da teşekkür ediyorum. Sağolun.

 

[Necdet]

Sayın Necdet Üstadım Bu sefer tam istediğim gibi çalıştı. Çok teşekkür ediyorum. Diğer ilgilenen üstadlara da teşekkür ediyorum. Sağolun.

Güle güle kullanın, birleştirilmemiş hücre varsa onun denemelerini yapmadım, onu da siz deneyiniz.