• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Userform kapandığı gibi açılsın

  • Konbuyu başlatan Konbuyu başlatan quesh
  • Başlangıç tarihi Başlangıç tarihi
Katılım
25 Mart 2010
Mesajlar
340
Excel Vers. ve Dili
2007,2010
Merhabalar.

Sayfalardaki hücrelerden veri alan ve sayfalardaki hücrelere giriş yapan userform'lardan oluşan excel dosyam var.

örneğin userform1'de textboxlara birşeyler girdiğimde çalışma kitabındaki sayfalara aktarılıyor. bir kaç ileri butonunun ardından. kaydet butonu mevcut. kaydet dediğimde dosyayı kaydediyor. tekrar açtığımda ise userformlardaki textboxlar doğal olarak boş görünüyor. ancak ben ne kaydettiysem kaydolduktan sonra userformları tekrar açtığımda aynı şekilde görünmesini istiyorum. bbunu nasıl yapabilirim ?
 
Merhabalar.

Sayfalardaki hücrelerden veri alan ve sayfalardaki hücrelere giriş yapan userform'lardan oluşan excel dosyam var.

örneğin userform1'de textboxlara birşeyler girdiğimde çalışma kitabındaki sayfalara aktarılıyor. bir kaç ileri butonunun ardından. kaydet butonu mevcut. kaydet dediğimde dosyayı kaydediyor. tekrar açtığımda ise userformlardaki textboxlar doğal olarak boş görünüyor. ancak ben ne kaydettiysem kaydolduktan sonra userformları tekrar açtığımda aynı şekilde görünmesini istiyorum. bbunu nasıl yapabilirim ?

eki inceleyiniz
 

Ekli dosyalar

Tek seçenek bu mu İhsan Bey, aklıma gelen ilki seçenek buydu ancak yüzlerce textbox ve 10 civarı userform oldugundan dolayı bu işlemi yapmanın çok zahmetli olacağını düşünmüştüm. Demek ki bundan başka yolu yokmuş ....:(

Tek seçenek bu mu İhsan Bey, aklıma gelen ilki seçenek buydu ancak yüzlerce textbox ve 10 civarı userform oldugundan dolayı bu işlemi yapmanın çok zahmetli olacağını düşünmüştüm. Demek ki bundan başka yolu yokmuş ....:(
 
Merhaba,
Verileriniz belirli bir düzende ise textboxlarınıza bu düzene göre isim verip döngüyle alabilirsiniz.
Örneğin: (txt1,txt2,txt3,txt4,txt5) isim verdiğim textboxlar olsun. Aşağıdaki gibi bir döngüyle işinizi kısaca halledebilirsiniz:
Kod:
For x = 1 To 5
Controls("txt"&x)=Cells(SonSat,x)
Next
 
Geri
Üst