excel vba : het subscript valt buiten het bereik

[ningrahare]

hallo allemaal,

ik heb een vraag:
bij volgende formule krijg ik een fout melding melding

Foutmelding: het subscript valt buiten het bereik



Sub CopyToDebiteuren()
Application.ScreenUpdating = False
With Sheets("C:\Users\Zontelecom\Desktop\Factuur\templateov.xlsx, blad1").Cells(Rows.Count, 1).End(xlUp)
.Offset(1, 0).Value = Sheets("Factuur").[C10].Value
.Offset(1, 1).Value = Sheets("Factuur").[G12].Value
.Offset(1, 2).Value = Sheets("Factuur").[G10].Value
.Offset(1, 3).Value = Sheets("Factuur").[G11].Value
.Offset(1, 4).Value = Sheets("Factuur").[H47].Value
.Offset(1, 5).Value = Sheets("Factuur").[B44].Value
End With
[A1].Select
MsgBox "Gegevens gekopieerd. "
End Sub


ik weet niet of iemand me hiermee kan helpen

 

[Haaren101]

die msgbox is niet goed. Ga eens op msgbox staan en klik F1 voor de help en voorbeeld.

Verder zet je je screenupdating wel uit maar niet meer aan!

Ron

 

[ningrahare]

die msgbox is niet goed. Ga eens op msgbox staan en klik F1 voor de help en voorbeeld.

Verder zet je je screenupdating wel uit maar niet meer aan!

Ron

hij werkte wel maar toen heb ik sheets veranderd zeg maar eerst was in zelfde werkblad nu heb ik veranderd naar C:\Users\Zontelecom\Desktop\Factuur\templateov.xlsx, blad1

With Sheets("C:\Users\Zontelecom\Desktop\Factuur\templateov.xlsx, blad1")

 

[exhelp]

Doe even de foutopsporing om te kijken waar hij net op vast loopt.

Ik vermoed dat je bestand of werkblad waarnaar je verwijst niet bestaat, maar ik kan het niet met zekerheid zeggen omdat je geen voorbeeldbestand hebt geplaatst.

Met de MsgBox is niets mis

 

[Warme bakkertje]

Sub CopyToDebiteuren()
Application.ScreenUpdating = False
With Workbooks("templateov.xlsx").Sheets("blad1").Cells(Rows.Count, 1).End(xlUp)
.Offset(1, 0).Value = Sheets("Factuur").[C10].Value
.Offset(1, 1).Value = Sheets("Factuur").[G12].Value
.Offset(1, 2).Value = Sheets("Factuur").[G10].Value
.Offset(1, 3).Value = Sheets("Factuur").[G11].Value
.Offset(1, 4).Value = Sheets("Factuur").[H47].Value
.Offset(1, 5).Value = Sheets("Factuur").[B44].Value
End With
[A1].Select
MsgBox "Gegevens gekopieerd. "
Application.ScreenUpdating = True
End Sub

Onthoud wel dat beide bestanden geopend moeten zijn

 

[ningrahare]

Sub CopyToDebiteuren()
Application.ScreenUpdating = False
With Workbooks("templateov.xlsx").Sheets("blad1").Cells(Rows.Count, 1).End(xlUp)
.Offset(1, 0).Value = Sheets("Factuur").[C10].Value
.Offset(1, 1).Value = Sheets("Factuur").[G12].Value
.Offset(1, 2).Value = Sheets("Factuur").[G10].Value
.Offset(1, 3).Value = Sheets("Factuur").[G11].Value
.Offset(1, 4).Value = Sheets("Factuur").[H47].Value
.Offset(1, 5).Value = Sheets("Factuur").[B44].Value
End With
[A1].Select
MsgBox "Gegevens gekopieerd. "
Application.ScreenUpdating = True
End Sub

Onthoud wel dat beide bestanden geopend moeten zijn

HEEL ERG BEDANKT HIJ WERKT NU WEL...um kan het niet zo dat je geen bestand hoef te open

 

[Warme bakkertje]

Het openen en sluiten kan je op de achtergrond laten gebeuren zodat je er niet echt hinder van ondervindt.