Combodan seçilen adrese kayıt

[CaSpi]

İyi günler arkadaşlar. Userform üzerinden save butonuna tıkladıkda K10 hücresinde bulunan numara adı altında aşağıda belirttiyim adrese (\\D:\Kayitlar\Musteriler\) kayıtlar yapıyorum. Musteriler dosyasında alt dosyalar bulunmakta (örnek alt dosyalar a, b, c ....). Şimdi yapmak istediyim Userforma bir combo koymak ve bu comboboxtan a, b veya c seçerek save bitonuna tıkladıkda comobodan seçtiyim dosya içerisinə kayıt yapmak. Bunu yapmak için combunun alacağı değeri aşağıdaki koda nasıl entegre edebilirim? Lütfen yardımcı olabilirmisiniz?


b = Sheets("Form1").Range("k10").Value
Sheets("form1").Copy
On Error Resume Next
ChDir "\\D:\Kayitlar\Musteriler\"
On Error Resume Next
ActiveWorkbook.SaveAs Filename:="\\D:\Kayitlar\Musteriler\ " & b & ".xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False

ActiveWorkbook.Save

 

[BASKICI]

İyi günler arkadaşlar. Userform üzerinden save butonuna tıkladıkda K10 hücresinde bulunan numara adı altında aşağıda belirttiyim adrese (\\D:\Kayitlar\Musteriler\) kayıtlar yapıyorum. Musteriler dosyasında alt dosyalar bulunmakta (örnek alt dosyalar a, b, c ....). Şimdi yapmak istediyim Userforma bir combo koymak ve bu comboboxtan a, b veya c seçerek save bitonuna tıkladıkda comobodan seçtiyim dosya içerisinə kayıt yapmak. Bunu yapmak için combunun alacağı değeri aşağıdaki koda nasıl entegre edebilirim? Lütfen yardımcı olabilirmisiniz?


b = Sheets("Form1").Range("k10").Value
Sheets("form1").Copy
On Error Resume Next
ChDir "\\D:\Kayitlar\Musteriler\"
On Error Resume Next
ActiveWorkbook.SaveAs Filename:="\\D:\Kayitlar\Musteriler\ " & b & ".xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False

ActiveWorkbook.Save

Sayın CaSpi ; Sayfalarınızın ismini herhangi bir sayfanıza kaydedip Combobox'un Rowsource olayına orayı yazınız. Örn : Combobox1.RowSource = "Sayfa1!A3:A45" Daha sonra userformunuzda Combobox1_Click olayına Kitabın adresi & ve

Sheets(ComboBox1.Text).Select

olarak yazarsanız olacaktır.

 

[CaSpi]

Sayın Baskıcı,

ActiveWorkbook.SaveAs Filename:= burada combodan adresi nasıl verebilirsiniz.

 

[CaSpi]

Arkadaşlsr lütfen yardımcı olurmusunuz.

ActiveWorkbook.SaveAs Filename:= burada combonun adresini nasıl verdiririz?

 

[BASKICI]

Sayın CaSpi ; uzun süredir giremiyorum foruma. Dediğiniz olay yanlış hatırlamıyorsam şöyle olmalı yine de yedeğini alıp denemenizi öneririm.

ActiveWorkbook.SaveAs Filename:= Combobox1.Text

Saygılar.