• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Topla ve 2.Sayfaya Aktar

aligunes

aligunes

Katılım
2 Mart 2005
Mesajlar
305
Excel Vers. ve Dili
Ofis 2016 TR 32 Bit
Ekli banka listesinde makro kodlarla ilgili yardıma ihtiyacım var ilgilenenlere teşekkür ederim..
 

Ekli dosyalar

yanıt

Kod: 
Sub toplaaktar()
Dim sat, sat2, s, ss, say, toplam
Sayfa2.[a1:h60000].Clear
s = 1: ss = 1:
Application.ScreenUpdating = False
    For sat = 1 To Sayfa1.Cells(65536, "a").End(xlUp).Row
        Range(Sayfa2.Cells(s, "a"), Sayfa2.Cells(s, "e")) = Range(Sayfa1.Cells(sat, "a"), Sayfa1.Cells(sat, "e")).Value
        s = s + 1
            If Not WorksheetFunction.CountIf(Sayfa1.Range("f1:f" & sat), Sayfa1.Cells(sat, "f")) > 1 Then
                Sayfa1.Cells(sat, "f").Copy Sayfa2.Cells(ss, "f")
                ss = ss + 1
            End If
    Next
        For sat = 1 To Sayfa1.Cells(65536, "a").End(xlUp).Row
        For sat2 = 1 To Sayfa1.Cells(65536, "a").End(xlUp).Row
            If Sayfa1.Cells(sat, "f") = Sayfa2.Cells(sat2, "f") Then
                Sayfa2.Cells(sat2, "f") = Sayfa2.Cells(sat2, "f") & "-----" & Sayfa1.Cells(sat, "g") + Sayfa1.Cells(sat, "g")
            End If
        Next: Next
Application.ScreenUpdating = True
        say = WorksheetFunction.CountA(Sayfa1.Range("h1:h6000"))
        toplam = WorksheetFunction.Sum(Sayfa1.Range("g1:g60000"))
            MsgBox say & " Kişi" & " Toplam " & toplam & " TL Birleştirerek aktarıldı", vbInformation
End Sub
 

Ekli dosyalar

Test sayfaya baktım F ve G sutunu birleştirmiş ayrıca H sutunu hiç yazmıyor ve A, B, C, D, E sutunlarındaki bilgileri diger sayfaya aktardığında toplanan değerler satırını geçiyor BENİM ANLATMAK İSTEDİGİM Sayfa 1 aynen Sayfa 2 ye aktarılacak ama Aynı kişiye ait miktarlar toplanmış olarak aktarılacak şekilde olacak A:E sutunlarındaki bilgiler de toplanan bilgilerin satır sayısı kadar olacak !!!! ilgin için teşekkürler
 
Sayfa 1 Sayfa 2 ye aktarılacak aynı kişiye ait mükerrer kayıtlar toplanacak
 
Akşam Form a takılan makro uzmanı arkadaş yardımcı olabilir mi sorum için ?
 
Sayın aligunes,

Sorunuzu daha anlaşılır bir şekilde sorun.

aligunes' Alıntı:
Sayfa 1 aynen Sayfa 2 ye aktarılacak ama Aynı kişiye ait miktarlar toplanmış olarak aktarılacak şekilde olacak A:E sutunlarındaki bilgiler de toplanan bilgilerin satır sayısı kadar olacak !!!!
Genişletmek için tıkla ...
demişsiniz.

Gönderdiğiniz örnek dosya içinde ise,

"Aktar Tuşuna Tıkladığımda F, G, H hücrelerindeki hesap numarası aynı olanların para miktarını toplayarak tek sutuna yazacak şekildi aktarılmasını istiyorum"

Hem mükerrer kayıtlar toplanarak tek sütun olacak demişsiniz, hemde aktarma sonrası satır sayıları aynı olacak demişsiniz.

En azından sonucun nasıl olacağına dair EL İLE bir sonuç kısmı gönderebilirseniz, (sayfa1 deki veri, sayfa2 de böyle görünmeli gibi.) sorunuz daha anlaşılır olacaktır.

Bende anladığım kadarı ile (hele ki gecenin bu saatinde) aşağıdaki örneği hazırladım. Kontrol ediniz. (Tahminimce isteğiniz bu değil)
 

Ekli dosyalar

Arkadaşlar bu makro kodu zormu ondanmı cevap veren olmadı acaba
 
Liste Son Hali

Liste Düzeltilmiş son Hali ile ekliyorum Buna Görev Cevaplarsanız sevinirim
 

Ekli dosyalar

Bu arada formdaki tüm üyelerin kurban bayramını kutlarım.
 
Topla Aktar Makrosunda Sorun ??

Deneme amaclı liste saglıklı çalışıyor fakat 850-900 kişilik listeyi aktarırken 517. sıradan sonrakileri birleştirmden aktarıyor sorunu çözebilecek arkadaşlar yarım lütfen!!
Ek'li dosyayı inceleyiniz.
Eklenmiş Dosyalar bankalistesi2.xls (40.5 KB, 14 Görüntülenme)
 
Selamlar,

F sütunundaki bilgiler neden Sayfa2 de iki sütuna birden aktarılıyor.
 
Topla ve Aktar Makrosu Hatalı İşlem Yapıyor

Ekte sunduğum saban sertkaya arkadaşımızın yaptıgı AKTAR makrosu yanlış çalışıyor. Hatalı aktarıyor sorunu çözecek arkadaş varmı?
 

Ekli dosyalar

bu soru o kadar zor mu da cevap alamıyorum ?
 
sorununuzu acık anlatsanız size soru sorulmuş
Korhan Ayhan' Alıntı:
Selamlar,

F sütunundaki bilgiler neden Sayfa2 de iki sütuna birden aktarılıyor.
Genişletmek için tıkla ...
ve hala cevap bile vermemişiniz buna mukabil veryansın ediyorsunuz sizin sorununuzu kendiniz anlayacağınız sekilde degil herkesin anlayacağı dilde ve acık anlatmayı deneseniz cevap almanızda kolay ve hızlı olacaktır saygılar :)
 
Sorumu daha net anlatayım Sayfa1 de personelin alacak bilgilerinin bulundugu liste var. Fakat listede bir personelin birkaç degişik alacak hesabına yatacak parası var banka mükerrer kayıt istemiyor yani bir hesap numarasına (HESAP NO F SUTUNUNDA) ait para miktarları toplanacak ve Sayfa 2 ye aktarılacak Bu listede esasında sadece f ve g sutunu mukayese ediliyor, aynı hesap karşısındaki tutarlar toplanacak ve aktarılacak diger sutunlardaki bilgiler listenin oynanmadan aktarılmış haliyle bankaya verlmesi için liste düzeni için aktarılıyor
 
Aşağıdaki kodları deneyebilirsiniz.

Kod: 
Sub AktarTopla()
Dim a, b, i, n, sat, veri()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
'*******************************************
a = s1.Range("a1:h" & s1.[a65536].End(3).Row).Value
ReDim veri(1 To UBound(a, 1), 1 To 8)
'*******************************************
With CreateObject("Scripting.Dictionary")
    .CompareMode = vbTextCompare
    For i = 1 To UBound(a, 1)
        z = a(i, 6)
           If Not IsEmpty(z) Then
                 If Not .exists(z) Then
                    n = n + 1
                    veri(n, 1) = a(i, 1)
                    veri(n, 2) = a(i, 2)
                    veri(n, 3) = a(i, 3)
                    veri(n, 4) = a(i, 4)
                    veri(n, 5) = a(i, 5)
                    veri(n, 6) = a(i, 6)
                    veri(n, 8) = a(i, 8)
                    .Add z, n
                  End If
                    veri(.Item(z), 7) = veri(.Item(z), 7) + a(i, 7)
 
            End If
    Next i
End With
'*******************************************
sat = s2.[a65536].End(3).Row + 1
s2.Range(s2.Cells(1, "a"), s2.Cells(sat, "h")).ClearContents
s2.[a1].Resize(n, 8).Value = veri
''*******************************************
s2.Select
MsgBox "Raporlama Bitti", vbInformation, "Bilgi"
Set s1 = Nothing
Set s2 = Nothing
End Sub
 

Ekli dosyalar

Bakmanız İçin Ekledim

Ekteki dosyada Sayfa1 deki Butona bastıgımda aynen Sayfa2 deki gibi olacak
 

Ekli dosyalar

Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst