demetk
Yeni Üye
İyi günler, Bir excell çalışma kitabında her sayfada kişiye özel bilgiler var ve bu bilgileri kişilere mail atmak istiyorum. 1. sayfayı a@hot.com 2.sayfayı b@hot.com 3. sayfayı c@hot.com ... 70. sayfayı k@hot.com . Böyle bi kod buldum ama sayfa döngüsü kuramadım acaba nasıl yapabilirim yardımcı olabilirmisiniz?
PHP:
Private Sub CommandButton1_Click()
Dim Sayfa As Worksheet
Dim Alan As Range
Dim daralan As Range
If Cells(2, 2) = "" Then GoTo HATA
On Error GoTo HATA
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
saydir = WorksheetFunction.CountIf(Range("A:A"), "<>") + 1
DinamikAlan = "A1:" & "F" & saydir
Set Alan = Worksheets("Sayfa1").Range(DinamikAlan)
Set Sayfa = ActiveSheet
For dongu = 1 To 6
With Alan
.Parent.Select
Set daralan = ActiveCell
.Select
ActiveWorkbook.EnvelopeVisible = True
With .Parent.MailEnvelope
.Introduction = "Otomatik Mail."
With .Item
.to = Cells(4, 8)
'.CC = Cells(3, 2)
.Subject = Cells(dongu, 1)
.bcc = "hasmuh038@gmail.com"
.Send
End With
End With
daralan.Select
End With
Sayfa.Select
HATA:
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
Next dongu
End Sub
Moderatör tarafında düzenlendi: