istenilen bir değeri, sütun toplamında kaçıncı satıra denk geldiğini hesaplama

[CONANFORCE]

Merhaba kolaygelin.

Herhangi bir sayıyı, sütunda bulunan rakamlar içinde toplama hangi satırda denkleştirilmiş nasıl hesaplatabilirim. Örnek dosya ekte

teşekkür ederim.

 

[CONANFORCE]

Bu konu hakkında yardım edebilecek ustaları bekliyorum.

 

[Ziynettin]

Ekteki tablonuza göre kod.

Sub test()
For j = 2 To 9
    If Cells(18, j) <> "" Then
        For i = 2 To 16
            If IsNumeric(Cells(i, j)) Then
                p = Application.Sum(Cells(2, j).Resize(15))
                t = t + Cells(i, j)
                s = s + 1
                If t >= Cells(18, j) Then Exit For
            End If
        Next i
        Cells(19, j) = t
        Cells(20, j) = s
        Cells(21, j) = p - t
        s = 0
        t = 0
    End If
Next j
MsgBox "Bitti.", vbInformation
End Sub

 

[CONANFORCE]

Ziynettin bey yardımınız için ilk öncelikle çok teşekkür ederim. Vermiş olduğunuz kod ilk işimi gördü şimdi şimdi bunu biraz daha geliştirmem gerek. yeni bir örnek ekledim. İsteğim örnek içinde mevcut. Tekrar tekrar teşekkür ederim yardımlarınız için.

Madem bunu istiyordun neden başta vermedin, yada anlatmadın diye soracak olursanız işim acildi ve şu an yukarıda verdiğiniz kodlarla geçici çözümümü yaptım. Tablomu biraz daha geliştirdim.

 

[CONANFORCE]

..

 

[CONANFORCE]

Bu konu hakkında siz değerli hocalarımdan yardım bekliyorum.

 

[CONANFORCE]

Ben konuyu mu anlatamadım, yada farklı bir durum mu var anlayamadım. Burada yazdığım destek yardımları, ustalarımız tarafından genelde hızlı cevaplanırdı fakat bu örneğimi çözemedim.

 

[CONANFORCE]

yardım edecek...

 

[Saban Sertkaya]

Alternatif link ?

 

[CONANFORCE]

alternatif.xlsm

View and download from Yandex.Disk

yadi.sk

 

[Korhan Ayhan]

Deneyiniz.