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

Öncelikle ilginiz için çok teşekkür ederim. Evet bir klasörde tek tek dosyalar şeklinde sms iletim raporları var, 200-300 kadar. Bu dosyaların İsimleri farklı (dosya isimlerinde sms tarihleri var çınkü) ama uzantıları aynı. İstiyorum ki, makro ile bu klasördeki dosyaların hücrelerini istediğim...

...klasör" Set oFSO = CreateObject("Scripting.FileSystemObject") Set oFolder = oFSO.GetFolder(yol) For Each oFile In oFolder.Files Workbooks.Open Filename:=yol & "\" & oFile.Name Workbooks(1).Sheets(1).Range("A1:F20").Copy Workbooks(2).Sheets(1).Range("A1").PasteSpecial Paste:=xlPasteAll...

...2007-13", "*.xlsx; *.xlsm; *.xlsa" .AllowMultiSelect = False .Show If .SelectedItems.Count > 0 Then Application.Workbooks.Open .SelectedItems(1) Set ikinci = Application.ActiveWorkbook Set Hucre1 = Application.InputBox(prompt:= Title:=Baslik...

...AÇIP KAPATIYORUM O YÜZDEN BUTON TAGINA SAYFANIN A6 SINA EŞLEDİM SAYFANIN A 6SINDA YAZAN KİTAP İSMİNİ BUTONA TIKLADIĞIMDA AÇIYOR. Workbooks.Open Filename:="\\PC2\KLASOR" & BUTON1.Tag & ".xlsm" BURADA AÇMIYOR. If ActiveSheet.[A6].Value = "KİTAP 1" Then Call OPENKİTAP1 Else End If If...

...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...