[ÇÖZÜLDÜ] En son dolu hücreden sonraki istediğim hücrelerin temizlenmesi...

[enteresan]

Kullanmakta olduğum bir dosyada, makro bazen tam anlamıyla çalışmamakta. İlk defa karşılaşıyorum böyle bir sorunla. Kısaca şöyle izah edeyim. Bir sayfadaki verileri her gün bir başka sayfaya aktarmaktayım. Bu veriler her gün en son dolu satırdan sonraki ilk boş satıra yazılmakta. Bazen bakıyorum, aktarılan veri sayfanın en sonundaki yani 65536 ncı satıra aktarılmakta. Bunu düzeltmek için en son dolu satırdan sonraki ilk boş hücreye tıklayarak 65536 ncı satıra kadar işaretleyip içeriği temizliyorum. Makroyu tekrar çalıştırdığımda bu kez istediğim yere kaydediyor. Bu hatayı her zaman da yapmıyor. Bazen yapıyor. Makroların bazen de olsa istenileni yapmaması normal midir.

Ayrıca, C ve E sütunlarında en son dolu satırdan sonraki ilk boş hücreden aşağıda kalan tüm boş hücrelerin içeriğini makro ile temizlemek için ne yapmam gerekir. Saygılarımla...

 

[zafer]

Merhaba

İyi Akşamlar

Sub Makro()
    Range("c1").End(xlDown).Offset(1, 0).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
End Sub

 

[enteresan]

Sevgili Zafer hocam, ilginize teşekkür ederim. Kısa ve öz olarak bir kod yazmışsınız. Bu kod sadece C sütununa bakıyor sanırım. Bunu C1 : D1 şeklinde uygulayabilir miyim.

Saygılarımla..

 

[zafer]

Merhaba

Sub Makro1()
    Range("c1").End(xlDown).Offset(1, 0).Select
    Range(Cells(ActiveCell.Row, "c"), Cells(ActiveCell.Row, "d")).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
End Sub

 

[enteresan]

Teşekkür eder, saygılar sunarım...