Hjælp til Lopslag og loop
Hej,Jeg sidder med et problem hvor jeg har en kolonne med værdier (fra x4-x23) og skal lave et Lopslag i andet ark.Mit problem er at det er forskelligt hvor mange af cellerne fra x4-x23 der er værdier i, så makroen skal først tælle hvor mange Lopslag den skal lave og derefter spytte værdierne ud i w4-w23 (parvis, dvs. opslag på x4 i w4, opslag på x5 i w5 osv.)
Dette er hvad jeg har indtil videre:
Sub Lopslag()
Dim ls As String
Dim n As Integer
Dim i As Integer
n = Worksheets("valg").Range("x4:x23").Cells.SpecialCells(xlCellTypeConstants).Count
For i = 4 To n
ls = Evaluate("VLookup(cells(i,24),$C$64:$S$363,17,False)")
Cells(i, 23).Value = ls
Next i
End Sub
Er der nogle der kan hjælpe?