userformu yaptım fakat hata çıkıyor bir türlü anlamadım

[clymax]

slm arkadaşlar hazırladığım userformda hata mesajı veriyor bir türlü anlamdım eki yolluyorum yardımcı olursanız sevinirim

 

[Orion1]

Ekli dosyayı inceleyiniz.

 

[clymax]

sayın orion2 öncelikle yardımınız için teşekkür ederim ama dosyayı tıkladım ama modul kısmı hata veriyor tekrar incelermiyiz

 

[Orion1]

sayın orion2 öncelikle yardımınız için teşekkür ederim ama dosyayı tıkladım ama modul kısmı hata veriyor tekrar incelermiyiz

Nerde hata veriyor?
Ben denedim açılışta hata vermedi.
Açılış dışındamı hata veriyor yoksa açılıştamı hata veriyor.
Açılışta path not found diye mesaj veriyorsa dosya veya dosya yolu yok demektir.

 

[clymax]

evet öle bir hata mesajı veriyor ne yapmam lazım kusura bakma yın akşam vakti

 

[Orion1]

evet öle bir hata mesajı veriyor ne yapmam lazım kusura bakma yın akşam vakti

dosya yolu yanlış yazılmış olabilir.
Dosya yoluna ve dosya isimlerine bakıp kontrol ediniz.
Büyük ihtamelle dosya yolunu yanlış yazmışsınızdır.

 

[clymax]

sayın orıon ben delirmek üzereyim sizin gönderdiğiniz dosya üzerinde hiçbir değişiklik yapmadan açtım hatta sildim tekrar indirdim aynııı tekrar bi gözden geçirirmisin

 

[Orion1]

sayın orıon ben delirmek üzereyim sizin gönderdiğiniz dosya üzerinde hiçbir değişiklik yapmadan açtım hatta sildim tekrar indirdim aynııı tekrar bi gözden geçirirmisin

dosyayı 2 numaralı mesaja tekrardan yükledim.
2 numaralı mesajdan indirebilirsiniz.

 

[clymax]

sayın orıon2 çok teşekkür ederim yardımınız için hata nerdeymiş söliyebilirmisiniz ilerde karşıma çıkarsa çözmek açısından


iyi çalışmalar

 

[Orion1]

sayın orıon2 çok teşekkür ederim yardımınız için hata nerdeymiş söliyebilirmisiniz ilerde karşıma çıkarsa çözmek açısından
iyi çalışmalar

Ben dağa önceki hatayı bulmak için C:\Bütçeler klasörü oluşturmuştum ve içine bir tane dosya koymuştum.
Userform'udaki initializedeki dosya yolunuda C:\bütçeler olarak ayarlamıştım,orada unutmuşum düzeltmeyi.Yani dediğim gibi dosya yolunda hat varmış.Ama ilk hata da userform'un General kısmında Option explict satırından kaynaklanıyordu.Bu deyimi kullandığımızda bütün değişkenlerimizin
tanımlı olması gerekiyor.Sizin tanımlı olmayan değişkenleriniz vardı ondan hata veriyordu.Ben o deyimi iptal ettim.Şimdi çalışıyor.Ama unutulan değişiklikte ise hata bende idi .Kusura bakmayın.

 

[clymax]

yardımınız için teşekkür ederim takıldığım yerlerde sizden yardım alabilirmiyim

 

[Orion1]

yardımınız için teşekkür ederim takıldığım yerlerde sizden yardım alabilirmiyim

Rica ederim.
Ben buradayım.Ben ve arkadaşlar takıldığınız yerlerde yardımcı olacaklardır.

 

[clymax]

affınıza sığınarak hazır sizi bulmuşken birşey daha sorayım size
kod aşağıdaki gibi bütçe klasörü içinde bir kaç klasör daha var ben bu klasörlerede ulaşmak istiyorum d:bütçeler \ bu şekilde olunca ulaşılabiliyor
ama d:bütçeler\imalat diye yazınca hata veriyor nasıl bir kodla bu sorunu çözebilirim.

If cmdkolleksiyon.Value = "" Then Exit Sub
If Dir("d:\bütçeler\" & cmdkolleksiyon.Value) = "" Then
MsgBox "d:\bütçeler Klasöründe [ " & cmdkolleksiyon.Value & " ] İsminde Bir dosya yok..!!"
Else
Workbooks.Open ("d:\bütçeler\" & cmdkolleksiyon.Value)
End If
End Sub

 

[Orion1]

affınıza sığınarak hazır sizi bulmuşken birşey daha sorayım size
kod aşağıdaki gibi bütçe klasörü içinde bir kaç klasör daha var ben bu klasörlerede ulaşmak istiyorum d:bütçeler \ bu şekilde olunca ulaşılabiliyor
ama d:bütçeler\imalat diye yazınca hata veriyor nasıl bir kodla bu sorunu çözebilirim.

If cmdkolleksiyon.Value = "" Then Exit Sub
If Dir("d:\bütçeler\" & cmdkolleksiyon.Value) = "" Then
MsgBox "d:\bütçeler Klasöründe [ " & cmdkolleksiyon.Value & " ] İsminde Bir dosya yok..!!"
Else
Workbooks.Open ("d:\bütçeler\" & cmdkolleksiyon.Value)
End If
End Sub

aşağıdaki gibi deneyiniz.

If cmdkolleksiyon.Value = "" Then Exit Sub
If Dir("d:\bütçeler\imalat\" & cmdkolleksiyon.Value) = "" Then
MsgBox "d:\bütçeler\imalat Klasöründe [ " & cmdkolleksiyon.Value & " ] İsminde Bir dosya yok..!!"
Else
Workbooks.Open ("d:\bütçeler\imalat\" & cmdkolleksiyon.Value)
End If

 

[clymax]

sayın orion2

bu kod başka bir şekilde yazılabilirmi

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


Private Sub CommandButton1_Click()
If cmdimalat.Value = "" Then Exit Sub
If Dir("d:\bütçeler\imalat\" & cmdimalat.Value) = "" Then
MsgBox "d:\bütçeler Klasöründe [ " & cmdimalat.Value & " ] İsminde Bir dosya yok..!!"
Else
Workbooks.Open ("d:\bütçeler\imalat\" & cmdimalat.Value)
End If
End Sub
bu şekilde olduğu zamn hata veriyor mümkünse başka kod yapısı varsa onu deniyebilirmiyiz


teşekkürler
iyi çalışmalar

aşağıdaki gibi deneyiniz.

If cmdkolleksiyon.Value = "" Then Exit Sub
If Dir("d:\bütçeler\imalat\" & cmdkolleksiyon.Value) = "" Then
MsgBox "d:\bütçeler\imalat Klasöründe [ " & cmdkolleksiyon.Value & " ] İsminde Bir dosya yok..!!"
Else
Workbooks.Open ("d:\bütçeler\imalat\" & cmdkolleksiyon.Value)
End If

 

[Orion1]

Yukarıda verdiğiniz kodlar bende sorunsuz çalışıyor.

 

[clymax]

d:\bütçeler\imalat\
kodun sonuna bunu eklediğim zamn neden hata veriri acaba

Yukarıda verdiğiniz kodlar bende sorunsuz çalışıyor.

 

[Orion1]

d:\bütçeler\imalat\
kodun sonuna bunu eklediğim zamn neden hata veriri acaba

birde aşağıdaki gibi deneyiniz.Sondaki kesme işaretini koymayın

d:\bütçeler\imalat