Makro ile hücre birleştirme

[safir33]

Merhaba sayın hocalarım ve arkadaşlarım. Sorum şu olacak; ekte gönderdiğim dosyada aynı olan veriler var. Örneğin d5, d6 ve d7 hücre değerleri aynı. ben bu aynı hücrelerin bir tanesini yazarak tek bir hücrede makro ile otomatik birleştirilmesini istiyorum. Yapmak istediğim şeyin bitmiş hali de dosyanın sağ tarafında yer alıyor. Bu veriler normalde formülle geliyor ve dolayısı ile değişken olacak. Tabi bu durumda birleştirilecek olan hücreler de ona göre makro ile otomatik değişebiliyor olması gerekecek. Umarım derdimi anlatabilmişimdir. Yardımcı olursanız sevinirim.

 

[antonio]

Merhaba,
Örnek dosyanızdaki "D" sütununa göre hazırlanmıştır. Deneyiniz:

Sub hcr_birlestir()
Dim ilk As Integer, son As Integer, deg As String
Dim ss As Long

ss = Sayfa1.Range("D" & Rows.Count).End(3).Row
deg = Sayfa1.Range("D5").Value 'Hangi satırdan başlayacaksanız o satırdaki değerdir.
ilk = 5 'Başlama satırı
Application.DisplayAlerts = False
For i = 5 To ss
If Sayfa1.Range("D" & i + 1).Value <> deg Then
    son = i
    Sayfa1.Range("D" & ilk & ":D" & son).Merge
    deg = Sayfa1.Range("D" & i + 1).Value
    ilk = i + 1
End If
Next i
Application.DisplayAlerts = True
End Sub

 

[safir33]

çok teşekkür ederim, sağolun hocam. Hemen deneyeceğim.

 

[safir33]

Antonio hocam denedim çalıştı, Allah razı olsun, çok teşekkür ederim.

 

[antonio]

Antonio hocam denedim çalıştı, Allah razı olsun, çok teşekkür ederim.

Rica ederim. İyi çalışmalar.