Makro Hata Verirse Geç İşlemi

[konsolidasyon]

Herkese merhaba,

Oluşturduğum makroda hata vermesi hâlinde hiç bir işlem yapmadan sıradakine geçmesini istiyorum.
"on error resume next" yazarak da sonuç alamadım, belki de yanlış yere yazdım.

Yardımlarınız için şimdiden teşekkürler,
Saygılar

Sub Makro88()

'

' Makro88 Macro

'



'

ChDir _

“SERVER:\CEVRE dosyalari\AYLIK DOSYALAR\2019\2019_7\Working Trial Balances"

ActiveWorkbook.ChangeLink Name:= _

“SERVER:\CEVRE dosyalari\AYLIK DOSYALAR\2019\2019_6\Working Trial Balances\ATK_Bodrum 30.06.2019.xlsx" _

, NewName:= _

“SERVER:\CEVRE dosyalari\AYLIK DOSYALAR\2019\2019_7\Working Trial Balances\ATK_Bodrum 31.07.2019.xlsx" _

, Type:=xlExcelLinks

ActiveWorkbook.ChangeLink Name:= _

“SERVER:\CEVRE dosyalari\AYLIK DOSYALAR\2019\2019_6\Working Trial Balances\ATK_Milyon 30.06.2019.xlsx" _

, NewName:= _

“SERVER:\CEVRE dosyalari\AYLIK DOSYALAR\2019\2019_7\Working Trial Balances\ATK_Milyon 31.07.2019.xlsx" _

, Type:=xlExcelLinks

ChDir _

“SERVER:\CEVRE dosyalari\AYLIK DOSYALAR\2019\2019_7\Çeşme 31.07.2019"

ActiveWorkbook.ChangeLink Name:= _

“SERVER:\CEVRE dosyalari\AYLIK DOSYALAR\2019\2019_6\ Group 30.06.2019\ATK_N Holding 30.06.2019.xlsx" _

, NewName:= _

“SERVER:\CEVRE dosyalari\AYLIK DOSYALAR\2019\2019_7\ Group 31.07.2019\ATK_N Holding 31.07.2019.xlsx" _

, Type:=xlExcelLinks

End Sub

 

[YUSUF44]

On error satırı kendisinden sonraki satırlarda hata olduğunda çalışır. O nedenle bu satırı sub satırından sonra eklerseniz sonraki tüm satırlardaki hatalar gözardı edilir.

 

[konsolidasyon]

Merhaba Yusuf Bey, öncelikle teşekkür ederim cevabınız için.
Aşağıdaki şekilde; dediğiniz noktaya yazdım ancak yine hata verdi.

Sub Macro91()
'On Error Resume Next
' Macro91 Macro
'

'
ChDir _
"K:\Group 31.07.2019"
ActiveWorkbook.ChangeLink Name:= _
"K:\30.06.2019 HFM.xlsx" _
, NewName:= _
"K:\31.07.2019 HFM.xlsx" _
, Type:=xlExcelLinks
ChDir "K:\2019_7"
ActiveWorkbook.ChangeLink Name:= _
"K:\Adjustments 30.06.2019.xlsx" _
, NewName:= _
"K:\Adjustments 31.07.2019.xlsx" _
, Type:=xlExcelLinks
End Sub

 

[YUSUF44]

Öncesinde apostrof yani kesme işareti kullanmışsınız. Dikkat ederseniz o işaretin olduğu satırlar yeşildir ve makro için sadece açıklama anlamına gelir, bir işlevleri yoktur.

' işaretini silin.

 

[konsolidasyon]

Yusuf Bey işe yaradı, çok teşekkür ederim yardımlarınız için, inanılmaz hayat kurtardı

Saygılar.