Macro foutmelding

[erwin2011]

Bij het uitvoeren van een macro van een collega krijg ik een foutmelding.
De foutmelding krijg ik bij "Cells(rij_bron, 6).Select"
Mijn vraag is; wat betekend de "rij_bron"?

Het lijkt mij dat het om een bereik gaat wat om de een of andere manier niet gevonden kan worden. Kan ik zelf dit bereik dan opsporen, zodat ik kan kijken wat er mis gaat?

Het bestand heeft 7 tabbladen en 4 macro's. Het probleem komt voor in de 2e macro. Onderstaande is het script van macro 2.

Sub Bestand_aanmaken_deel_2()

Do Until rij_bron = 1000

    [B][U]Cells(rij_bron, 6).Select[/B][/U]: A = ActiveCell.Value
    If A <> "" Then
    
    Cells(rij_bron, 13).Select: Selection.Copy
    Sheets("Bestand om te importeren").Select: Cells(rij_doel, 1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    rij_bron = rij_bron + 1
    rij_doel = rij_doel + 1
   
    
    Sheets("Einddoel").Select: Range("A4").Select
    
    ElseIf A = "" Then
    
        
    rij_bron = rij_bron + 1
    rij_doel = rij_doel
   
    
     Sheets("Einddoel").Select: Range("A4").Select
    
    End If
  Loop
   
Sheets("Werkinstructie").Select
Range("A4").Select
   
End Sub

Extra info. In macro 1 komt er ook wat voor over de rij_bron. Dit is de volgende code:

Sub Bestand_aanmaken_deel_1()
'
' Bestand_aanmaken Macro
'

rij_bron = 8
rij_doel = 3

Alvast bedankt voor de moeite!

 

[Ginger]

Mijn vraag is; wat betekend de "rij_bron"?

Dat 'rij_bron' is een variabele die in dit geval een waarde bevat waarmee de regel wordt geïdentificeerd. Als je het 2e codeblokje netjes laat beginnen met...

rij_bron = 8
rij_doel = 3

...dan 'weet' de variabele met wat voor waarde er gestart moet worden.

Groet, Leo

 

[Roncancio]

Je hebt geen waarde gegeven aan rij_bron dus is rij_bron 0.
De rij 0 bestaat niet in Excel.
Begin dus met bijvoorbeeld rij_bron = 1.
Een aanbeveling is om de variabelen rij_bron en rij_doel te declareren. (Dim rij_bron As Long)
en om geen gebruik te maken van .Select.

Met vriendelijke groet,


Roncancio

 

[erwin2011]

Bedankt voor jullie informatie.
De macro werkt nu. Nou even uitvogelen of het ook correct is wat er gebeurd.
Hartstikke bedankt, ik zal dit topic op opgelost zetten.