turgay1983
Bronz Üye
Konuyu Başlatan
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