DİKKAT
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi

JavaScript devre dışı. Daha iyi bir deneyim için, önce lütfen tarayıcınızda JavaScript'i etkinleştirin.

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

Makro taşımak

...Application.ScreenUpdating = False On Error Resume Next ' Dosyaları aç (Zaten açıksa hata vermez) Set wbKaynak = Workbooks.Open(kaynakDosya) Set wbHedef = Workbooks.Open(hedefDosya) On Error GoTo 0 If wbKaynak Is Nothing Or wbHedef Is Nothing Then...
- muratgunay48
- Posta #5
- Dün 14:49 da
- Forum: Makro-VBA Soruları
Makro taşımak

Hocam böyle bir hata alıyorum.
- muratgunay48
- Posta #4
- Dün 14:25 da
- Forum: Makro-VBA Soruları
Makro taşımak

Deneyip sonucu yazacağım hocam. Teşekkür ederim 🙏
- muratgunay48
- Posta #3
- Dün 09:20 da
- Forum: Makro-VBA Soruları
M
Makro taşımak

...As String masaustu = Environ$("USERPROFILE") & "\Desktop\" hedefDosya = masaustu & "test2.xlsm" Set wbKaynak = Workbooks.Open(masaustu & "sablon.xlsm") Set wbHedef = Workbooks.Open(masaustu & "test.xlsx") Application.DisplayAlerts = False If...
- muhasebeciyiz
- Posta #2
- Dün 08:11 da
- Forum: Makro-VBA Soruları
Makro taşımak

...String Dim masaustu As String masaustu = Environ("USERPROFILE") & "\Desktop\" ' Dosyaları aç Set wbKaynak = Workbooks.Open(masaustu & "sablon.xlsm") Set wbHedef = Workbooks.Open(masaustu & "test.xlsx") ' Kaynak sayfanın CodeName'ini bul Dim...
- muratgunay48
- Konu
- Dün 01:47 da
- Cevaplar: 4
- Forum: Makro-VBA Soruları
Z
Sütun tanımlama hatası

...Application.DisplayAlerts = False Set K1 = ThisWorkbook Set S1 = K1.Sheets("Sayfa1") Yol = K1.Path Set K2 = Workbooks.Open(Yol & "\SONAYRAPORNA.xlsx") Set S2 = K2.Sheets("sayfa") S2.Range("A2:Y2000").Copy S1.Range("A2").PasteSpecial xlPasteFormats...
- ziya
- Posta #5
- 15 Nisan 2026
- Forum: Makro-VBA Soruları
Dosyaya makro ile makro koymak

....DeleteLines 1, .CountOfLines .InsertLines 1, codeStr End With Kısmında hata veriyor. Sub deneme() Workbooks.Open Filename:=Environ("USERPROFILE") & "\Desktop\Başka dosyaya makro atama\Test1.xlsx"...
- muratgunay48
- Posta #6
- 10 Nisan 2026
- Forum: Makro-VBA Soruları
Masaüstü yol

Çok teşekkür ederim hocam emeğinize sağlık. Hocam makro adı rapor başında ! duracak değil mi?
- muratgunay48
- Posta #20
- 11 Mart 2026
- Forum: Diğer Excel Soruları
Masaüstü yol

...Set NewXL = CreateObject("Excel.Application") userProfile = WshShell.ExpandEnvironmentStrings("%USERPROFILE%") Set MyWB = NewXL.Workbooks.Open(userProfile & "\Desktop\RAPORLAR\MAKRO.xlsm") NewXL.Visible = True NewXL.Application.Run "'" & MyWB.Name & "'!rapor" MyWB.Close False NewXL.Quit...
- Muzaffer Ali
- Posta #19
- 11 Mart 2026
- Forum: Diğer Excel Soruları
VBScript Komut Dosyası (.vbs)

Hocam siz yazarsınız çalışmaz mı? Çok ama çok teşekkür ederim. Geç cevap için özür dilerim. Gece çalıştığım için uyku saatlerim değişik. Tekrar teşekkür ederim hocam.
- muratgunay48
- Posta #12
- 10 Mart 2026
- Forum: Makro-VBA Soruları
VBScript Komut Dosyası (.vbs)

...DesktopPath = WshShell.SpecialFolders("Desktop") & "\RAPORLAR\" Set NewXL = CreateObject("Excel.Application") Set MyWB = NewXL.Workbooks.Open(DesktopPath & "MAKRO.xlsm") NewXL.Visible = True NewXL.application.run "rapor" MyWB.Close False NewXL.Quit Set MyWB = Nothing Set NewXL = Nothing...
- Korhan Ayhan
- Posta #11
- 10 Mart 2026
- Forum: Makro-VBA Soruları
VBScript Komut Dosyası (.vbs)

...Set WshNetwork = WScript.CreateObject("WScript.Network") Set NewXL = CreateObject("Excel.Application") Set MyWB = NewXL.workbooks.open("C:\Users\muratgunay48\Desktop\RAPORLAR\MAKRO.xlsm") NewXL.Visible = True NewXL.application.run "rapor" MyWB.Close False NewXL.Quit Set...
- muratgunay48
- Posta #10
- 10 Mart 2026
- Forum: Makro-VBA Soruları
Masaüstü yol

Hocam, sizi de uğraştırıyorum ama. Aynen yapıştırdım.
- muratgunay48
- Posta #18
- 10 Mart 2026
- Forum: Diğer Excel Soruları
Masaüstü yol

...deneyin. Set WshNetwork = WScript.CreateObject("WScript.Network") Set NewXL = CreateObject("Excel.Application") Set MyWB = NewXL.Workbooks.Open(Environ("USERPROFILE") & "\Desktop\RAPORLAR\MAKRO.xlsm") NewXL.Visible = True NewXL.Application.Run "'" & MyWB.Name & "'!rapor" MyWB.Close False...
- Muzaffer Ali
- Posta #17
- 10 Mart 2026
- Forum: Diğer Excel Soruları
Masaüstü yol

Hocam değiştirdim.
- muratgunay48
- Posta #16
- 10 Mart 2026
- Forum: Diğer Excel Soruları
Masaüstü yol

Hata veren satırı aşağıdaki ile değiştirin. Set MyWB = NewXL.Workbooks.Open(Filename:=Environ("USERPROFILE") & "\Desktop\RAPORLAR\MAKRO.xlsm")
- Muzaffer Ali
- Posta #15
- 10 Mart 2026
- Forum: Diğer Excel Soruları
Masaüstü yol

...Set WshNetwork = WScript.CreateObject("WScript.Network") Set NewXL = CreateObject("Excel.Application") Set MyWB = NewXL.workbooks.open("C:\Users\muratgunay48\Desktop\RAPORLAR\MAKRO.xlsm") yerine Set MyWB = NewXL.workbooks.open: =Environ("USERPROFILE") &...
- muratgunay48
- Posta #14
- 10 Mart 2026
- Forum: Diğer Excel Soruları
Masaüstü yol

Evet Workbooks.Open Filename:=Dosya satırının hemen altında olmalı Select ile seçmek yerine direkt hücre adresini belirtmeniz yeterli Örnek With Range("B13").Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 65535 .TintAndShade = 0 .PatternTintAndShade = 0 End With
- Muzaffer Ali
- Posta #13
- 7 Mart 2026
- Forum: Diğer Excel Soruları
Masaüstü yol

...With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 65535 .TintAndShade = 0 .PatternTintAndShade = 0 End With Range("C14:E18").Select Workbooks.Open Filename:=Dosya Altına yazmamız en doğrusu olacaktır değil mi?
- muratgunay48
- Posta #12
- 7 Mart 2026
- Forum: Diğer Excel Soruları
Masaüstü yol

...Dosya = Yol & "\TEST.xlsx" If Dir(Yol, vbDirectory) <> "" Then ChDir Yol If Dir(Dosya) <> "" Then Workbooks.Open Filename:=Dosya Else MsgBox "Dosya bulunamadı: " & Dosya, vbExclamation End If Else MsgBox "Klasör...
- Muzaffer Ali
- Posta #11
- 7 Mart 2026
- Forum: Diğer Excel Soruları