Sütunlardaki değerlerin toplamı aradığım değere eşitse.....

[Bora K]

Merhabalar
Belirledeğim değer. 3 tane sütun toplamında sağlanıyormu
bunu kontrol etmek istiyorum sağlanıyorsa
ilgili satırın başlığındaki veriyi listelemek istiyorum.
Biraz karışık gibi lakin örnek dosyada herşey daha net gözükecektir.
Yardımlarınızı bekliyorum.

 

[Orion1]

Dosyanız ektedir.

Sub veri59()
Dim i As Long, sat As Long, sat2 As Long
Sheets("Sayfa1").Select
sat = Cells(Rows.Count, "B").End(xlUp).Row
sat2 = Cells(Rows.Count, "K").End(xlUp).Row + 1
If sat2 < 3 Then sat2 = 3
Application.ScreenUpdating = False
For i = 3 To sat
    If WorksheetFunction.Sum(Range("D" & i & ",F" & i & ",H" & i)) _
        = Cells(2, "J").Value Then
        Cells(sat2, "K").Value = Cells(i, "B").Value
        sat2 = sat2 + 1
    End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlanmıştır." & vbLf & "evrengizlen@hotmail.com", _
    vbOKOnly + vbInformation, Application.UserName
End Sub

 

[Bora K]

Sayın Orion1
Alakanız için teşekkür ederim öncelikle.

D - E ve H sütunundaki verilerin toplamı 400
olduğu zaman ilgili satır komple siliniyor.
Bu durumda B sütunundaki değeri K sütununa yazdırmamız
gerekiyor oysa tekrar bakabilirmisiniz acaba?

 

[Orion1]

Sayın Orion1
Alakanız için teşekkür ederim öncelikle.

D - E ve H sütunundaki verilerin toplamı 400
olduğu zaman ilgili satır komple siliniyor.
Bu durumda B sütunundaki değeri K sütununa yazdırmamız
gerekiyor oysa tekrar bakabilirmisiniz acaba?

dosyayı güncelledim.
2 nolu mesajdan dosyayı tekrar indiriniz.

 

[Bora K]

Elinize sağlık Üstad.

Özür dilerim tekrardan düzeltme isteyeceğim küçk bir nüans var.
Evren ve Recep K2 den itibaren yazılmaya başlayacak.
Eğer K2 ve alttaki hücrelerde veri var ise en son boş hücreden yazmaya
devam edecek.

 

[Orion1]

Elinize sağlık Üstad.

Özür dilerim tekrardan düzeltme isteyeceğim küçk bir nüans var.
Evren ve Recep K2 den itibaren yazılmaya başlayacak.
Eğer K2 ve alttaki hücrelerde veri var ise en son boş hücreden yazmaya
devam edecek.

dosya üzerinde gösteririmisiniz,nasıl olacak?

 

[Bora K]

Sizin dosya üzerinde anlatmaya çalıştım
olması gerekeni.

 

[Orion1]

Sizin dosya üzerinde anlatmaya çalıştım
olması gerekeni.

dosyayı 2 nolu mesajdan indirebilirisiniz.

 

[Bora K]

Çok teşekkür ederim üstad.
Ellerinize zihninize sağlık.

İyi geceler.