Cümle oluşturmak

[ASLAN7410]

Merhaba hayırlı geceler diliyorum.

Ekte gönderdiğim excel dosyamda C6-C11 hücrelerinde yapılan iş miktarları mevcut, D6-D11 hücrelerinde iş çeşitleri mevcut.

Yapmak istediğim yapılan iş miktarına göre B13 hücresinde formülle cümle oluşturmak istiyorum. Örnek olarak Ali 1 temizlik işi, 2 yıkama işi, 3 kurutma işi, 2 parlatma işi, 1 boyama işi, 2 tamir işi yapmıştır.

Eğer, eğer ve, eğer veya formülleri ile çözmeye çalıştım, ama çok olasılık gerektiği için işin içinden çıkamadım.

Yardımcı olur musunuz?

https://dosya.co/9zehbk3x7myp/Örnek1.xlsx.html

 

[çıtır]

B13 hücresine kopyalayınız.Sırası ile diğer hücrelerde kopylayınız.Daha kısa olabilir mi? bilmiyorum.

=YERİNEKOY("Ali "&EĞERHATA(İNDİS(C$1:C$11;TOPLAMA(15;6;(SATIR($A$6:$A$11)/(C$6:C$11<>""));6-5));" ")&" "&EĞERHATA(İNDİS(D$1:D$11;TOPLAMA(15;6;(SATIR($A$6:$A$11)/(C$6:C$11<>""));6-5));"")&" "&EĞERHATA(İNDİS(C$1:C$11;TOPLAMA(15;6;(SATIR($A$6:$A$11)/(C$6:C$11<>""));6-4));"")&" "&EĞERHATA(İNDİS(D$1:D$11;TOPLAMA(15;6;(SATIR($A$6:$A$11)/(C$6:C$11<>""));6-4));"")&" "&EĞERHATA(İNDİS(C$1:C$11;TOPLAMA(15;6;(SATIR($A$6:$A$11)/(C$6:C$11<>""));6-3));"")&" "&EĞERHATA(İNDİS(D$1:D$11;TOPLAMA(15;6;(SATIR($A$6:$A$11)/(C$6:C$11<>""));6-3));"")&" "&EĞERHATA(İNDİS(C$1:C$11;TOPLAMA(15;6;(SATIR($A$6:$A$11)/(C$6:C$11<>""));6-2));"")&" "&EĞERHATA(İNDİS(D$1:D$11;TOPLAMA(15;6;(SATIR($A$6:$A$11)/(C$6:C$11<>""));6-2));"")&" "&EĞERHATA(İNDİS(C$1:C$11;TOPLAMA(15;6;(SATIR($A$6:$A$11)/(C$6:C$11<>""));6-1));"")&" "&EĞERHATA(İNDİS(D$1:D$11;TOPLAMA(15;6;(SATIR($A$6:$A$11)/(C$6:C$11<>""));6-1));"")&" "&EĞERHATA(İNDİS(C$1:C$11;TOPLAMA(15;6;(SATIR($A$6:$A$11)/(C$6:C$11<>""));6));"")&" "&EĞERHATA(İNDİS(D$1:D$11;TOPLAMA(15;6;(SATIR($A$6:$A$11)/(C$6:C$11<>""));6));"")&" işi yapmıştır.";"   ";"")

 

[ASLAN7410]

Sayın çıtır, ilginiz için çok teşekkür ediyorum, ellerinize sağlık.

Formülü B13 hücresine uyguladım denemeler yaparken, ekteki görüntü çıktı. Tek bir işi yaptığını seçtiğimde, Ali 1 Tamir etme işi, işi, işi, işi, işi, yapmıştır. şeklinde çıktı.

 

[Necdet]

Merhaba,
Ben de uğraşmıştım. Boşa gitmesin. Bakalım oldu mu?

=YERİNEKOY(EĞER(BAĞ_DEĞ_DOLU_SAY(C6:C11)>0;EĞER(C6<>"";C6&" "&D6&", ";"")&EĞER(C7<>"";C7&" "&D7&", "; "") &EĞER(C8<>"";C8&" "&D8&", "; "") &EĞER(C9<>"";C9&" "&D9&", "; "")&EĞER(C10<>"";C10&" "&D10&", "; "")&EĞER(C11<>"";C11&" "&D11; "") & " İşi Yapmıştır";"");", İşi Yapmıştır";" İşi Yapmıştır")

 

[ASLAN7410]

Sayın Necdet Bey, sizinde ilginize çok teşekkür ediyorum, ellerinize sağlık.
Formül gayet güzel çalışıyor ama Ali ismini bir türlü formüle ekleyemedim.

 

[Necdet]

Merhaba,
Ali'yi unutmuşum

=YERİNEKOY(EĞER(BAĞ_DEĞ_DOLU_SAY(C6:C11)>0;"Ali " & EĞER(C6<>"";C6&" "&D6&", ";"")&EĞER(C7<>"";C7&" "&D7&", "; "") &EĞER(C8<>"";C8&" "&D8&", "; "") &EĞER(C9<>"";C9&" "&D9&", "; "")&EĞER(C10<>"";C10&" "&D10&", "; "")&EĞER(C11<>"";C11&" "&D11; "") & " İşi Yapmıştır";"");", İşi Yapmıştır";" İşi Yapmıştır")

 

[ASLAN7410]

Sayın Necdet Bey, ellerinize sağlık, şimdi oldu. Çok teşekkür ediyorum, Allah razı olsun.

Hayırlı geceler diliyorum.

 

[çıtır]

Sayın ASLAN7410;
Üstadın formülü yanında benim formül acemi işi ve uzun oldu.Formülü yeniledim.

 

[ASLAN7410]

Sayın çıtır, sizin de ellerinize sağlık. Son gönderdiğiniz formül de tam sonuçları veriyor.

Hayırlı geceler diliyorum.

 

[bilgiconline]

Bunu da bakarsanız çok sevinirim;(Makroyu çalıştırmayı unutmayın)

Sub yapilan_is()
Dim s1 As String
Dim s2 As String
Dim s3 As String
Dim s4 As String
Dim s5 As String
Dim s6 As String
Dim kucult As String
Dim a As String
Dim sonherhalde As String
Dim isim As String

    ActiveSheet.Range("C28") = "=LOWER(IF(C6="""","""",C6 &"" ""&D6&D$28))"
    Range("C28").Select
    Selection.AutoFill Destination:=Range("C28:C33"), Type:=xlFillDefault
    


With ActiveSheet
.Range("D28") = " işi"
.Range("C1") = ", "
.Range("D1") = "yapmıştır."

If .Range("C28") = "" Then
s1 = ""
Else
s1 = .Range("C28") & .Range("C1")
End If

If .Range("C29") = "" Then
s2 = ""
Else
s2 = .Range("C29") & .Range("C1")
End If

If .Range("C30") = "" Then
s3 = ""
Else
s3 = .Range("C30") & .Range("C1")
End If

If .Range("C31") = "" Then
s4 = ""
Else
s4 = .Range("C31") & .Range("C1")
End If

If .Range("C32") = "" Then
s5 = ""
Else
s5 = .Range("C32") & .Range("C1")
End If

If .Range("C33") = "" Then
s6 = ""
Else
s6 = .Range("C33") & .Range("C1")
End If


End With



isim = ActiveSheet.Range("B3") + ", "
kucult = s1 + s2 + s3 + s4 + s5 + s6 + ActiveSheet.Range("D1")
a = LCase(kucult)
ActiveSheet.Range("B13") = isim + a




    Range("A1:D1").Select
    Selection.ClearContents

    Range("C28:E34").Select
    Selection.ClearContents
    
    Range("B13").Select

End Sub

 

[çıtır]

Sayın çıtır, sizin de ellerinize sağlık. Son gönderdiğiniz formül de tam sonuçları veriyor.

Hayırlı geceler diliyorum.

Rica ederim dönüş yeptığınız için teşekkür ederim.

 

[ASLAN7410]

Sayın bilgiconline, ilginiz için çok teşekkür ediyorum, formül işimi gördü.

Hayırlı geceler diliyorum.

 

[bilgiconline]

Sayın bilgiconline, ilginiz için çok teşekkür ediyorum, formül işimi gördü.

Hayırlı geceler diliyorum.

Teşekkür ederim , iyi çalışmalar .