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

...yapistir = InputBox("Yapıştırmak İstediğiniz Hücreyi Giriniz.", Default:="A2") Application.Workbooks.Open .SelectedItems(1) Set kaynak = Application.ActiveWorkbook kaynak.ActiveSheet.Range(kopya).Copy ThisWorkbook.ActiveSheet.Range(yapistir)...

Son gönderdiğiniz kodda da, targetValue = ListBox1.Value satırında aynı hatayı verdi. Olmazsa sadece bu sayfayı çalışma kitabına dahil edeceğim tekrar. Çalışma kitabının içinde iken hata vermiyordu. Bu kodlar ÜP sayfasıından veri alıyor. Bellek hatası olsa diğer sayfadaki işlemlerde de...

Evet sadece belirttiğim hatayı veriyor.

...hatası veriyor dimi, Dim wb As Workbook Dim wsUP As Worksheet Dim sut As Long Dim al As Integer Dim targetValue As Variant Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & "ücretli_öğretmenler.xlsx") If Not wb Is Nothing Then Set wsUP = wb.Sheets("ÜP") targetValue = ListBox1.Value...

Bilgisayarınız çok eski yada çok büyük dosya ile mi çalışıyorsunuz ?

...kırmızı renkli satırda aynı hatayı verdi. Dim wb As Workbook Dim wsUP As Worksheet Dim sut As Long Dim al As Integer Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & "ücretli_öğretmenler.xlsx") Set wsUP = wb.Sheets("ÜP") For sut = 8 To wsUP.Cells(Rows.Count, "B").End(xlUp).Row If...

Dim wb As Workbook Dim wsUP As Worksheet Dim sut As Long Dim al As Integer Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & "ücretli_öğretmenler.xlsx") Set wsUP = wb.Sheets("ÜP") For sut = 8 To wsUP.Cells(Rows.Count, "B").End(xlUp).Row If wsUP.Range("B" & sut).Value Like ListBox1.Value...

...satırını seçip, Bu İşlemiTamamlamak İçin Yeterli Bellek Kaynağı Yok hatası veriyor. Yardımcı olursanız sevinirim. Application.Workbooks.Open ThisWorkbook.Path & "\" & "ücretli_öğretmenler.xlsx" Sheets("ÜP").Select For sut = 8 To [b65000].End(xlUp).Row If Sheets("ÜP").Range("b" & sut)...

...& "\*.xlsx") ' Tüm dosyalarda dolaşarak işlemi gerçekleştir Do While dosyaAdi <> "" ' Dosyayı aç Set wb = Workbooks.Open(klasorYolu & "\" & dosyaAdi) ' Aktif sayfayı seç Set ws = ActiveSheet ' Hedef sütuna verileri kopyala...

Allah razı olsun :D

Emre Bey, Çekeceğim 3 ayrı sayfanın da isimleri farklı. " Set WS = WB.Sheets("SAYFA1") Set UA = WB.Sheets("SAYFA2") Set BH = WB.Sheets("SAYFA3") " kısmında hangi sayfalara çekeceğini ayrı ayrı yazacağım. ancak hangi sayfalardan çekeceğim kısmı; " Set Target_Sheet =...

..."B").End(xlUp).Row + 1 dosya = Dir(ThisWorkbook.Path & "\Kaynak\*.xls") Do While dosya <> "" Application.DisplayAlerts = False If Workbooks.Open(ThisWorkbook.Path & "\Kaynak\" & dosya).ReadOnly = True Then Workbooks(dosya).Close True End If Application.DisplayAlerts = True ' Set sh =...

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

oldu çok teşekkür ederim. peki ayrı ayrı sayfaları çekmek için ayrı düğmeler atamak yerine tek düğmeyle koda yazdığım sayfaları çekmek nasıl olabilir?

Hocam hem desteğiniz hem de hoşgörünüz için teşekkür ederim. Göremediğim içinse üzgünüm, özür dilerim. Yazmış olduğunuz kod gayet güzel çalışıyor. Çok teşekkür ederim. Tıkır tıkır maşallah :) Tekrar teşekkür ederim.

Hocam, öncelikle ellerinize sağlık. Şekil olarak evet boyutlandırma sorunsuz, lakin; hepsine yani tüm dosyalara "Şablon Rapor" dosyasının 2. satırındaki bilgileri yapıştırıyor tüm dosyaların tüm satırlarına "Şablon Rapor" dosyasının ilk satırının içeriğini. ayrıca en sona da boyutlandırılmamış...

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