Hücre birleştirme

[tahsinanarat]

Örnek dosyada Sayfa1 deki satırların, kriter olarak; A sutunundaki ilk dolu olan hücrenin bir sonraki dolu olan hücreden önceki hücreler ile birleşmesini (Sayfa2'de olduğu şekilde) kod ile nasıl yapabiliriz, yardımcı olancak arkadaşlarıma şimdiden teşekkür ediyorum. Saygılarımla.

 

[Orion1]

Ekli dosyayı inceleyiniz.İstediğiniz böyle birşeymi?.

Sub birlestir()
For i = 1 To 11
If i = 2 Then GoTo atla
sat = 3
basla:
If sat >= Cells(65536, i).End(xlUp).Row Then GoTo atla
ilk = sat - 1
Do While Cells(sat, i).Value = ""
    sat = sat + 1
Loop
Range(Cells(ilk, i), Cells(sat - 1, i)).Merge
sat = sat + 1
GoTo basla
atla:
sat = 3
Next i
MsgBox "İşlem Tamam"
End Sub

 

[tahsinanarat]

Sn. Orion2 ilgi ve alakana çok teşekkür ederim, A sutunundaki birleştirmeler tamam, ancak diğer sutunlarda aynen A sutunundaki hizalarda yapmış olduğu birleştirmeyi yapmalı, Sayfa2 deki örneğim de olduğu gibi. Yani A sutununda A2 den A10 a kadar ise B sutunuda B2 den B10 a kadar birleştirmelidir. Şimdiden teşekkür ederim. Saygılar.

 

[Orion1]

Sn. Orion2 ilgi ve alakana çok teşekkür ederim, A sutunundaki birleştirmeler tamam, ancak diğer sutunlarda aynen A sutunundaki hizalarda yapmış olduğu birleştirmeyi yapmalı, Sayfa2 deki örneğim de olduğu gibi. Yani A sutununda A2 den A10 a kadar ise B sutunuda B2 den B10 a kadar birleştirmelidir. Şimdiden teşekkür ederim. Saygılar.

Ekli dosyayı inceleyiniz.

Sub birlestir()
For i = 1 To 11
sat = 3
basla:
If sat >= Cells(65536, i).End(xlUp).Row Then GoTo atla
ilk = sat - 1
Do While Cells(sat, "A").Value <> ""
    sat = sat + 1
Loop
Application.DisplayAlerts = False
Range(Cells(ilk, i), Cells(sat - 1, i)).Merge
sat = sat + 1
GoTo basla
atla:
sat = 3
Next i
MsgBox "İşlem Tamam"
End Sub