Hi everyone!,
I have not found any post like this, so I will appreciate a lot if you have an answer for this one!.
So I have a table on a Workbook that is filter, how ever I need to add it in another workbook table (This is not filtered), how ever this new table has already values in the cells, so I want to add the information on the second line of the cell.
Workbooks("Table1").Sheets("Data").Activate
Dim PasteData As Range
Set PasteData = Selection
Dim wb2 As Workbook
Set wb2 = ActiveWorkbook
wb.Activate
Range("BK1").EntireColumn.SpecialCells(xlCellTypeVisible).Find(What:="*").Activate
Range(Selection, Selection.End(xlDown)).Select
Dim CopyData As Range
Set CopyData = Selection
wb2.Activate
For i = 1 To CopyData.Rows.Count
Do Until Not PasteData.Offset(Ofset).Rows.Hidden
Ofset = Ofset + 1
Loop
CopyData.Rows(i).Copy Destination:=PasteData.Offset(Ofset)
Ofset = Ofset + 1
Next i
But it just paste the information as is from the first table and remove that initial information from the cells, I mean, with all the rows, and I just need to copy the ones that are visible.
I have tried a lot of options and I know that this is super basic but I very newbie for this lol.
Hope that anyone have a solution for this. I will highly appreciate.
Thanks!.
I have not found any post like this, so I will appreciate a lot if you have an answer for this one!.
So I have a table on a Workbook that is filter, how ever I need to add it in another workbook table (This is not filtered), how ever this new table has already values in the cells, so I want to add the information on the second line of the cell.
Workbooks("Table1").Sheets("Data").Activate
Dim PasteData As Range
Set PasteData = Selection
Dim wb2 As Workbook
Set wb2 = ActiveWorkbook
wb.Activate
Range("BK1").EntireColumn.SpecialCells(xlCellTypeVisible).Find(What:="*").Activate
Range(Selection, Selection.End(xlDown)).Select
Dim CopyData As Range
Set CopyData = Selection
wb2.Activate
For i = 1 To CopyData.Rows.Count
Do Until Not PasteData.Offset(Ofset).Rows.Hidden
Ofset = Ofset + 1
Loop
CopyData.Rows(i).Copy Destination:=PasteData.Offset(Ofset)
Ofset = Ofset + 1
Next i
But it just paste the information as is from the first table and remove that initial information from the cells, I mean, with all the rows, and I just need to copy the ones that are visible.
I have tried a lot of options and I know that this is super basic but I very newbie for this lol.
Hope that anyone have a solution for this. I will highly appreciate.
Thanks!.