Sorgu için arama sonuçları: workbooks.open

  1. ahmed_ummu

    Listbox'ta Döngü Kurma

    ...uyguladım ama dosya bulunamadı diye uyarı verdi. Açılan tüm kapalı dosyalardaki veri alınacak sayfanın adı "dışarıstj" Application.Workbooks.Open Environ("UserProfile") & "\Desktop\STAJYER_ÖĞRENCİ_PUANTAJLARI\" & ListBox4.Value Dim Say As Long Dim Sayfa As Worksheet Dim SonSatir As...
  2. Y

    Farklı Kaydet Sorunu!

    ...= Workbooks.Add(xlWBATWorksheet) Else Application.DisplayAlerts = False ' Uyarı mesajlarını kapat Set newWb = Workbooks.Open(filePath) newWb.Windows(1).Visible = True Application.DisplayAlerts = True ' Uyarı mesajlarını aç End If '...
  3. I

    Aynı Klasördeki Başka bir dosyayı diğer dosyadan çalıştırmak.

    Haklısınız çok değerli hocam ben tüm kodu koymuşum özür dilerim. çok güzel çalışıyor sağolun varolun.
  4. Korhan Ayhan

    Aynı Klasördeki Başka bir dosyayı diğer dosyadan çalıştırmak.

    ...File_Path = ThisWorkbook.Path & "\" File_Name = "Fişler" File_Exists = Dir(File_Path & File_Name & "*.xlsm") If File_Exists <> "" Then Set WB = Workbooks.Open(File_Path & File_Exists) Else MsgBox "Dosya bulunmadı!", vbCritical End If End Sub
  5. I

    Aynı Klasördeki Başka bir dosyayı diğer dosyadan çalıştırmak.

    Çok Değerli Korhan Hocam sizinkide olmadı malesef. Excel versiyonmu 2013 Türkçe Çıkan hata için linkteki dosyayı kullanabilirsiniz.. https://dosya.co/h7hrrt7opmfz/Fişler_ile_başlayan_dosyayı_çalıştır..zip.html
  6. Korhan Ayhan

    Aynı Klasördeki Başka bir dosyayı diğer dosyadan çalıştırmak.

    ...File_Name = "Fişler" File_Exists = Dir(File_Path & File_Name & "*.xlsx") If File_Exists <> "" Then Set WB = Workbooks.Open(File_Path & File_Exists) Else MsgBox "Dosya bulunmadı!", vbCritical End If End Sub Public Function GetLocalPath(ByVal Path As...
  7. D

    Aynı Klasördeki Başka bir dosyayı diğer dosyadan çalıştırmak.

    Aşağıdaki gibi deneyebilirsiniz. isim değişkenine ahmet - mehmet neye ihtiyacınız varsa ekleyip kullanın. Sub kod() dsy = thisworkbook.path & "\Fisler" & isim & ".xlsx" Workbooks.Open dsy End Sub
  8. I

    Aynı Klasördeki Başka bir dosyayı diğer dosyadan çalıştırmak.

    tam yer olarak değilde klasötler hep farklı yerlerde ve farklı isimlerde..mevcut klasör için bir çözüm yokmuydu..birde ismi fişler ile başlayan dosya için istemiştim yani fişler ahmet fişler mehmet bi sürü böyle dosya var..fişler den sonra başka isimler var yani..
  9. ÖmerBey

    Aynı Klasördeki Başka bir dosyayı diğer dosyadan çalıştırmak.

    Merhaba, Dosya yolunu kendinize göre uyarlayıp deneyiniz. Sub kod() dsy = "C:\Users\kullanici\Desktop\Fisler.xlsx" Workbooks.Open dsy End Sub
  10. ahmed_ummu

    Range Sınıfının PasteSpecial Yöntemi Başarısız.

    Çok çok teşekkürler Muzaffer Ali bey. Elinize sağlık.
  11. Muzaffer Ali

    Range Sınıfının PasteSpecial Yöntemi Başarısız.

    ...kodu kullanın Private Sub Label592_Click() Dim Say As Long Dim Sayfa As Worksheet Dim SonSatir As Long Application.Workbooks.Open Environ("UserProfile") & "\Desktop\STAJYER_ÖĞRENCİ_PUANTAJLARI\" & ListBox4.Value Set Sayfa = Worksheets("dışarıstj") Say =...
  12. dEdE

    Dosya ismi, o günkü tarih olsun

    Benzer bir sorunuzu cevaplamıştım. Aynı mantıkla; Sub Kaydet() AnaDosya = ActiveWorkbook.FullName ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Date & ".xlsm" Workbooks.Open AnaDosya End Sub
  13. A

    çalışma kitabını yarınki tarih ile kaydetme

    TEŞEKKÜR EDERİM FAYDALI OLDU. ANA DOSYA AÇIK KALIYOR. ANA DOSYA AÇIKKEN SADECE KAYIT İŞLEMİNİ HALLEDEMEDİM. Sub Kaydet() AnaDosya = ActiveWorkbook.FullName ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & DateAdd("d", 1, Date) & " KONYA TARİFE" & ".xlsm" Workbooks.Open AnaDosya End Sub
  14. ahmed_ummu

    Range Sınıfının PasteSpecial Yöntemi Başarısız.

    ...itibaren yapıştıracak. Kırmızı satırı seçip, konu başlığında belirtiğim hatayı veriyor. Rica etsem bakabilir misiniz. Application.Workbooks.Open "C:\Users\" & Environ("UserName") & "\Desktop\STAJYER_ÖĞRENCİ_PUANTAJLARI\" & ListBox4.Value dosya_adi = ListBox4.Value Dim say As Integer Dim...
  15. ahmed_ummu

    Listbox'tan Dosya Adını Seçerek Kapalı Dosyanın Açılması

    ...satırı seçip, "Range sınıfının PasteSpecial yöntemi başarısız" diye hata veriyor. Bunun için de yardım edebilir misiniz. Application.Workbooks.Open "C:\Users\" & Environ("UserName") & "\Desktop\STAJYER_ÖĞRENCİ_PUANTAJLARI\" & ListBox4.Value dosya_adi = ListBox4.Value Dim say As Integer Dim...
  16. ahmed_ummu

    Listbox'tan Dosya Adını Seçerek Kapalı Dosyanın Açılması

    Teşekkürler sayın dEdE sizin gönderdiğiniz kod ile de çalıştı.
  17. dEdE

    Listbox'tan Dosya Adını Seçerek Kapalı Dosyanın Açılması

    Dener misiniz? Application.Workbooks.Open Environ("UserProfile") & "\Desktop\STAJYER_ÖĞRENCİ_PUANTAJLARI\" & ListBox4.List(ListBox4.ListIndex, 0)
  18. ahmed_ummu

    Listbox'tan Dosya Adını Seçerek Kapalı Dosyanın Açılması

    Sayın DoğanD ilginiz için teşekkür ederim son gönderdiğiniz kod ile düzeldi.
  19. D

    Listbox'tan Dosya Adını Seçerek Kapalı Dosyanın Açılması

    ...Dosya yolunu tek başına Destkop olarak belirtemezsiniz. Çünkü aslında o yol gerçekte "C:\Users\dogan.dulger\Desktop" gibi görünüyor. Aşağıdaki gibi dener misiniz? Application.Workbooks.Open "C:\Users\" & Environ("UserName") & "\Desktop\STAJYER_ÖĞRENCİ_PUANTAJLARI\" & ListBox4.Value & ".xlsx"
  20. ahmed_ummu

    Listbox'tan Dosya Adını Seçerek Kapalı Dosyanın Açılması

    Sayın DoğanD yine aynı hatayı verdi. Dosya Türü : Microsoft Excel 97-2003 Çalışma Sayfası (.xls) Böyle de denedim. Yine hata verdi.
Üst