Range question

[Benic]

Hello,

I have code which works:

Sub CopyVLOOKUP() '
' CopyVLOOKUP Macro
    
Range("C10").Select
    ActiveCell.FormulaR1C1 = _
        "=IFERROR(VLOOKUP(RC[-1],brutto_cijene!R5C2:R65536C14,2,FALSE),"""")"
    Range("C10").Select
    Selection.AutoFill Destination:=Range("C10:C300")
    Range("C10:C300").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

I would like to manually change C10 and C300 values like C10 = Raspon1, C300 = Raspon2. I tried like this:

Sub CopyVLOOKUP() '
' CopyVLOOKUP Macro
'
    Dim Raspon1 As Integer
    Dim Raspon2 As Integer
    
    Raspon1 = 10
    Raspon2 = 300
    
    Range("Raspon1").Select
    ActiveCell.FormulaR1C1 = _
        "=IFERROR(VLOOKUP(RC[-1],brutto_cijene!R5C2:R65536C14,2,FALSE),"""")"
    Range("Raspon1").Select
    Selection.AutoFill Destination:=Range("Raspon1:Raspon2")
    Range("Raspon1:Raspon2").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False

but I get error message.

Run time error "1004"
Method "Range" of object _Global failed

thanks in advance,

 

[Joe4]

How is "Private Sub Workbook()" called?
Is it supposed to be an Event Procedure that is called automatically upon some action happening?
If so, I don't think there is one called "Workbook". Perhaps you are looking for "Workbook_Open", which runs when the workbook is first opened.


If it is just supposed to be a standard procedure, you should not use reserved word to name procedures (like "Workbook"), functions, or variables.
The conflicts can confuse Access VBA.