Şarta bağlı veri silmek

[Abdulhey]

Aynı sütündaki verinin şarta bağlı olarak 1 tanesinin silinmesi ile ilgili.
Burda tam olarak anlatamadığımdan Örnek dosyam ekte. Açıklaması mevcut.

İlgilenenlere şimdiden teşekkürler.

 

[Murat OSMA]

C5 ile C25 aralığı için yazdım ve sadece hücrenin içeriğini temizlettim. Satırı silmedim.
Deneyiniz;

Sub Emre()
    Dim bul As Range
    For Each bul In Range("C5:C25")
        If bul.Count = 1 And bul.Offset(0, 1).Value = "Y" Then
            bul.Next(1, 0).ClearContents
        End If
    Next bul
    Set bul = Nothing
End Sub

 

[Abdulhey]

C5 ile C25 aralığı için yazdım ve sadece hücrenin içeriğini temizlettim. Satırı silmedim.
Deneyiniz;

Sub Emre()
    Dim bul As Range
    For Each bul In Range("C5:C25")
        If bul.Count = 1 And bul.Offset(0, 1).Value = "Y" Then
            bul.Next(1, 0).ClearContents
        End If
    Next bul
    Set bul = Nothing
End Sub

Öncelikle ilgin için teşekkürler. Çalışmakta ama tam anlamıyla benim istediğim değil. Şöyleki;

C sütununda çift olan verinin D sütünündaki "E" ve "Y" parametresine göre silme işi tamam.
ancak
C sütununda tek veri olduğu halde D sütununda "Y" parametresi olanını silmemeli. Yani formül mantığı "Y" olanların tamamını siliyo. Sadece tek çift verili "Yé parametreli hücre silinmeli

Kısaca C10 silinmemeli.

 

[Necdet]

Merhaba,

Kodları dener misiniz?

Silinmekten kastınızı tam anlamadığım için (satır mı yoksa hücre içeriği mi) sadece hücrenin arka plan rengini kırmızı yaptım.

Sub Sartli_Sil()
    Dim i       As Long
    Dim Son     As Long
    
    Son = Cells(Rows.Count, "C").End(3).Row
    If Son < 5 Then Son = 5
    
    Application.ScreenUpdating = False
    
    For i = 6 To Son
        If Cells(i, "D") = "Y" Then
            If Application.WorksheetFunction.CountIf(Range("C5:C" & i), Cells(i, "C")) > 1 Then
                With Cells(i, "C")
                    .ClearContents
                    .Interior.ColorIndex = 3
                End With
            End If
        End If
    Next i
    
    Application.ScreenUpdating = True
    
    MsgBox "İşlem Bitmiştir....", vbInformation, "N. YEŞERTENER "
    
End Sub

 

[Abdulhey]

Hata verdi
satır silinmeyecek hücre içeriği silinecek

 

[Abdulhey]

MsgBox "İşlem Bitmiştir....", vbInformation, "N. YEŞERTENER ---> <a href="http://www.excel.web.tr/" target="_blank">www.excel.web.tr</a>"

Kodda burayı silince çalıştı işlem neredeyse tamam
çift verili hücreyi kırmızıya boyadı
tek kalan içindeki veriyi silmesi

 

[Necdet]

Merhaba,

Mesajıma dosya ekledim, orada hücre içeriğini sildirdim, kodu oradan alabilirsiniz.

Verdiği hata da foruma eklenen verilerde (web adresinde) eklemeler yaptığından kaynaklanıyor.

 

[Abdulhey]

elinize sağlık süper olmuş
son koda silinen hücreyi renklendirmeyi eklemek mümkünmüdür ?
bir önceki silmiyodu renklendiriyodu

yani hem silsin hem de silinen hücreyi renklendirsin

teşekkürler.

 

[Necdet]

Merhaba,

4 Nolu mesajda kodları ve dosyayı değiştirdim, oradan alınız.

 

[Abdulhey]

Klavyeniz dert görmesin.

Son bir soru sorsam umarım kabalık etmiş olmam. Bu makroyu bikaç sayfası olan bir çalışma kitabına uyarlamak istiyorum. sayfaların isimleri farklı. Bu makro sadece düğmenin çalıştığı sayfada işlem yapar diğer sayfalara işlem yapmaz değilmi ?

 

[Necdet]

Klavyeniz dert görmesin.

Son bir soru sorsam umarım kabalık etmiş olmam. Bu makroyu bikaç sayfası olan bir çalışma kitabına uyarlamak istiyorum. sayfaların isimleri farklı. Bu makro sadece düğmenin çalıştığı sayfada işlem yapar diğer sayfalara işlem yapmaz değilmi ?

Merhaba,

Makroda sayfa kontrolü yapılmadı, dolayısıyla aktif sayfa üzerinde çalışır. Diğer sayfaların yapısı da aynı ise (aynı sütun ve aynı satırdan başlıyorsa veriler) makro çalışır.

Tüm sayfalarda otomatik olarak çalışsın derseniz kodlara ek yapmak gerekir.

 

[Abdulhey]

Merhaba,

Makroda sayfa kontrolü yapılmadı, dolayısıyla aktif sayfa üzerinde çalışır. Diğer sayfaların yapısı da aynı ise (aynı sütun ve aynı satırdan başlıyorsa veriler) makro çalışır.

Tüm sayfalarda otomatik olarak çalışsın derseniz kodlara ek yapmak gerekir.

Farklı isimlerde olup aynı veriler olan sayfalar mevcut. Diğer sayfalardakileri silinmesi işime gelmez.
Benim kullanacağım sayfa ismi "YENİ"
ismi "ESKİ" olup aynı satır ve sütünlar ve de veriler olan sayfada var.
makro sadece "YENİ" isimli sayfada işlem yapmalı

 

[Necdet]

Merhaba,

Kodların başına
Sheets("YENİ").Select
yazınız. Hangi sayfada olursanız olunuz YENİ adlı sayfaya geçip öyle çalışacaktır. Umarım bu kadar basit bir satırı ekleyebilirsiniz.

 

[Abdulhey]

Merhaba,

Kodların başına
Sheets("YENİ").Select
yazınız. Hangi sayfada olursanız olunuz YENİ adlı sayfaya geçip öyle çalışacaktır. Umarım bu kadar basit bir satırı ekleyebilirsiniz.

Teşekkürler.