Checkboxlar için döngü

[muyat]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Dosyada mail yollarken mavi kutuya tıkladıgımda body kısmına tick işareti ile tanımlı olan şehrin yazmasını istiyorum.
100 numaralı kutucukda tick varken body kısmında "a1"hücresinin içini yazcak.KONYA
103 numaralı kutucukta tick varken body kısmında "a2"hücresinin içini yazcak.İZMİR
Fakat her ikisinde tick varken
KONYA
İZMİR
alt alta gelcek şekilde yazdıramıyorum.
Bir diğer husus bu işlem normalde alt alta ıf kullanarak yapılır fakat şehir isim listesi aşagı dogru giderek artacagı için bunu döngü ile nasıl yapabiliriz?Örnek dosya ektedir.

Sub YuvarlatılmışDikdörtgen1_Tıkla()
Set SA = Sheets("sayfa1")



Dim OutLookApp As Object
Dim OutLookMailItem As Object
Dim myAttachments As Object

Set OutLookApp = CreateObject("Outlook.application")
Set OutLookMailItem = OutLookApp.CreateItem(0)
Set myAttachments = OutLookMailItem.Attachments
Set FSO = CreateObject("Scripting.FilesystemObject")


With OutLookMailItem

         

.Subject = "KISA CALISMA ÖDENEGİ BAŞVURUNUZLA İLGİLİ OLARAK"

SA.Select


If Range("MX100") = DOĞRU Then
.Body = SA.Range("A1")
End If



If Range("MX103") = DOĞRU Then
.Body = SA.Range("A2")
End If





   
'.send
.Display

End With

Set OutLookMailItem = Nothing
Set OutLookApp = Nothing
Set FSO = Nothing



   
Application.Goto Reference:=Worksheets("sayfa1").Range("A16:B16"), Scroll:=False

With OutLookMailItem

End With

Set SA = Nothing
         
           
End Sub

 

Kapalı Excel Dosyalarından Veri Alma

combobox select case

[Feyzullah]

Kodlardaki ilgili aşağıdaki gibi değiştirin.

If Range("MX100").Value = True Then
.Body = SA.Range("A1")
End If

If Range("MX103").Value = True Then
.Body = SA.Range("A2")
End If

If Range("MX100") = True And Range("MX103") = True Then
.Body = SA.Range("A1") & Chr(10) & SA.Range("A2")
End If