Aynı Veriler Olan Hücreleri Birleştirme

[mustafa1205]

Ek'te bulunan dosyada açıklama yapmaya çalıştım. Kod ile aynı veriler olan hücreleri birleştirmek istiyorum. Veriler alt alta sıralıdır. Teşekkür ederim...

 

[çıtır]

Deneyiniz.

Sub birleştir()
Dim s1 As Worksheet: Dim i As Integer
Application.DisplayAlerts = False
Set s1 = Sheets("Sayfa1")
For i = s1.Cells(65535, "A").End(3).Row To 2 Step -1
If s1.Range("A" & i) = s1.Range("A" & i - 1) Then
s1.Range(s1.Cells(i, 1), s1.Cells(i - 1, 1)).MergeCells = True
End If
Next i
Application.DisplayAlerts = True
End Sub

 

[mustafa1205]

Sayın Çıtır çok sağolun . Gayet güzel çalışıyor. Sormak istediğim bunu aynı anda b,c ve f sütunlarınında birleştirmek istersek kodu nasıl düzenleyebiliriz acaba.

 

[çıtır]

Aynı verler aynı hizalı mı? Farklı mı birleştirileçek?

 

[mustafa1205]

A sütunu gibi düşünün. Aynı tarzda. Alt alta veriler sıralı. Ancak A sütununda olduğu gibi 3 adet denizli yada 2 adet Balıkesir miktarı kadar degil. Mesela ilk veri 8 adet alt alta. Sonrasında 5 adet gibi

 

[çıtır]

Deneyiniz.A,B,C ve F Sütunlarında işlem yapar.

Sub birleştir()
Dim s1 As Worksheet: Dim i As Integer
Application.DisplayAlerts = False
Set s1 = Sheets("Sayfa1")
For i = s1.Cells(65535, "A").End(3).Row To 2 Step -1
If s1.Range("A" & i) = s1.Range("A" & i - 1) Then
s1.Range(s1.Cells(i, 1), s1.Cells(i - 1, 1)).MergeCells = True
End If
If s1.Range("B" & i) = s1.Range("B" & i - 1) Then
s1.Range(s1.Cells(i, 2), s1.Cells(i - 1, 2)).MergeCells = True
End If
If s1.Range("C" & i) = s1.Range("C" & i - 1) Then
s1.Range(s1.Cells(i, 3), s1.Cells(i - 1, 3)).MergeCells = True
End If
If s1.Range("F" & i) = s1.Range("F" & i - 1) Then
s1.Range(s1.Cells(i, 6), s1.Cells(i - 1, 6)).MergeCells = True
End If
Next i
Application.DisplayAlerts = True
End Sub

 

[mustafa1205]

Sayın çıtır çok teşekkür ederim. Şuan deneme imkanım maalesef yok telefondan yazıyorum . Yarın deneyip size bilgi vereceğim.

 

[mustafa1205]

Sayın Çıtır kodları denedim. Çok teşekkür ederim gayet güzel çalışıyor. Elinize emeğinize sağlık.

 

[çıtır]

Sayın Çıtır kodları denedim. Çok teşekkür ederim gayet güzel çalışıyor. Elinize emeğinize sağlık.

Rica ederim.Dönüş yaptığınız içn teşekkür ederim.