Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
VB Macro for Excel
Hi all, i've a little problem.
i've to copy data from one file to its updated version. let's say: My.T.y.M.xls is the new file (the one to be updated) My.T.y.M2.xls is the old file (from which i want to copy data) how is it possible to copy data recorded in non-adiacent cell in a quick way??? At the moment i've written a macro that works fine but it's not written in the best way, can someone help me please ?? i would like to avoid the macro to jump from one file to the other one changing program lines such as (see macro list below): Windows("My.T.y.M2.xls").Activate copy cell content Windows("My.T.y.M2.xls").Activate paste cell content with a more compact instruction. below you've the macro i use. Sub copiaform_da_MytyM2_a_MytyM() ' ' copiaform_da_MytyM2_a_MytyM Macro ' Macro registrata il 19/10/2005 da fulvio Dim i As Integer For i = 15 To 123 Step 12 Windows("My.T.y.M2.xls").Activate Sheets("saved line-ups").Select Range("B" & i).Select Application.CutCopyMode = False selection.Copy Windows("My.T.y.M.xls").Activate Sheets("saved line-ups").Select Range("B" & i).Select selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("My.T.y.M2.xls").Activate Sheets("saved line-ups").Select Range("C" & i + 1 & ":C" & i + 11).Select Application.CutCopyMode = False selection.Copy Windows("My.T.y.M.xls").Activate Sheets("saved line-ups").Select Range("C" & i + 1 & ":C" & i + 11).Select selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("My.T.y.M2.xls").Activate Sheets("saved line-ups").Select Range("E" & i + 1 & ":E" & i + 11).Select Application.CutCopyMode = False selection.Copy Windows("My.T.y.M.xls").Activate Sheets("saved line-ups").Select Range("E" & i + 1 & ":E" & i + 11).Select selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Next i Range("A1").Select Sheets("My T.y.M's infos").Select Range("R197").Select End Sub thanks for your help |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
VB Macro for Excel
http://www.rondebruin.nl/ado.htm#Functions
use Ron's GetData Function to quickly get information from closed workbooks also to speed up and avoid screen flash: Application.screenupdating = False 'your code Application.ScreenUpdating = True "furbiuzzu" wrote: Hi all, i've a little problem. i've to copy data from one file to its updated version. let's say: My.T.y.M.xls is the new file (the one to be updated) My.T.y.M2.xls is the old file (from which i want to copy data) how is it possible to copy data recorded in non-adiacent cell in a quick way??? At the moment i've written a macro that works fine but it's not written in the best way, can someone help me please ?? i would like to avoid the macro to jump from one file to the other one changing program lines such as (see macro list below): Windows("My.T.y.M2.xls").Activate copy cell content Windows("My.T.y.M2.xls").Activate paste cell content with a more compact instruction. below you've the macro i use. Sub copiaform_da_MytyM2_a_MytyM() ' ' copiaform_da_MytyM2_a_MytyM Macro ' Macro registrata il 19/10/2005 da fulvio Dim i As Integer For i = 15 To 123 Step 12 Windows("My.T.y.M2.xls").Activate Sheets("saved line-ups").Select Range("B" & i).Select Application.CutCopyMode = False selection.Copy Windows("My.T.y.M.xls").Activate Sheets("saved line-ups").Select Range("B" & i).Select selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("My.T.y.M2.xls").Activate Sheets("saved line-ups").Select Range("C" & i + 1 & ":C" & i + 11).Select Application.CutCopyMode = False selection.Copy Windows("My.T.y.M.xls").Activate Sheets("saved line-ups").Select Range("C" & i + 1 & ":C" & i + 11).Select selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("My.T.y.M2.xls").Activate Sheets("saved line-ups").Select Range("E" & i + 1 & ":E" & i + 11).Select Application.CutCopyMode = False selection.Copy Windows("My.T.y.M.xls").Activate Sheets("saved line-ups").Select Range("E" & i + 1 & ":E" & i + 11).Select selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Next i Range("A1").Select Sheets("My T.y.M's infos").Select Range("R197").Select End Sub thanks for your help |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro Help Needed - Excel 2007 - Print Macro with Auto Sort | Excel Worksheet Functions | |||
My excel macro recorder no longer shows up when recording macro | Excel Discussion (Misc queries) | |||
My excel macro recorder no longer shows up when recording macro | Excel Discussion (Misc queries) | |||
translate lotus 1-2-3 macro into excel macro using excel 2000 | Excel Programming | |||
Excel Macro Issue Trying to autorun Macro Upon Opening Worksheet | Excel Programming |