Wa'alaikum salam...
wah macronya tdk ada mas . karena formatnya xlsx (excel workbook) . jadi macronya tdk bisa tersimpan.
Jika ingin menyimpan macronya,coba gunakan xlsm (excel macro enabled) atau xlsb (excel binary) atau xls (excel 97 2003) .
Saya mengerti maksudnya karna sy sendiri menggunakannya metode tsb untuk satu atau beberapa kepentingan. Jika menggunakan range , sebaiknya di merge ke dlm 1 range atau menggunakan loop & menggunakan separator sperti tanda ";" .
Contoh Range
Range A1 = Nama kolom
A2: 123@gmail.com
A3: 456@gmail.com
A4:789@gmail.com
maka di range A5 (misalnya) menjadi : 123@gmail.com ; 456@gmail.com ; 789@gmail.com
penjelasan & sample file terlampir
atau gunakan metode loop seperti ini
Dim i
For i = 1 To Application.WorksheetFunction.CountA(Range("A1:A3"))
If i <> 1 Then
txtto = txtto & ";" & Range("A1").Offset(i, 0).Value
Else
txtto = Range("A1").Offset(i, 0).Value
End If
Next i
dimana TxtTo adalah alamat Email Tujuan