Hücre Birleştirme

[ahmed_ummu]

Merhaba arkadaşlar

Son dolu satırın bir alt satırında, "A ve AH" sütunlarını nasıl birleştirebilirim. Aşağıdaki kodlar ile olmadı. Yardımcı olursanız sevinirim.

Set sh2 = Sheets("ÜO")
SonSatir = sh2.Cells(Rows.Count, "b").End(3).Row
sh2.Range(SonSatir + 1, "a:ah").Merge

 

[ahmed_ummu]

Aşağıdaki kodlar ile hata vermedi ama birleştirmedi de

Set sh2 = Sheets("ÜO")
SonSatir = sh2.Cells(Rows.Count, "b").End(3).Row
For i = 1 To 34
sh2.Cells(Son + 1, i).Merge
Next i

 

[veyselemre]

Set sh2 = Sheets("ÜO")
sonSatir = sh2.Cells(Rows.Count, "b").End(3).Row
sh2.Range("A" & sonSatir + 1 & ":AH" & sonSatir + 1).Merge

 

[ahmed_ummu]

Set sh2 = Sheets("ÜO")
sonSatir = sh2.Cells(Rows.Count, "b").End(3).Row
sh2.Range("A" & sonSatir + 1 & ":AH" & sonSatir + 1).Merge

Çok teşekkür ederim Veysel Emre bey, elinize sağlık.

 

[ahmed_ummu]

Set sh2 = Sheets("ÜO")
sonSatir = sh2.Cells(Rows.Count, "b").End(3).Row
sh2.Range("A" & sonSatir + 1 & ":AH" & sonSatir + 1).Merge

Merhaba Veysel Emre bey.

Sizin verdiğiniz kodları aşağıdaki gibi yaptığımda, sütunların yanında satırları da birleştiriyor.

sh2.Range("A" & SonSatir + 1 & ":AH" & SonSatir + 1).Merge ' son dolu satırın bir alt satırı Adan AH sütunlarına kadar birleştirsin.
sh2.Range("A" & SonSatir + 3 & ":AH" & SonSatir + 1).Merge ' son dolu satırın üç alt satırı Adan AH sütunlarına kadar birleştirsin.
sh2.Range("A" & SonSatir + 4 & ":AH" & SonSatir + 1).Merge ' son dolu satırın dört alt satırı Adan AH sütunlarına kadar birleştirsin.
sh2.Range("A" & SonSatir + 5 & ":AH" & SonSatir + 1).Merge ' son dolu satırın dörtalt satırı Adan AH sütunlarına kadar birleştirsin.

Yukarıdaki kodlar hem sütunları hem de satırları birleştiriyor. Kodlarda oynama yaptım ama yapamadım. Yardımcı olursanız çok sevinirim.

 

[veyselemre]

sh2.Range("A" & sonSatir + 1 & ":AH" & sonSatir + 1).Merge True

 

[ahmed_ummu]

sh2.Range("A" & sonSatir + 1 & ":AH" & sonSatir + 1).Merge True

Çok Teşekkürler Veysel Emre bey.