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

...kod örneği. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then if Target.Value = "deneme1" Then Workbooks.Open "D:\santral\001\hesapla.xls" elseif Target.Value = "deneme2" Then Workbooks.Open "D:\santral\001\rapor.xls" elseif Target.Value = "deneme3" Then...

sayın hocam boyle de calışmadı

...A1 hücresindeki veri doğrulama ile listelenen dosya isimlerini seçince açan kod İlgili sayfanın modülüne yapıştırın. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" And Target.Value = "deneme" Then Workbooks.Open "D:\santral\001\hesapla.xls" End If End Sub

Deneyiniz. Workbooks.Open Filename:="C:\KLASOR\" & BUTON1.Tag & ".xlsm"

...veri Userform aktif olunca BUTON1 in Tagı ile eşlenyor. makroyu boyle çalıştırıyorum kitap5 isimli çalışma kitabını açması gerekirken BUTON1.Tag isimli kitap bulunamadı diye hata alıyorum. BUTON1.Tag = Range ("A6") Workbooks.Open Filename:="C:\KLASOR\BUTON1.Tag.xlsm"

...geç. Aynı işlemleri yap."" bunu nasıl yazarım? Sub Makro7() Application.ScreenUpdating = False Application.DisplayAlerts = False Workbooks.Open Filename:=ThisWorkbook.Path & "\export.xlsm" i = 2 For Each ws In ActiveWorkbook.Sheets If ws.Name Like "*.dat" Then...

...Worksheet, Rng As Range File_Path = "\\Network_Path\Desktop\Book1.xlsx" Application.ScreenUpdating = False Set My_File = Workbooks.Open(File_Path) Set My_Sheet = My_File.Sheets("Sheet1") Set Rng = My_Sheet.Range("A2:D21") ListBox1.ColumnCount = 4 ListBox1.List =...

Hocam merhaba müsaitseniz bir sorum daha var size, isterseniz örnek gönderirim ama önden anlatayım dedim. iki excelim var birinin içinde birden fazla çalışma sayfası var. her birinin içindeki belli değerleri diğer excelde bir çalışma sayfası açıp o sayfaya yapıştırmak istiyorum. Aslında bir...

...hücre aralığını yazınız", Default:="A1:AE5000") yapiştir = InputBox("yapıştırılacak hücreyi yazınız", Default:="b1") Application.Workbooks.Open .SelectedItems(1) Set kaynak = Application.ActiveWorkbook 'kaynak.Sheet("b").Range(kopya).Copy("b").Range (yapiştir)...

...düzenleyip dener misiniz? Private Sub UserForm_Initialize() xYol = ThisWorkbook.Path & "\" & "kantin_çalşanları_veri.xlsx" Set Wb = Workbooks.Open(xYol) Set syf = Wb.Sheets("KÇK") SonStr = syf.Cells(syf.Rows.Count, 1).End(xlUp).Row With ListBox1 .ColumnCount = 4...

Kodlar için teşekkürler sayın halililyas. Aşağıdaki kod satırında aynı hatayı veriyor "Bu işlemi tamamlamak için yeterli bellek kaynağı yok" If Syf.Range("a" & sut) Like ListBox1.Value Then

...düzgün veriler varsa) kapalı kitaplardan veriyi ADO ile almanız daha pratik olabilir Private Sub ListBox1_Click() Set wb = Application.Workbooks.Open( ThisWorkbook.Path & "\" & "kantin_çalşanları_veri.xlsx") Set Syf = wb.Sheets("KÇK") SonStr = Syf.Range("A65000").End(xlUp).Row For sut = 2...

...gibi bir hata uyarısı veriyor ve kırmızı olan satırı seçiyor. "Bu işlemi tamamlamak için yeterli bellek kaynağı yok" Application.Workbooks.Open ThisWorkbook.Path & "\" & "kantin_çalşanları_veri.xlsx" For sut = 2 To...

...(DÜZENLENEN)" Set Folder = fso.GetFolder(yol) For Each File In Folder.Files If fso.GetFileName(File) Like "*ÖZEL*" Then Set Wb = Workbooks.Open(Filename:=(File)) Set ws = Wb.Sheets(1) Wb.Sheets(1).Activate On Error Resume Next son = SonSatir(Wb.Sheets(1)) 'MsgBox Son...

...if bloğu ekleyerek yapabilirsiniz. Örnek ; Eğer ws.Index (Sayfa numarası) 11 den küçükse if bloğu arasındaki işlemleri yap Workbooks.Open Filename:=ThisWorkbook.Path & "\export.xlsm" i = 13 For Each ws In ActiveWorkbook.Sheets If ws.Index < 11 Then...

...sayfalarımın isimleri 1, 2, 3, ...20 olsun ben bu komutu 10 isimli çalışma sayfasına kadar yap sonrakilerde yapma nasıl derim acaba Workbooks.Open Filename:=ThisWorkbook.Path & "\export.xlsm" i = 13 For Each ws In ActiveWorkbook.Sheets...

...3" 'Range("C8") = "Sonuç 4" yukarıdaki kodların yerine; Aşağıdaki kodları yapıştırıp deneyiniz Range("C5:J8").ClearContents Workbooks.Open Filename:=ThisWorkbook.Path & "\B.xlsx" i = 5 For Each ws In ActiveWorkbook.Sheets...

...Do while not isempty(Activecell) Activecell.offset(1,0).select Loop Kapalı olan doyanın yolu ve adı aşağıdadır. Application.Workbooks.Open ThisWorkbook.Path & "\" & "notlar.xlsx" notlar çalışma kitabındaki veri kaydedilecek sayfanın adı "not" Yardımcı olursanız sevinirim.

...+ 1 Yol = "d:\" Dosya_Adi = "DOSYA ADI.XLSM" Aranan = Kaynak_Sayfa.Range("c3") Set Hedef_Kitap = Workbooks.Open(Yol & Dosya_Adi, False, False) Set Hedef_Sayfa = Hedef_Kitap.Sheets("TAKİP") Set bul = Hedef_Sayfa.Range("C:C").Find(Aranan, lookat:=xlWhole)...

...= False .Show If .SelectedItems.Count = 0 Then MsgBox "Lütfen excel dosyası seçiniz." Exit Sub End If Application.Workbooks.Open .SelectedItems(1) Set kaynak = Application.ActiveWorkbook 'kaynak.sheets("Ana").range(kopya).Copy kaynak.ActiveSheet.Range("D5).Copy...