How can i copy F14:F19, J14:J21...............

[alibax]

H!... guys... i have a vlookup table, which displays data, and i would like the data displayed by Vlookup to be copied to another sheet. I have to copy sheet 3 range "F14:F19, J14:J21" which is vlooktable to sheet7, range "A11:N12".... my VBA code dont seem to work, it cant copy data retrived via vlookup...

 

[HalfAce]

Hi,
The range given here doesn't exactly match the range mentioned in your PM, but you might want to give this a shot. It was written for the ranges in your PM so it may need a little tweaking...

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Range("F14:F19").Copy
If Sheet7.Range("A12") = "" Then
    Sheet7.Range("A12").PasteSpecial Paste:=xlValues, Transpose:=True
    Sheet3.Range("J14:J20").Copy
    Sheet7.Range("G12").PasteSpecial Paste:=xlValues, Transpose:=True
Else:
    Sheet7.Range("A65536").End(xlUp)(2, 1).PasteSpecial Paste:=xlValues, Transpose:=True
    Sheet3.Range("J14:J20").Copy
    Sheet7.Range("G65536").End(xlUp)(2, 1).PasteSpecial Paste:=xlValues, Transpose:=True
End If
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Am I correct in understanding what it is you're after here?
Dan

 

[alibax]

Thanks a lot. It works exactly as I wanted. I would like to know why didn't the last code work, is it because of Vlookup?











Cheers