Hücre Adına Göre Farklı Kaydet

[halit3]

Halit3 hocam
Bir önceki sorumda da belirttiğm gibi yapmış olduğunuz kodu ben ekli dosyama ilave etmeye çalıştım ve yazmış olduğum sorunu verdi. Bu sorunla ilgili birde Word'e aktar kısmını yapmaya çalıştım ama aktarırken sayfayı önizlemede göründüğü gibi atmasını istiyorum. Fakat Çok değişik bir şekilde atıyor yardımcı olursanız sevinirim.

word işinden pek anlamam ama farklı kaydeti hallettim kodun bir kısmını değiştirmeyi unutmuşsun

 

[MURATYALCIN1978]

Halit3 hocam
Yapmış olduğunuz kodu inceledim kaydederken sorunu gidermişsiniz teşekkürler ama vba kodlarınıda yeni kayıtlarda alıyor. Vba kodlarını almamasını sağlayabilirmiyiz. Birde benim yapmış olduğum klasörde Gidiş ve Dönüş tarihleri vardı user form üzerinde sizinkinde onlar silinmiş bu tarihleri de user formda neyi seçmişsek excell ekranıda ilgili yerlere yazmasını sağlayabilirmiyiz. Ya uğraştırıyorum sizi ilginiz için teşekkürler.
İyi çalışmalar

 

[halit3]

21 nolu mesajdaki dosyayı güncelledim gidiş ve dönüş tarihleri gözüküyor

diğer sorunu anlamadım yeni bir başlık altında yeni bir konu açarak sorunuz.

 

[mancubus]

bende şöyle bir kod var:
A1 hücresindeki değer dosya ismi olarak atanıp belirtilen klasöre yaydediliyor.

Sub SaveAs()

Dim newFile As String, fName As String
fName = Range("A1").Value
newFile = fName
ChDir _
"C:\....\...\"
ActiveWorkbook.SaveAs Filename:=newFile

End Sub