userform ekranda açık kaldıktan sonra excelde işlem yapma

[clymax]

merhaba arkadaşlar yaptığım userform da dosyayı seçip açıyorum ve minimize yapıp aşağı atıyorum fakat açılan excel sayfasında hiçbir veri grişi yapamıyorum userformu kapatmadığım sürece yardımcı olurmusunuz eki yolluyorum iyi çalışmalar

 

[exam77]

merhaba arkadaşlar yaptığım userform da dosyayı seçip açıyorum ve minimize yapıp aşağı atıyorum fakat açılan excel sayfasında hiçbir veri grişi yapamıyorum userformu kapatmadığım sürece yardımcı olurmusunuz eki yolluyorum iyi çalışmalar

Sayın clymax,

Userform'unuzun Showmodal özelliğini false yaptığınız taktirde excelde veri işlemlerini yapabilirsiniz.

Dosyanız düzenlenmiş şekilde ektedir. Kolay gelsin...

 

[Mahmut Kök]

formu şu şekilde açarsanız da olur:

UserForm1.Show 0

 

[clymax]

ÖNCELİKLE YARDIMINIZ İÇİN TEŞEKKÜR EDERİM BENİM DİYER BİR SORUM DAHA OLACAK SİZE USER FORMDA GÖRDÜĞÜNÜZ GİBİ İMALAT ,KOLLEKSİYON VE KAPANAN BÜTÇELER DİYE 3 KLASÖR DAHA VAR BUNLAR BÜTÇELER ADI ALTINDA BİR KLASÖRDE TOPLANMIŞ BENİM DEMEK İSTEDİĞİM İMALAT KISMINI SEÇTİĞİM ZAMAN İMALAT KLASÖRÜNDEN ,KOLLEKSİYONU SEÇTİĞİM ZAMN KOLLEKSİYON KLASÖRÜNDEN VERİYİ ALMAK DAHA ÖNCE
ŞU KODU DENEDİM AMA ÇALIŞMADI
kapanan bütçeler için bunu uyguladım ama herdefasında hata verdi


Private Sub myfiles2()
Dim ds, dc, f, s
Set ds = CreateObject("Scripting.FileSystemObject")
Set f = ds.GetFolder("d:\bütçeler\kapananbütçeler\")
Set dc = f.Files
For Each dosya In dc
cmdkapanan.AddItem dosya.Name
Next
End Sub

Private Sub CommandButton1_Click()
If cmdkapanan.Value = "" Then Exit Sub
If Dir("d:\bütçeler\kapananbütçeler\" & cmdimalat.Value) = "" Then
Else
Workbooks.Open ("d:\bütçeler\" & cmdkapanan.Value)
Application.Visible = True
End If
End Sub



yardımlarınız için teşekkür ederim

iyi çalışmalar

 

[clymax]

Cevap Verecek Bİr ArkadaŞ Yokmu