- Katılım
- 25 Mayıs 2007
- Mesajlar
- 165
- Excel Vers. ve Dili
-
türkçe vista işletim sistemi
excel2007
türkçe
Herkese merhaba,
aşağıda (gelenvirmankontrolet) makrosu yaklaşık 15-20 sn çalışıyor.
Userform üzerine koyacağım ProgressBar1, Commandbutton1' i tıklayınca ilerlemeye başlayacak ve ilgili mail gönderilince de ilerlemesi durup, görülmez olacaktır.
Bir kaç uygulama yaptım ancak, (gelenvirmankontrolet) macrosu ile eş anlı olarak ProgressBar1' i ilerletmeyi başaramadım. Diğer bir deyişle, ProgressBar1' in ilerleyişini (gelenvirmankontrolet) makrosunun çalışmasına bağlayamadım
Ne yapılması gerekiyor ? :???:
Yardımı dokunacaklara şimdiden teşekkür ederim... Kolay gelsin
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
If CheckBox1.Value <> 0 Then
gelenvirmankontrolet
UserForm1.Label4.Caption = "Saat 2 : " & Time$
UserForm1.PrintForm
CommandButton2.Visible = True
If Sheets("fark raporu").Range("b4").Value > 0 Then
Else: MsgBox "gelen virmanlar arasında fark bulunmamaktadır !"
CheckBox1.Value = 0
Exit Sub
End If
End If
ChDir "C:\80's list"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="C:\80's list\virman kontrol.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Dim mail As Object
Set mail = CreateObject("Outlook.Application")
With mail.CreateItem(olMailItem)
.Recipients.Add "Paul Newman"
.Subject = "GELEN VİRMANLAR KONTROL RAPORU"
.Body = "Gelen virmanların kontrol raporu ektedir..!!"
.Attachments.Add "C:\80's list\virman kontrol.xls"
.send
End With
End Sub
aşağıda (gelenvirmankontrolet) makrosu yaklaşık 15-20 sn çalışıyor.
Userform üzerine koyacağım ProgressBar1, Commandbutton1' i tıklayınca ilerlemeye başlayacak ve ilgili mail gönderilince de ilerlemesi durup, görülmez olacaktır.
Bir kaç uygulama yaptım ancak, (gelenvirmankontrolet) macrosu ile eş anlı olarak ProgressBar1' i ilerletmeyi başaramadım. Diğer bir deyişle, ProgressBar1' in ilerleyişini (gelenvirmankontrolet) makrosunun çalışmasına bağlayamadım
Ne yapılması gerekiyor ? :???:
Yardımı dokunacaklara şimdiden teşekkür ederim... Kolay gelsin
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
If CheckBox1.Value <> 0 Then
gelenvirmankontrolet
UserForm1.Label4.Caption = "Saat 2 : " & Time$
UserForm1.PrintForm
CommandButton2.Visible = True
If Sheets("fark raporu").Range("b4").Value > 0 Then
Else: MsgBox "gelen virmanlar arasında fark bulunmamaktadır !"
CheckBox1.Value = 0
Exit Sub
End If
End If
ChDir "C:\80's list"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="C:\80's list\virman kontrol.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Dim mail As Object
Set mail = CreateObject("Outlook.Application")
With mail.CreateItem(olMailItem)
.Recipients.Add "Paul Newman"
.Subject = "GELEN VİRMANLAR KONTROL RAPORU"
.Body = "Gelen virmanların kontrol raporu ektedir..!!"
.Attachments.Add "C:\80's list\virman kontrol.xls"
.send
End With
End Sub