Oluşturulan dosyanın açılması

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar aşağıdaki kodla yeni bir dosya oluşturuluyor ve D:\Belgelerim\Banka\" dizine yeni bir kayıt yapıyor, benim isteğim oluşturulan bu dosyanın tamamlandıktan sonra kodun devamında "BU DOSYAYI AÇMAK İSTİYOR MUSUNUZ?" sorusuna EVET deyince D:\Belgelerim\Banka\" içerisine oluşturulan dosyanın direk açılmasını istiyorum, bu kodun devamında nasıl bir kod yazılır ilginize teşekkürler.

Private Sub CommandButton8_Click()
'On Error Resume Next

kaynak = "D:\Belgelerim\Banka\"

Application.DisplayAlerts = False

ay = Format(Now, "MMMM")
yıl = Format(Now, "YYYY")

dosya_adı = InputBox("Dosyanın Adını Yazınız", "UYARI", ay & " KESİNTİSİ " & yıl)

If dosya_adı = "" Then
MsgBox "Sayfa İsmini Yazmadınız"
Exit Sub
End If

kesinti = InputBox("Kesinti Nedeni", "UYARI", ay & " AYI KESİNTİSİ")

If kesinti = "" Then
MsgBox "Kesinti Ayını Yazınız Sayfa İsmini Yazmadınız"
Exit Sub
End If
Workbooks.Add

dosya = ActiveWorkbook.Name
sayfa_Adı = ActiveSheet.Name


For ii = ActiveWorkbook.Sheets.Count To 2 Step -1
ActiveWorkbook.Sheets(ii).Delete
Next


SAT = 1
For i = 2 To ThisWorkbook.Worksheets("LİSTE").Cells(Rows.Count, "C").End(3).Row

ActiveWorkbook.Sheets(sayfa_Adı).Cells(SAT, 1).Value = ThisWorkbook.Sheets("LİSTE").Cells(i, 3).Value & " " & ThisWorkbook.Sheets("LİSTE").Cells(i, 4).Value
ActiveWorkbook.Sheets(sayfa_Adı).Cells(SAT, 4).Value = ThisWorkbook.Sheets("LİSTE").Cells(i, 11).Value
ActiveWorkbook.Sheets(sayfa_Adı).Cells(SAT, 5).Value = ThisWorkbook.Sheets("LİSTE").Cells(i, 29).Value
ActiveWorkbook.Sheets(sayfa_Adı).Cells(SAT, 6).Value = kesinti

SAT = SAT + 1
Next i

Columns("A:G").Columns("A:G").EntireColumn.AutoFit
Range("a1").Select
ActiveWorkbook.SaveAs kaynak & dosya_adı & ".xls"
ActiveWindow.Close
ActiveWindow.WindowState = xlMaximized

Application.DisplayAlerts = True

MsgBox " Kesinti için dosya oluşturdum, TOPLAM " + Str(SAT - 1) + " Kişinin Kesintisi bankaya gönderilmeye hazır. Dosya Açılsın Mı?", vbYesNo, "Merhaba Muhammet Ali GÜL"

End Sub

 

[Korhan Ayhan]

Son kısımdaki MSGBOX satırını aşağıdaki gibi değiştirip deneyiniz.

Onay = MsgBox(" Kesinti için dosya oluşturdum, TOPLAM " + Str(SAT - 1) + " Kişinin Kesintisi bankaya gönderilmeye hazır. Dosya Açılsın Mı?", vbYesNo, "Merhaba Muhammet Ali GÜL")
If Onay = vbNo Then Exit Sub
Workbooks.Open kaynak & dosya_adı & ".xls"

 

[Hacı Bayram ÖZKAN]

Korhan Bey eline sağlık dua ile kal.