Hi All,
Can you please help me about this,
i am having two excel workbook one is Source and another one is macro. what i want for my rule is i want to copy visible specific rows if condition is met and paste it into another macro
i tried one code but it is copying all visible cells , but in my condition if text found copy the row value which are required , if text not found take another visible cell copy that row values.
Here i shown you sample source file
this sample source file
this is the sample file Here: In the col E "<100" text was found copy 4th row "D,F,G,H,I" col
and paste it into another workbook
Not found
copy 16th row "D,F,G,H,I" column values
this is the code which i last used in
If InStr(Range("E" & i).Value, "<100") > 0 Then
ActiveSheet.Range("D:D").SpecialCells(xlCellTypeVisible).Copy
Windows("Output file.xlsm").Activate
Worksheets("Macro").Activate
ActiveSheet.Range("E" & i).PasteSpecial Paste:=xlPasteValues
Else
ActiveSheet.Range("F:F").SpecialCells(xlCellTypeVisible).Copy
Windows("Output file.xlsm").Activate
Worksheets("Macro").Activate
ActiveSheet.Range("C:C").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
please help me this
Can you please help me about this,
i am having two excel workbook one is Source and another one is macro. what i want for my rule is i want to copy visible specific rows if condition is met and paste it into another macro
i tried one code but it is copying all visible cells , but in my condition if text found copy the row value which are required , if text not found take another visible cell copy that row values.
Here i shown you sample source file
this sample source file
this is the sample file Here: In the col E "<100" text was found copy 4th row "D,F,G,H,I" col
and paste it into another workbook
Not found
copy 16th row "D,F,G,H,I" column values
this is the code which i last used in
If InStr(Range("E" & i).Value, "<100") > 0 Then
ActiveSheet.Range("D:D").SpecialCells(xlCellTypeVisible).Copy
Windows("Output file.xlsm").Activate
Worksheets("Macro").Activate
ActiveSheet.Range("E" & i).PasteSpecial Paste:=xlPasteValues
Else
ActiveSheet.Range("F:F").SpecialCells(xlCellTypeVisible).Copy
Windows("Output file.xlsm").Activate
Worksheets("Macro").Activate
ActiveSheet.Range("C:C").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
please help me this