Belirli hücre değerlerini temizleme

[bafralifatih55]

Merhabalar arkadaşlar.
Örnek dosyamda B sütununda yer alan kazanımlar değerlerini temizlemek istiyorum. Burada örnek olması için kazanımlar yazdım. Buralarda farklı değerler olacak. Ben buralardaki değerleri makro ile nasıl temizleyebilirim?
Teşekkürler.

kazanım örnek.xlsx

docs.google.com

 

[Necdet]

Merhaba,

Sadece değerleri silmek (satır değil) ise amacınız, aşağıdaki kodları deneyiniz.

Sub Makro1()

    Columns("B:B").Replace What:="Kazanımlar", Replacement:=""
    
End Sub

 

[bafralifatih55]

Merhaba,

Sadece değerleri silmek (satır değil) ise amacınız, aşağıdaki kodları deneyiniz.

Sub Makro1()

    Columns("B:B").Replace What:="Kazanımlar", Replacement:=""
   
End Sub

Merhaba
Hocam öncelikle teşekkürler. Ancak buradaki kazanımlar değeri buraya herhangi bir kazanım metni geleceğini anlatmak için yazdım. Orada harklı cümleler olacak. Nacizane böyle bir durumda raplace çalışmayacak diye düşünüyorum.

 

[Necdet]

Merhaba,

Verdiğim kodlar örnek kodlardır, siz bunu kendinize göre uyarlayabilirsiniz, örneğin başka bir sayfadan, belirli bir hücreden

 What:="Kazanımlar"

kodundaki "Kazanımlar" sözcüğünü alarak, değişken haline getirebilirsiniz.

Örneğin Sayfa2 A1 hücresinde Samsun yazılıysa eğer :
What:=Sheets("Sayfa2").range("A1")
yazarsanız, kodlarla uğraşmadan tüm "Samsun" sözcüğünü silirseniz.

Ya da InputBox ile değiştireceğiniz sözcüğü alabilirsiniz.

Bilmem anlatabildim mi? Seçenek çok olabilir. Yeter ki pratik olun.

 

[bafralifatih55]

Merhaba,

Verdiğim kodlar örnek kodlardır, siz bunu kendinize göre uyarlayabilirsiniz, örneğin başka bir sayfadan, belirli bir hücreden

 What:="Kazanımlar"

kodundaki "Kazanımlar" sözcüğünü alarak, değişken haline getirebilirsiniz.

Örneğin Sayfa2 A1 hücresinde Samsun yazılıysa eğer :
What:=Sheets("Sayfa2").range("A1")
yazarsanız, kodlarla uğraşmadan tüm "Samsun" sözcüğünü silirseniz.

Ya da InputBox ile değiştireceğiniz sözcüğü alabilirsiniz.

Bilmem anlatabildim mi? Seçenek çok olabilir. Yeter ki pratik olun.

Merhaba
Hocam ilk mesajdaki dosyayı günceleldim. bir bakabilir misiniz? Dün kısa zamanda öyle bir dosya hazırlamıştım. Şimdiki değişikliklere göre bu makroyu nasıl uygulayabilirim?

 

[Necdet]

Dosyaya baktım, ne yapmak istediğinizi anlamadım.

 

[bafralifatih55]

Dosyaya baktım, ne yapmak istediğinizi anlamadım.

Merhaba
Hocam orada kazanımlar sütununun altındaki yazılmış değerleri sülmek istiyorum. Oradaki örnekte B sütununda kazanımlar var. Onları birleştirilmiş hücrelere zarar vermeden değerleri temizlemek istiyorum.
Teşekkürler.

 

[Necdet]

Merhaba,
Tam olarak ne istiyorsunuz anlamadım ama aşağıdaki kodları bir deneyin eksik ya da fazlalık varsa belirtin.

Sub Sil()

    Dim i As Long
    
    Application.ScreenUpdating = False
    
    For i = 2 To Cells(Rows.Count, "A").End(3).Row
        If Range("A" & i).MergeCells = False Then Range("B" & i).ClearContents
    Next i
    
    Application.ScreenUpdating = True
    
End Sub

 

[bafralifatih55]

Merhaba hocam çok teşekkür ederim. Herhangi bir sıkıntı göremedim. İşimi fazlasıyla gördü. Tekrar teşekürler