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

...VERİAL_1() If dosya <> "" Then On Error GoTo hata Application.ScreenUpdating = False Set kaynak = Workbooks.Open(dosya, True, True) kaynak.Worksheets("Sheet1").Range("A7:H10000").Copy ThisWorkbook.Sheets("MİZAN1").Range("A3") kaynak.Close...

...yapıyorsanız. Yeni sayfanın adını Kasım04 Kasım05.....şeklinde oluşturan kod aşağıda. Sub Makro1() ad = Format(Range("G1"), "mmmmdd") Workbooks.Open Filename:=ThisWorkbook.Path & "\alan.xlsx" 'dosya adı yolu Workbooks(2).Sheets.Add Workbooks(2).ActiveSheet.Name = ad...

...En sağındada aylık toplamlarımı aldırcam. Ancak ikincikez çalışmıyor. Aynı adda bir sekme kopyaladın zaten diyor Sub Makro1() Workbooks.Open Filename:=ThisWorkbook.Path & "\AYLIK ANALİZ.xlsm" 'dosya adı yolu Workbooks(2).Sheets.Add Workbooks(2).ActiveSheet.Name = "GÜNLÜK TAKİP"...

...Module1 deki kodları aşağıdaki ile değiştirin. Sub Makro_Satış_Aktar_Kitap1() Application.ScreenUpdating = False Set evn = Workbooks.Open(ThisWorkbook.Path & "\Kitap1.xlsm") ActiveSheet.Cells.Copy ThisWorkbook.Sheets(2).Range("A1") evn.Close True Range("A5").Select...

...Exit Sub End If Application.ScreenUpdating = False On Error Resume Next Set Target_File = Workbooks.Open(Target_File) Set Target_Sheet = Nothing Set Target_Sheet = Workbooks(Target_File.Name).Worksheets("Sayfa1") On Error GoTo 0 If Not Target_Sheet...

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