Birleştirilmiş hücreleri açtığımda boş satırlara aynı verinin gelmesini sağlama

[manyakbiri]

Saygıdeğer üyeler merhaba,

3 tane satır birleştirilmiş halde ve içinde tarih yazıyor diyelim. Birleştirilmiş hücrenin sağ tarafında her bir satırda farklı veriler var ve tüm satırlar ile birleştirilmiş hücredeki veri arasındaki farkı almak istiyorum.

Resim:


https://i.imgyukle.com/2019/11/07/Ebsx6h.png

Bunun gibi yüzlerce satır olan bir excelden bahsediyorum. Birleştirilmiş hücreleri açtığımda altındaki boş kalan satırlara aynı veriyi nasıl getirebilirim ?

Şimdiden çok teşekkürler.

 

[manyakbiri]

Biraz daha açıklama yapmak ihtiyacı doğdu.

A sütununda birleştirilmiş hücreleri açtığımda sadece A1 hücresine tarih verisini getiriyor A2 ve A3 boş kalıyor. İstediğim A2 ve A3'e de aynı veriyi yazsın. Bu tarz birleştirilmiş hücrelere sahip yüzlerce satırdan oluşan bir excelde bunu en kolay nasıl yapabiliriz ?

Saygılarımla,

 

[YUSUF44]

Aşağıdaki konuyu inceleyiniz:

Aynı hücreleri birleştirme ve ayırma

 

[manyakbiri]

Aşağıdaki konuyu inceleyiniz:

Aynı hücreleri birleştirme ve ayırma

Sayın YUSUF44 çok teşekkürler.

Yönlendirdiğiniz başlıktaki aşağıdaki makro kodu tam istediğimi gerçekleştiriyor.

Sub ayır()
a = [A1].CurrentRegion.Count
Range("A:A").UnMerge
For i = 1 To a
    If Cells(i, "A") = "" Then
        Cells(i, "A") = Cells(i - 1, "A")
    End If
Next
End Sub

Çok sağolun.

 

[YUSUF44]

Bu kod eğer B sütunu boşsa doğru sonuç verir. B sütunu doluysa son kaydı fazladan tekrar eder. Tam doğru çözüm için sonradan verdiğim kodu kullanmanızı öneririm.