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

...vbExclamation 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("buraya sayfa adı yazacak") On Error...

...Set oFolder = oFSO.GetFolder(yol) For Each oFile In oFolder.Files If oFile.Name <> "SablonRapor.xlsm" Then Workbooks.Open Filename:=yol & "\" & oFile.Name Workbooks(1).Sheets(1).Range("A2:H2").Copy Workbooks(2).Sheets(1).Range("A1").CurrentRegion.PasteSpecial Paste:=xlPasteFormats...

...Exit Sub Else For Each dsy In .SelectedItems adt = adt + 1 Workbooks.Open (dsy) Range("A1").RowHeight = 12 Range("A2").ColumnWidth = 9.67 Range("B2").ColumnWidth = 8.56...

...direkt excel' e veri çekebiliyoruz, burada excel yerine TXT dosyasına veriyi çekip hardisk' e kaydetmesi nasıl sağlanabilir? teşekkürler, iyi çalışmalar. Sub OpenCSV() strURL = "https://d396qusza40orc.cloudfront.net/getdata%2Fdata%2Fss06hid.csv" Application.Workbooks.Open (strURL) End Sub

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