- Excel Versiyonu
- Excel 2016
- Excel Sürümü
- 64 Bit
- Excel Dili
- Türkçe
Sub Ayn?_H?creleri_Birle?tir()
Dim Rky As Integer, Ert As Integer, a As Integer
Application.DisplayAlerts = False
On Error Resume Next
For Rky = Range("A65536").End(3).Row To 1 Step -1
If Cells(Rky, "A").MergeCells = True Then
Ert = Rky
Exit For
End If
Next Rky
For a = Range("A65536").End(3).Row To Ert Step -1
If Cells(a, "A") = Cells(a - 1, "A") Then
Range(Cells(a, "I"), Cells(a - 1, "I")).Merge
End If
Next a
Application.DisplayAlerts = True
Rky = Empty: Ert = Empty: a = Empty
End Sub
Bu makro ile "A" sütunundaki aynı kayıtların olduğu satırları "I" sütununda birleştiriyorum. Yardım istediğim kısım;
Yine "A" sütununda aynı olan kayıtların "H" sütununda rakamsal değerlini "I" sütununu birleştirdikten sonra toplama. Umarım anlatabilmişimdir.
Eklediğim dosya örnek olarak hazırlanmıştır. Makro istenilen hale gelince asıl dosyaya entegre edilecektir.
Dim Rky As Integer, Ert As Integer, a As Integer
Application.DisplayAlerts = False
On Error Resume Next
For Rky = Range("A65536").End(3).Row To 1 Step -1
If Cells(Rky, "A").MergeCells = True Then
Ert = Rky
Exit For
End If
Next Rky
For a = Range("A65536").End(3).Row To Ert Step -1
If Cells(a, "A") = Cells(a - 1, "A") Then
Range(Cells(a, "I"), Cells(a - 1, "I")).Merge
End If
Next a
Application.DisplayAlerts = True
Rky = Empty: Ert = Empty: a = Empty
End Sub
Bu makro ile "A" sütunundaki aynı kayıtların olduğu satırları "I" sütununda birleştiriyorum. Yardım istediğim kısım;
Yine "A" sütununda aynı olan kayıtların "H" sütununda rakamsal değerlini "I" sütununu birleştirdikten sonra toplama. Umarım anlatabilmişimdir.
Eklediğim dosya örnek olarak hazırlanmıştır. Makro istenilen hale gelince asıl dosyaya entegre edilecektir.