Merge satırları tek satırda toplayacak bir kod istiyorum. Yrd ltf

[Tilkay]

Arkadaşlar merhaba,
ekteki dosyada merge lü satırlar var, bu dosya çok daha büyük ben sadece bir kaç satırını kopyalayıp ekledim. Sıkıntım çok geniş olan bu excel dosyasını bir programdan kopyaladığım için bazı kolonlar merge lü geliyor ve ben herhangi bir şekilde sortlayamıyorum. İstediğim 2 satırda merge lü olan tüm bilgileri tek satırda görmek (C kolonundaki bilgiler merge lü değil onlarıda birleştirmek gerekiyor).
Syg.

 

[Ferhat Pazarçevirdi]

Aşağıdaki kodu kullanınız .

Sub Duzenle()
Dim son As Long
Dim i As Long
Dim y As Long
Dim arr()
son = Cells(65536, 1).End(xlUp).Row
For i = 8 To son Step 2
    y = y + 1
    ReDim Preserve arr(1 To y)
    arr(y) = Cells(i, 3) & " " & Cells(i + 1, 3)
Next i
y = 0
For i = son + 1 To 9 Step -2
    Cells(i - 1, 3) = arr(UBound(arr) - y)
    y = y + 1
    Rows(i).Delete
Next i
End Sub

 

[Necdet]

Merhaba,

Alternatif olarak :

Tüm Sayfayı Seçiniz
->a<- Birle&#351;tir Ortala (Merge and Center) Tu&#351;una Bas&#305;n&#305;z

 

[Tilkay]

&#199;ok te&#351;ekk&#252;r ederim istedi&#287;im gibi olmu&#351; fakat k&#252;&#231;&#252;k bir sorun var. 4 ayr&#305; proje var ama 2 projede birle&#351;tirilmi&#351; gibi oldu. 4 sat&#305;r olmas&#305; gerekiyor. D&#252;zeltebilirseniz &#231;ok sevinirim.
Syg.

 

[Ferhat Pazarçevirdi]

....... 4 ayrı proje var ama 2 projede birleştirilmiş gibi oldu. 4 satır olması gerekiyor .....

Anlamadım. Örnekler misiniz?

 

[Tilkay]

Yazdığınız kodu çalıştırdım, ekte görebilirsiniz. Onu inceleyebilirmisiniz, daha net anlaşılacaktır. İş No kolonunda bulunan 12346 nolu işi 12345 nolu işle birleştirmiş aynı şekilde 12348 nolu işte 12347 nolu işle birleşmiş.

 

[Ferhat Pazarçevirdi]

Size gönderdiğim kodu, standart bir modül sayfasına kopyalamanız gerekiyordu.

Aynı kodlarla yapılmış örnek dosyayı inceleyiniz..

 

[Tilkay]

Ferhat Bey &#231;ok te&#351;ekk&#252;rler s&#252;per bir &#231;al&#305;&#351;ma oldu. Eme&#287;inize sa&#287;l&#305;k