Seçili kısımda boş olan hücrelere değer atama

[yyhy]

Seçili kısımda boş olan hücrelere macro ile değer atamayabilir miyiz?

 

[Necdet]

Merhaba,

Neden makro? Madem makro neden konuyu makro bölümünde açmadınız?

Bu işlem için makroya gerek olduğunu da sanmıyorum üstelik.

• Alanı Seçiniz (örneğinizde A113)
• F5
• Özel
• Boşluklar
• Tamam
• -
• Ctrl+Enter

 

[Mesafe]

Buyrun buda makrosu, hocamızın yukarıdaki açıklamalarını yaparken makro kayıttaydı.

Sub Makro1()
    Range("A1:D13").Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.FormulaR1C1 = "-"
    Range("A1").Select
End Sub

 

[yyhy]

İhtiyaca cevap verdi.

İhtiyaca cevap verdi iki örnek için de teşekkürler. Sayın Necdet Yeşertener'in neden macro sorusuna başka bir mantıkla nasıl çözerim diye aklıma hiç bir şey gelmemişti; olsa olsa bu macro ile cözülür diye düşünmüştüm. Sizinde belirttiğiniz gibi buradaki örnekte elle de bu bilgiler eklenebilir. Verilerim çok olduğu için sadece örnekten yola çıkarak çözmekti. Örnekte vermiş olduğunuz yöntem gerçekten güzel elinize sağlık, foruma eklemiş olduğunuz macro, örnek dosyalar ve yöntemleri ilgi ve alaka ile takip etmekteyim. Elleriniz dert görmesin.

Sayın mesafe'nin verdiği macroda ise Range("A113").Select aralık olayı seçili kısım olsa alternatif olurdu diye düşünüyorum.

İyi çalışmalar, iyi günler.

 

[Mesafe]

a1-d13 secimi yerine asağıdaki gibi de kullanabilirsiniz.

Range("A1" & [A65536].End(3).Row).Select

 

[yyhy]

Teşekkürler.

Emeğinize sağlık.