Ders-Etüt programını SMS olarak düzenlemek

[sutpinar]

Merhaba hocalarım
Forumda çok aradım ama bulamadım. Yardımcı olursanız çok sevinirim. Şimdiden ilgilenenlere teşekkür ederim.

sorun şu: Bir öğrenci haftada en az 1, en fazla 3 etüt alıyor. Öğrencinin aldığı tüm etütleri birleştirip bir tek SMS metni haline getirmek.

Gerekli açıklama EK te sunulmuştur.

 

[Emir Hüseyin Çoban]

. . .

Sub kod()
on error resume next
sonJ = [J65536].End(3).Row
sonA = [A65536].End(3).Row

Range("m2:m65536").ClearContents

For i = 2 To sonJ

For a = 2 To sonA

If Cells(i, "J") = Cells(a, "A") And _
Cells(i, "k") = Cells(a, "b") And _
Cells(i, "l") = Cells(a, "c") Then

sms = sms & Format(Cells(a, "G"), "dddd") & ": " & _
Format(Cells(a, "h"), "hh:mm") & " da " & Cells(a, "f") & " hocandan. " & Cells(a, "e") & ". "

Else
End If

Next a
Cells(i, "m") = "Etüt programın : " & sms
sms = Empty
Next i

End Sub

. . .

 

[webuyeislemleri]

. . .

Sub kod()
on error resume next
sonJ = [J65536].End(3).Row
sonA = [A65536].End(3).Row

Range("m2:m65536").ClearContents

For i = 2 To sonJ

For a = 2 To sonA

If Cells(i, "J") = Cells(a, "A") And _
Cells(i, "k") = Cells(a, "b") And _
Cells(i, "l") = Cells(a, "c") Then

sms = sms & Format(Cells(a, "G"), "dddd") & ": " & _
Format(Cells(a, "h"), "hh:mm") & " da " & Cells(a, "f") & " hocandan. " & Cells(a, "e") & ". "

Else
End If

Next a
Cells(i, "m") = "Etüt programın : " & sms
sms = Empty
Next i

End Sub

. . .

Hüseyin bey, yukarda ki makro ile
http://www.excel.web.tr/f48/yan-yana-satyrlary-alt-alta-yazmak-t119964.html bu soruma nasıl çözüm geliştiririm ?