Makro Kodu excel 2003 de çalışıyor 2016 da hata veriyor

[bestekzltn]

Merhaba Arkadaşlar,

Eskiden beri kullandığım excel makro, excel xlsm dosyalarında çalışmıyor ;excel xls dosyalarında çalışıyor.Excel 2016 üzerinde çalışırmayı denediğim zaman excel kendini yeniden başlatıyor. Bu konu hakkında ne yapabilirim? kodu sizinle paylaşıyorum.

Sub zsd001()
Dim sayfaadi3 As String
Dim dosyaadi3 As String
dosyaadi3 = "ZSD-001 Bekleyen Sipariş SRP_" & Left(Date, 5) & ".XLS"
sayfaadi3 = "ZSD-001 Bekleyen Sipariş SRP_" & Left(Date, 2)
Sheets("ZSD001").Activate
Sheets("ZSD001").Range("A3:J60000").Select
Selection.ClearContents
Sheets("ZSD001").Range("C2").Select
Workbooks.OpenText Filename:= _
"C:\Users\ilknur.buz\Desktop\Çalışma\Stok Raporu\Yeni Stok Raporu\" & Left(Date, 5) & "\Veri\ZSD-001 Bekleyen Sipariş SRP_" & Left(Date, 5) & ".XLS" _
, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier _
:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:= _
False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array _
(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
Workbooks(dosyaadi3).Sheets(sayfaadi3).Activate

For g = 6 To 1000000
If Sheets(sayfaadi3).Cells(g, 2) <> "" Then
sayi = sayi + 1
Else: Exit For
End If
Next

Windows("Stok_Raporu.xlsm").Activate
Sheets("ANA").Cells(3, 12) = Workbooks(dosyaadi3).Sheets(sayfaadi3).Cells(1, 1)
Workbooks(dosyaadi3).Activate


Workbooks(dosyaadi3).Sheets(sayfaadi3).Range("B6:I6").Select
Workbooks(dosyaadi3).Sheets(sayfaadi3).Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("Stok_Raporu.xlsm").Activate
Sheets("ZSD001").Range("C2").Select
ActiveSheet.Paste
Application.CutCopyMode = False

Sheets("ZSD001").Range("A2:B2").Select
Selection.AutoFill Destination:=Sheets("ZSD001").Range("A2:B" & sayi + 1 & "")
Sheets("VERİ").Cells(3, 30) = sayi + 1
Windows(dosyaadi3).Activate
ActiveWorkbook.Close
Sheets("ZSD001").Range("C2").Select
Sheets("ANA").Activate
Sheets("ANA").Cells(1, 1).Select
End Sub
Sub br()

Workbooks.Open Filename:= _
"C:\Users\ilknur.buz\Desktop\Çalışma\Veri\Ölçü & Hiyerarsi.xls"
Columns("A:N").Select
Selection.Copy
Windows("Stok_Raporu.xlsm").Activate
Sheets("BR").Select
Columns("A:A").Select
ActiveSheet.Paste
Application.CutCopyMode = False

Windows("Ölçü & Hiyerarsi.xls").Activate
ActiveWindow.Close
Sheets("ANA").Select


End Sub

 

[Merhum İdris SERDAR]

.

Gördüğüm kadarı ile kodlarınızın pek çoğu Makro kaydet ile elde edilmiştir.

Yapılan işlemleri Excel 2016 da Makro kaydet ile yapın. Sonra oluşan bu kodları mevut kodlara göre uyarlayın.

.

 

[Muzaffer Ali]

Kodlarınızı çalıştırıp denedim fakat bir sorun bulamadım.
Ancak kodlarınızda gereksiz yere "select" kullandığınızı söyleyebilirim mesela "BR" prosedürünü aşağıdaki gibi daha sade bir şekilde yazabilirsiniz.

Sub br()
    Workbooks.Open "C:\Users\Kasa1\Desktop\modem\test.xlsx"
    Columns("A:N").Copy ThisWorkbook.Worksheets("BR").Range("A1")
    Windows("test.xlsx").Close
    Sheets("ANA").Select
End Sub