Compile Error: Invalid Qualifier

[billyheanue]

Sub CommandButton8_Click()


Dim vlookprint As String
Dim colindexvalyoo As Double
Dim resizevalyoo As Double


resizevalyoo = Sheet1.Cells(19, 12).Value
colindexvalyoo = Sheet1.Cells(16, 12).Value
vlookprint.Resize(resizevalyoo, 1).Formula = "=VLOOKUP(Sheet1!B16,Sheet2!" _     'compile error on vlookprint
    & Sheets("Sheet2").Range("A12").CurrentRegion.Address & ",Sheet1!G$13,FALSE)"
    
End Sub

The contents of the cell storing Vlookprint is: Range("W36")     <-- thats literally what is stored in the cell

Can anybody help out with this!? Im a noob

 

[ITWare2008]

Hi Billy,

Sub DefineEndereco()

Dim rngVlookupPrint As Range


Set rngVlookupPrint = Cells(36, 5)


rngVlookupPrint.Resize(2, 5).Formula = "Vândalo"


End Sub

See if this help you.


Vândalo

 

[JackDanIce]

.Resize only works on a Range object. vlookprint is a String variable

Try:

Sub CommandButton8_Click()

Dim vlookprint    as Range
Dim colindexvalyoo  as Double
Dim resizevalyoo     as Double

With Sheet1
    resizevalyoo = .Cells(19,12).Value
    colindexvalyoo = .Cells(16, 12).Value
    Set vlookprint = .Range("W36")
    vlookprint.Resize(resizevalyoo).Formula = "=VLOOKUP(B16,Sheet2!" & Sheets("Sheet2").Range("A12").CurrentRegion.Address & ",G$13,0)"
End With

End Sub