User Profile
Rajeev_Raghavan
Copper Contributor
Joined Dec 09, 2019
User Widgets
Recent Discussions
copy and paste find all rows through vba. is it possible via macros?
Option Explicit Sub Test() Dim foundRng As Range Sheets("Sheet1").Select Set foundRng = Range("A1").CurrentRegion.Find("*Cable*", LookIn:=xlFormulas) foundRng.Rows("1:1").EntireRow.Select Selection.Copy Sheets("Sheet2").Activate Range("A" & Rows.Count).End(xlUp).Offset(1).Select ActiveSheet.Paste End SubPrint data to multiple files
Sub datatobat() Dim ws As Worksheet Set ws = ActiveSheet Open "C:\Users\jeevan\Desktop\move.bat" For Output As 1 Range(ActiveCell, ActiveCell.End(xlDown)).Select Do Until ActiveCell.Value = "" Print #1, ActiveCell.Value ActiveCell.Offset(1, 0).Select Loop Close (1) End Sub This is working very well, but at the same time I need to transfer the data from the third ("C") column in to "C:\Users\jeevan\Desktop\return.bat" file
