Soru Hücre değerine göre sütun temizeleme

[xemdarx]

Selamlar,
E6:T6 arasında hücrelerde Evet,Tamam,Var sözcükleri olduğunda iligili sütunların, son satıra ( C'ye göre ) kadar temizlenmesini istiyorum. Yardımcı olur musunuz?

 

[Necdet]

Merhaba,

Basit örnek bir dosya ekleyiniz. Açıklamayı dosya üzerinden ve silinmesi gereken satırları renklendirerek yapınız ki gereksiz yazışmalara neden olmasın.

Örneğin ben C sütuna göre son satıra kadar temizlenmesini iki şekilde anlıyorum. :
1. İçeriklerinin Silinmesi
2. Satırların Silinmesi

Ek olarak silme ya da temizleme işlemi hangi satır ya da hücreden itibaren olacak? vs vs vs

 

[xemdarx]

İçeriklerin temizlenmesi.

 

[Necdet]

İçeriklerin temizlenmesi.

Merhaba,

Aşağıdaki kodları bir Modul'e kopyalayıp dener misiniz?

Sub SutunSil()

    Dim i   As Long, _
        j   As Integer, _
        k   As Integer, _
        Deg As String
   
   
    Application.ScreenUpdating = False
   
    i = Cells(Rows.Count, "D").End(3).Row
    k = Cells(6, Columns.Count).End(1).Column
   
    For j = 5 To k
   
        Deg = UCase(Cells(6, j))
       
        If Deg = "EVET" Or Deg = "TAMAM" Or Deg = "VAR" Then Range(Cells(7, j), Cells(i, j)).ClearContents
       
    Next j

    Application.ScreenUpdating = True
   
    MsgBox "İŞLEM TAMAMDIR...", vbInformation, "www.excel.web.tr"
   
End Sub

 

[xemdarx]

Sayın Necdet,
Verdiğiniz kodlar istediğim gibi çalışıyor.Teşekkürler. Acaba bu kodu birleştirilmiş hücreleri temizlemede de kullanabilmem için yardımcı olur musunuz?

 

[xemdarx]

Cells(i + 1, j)).ClearContents. Sorun çözülmüştür.

 

[Necdet]

Cells(i + 1, j)).ClearContents. Sorun çözülmüştür.

Bu kodu nerede kullandınız anlamadım.

İkinci dosyanızda birleştirilmiş hücre görmedim, nerede var?

 

[netzone]

Merhaba Necdet Bey,

İki dosyayı incelediğimde, 8 satırlık verinin satır aralarına girip (Muhtemelen T.C.) numara için yer açılmış buna istinaden E7:T14 aralığında tek satırda yer alınan veriler 2 satır veri olarak E7:T22 aralığında ad soyad + numara satırları ile ilişkilendirilmiş görünmektedir.

İyi çalımalar.

 

[Necdet]

Merhaba Necdet Bey,

İki dosyayı incelediğimde, 8 satırlık verinin satır aralarına girip (Muhtemelen T.C.) numara için yer açılmış buna istinaden E7:T14 aralığında tek satırda yer alınan veriler 2 satır veri olarak E7:T22 aralığında ad soyad + numara satırları ile ilişkilendirilmiş görünmektedir.

İyi çalımalar.

Yaşlılık işte, idare edin gaari

Verdiğim kodlar ikinci dosyada çalıştı. Arkadaşımız denemeden mi sordu acaba?

 

[xemdarx]

Necdet bey,
Nasıl oldu anlayamadım. Evde ne yaptıysam ikinci dosyada olmadı. Şimdi verdiğiniz kodları okulda deniyorum çalışıyor. Teşekkürler.