Döngü ile toplam

[acolkesen1]

Merhaba,
Ekteki örnekte açıkladığım gibi yatay ve düşey olarak sıralanmış verilerin kesime noktalarına, aynı verilerin bir başka alandaki toplamlarını (sanırım döngü ile ) aldırmak istiyorum. Yardımcı olacak arkadaşlara teşekkür ederim.

 

[Korhan Ayhan]

Merhaba,

Örnek dosyanızda sayısal veri göremedim. Neyin toplamını alacaksınız.

Dosyanıza göre sanki özet tablo işinize yarayabilir. Deneyiniz.

 

[acolkesen1]

Merhaba Sayın Korhan Ayhan,
Anlatmak istediğim , örneğin; b sütununda "e" c sütununda "ka" olan verilerin kaç tane olduğunu yandaki tabloda "e" ve "ka" nın kesiştiği hücreye yazmaktı ama, sayısal değer olmadığı konusundaki uyarınız üzerine ekli dosyayı değiştirerek yeniden düzenledim. ilginize şimdiden teşekkür ederim.

 

[kemal turan]

Merhaba,
Toplaçarpım fonksiyonu ile istediğiniz sonuçları aldığım dosya ektedir.
Kod ile istiyorsanız Korhan hocamı bekliyeceksiniz.
Selametle kalınız.

 

[Ziynettin]

Merhaba,

Private Sub CommandButton1_Click()
Dim i, j, c As Integer
    Dim son, ss, sut As Integer
    Application.ScreenUpdating = False
        son = Range("B" & Rows.Count).End(3).Row
            ss = Range("F" & Rows.Count).End(3).Row
                sut = Cells(2, Columns.Count).End(xlToLeft).Column
                    Range(Range("G3"), Cells(ss, sut)).ClearContents
    For i = 2 To son
        For j = 2 To ss
            For c = 7 To sut
                If Cells(i, 2) = Cells(j, "F") And Cells(2, c) = Cells(i, 3) Then
                    Cells(j, c) = Cells(j, c) + Cells(i, 4)
                End If
            Next c
        Next j
    Next i
    Application.ScreenUpdating = True
End Sub

 

[acolkesen1]

Merhaba,
Sayın kemal turan'a ; Ekli dosyada açıkladığım gibi işlemi bir form üzerinden kullanacağım için toplaçarpım işime yaramıyor. Ama yine de değer verip zaman ayırdığınız için teşekkürlerimi sunarım.
Sayın tasmed'e; kodlarınız mevcut tabloda gerekli hesaplamayı yapıyor. F sütununda son dolu satıra kadar da sorun yok. Ancak ilk mesajımda belirttiğim gibi veri sayısı 2. satırda da sabit değil. Ben kodlarınızda değişiklik yaparak sağa doğru daha geniş bir alan tanımlayarak (For c = 7 To 10 yerine For c = 7 To 11 ) sorunu çözdüm ve bu şekliyle işimi görüyor. Sadece merakımdan soruyorum, f2 den başlayarak sağa doğru son dolu hücreye kadar hesaplama yaptırmak için nasıl bir değişiklik yapmalıyım?
Ayırdığınız zaman ve gösterdiğiniz ilgi için sonsuz teşekkürler.

 

[Korhan Ayhan]

Döngüdeki 11 değeri yerine aşağıdaki ifadeyi yazıp deneyin.

Cells(2, "F").End(2).Column

 

[acolkesen1]

Merhaba,
Sayın tasmed'in kodunu aşağıdaki şekilde değiştrdiğimde sadece ilk sütunda (g sütunu) hesaplama yaptı.
Dim i, j, c As Integer
Dim son, ss As Integer
Application.ScreenUpdating = False
son = Range("B" & Rows.Count).End(3).Row
ss = Range("F" & Rows.Count).End(3).Row
Range("G3:z" & ss + 1).ClearContents
For i = 2 To son
For j = 2 To ss
For c = 7 To Cells(2, "F").End(2).Column
If Cells(i, 2) = Cells(j, "F") And Cells(2, c) = Cells(i, 3) Then
Cells(j, c) = Cells(j, c) + Cells(i, 4)
End If
Next c
Next j
Next i
Application.ScreenUpdating = True

 

[Ziynettin]

#5 nolu mesajdaki kodu tekrar denermisiniz.

 

[acolkesen1]

Merhaba tasmed,
Şİmdi herşey daha güzel.. Çok teşekkür ederim.
Esenkalın..

 

[Ziynettin]

Rica ederim.
Kolay gelsin.