• DİKKAT

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

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

  1. B

    Masaüstü klasör

    ...pdf olarak kaydediyorduk, şimdi araya biçimlendirme ekleyeceğiz o halde 1.adım exceli açalım 2.Adım Biçimlendir 3.Adım Pdf Kaydet Vs Workbooks.Open Filename:=ExcellAdresi '1.Adım Sheets("TV").Select ....... Application.PrintCommunication = True ActiveSheet.ExportAsFixedFormat...
  2. muratgunay48

    Masaüstü klasör

  3. muratgunay48

    Masaüstü klasör

    Hiç o açıdan düşünmemiştim. Teşekkür ederim hocam. Emeğinize sağlık.
  4. 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:= _...
  5. 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...
  6. 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...
  7. 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...
  8. 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...
  9. 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")...
  10. ahmed_ummu

    Listbox'ta Döngü Kurma

    Çok teşekkürler sayın DoğanD elinize sağlık. İstediğim oldu.
  11. 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...
  12. 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...
  13. 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 '...
  14. 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.
  15. 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
  16. 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
  17. 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...
  18. 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
  19. 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..
  20. Ö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
Üst