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

Merhaba, Makro kaydet ile alıp düzenlediğim kodu deneyiniz. Sub Makro1() Dim wb As Workbook Set wb = ThisWorkbook Workbooks.Open Filename:="D:\KURUM\personel.xlsb" Sheets("VERİLER").Select wb.Close savechanges:=False End Sub

...= .SelectedItems(1) End If End With 'Eğer kullanıcı bir çalışma kitabı seçti ise If selectedworkbook <> "" Then Set wb = Workbooks.Open(selectedworkbook, UpdateLinks:=0, ReadOnly:=0, AddToMru:=False, Notify:=False) 'wb.Windows(1).Visible = False Bu kodlarla 1004 hatası alıyor...

Tevfik bey cevabınız için teşekkür ederim lakin ..... yolunu bulamadık.Taşınmış ,yeniden adlandırılmış veya silinmiş olabilir mi diye uyarı veriyor. Dediğinizi yapıp a1 hücresine istediğim klasörün adını girdim fakat başaramadım.

Örneğin A1 hücresine olması gereken klasör adını yazın, makroda da Workbooks.Open Filename:= _ "\\AFTK\PRES ÜRETİM\2024 PRES RAPORLARI\PRES 1\[A1].text\3(Y)\ÜRETİM FORMU.xlsx" yazıp deneyiniz. İyi çalışmalar

...yerleri macroyu çalıştırdığım zaman macro bana sorsa ve ben o değeri girsem direk öyle çalışsa daha iyi olur diye düşünüyorum. Workbooks.Open Filename:= _ "\\AFTK\PRES ÜRETİM\2024 PRES RAPORLARI\PRES 1\1 OCAK(X)\3(Y)\ÜRETİM FORMU.xlsx" Konu kısacası ben kodda sürekli x ve y yi güncellemek...

...= CreateObject("Excel.Application") XL_App.Visible = False XL_App.Application.EnableEvents = False Set XL_Wb = XL_App.Workbooks.Open(Yol & "Data.xlsx") Set XL_Ws = XL_Wb.Worksheets("Rapor") XL_Ws.Cells.Clear XL_Ws.Cells(1, 1).CopyFromRecordset RS...

Merhaba sayın hocam bu kodu çalıştırdığımda sadece son sayfaki veriyi ayrı sayfaya kaydediyor. Diğer sayfalar hiç olmuyor. Bir yerde mi yanlışlık yapıyorum acaba? Teşekkürler şimdiden.

...(*.xls;*.xlsx),*.xls;*.xlsx", Title:="Bir Excel Dosyası Seç") If dosyaAdi = "False" Then Exit Sub Set wb = Workbooks.Open(dosyaAdi) sayfaAdi = InputBox("Hangi sayfadan veri almak istersiniz?", "Sayfa Adı") On Error Resume Next Set ws =...

Selamlar öncelikle teşekkür ediyorum ilginize fakat 47 dosya okundu yazdıktan sonra sayfa bomboş kaldı dosyaları birleştirmedi aynı klasör içinde yolu seçtiğim zamanda bütün fonksiyonlar renksizleşiyor

...YAZINIZ" Set oFSO = CreateObject("Scripting.FileSystemObject") Set oFolder = oFSO.GetFolder(yol) For Each oFile In oFolder.Files Workbooks.Open (oFolder & Application.PathSeparator & oFile.Name) lRow = Sheets(1).Cells(Rows.Count, "A").End(3).Row adt = adt + 1 If adt = 1 Then...

Sayın abim, kendi koduma uygulayamadım çalışmadı, galiba senin kodu uygulayamadım, dosyanın yolu bulunamadı diyor, oysa benim kodumda buluyor. Kodun tamamını ekliyorum. Zahmet olmaz ise bakar mısın? Saygılarımla... Teşekkür ederim. Saygılarımla...

yol = "D:\Belgelerim\Banka\" dosya = "VAKIFBANK_KESİNTİ.xlsx" Workbooks.Open yol & dosya a = InputBox("ÖDEME TARİHİNİ GİRİNİZ", "LÜTFEN DİKKAT", Date + 2) If a = Empty Then Workbooks(dosya).Close SaveChanges:=False Exit Sub End If

Sayın Ömer abim, yine 2 nolu mesajınızdaki konu yine kendime uyarladım. Ama şurayı nasıl düzeltirim. Bakabilirsen sevinirim abiciğim...

Üstad Sanırım dosya arkada açılıyor. Ondan sonra aralığı girebiliyoruz.

kopya = InputBox("Kopyalamak İstediğiniz Hücre Aralığını Giriniz.", Default:="A2") yapistir = InputBox("Yapıştırmak İstediğiniz Hücreyi Giriniz.", Default:="A2") Application.Workbooks.Open .SelectedItems(1) Sayfayı açmadan hangi aralığı kopya ile tanıtıyorsunuz?

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