Birkaç satırda bir birleştir ve ortala komutu

[acnidre]

Merhaba,

B sütununda 2. satırdan itibaren 5 satırda bir BİRLEŞTİR ve ORTALA yapmam gerekiyor. Şu kod ile ilk birleştirmeyi yapabiliyorum...

Range("b2:b6").MergeCells = True
Range("b2").VerticalAlignment = xlCenter
Range("b2").HorizontalAlignment = xlCenter

Kodu, mesela 10.000 satır için nasıl çoğaltabilirim?

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub birlestir()

    Dim i As Long
    
    For i = 2 To 10000 Step 5
        With Cells(i, "B")
            .Resize(5, 1).MergeCells = True
            .VerticalAlignment = xlCenter
            .HorizontalAlignment = xlCenter
        End With
    Next i

End Sub

.

 

[acnidre]

Merhaba,

Bu şekilde deneyin.

Sub birlestir()

    Dim i As Long
    
    For i = 2 To 10000 Step 5
        With Cells(i, "B")
            .Resize(5, 1).MergeCells = True
            .VerticalAlignment = xlCenter
            .HorizontalAlignment = xlCenter
        End With
    Next i

End Sub

.

Ömer üstadım harika oldu... emeğinize sağlık...

Her 5 satırda 1 mevcut veri olduğu için:

Hücreleri birleştirme yalnızca sol üsttekideğeri korur,diğer değerleri atar.

Uyarısı veriyor Excel...

Bu uyarıya 10.000 datada bi o kadar TAMAM'a tıklamamak için bir önderiniz var mı?

 

[acnidre]

yabancı bir forumda

Application.DisplayAlerts = False

komutu buldum... bakalım işe yarayacak mı?

edit: oldu