Hello,
I have code which works:
I would like to manually change C10 and C300 values like C10 = Raspon1, C300 = Raspon2. I tried like this:
but I get error message.
Run time error "1004"
Method "Range" of object _Global failed
thanks in advance,
I have code which works:
Code:
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:
Code:
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,