turgay1983
Yeni Üye
- Katılım
- 14 Haz 2022
- Mesajlar
- 209
- Çözümler
- 2
- Aldığı beğeni
- 21
- Excel V
- Office 2016 TR
Konu Sahibi
merhaba
değerli üstatlar
ben excel sayfasını başka bir kitap oluşturup oraya aktarıyorum. yalınız yapmak istediğim aktardığım dosyanın adını belirlerken sabit değil de formdaki TxCariad tesxbox unda ne yazıyorsa ona göre aktarsın.
şöyle bir kod yaptım bu sabit ad ayzarsam atıyor ama texbox a göre aktarmadım yardımcı olarabilirmisiniz
rivate Sub BtnAktar_Click()
Dim Sor As Byte
Sor = MsgBox("Cari Ekstre Aktarılsın MI?", vbYesNo + vbDefaultButton1 + vbQuestion, "Excele Aktar")
If Sor = 7 Then Exit Sub
Dim Wb As Workbook
Set Wb = Workbooks.Add
ThisWorkbook.Sheets("RaporSayfasi").Copy Before:=Wb.Sheets(1)
Wb.SaveAs ThisWorkbook.Path & "\ (TxCariAd.Value )" & ".xlsx"
Wb.Close
Set Wb = Nothing
MsgBox "Ekstre Aktarıldı", vbOKOnly + vbInformation
Exit Sub
End Sub
değerli üstatlar
ben excel sayfasını başka bir kitap oluşturup oraya aktarıyorum. yalınız yapmak istediğim aktardığım dosyanın adını belirlerken sabit değil de formdaki TxCariad tesxbox unda ne yazıyorsa ona göre aktarsın.
şöyle bir kod yaptım bu sabit ad ayzarsam atıyor ama texbox a göre aktarmadım yardımcı olarabilirmisiniz
rivate Sub BtnAktar_Click()
Dim Sor As Byte
Sor = MsgBox("Cari Ekstre Aktarılsın MI?", vbYesNo + vbDefaultButton1 + vbQuestion, "Excele Aktar")
If Sor = 7 Then Exit Sub
Dim Wb As Workbook
Set Wb = Workbooks.Add
ThisWorkbook.Sheets("RaporSayfasi").Copy Before:=Wb.Sheets(1)
Wb.SaveAs ThisWorkbook.Path & "\ (TxCariAd.Value )" & ".xlsx"
Wb.Close
Set Wb = Nothing
MsgBox "Ekstre Aktarıldı", vbOKOnly + vbInformation
Exit Sub
End Sub
