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

  1. muratgunay48

    Masaüstü klasör

    Hiç o açıdan düşünmemiştim. Teşekkür ederim hocam. Emeğinize sağlık.
  2. B

    Masaüstü klasör

    ...ExcellAdresi = ActiveWorkbook.Path & "\ALINAN RAPORLAR\test.xlsx" PDFAdresi = ActiveWorkbook.Path & "\PDF RAPORLAR\test.pdf" Workbooks.Open Filename:=ExcellAdresi ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ PDFAdresi, Quality:= _...
  3. muratgunay48

    Masaüstü klasör

    Sub Makro1() ChDir "C:\Users\murat\OneDrive\Masaüstü\RAPORLAR\ALINAN RAPORLAR" Workbooks.Open Filename:= _ "C:\Users\murat\OneDrive\Masaüstü\RAPORLAR\ALINAN RAPORLAR\test.xlsx" ChDir "C:\Users\murat\OneDrive\Masaüstü\RAPORLAR\PDF RAPORLAR" ActiveSheet.ExportAsFixedFormat...
  4. veyselemre

    kapalı excel veri aktarma (şartlı)

    ...Kaynak_Sayfa = Kaynak_Kitap.Sheets("Taslak") Yol = ThisWorkbook.Path & "\" Dosya_Adi = "Kapalı.xlsm" Set Hedef_Kitap = Workbooks.Open(Yol & Dosya_Adi, False, False) Set Hedef_Sayfa = Hedef_Kitap.Sheets("Sayfa1") If Hedef_Sayfa.Range("A1") = "" Then With...
  5. N

    kapalı excel veri aktarma (şartlı)

    ...= Kaynak_Kitap.Sheets("Taslak") Yol = ThisWorkbook.Path & "\" Dosya_Adi = "Kapalı.xlsm" Set Hedef_Kitap = Workbooks.Open(Yol & Dosya_Adi, False, False) Set Hedef_Sayfa = Hedef_Kitap.Sheets("Sayfa1") If Hedef_Sayfa.Range("A1") = "" Then With...
  6. B

    kapalı dosyadan veri aldırmak

    ....Show = 0 Then Exit Sub Else dosya = .SelectedItems(1) End If End With Application.ScreenUpdating = False Set w2 = Workbooks.Open(dosya) Set s2 = w2.Worksheets(1) s2.Range("A1:T300").Copy s1.Range("A1:T300") Application.ScreenUpdating = True w2.Close End Sub s2.range...
  7. D

    Soru Formül Revize

    ...VERİAL_1() If dosya <> "" Then On Error GoTo hata Application.ScreenUpdating = False Set kaynak = Workbooks.Open(dosya, True, True) kaynak.Worksheets("MİZAN").Range("A7:C5000").Copy ThisWorkbook.Sheets("MİZAN1").Range("C3")...
  8. ahmed_ummu

    Listbox'ta Döngü Kurma

    Çok teşekkürler sayın DoğanD elinize sağlık. İstediğim oldu.
  9. D

    Listbox'ta Döngü Kurma

    Şu şekilde dener misiniz? dim i as integer For i = 0 To ListBox1.ListCount - 1 Application.Workbooks.Open Environ("UserProfile") & "\Desktop\STAJYER_ÖĞRENCİ_PUANTAJLARI\" & ListBox4.list(i) 'Listbox'ta nasıl göründüğünü bilmiyorum. "Dosyaİsmi.xlsx" şeklinde uzantısı ile görünmüyorsa...
  10. 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...
  11. 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 '...
  12. 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.
  13. 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
  14. 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
  15. 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...
  16. 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
  17. 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..
  18. Ö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
  19. 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.
  20. 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 =...
Üst