9. Satırdan En Son Dolu Satıra Kadar C ve D Sütunlarını Birleştirme

[ahmed_ummu]

İyi akşamlar arkadaşlar.

PA_EK sayfasında C ve D sütunlarını 9. satırdan başlayarak, en son dolu satıra kadar birleştirmek istiyorum. Eklediğim resimde de anlatmaya çalıştım. En son dolu satır aranırken F sütunu baz alınacak. Sütun birleştirme ile örnekler var. Satır birleştirme ile ilgili örnek bulamadım. Rica etsem yardımcı olabilir misiniz.

 

[bmutlu966]

Deneyiniz.

Sub birlestir()

son = [F65000].End(3).Row

Range("C9:C" & son).Merge
Range("D9:D" & son).Merge

End Sub

 

[uzmanamele]

Merhaba

Deneyiniz.

Sub merge()
Set S1 = Worksheets("PA_EK")
ssat = S1.Range("F1048576").End(3).Row
For i = 9 To ssat Step 2
S1.Range("C" & i & ":" & "C" & i + 1).merge
S1.Range("D" & i & ":" & "D" & i + 1).merge
Next
End Sub

 

[ahmed_ummu]

Deneyiniz.

Sub birlestir()

son = [F65000].End(3).Row

Range("C9:C" & son).Merge
Range("D9:D" & son).Merge

End Sub

Teşekkürler bmutlu966 denedim ama satırları birleştirmedi.

 

[ahmed_ummu]

Merhaba

Deneyiniz.

Sub merge()
Set S1 = Worksheets("PA_EK")
ssat = S1.Range("F1048576").End(3).Row
For i = 9 To ssat Step 2
S1.Range("C" & i & ":" & "C" & i + 1).merge
S1.Range("D" & i & ":" & "D" & i + 1).merge
Next
End Sub

Teşekkürler sayın uzmanamele gönderdiğim örnek resimde iki satırlık veri vardı. gönderdiğiniz kodu denedim ama mesela 10 satırlık veri girildiğinde 9. satırdan son dolu satıra kadar birleştirme yapacak. sizin gönderdiğiniz kod ile 9. satırdan başlıyor ikişer satır birleşitiriyor.

 

[ahmed_ummu]

Merhaba

Deneyiniz.

Sub merge()
Set S1 = Worksheets("PA_EK")
ssat = S1.Range("F1048576").End(3).Row
For i = 9 To ssat Step 2
S1.Range("C" & i & ":" & "C" & i + 1).merge
S1.Range("D" & i & ":" & "D" & i + 1).merge
Next
End Sub

For i = 9 To ssat Step 2

Yukarıdaki satırı aşağıdaki gibi deiştirince oldu. Teşekkürler
For i = 9 To ssat -1

 

[bmutlu966]

Muhtemelen kodları başka sayfadayken çalıştırdınız. Tekrar dener misiniz?

Sub birlestir()

Set p = Worksheets("PA_EK")
son = p.[F65000].End(3).Row

p.Range("C9:C" & son).Merge
p.Range("D9:D" & son).Merge

End Sub

 

[ahmed_ummu]

Muhtemelen kodları başka sayfadayken çalıştırdınız. Tekrar dener misiniz?

Sub birlestir()

Set p = Worksheets("PA_EK")
son = p.[F65000].End(3).Row

p.Range("C9:C" & son).Merge
p.Range("D9:D" & son).Merge

End Sub

Teşekkürler sayın bmutlu966 çalışıyor