Here is the code i want to copy data into selected range including i
checks.But my problem is selected area can not be pasted into selecte
range.
Sub CommandButton1_Click()
i = 75
j = 74
Sheet6.Activate
Sheet6.Range("C355:C706").Select
Selection.Copy
Sheet41.Select
If IsEmpty(Sheet41.Cells(18, i)) Then
Range(18, i).Select
ActiveSheet.Paste
Else
k = i + 3
Range(18, k).Select
ActiveSheet.Paste
End If
For j = 18 To 478
If IsEmpty(a = Sheet41.Cells(18, j)) Then
vlookedup_column = j - 4
vlookup_column = j - 2
Set c = Sheet41.Cells(counter, vlookuped_column)
Set d = Sheet41.Cells(counter, vlookup_column)
If c < yes Then
c.copy
End If
End If
Nex
--
Message posted from
http://www.ExcelForum.com