JOEYSCLEE
02-24-2017, 09:16 PM
Hi, there
Would you please help to modify the following code? :help
In the attachment, there is the data in 2 columns on worksheet "sheet1" and I want to paste those data to the columns (highlighted with orange color)on worksheet "17 CWA".
Actually, I found the following code in the web site but It only loops through 1 column instead of 2 columns. Enclose the following link & code for your reviewing.
https://www.extendoffice.com/documents/excel/2617-excel-paste-to-visible-filtered-cells.html
For Each rng1 In InputRng
rng1.Copy
For Each rng2 In OutRng
If rng2.EntireRow.RowHeight > 0 Then
rng2.PasteSpecial
Set OutRng = rng2.Offset(1).Resize(OutRng.Rows.Count)
Exit For
End If
Next
Next
Would you please help to modify the following code? :help
In the attachment, there is the data in 2 columns on worksheet "sheet1" and I want to paste those data to the columns (highlighted with orange color)on worksheet "17 CWA".
Actually, I found the following code in the web site but It only loops through 1 column instead of 2 columns. Enclose the following link & code for your reviewing.
https://www.extendoffice.com/documents/excel/2617-excel-paste-to-visible-filtered-cells.html
For Each rng1 In InputRng
rng1.Copy
For Each rng2 In OutRng
If rng2.EntireRow.RowHeight > 0 Then
rng2.PasteSpecial
Set OutRng = rng2.Offset(1).Resize(OutRng.Rows.Count)
Exit For
End If
Next
Next