Vba da hücre birliştirme

[bydeger]

Aynı sayıyı içeren hücreler tek bir buton ile birleştirilebilirmi
en kısa sürede öğrenebilirmiyim

 

[uzmanamele]

merhaba

syn veyselemre konu ile ilgili güzel bir çözüm önermişti, kodu kendinize uyarlayınız.

hücre birleştirme

 

[bydeger]

Hücre birleştirme

Ben bir örnek buldum ama çalıştıramadım
sorunu bilen var mı

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub BİRLEŞTİR()
    Dim X As Long, İLK As Long, SON As Long
    
    Application.ScreenUpdating = False
    
    Columns("G:G").UnMerge
    Columns("G:G").Clear
    İLK = 6
    
    For X = 6 To Range("F65536").End(3).Row
        If Cells(X, "F") <> Cells(X + 1, "F") Then
        SON = X
            If İLK > 0 And SON > 0 Then
                With Range("G" & İLK & ":G" & SON)
                    .HorizontalAlignment = xlCenter
                    .VerticalAlignment = xlCenter
                    .WrapText = False
                    .Orientation = 0
                    .AddIndent = False
                    .IndentLevel = 0
                    .ShrinkToFit = False
                    .ReadingOrder = xlContext
                    .MergeCells = True
                    .Value = Cells(X, "F")
                    .Font.Bold = True
                End With
            İLK = X + 1
            End If
        End If
    Next
    
    Application.ScreenUpdating = True
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[uzmanamele]

merhaba

alternatif kod olsun

Sub birlestir()
ss = Range("f65536").End(3).Row
For i = 6 To ss
If Cells(i, 6) = Cells(i + 1, 6) Then
Range("g" & i & ":" & "g" & i + 1).Merge
End If
Next
End Sub

 

[bydeger]

sayın korhan ayhan sizin kodu denedim işlem yapılmıştır diyor ama hücreleri birleştirmiyor
cevap yazan bütün arkadaşlara çok tşkr

 

[bydeger]

Ok
sayın korhan bey işlem tamm çok tşkr ederim
emeğine sağlık