Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Hi
How would I extent this code to save the cells selected to save it to a batch file c:\Comment2.Bat Sub CopyNextCOMMENTSBATCHFILE() Dim ws As Worksheet, ws2 As Worksheet Dim rngfound As Range Dim rng As Range Dim toFind As String Set ws = Worksheets("COMMENTS1") Set ws2 = Worksheets("COMMENTS2") Set rng = ws2.Columns("A:A") toFind = ws.Range("F8").Value With rng Set rngfound = .Find(toFind, lookat:=xlWhole, LookIn:=xlValues) End With If Not rngfound Is Nothing Then Application.Goto ws2.Range("A" & rngfound.Row), Scroll:=True End If ActiveCell.Offset(0, 1).Range("A1").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy End Sub Thanks in advance Dave |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
batch process to covert file to excel file | Excel Programming | |||
Copy Selection - Paste Selection - Delete Selection | Excel Programming | |||
Would Like to Automate Batch File Creation and Text FIle Import | Excel Discussion (Misc queries) | |||
How to Copy a project plan to Excel through macro or batch file? | Excel Programming | |||
Create a batch file from a number of Excel File | Excel Programming |