ETOPLA Makro Hali

[__TR__]

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.

 

Tek Şarta Göre Veri Alma

Hücrelerdeki Değerlerden Veri Oluşturma

[Ömer BARAN]

Aşağıdaki kodu, sayfadaki düğme ile ilişkilendirip, düğmeye tıklayın..

İndirmek için giriş yapmanız gerekmektedir.
(13 satır)

 

[__TR__]

Çok teşekkür ederim Ömer hocam istediğim sonuç sayenizde yine.

 

[__TR__]

Sub D??me1_T?kla()
XD = Cells(Rows.Count, 1).End(3).Row
Range("AO9:AO" & XD).UnMerge: Range("AO9:AO" & XD).ClearContents
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual
For sat = 9 To XD
ilk = WorksheetFunction.Match(Cells(sat, 1), [C:D], 0)
son = ilk + WorksheetFunction.CountIf([C:D], Cells(sat, 1)) - 1
Cells(ilk, 39) = WorksheetFunction.Sum(Range("AN" & ilk & ":AN" & son))
Range("AO" & ilk & ":AO" & son).Merge: sat = son
Next: [AO:AO].VerticalAlignment = xlCenter: [AO:AO].HorizontalAlignment = xlGeneral
Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic
MsgBox "??lem tamamland?..", vbInformation, "?mer BARAN"
End Sub

Ömer hocam asıl dosyaya uyarlamaya çalıştım ama sonuç vermiyor, hatam nerden kaynaklanıyor ?

 

[Ömer BARAN]

Sonuç alamadığınız dosyanın,
sadece A sütunu (kriter) ile toplanacak sayıların olduğu sütundaki verilerin olduğu bir kopyasını
yüklerseniz kontrol edeyim.

 

[__TR__]

Sayfa2'ye asıl dosyanın bir benzerini uyarladım, işlem tamam diyor ancak sonuç verdiremedim.

 

[Ömer BARAN]

Mesaj yazarken vereceğiniz kod/formül metinlerini,
mesaj yazma alanının hemen üstündeki alanda bulunan •••▼ (üç nokta/aşağı ok) düğmesine tıklayıp, ilgili yere yapıştırınız.

Herneyse kullandığınız kodu aşağıdaki şekilde düzenlerseniz sonuç alınabilir.

İndirmek için giriş yapmanız gerekmektedir.
(13 satır)

 

[__TR__]

Evet o kısmı mesajı yazdıktan sonra farkettim. Yardımınız için teşekkür ederim sorun şimdi ÇÖZÜLDÜ