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

Deneyin CODE] Sub Makro1() Workbooks.Open Filename:=ThisWorkbook.Path & "\alan.xlsx" 'dosya adı yolu Workbooks(2).Sheets.Add Workbooks(2).ActiveSheet.Name = "kopya" Workbooks(1).Sheets("kopya").Cells.Copy Workbooks(2).Sheets("kopya").Cells.PasteSpecial Paste:=xlPasteValues...

...kitabınada yapıştırdım olmadı. Sadece aylık analiz dosyasını açıyor. kopyalama yapmıyor. uayarladığım kod aşağıdadır. Sub Makro1() Workbooks.Open Filename:="C:\Users\ASUS\Desktop\ümit\AYLIK ANALİZ.xlsm" 'dosya adı yolu Workbooks(1).Sheets("GÜNLÜK TAKİP").Copy...

#2 mesajınızdaki yeni kitap değilde beli bir dosyaya sayfa kopyalama kodu, kendinize uyarlayın. Sub Makro1() Workbooks.Open Filename:="C:\Users\user\Desktop\dene.xlsm" 'dosya adı yolu Workbooks(1).Sheets("aa").Copy before:=Workbooks(2).Sheets(1) 'kopyalanacak sayfa adı aa yı kendinize...

...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:="Kopyalamak İstediğiniz...

Basit bir kod Sub DosyaAc() Dim wb As Workbook Dim dosya As String Dim yol As String yol = "C:\" dosya = "xxx.xls" Set wb = Workbooks.Open(yol & dosya) End Sub

Merhaba, Hangi sayfadaysanız farketmez, dosya açılır. Ama siz illa sayfa belirtiyorsunuz. Sayfa1 deki butona bastığınızda sayfa2 ye geçerseniz ve ilgili dosyayı açarsınız Sanırım bu isteğinizi karşılar. Bunun için de vba komutlarından Workbooks Open olayını inceleyin derim.

...False .ScreenUpdating = False .EnableEvents = False .Calculation = xlCalculationManual End With Set wb = Workbooks.Open(Filename:=yol & "İstanbul.xlsx") wb.Activate Set ws = wb.Worksheets("TOTAL") sonIst = ws.Cells(Rows.Count, 1).End(xlUp).Row dzIst =...

Çok teşekkürler Halit bey çalıştı. İşlemi yapıyor.

Halit bey bir hata vermedi ama işlevi yapmadı.

bu kodu bir dene Sub Makro1() Set v = Workbooks(ThisWorkbook.Name).Sheets("veri") Application.Workbooks.Open ThisWorkbook.Path & "\" & "typ_işkur_çizelge.xlsx" Set r = Workbooks(ActiveWorkbook.Name).Sheets("TYPİ1") For i = 2 To v.Cells(Rows.Count, "b").End(3).Row If v.Cells(i, "ı").Value =...

...TEMİZLİK" Then adi = v.Cells(Rows.Count, "b").Value tc = v.Cells(Rows.Count, "c").Value sira = v.Cells(i, "g").Value Application.Workbooks.Open ThisWorkbook.Path & "\" & "typ_işkur_çizelge.xlsx" Select Case sira Case Is = 1 Sheets("TYPİ1").Range("c12").Value = adi...

Ö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"