balanar
Altın Üye
- Katılım
- 22 Şubat 2021
- Mesajlar
- 347
- Excel Vers. ve Dili
- Excel 2007
- Altın Üyelik Bitiş Tarihi
- 09-03-2027
Yıllık izin dosyamız var başlangıç bitiş yerleri formüllerle ayarlandı. Makro ile hücre birleştirme yaptığımızda işlem çok uzun sürüyor bunu kısaltmak için ne yapabiliriz? Kullandığım makro kodu
Kod:
Sub test()
[I:I].Clear
sSat = Cells(Rows.Count, 1).End(3).Row
For i = sSat To 2 Step -1
al1 = Cells(i, 1).Value & "|" & Cells(i, 2).Value
son = 0
toplam = Cells(i, 6).Value
For ii = i - 1 To 1 Step -1
al2 = Cells(ii, 1).Value & "|" & Cells(ii, 2).Value
If al1 <> al2 Then
i = ii + 1
Cells(i, 9).Value = toplam
Cells(i, 9).HorizontalAlignment = xlCenter
If son <> 0 Then
With Range("I" & son & ":I" & i)
.MergeCells = True
.VerticalAlignment = xlCenter
End With
End If
Exit For
Else
If son = 0 Then son = i
toplam = toplam + Cells(ii, 6).Value
End If
Next ii
Next i
Range("a2:I" & sSat).Borders.LineStyle = xlContinuous
End Sub
Son düzenleme: