koşullu toplam veya eğer formülünde yardım

[sancak_hc]

arkadaşlar biliyorum sıktım sizleri ama mecburen soruyu tekrar, tekrar soruyorum

soru ek listede mevcut

soru ile ilgilenen veya ilgilenmeyen tüm arkadaşlara şimdiden teşekkür ederim

 

[Orion1]

Merhaba.
Formülle değil ama makro ile çözdüm .Rapor tuşuna basıyorsunuz.
O işlemi yapıyor.
Ekli dosyayı inceleyiniz.

Sub rapor()
Dim sat As Long, i As Long, k As Byte
Sheets("Sayfa1").Select
Range("I2:K65536").ClearContents
sat = 2
For i = 2 To Cells(65536, "A").End(xlUp).Row
    For k = 2 To 8
        If Cells(i, k).Value <> "" Then
            Cells(sat, "I").Value = Cells(i, "A").Value
            Cells(sat, "J").Value = Cells(1, k).Value
            Cells(sat, "K").Value = Cells(i, k).Value
            sat = sat + 1
        End If
    Next k
Next i
MsgBox "RAPOR ÇIKARILDI..!!"
End Sub

 

[sancak_hc]

teşekkür

çok teşeküür ederim ve bu siteyi yapan ve bu sitede yardımlarını eksik etmeyen tüm arkadaşlar gerçekten övgüye layık

saygılarımla

 

[Orion1]

çok teşeküür ederim ve bu siteyi yapan ve bu sitede yardımlarını eksik etmeyen tüm arkadaşlar gerçekten övgüye layık

saygılarımla

Rica ederim.
İyi akşamlar.