K
Karen53
Hi,
I have cell locations saved in a table. When I VLookup the correct
location, I need to place the value of that cell location in a cell but I
need to do it via VBA code.
I have tried:
Dim SharePercentLoc as String
Dim NewPercentage as long
For iCtr = 49 To 349
If Me.Range("J" & iCtr).Value = "Yes" Then
SharePercentLoc = Application.VLookup(LineItemspg.Range("C" & _
iCtr - 34).Value, Tablespg.Range("CAMPercentLoc"),
3, False)
NewPercentage = Me.Range("""" & SharePercentLoc & """").Value
With Me.Range("K" & iCtr)
If .Value <> NewPercentage Then
.Value = NewPercentage
End If
End With
end if
next
How would I go about this?
I have cell locations saved in a table. When I VLookup the correct
location, I need to place the value of that cell location in a cell but I
need to do it via VBA code.
I have tried:
Dim SharePercentLoc as String
Dim NewPercentage as long
For iCtr = 49 To 349
If Me.Range("J" & iCtr).Value = "Yes" Then
SharePercentLoc = Application.VLookup(LineItemspg.Range("C" & _
iCtr - 34).Value, Tablespg.Range("CAMPercentLoc"),
3, False)
NewPercentage = Me.Range("""" & SharePercentLoc & """").Value
With Me.Range("K" & iCtr)
If .Value <> NewPercentage Then
.Value = NewPercentage
End If
End With
end if
next
How would I go about this?