| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
End Down a second time
Does anyone know what is wrong with this code?
The first time I run this macro it works fine and the correct info goes where it needs to go. Each and every other time I run it only the first section works. If run many times it should give the same results on each line. This is the code that I am using now. This section works fine. Sheets("Sheet1").Select Range("A4").Select Range("D4").Select Selection.Copy Sheets("Audilla").Select Range("A34").End(xlDown).Offset(1, 0).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False This section works fine. the first time only. Sheets("Sheet1").Select Range("AH34").Select Application.CutCopyMode = False Selection.Copy Sheets("Audilla").Select Range("B34").End(xlDown).Offset(1, 0).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False This section works fine the first time only. Sheets("Sheet1").Select Range("AQ34").Select Application.CutCopyMode = False Selection.Copy Sheets("Audilla").Select Range("C34").End(xlDown).Offset(1, 0).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False This section works fine the first time only Sheets("Sheet1").Select Range("AZ34").Select Application.CutCopyMode = False Selection.Copy Sheets("Audilla").Select Range("D34").End(xlDown).Offset(1, 0).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False |
|
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
End Down a second time
Check your other post.
Ed Davis wrote: Does anyone know what is wrong with this code? The first time I run this macro it works fine and the correct info goes where it needs to go. Each and every other time I run it only the first section works. If run many times it should give the same results on each line. This is the code that I am using now. This section works fine. Sheets("Sheet1").Select Range("A4").Select Range("D4").Select Selection.Copy Sheets("Audilla").Select Range("A34").End(xlDown).Offset(1, 0).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False This section works fine. the first time only. Sheets("Sheet1").Select Range("AH34").Select Application.CutCopyMode = False Selection.Copy Sheets("Audilla").Select Range("B34").End(xlDown).Offset(1, 0).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False This section works fine the first time only. Sheets("Sheet1").Select Range("AQ34").Select Application.CutCopyMode = False Selection.Copy Sheets("Audilla").Select Range("C34").End(xlDown).Offset(1, 0).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False This section works fine the first time only Sheets("Sheet1").Select Range("AZ34").Select Application.CutCopyMode = False Selection.Copy Sheets("Audilla").Select Range("D34").End(xlDown).Offset(1, 0).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False -- Dave Peterson |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Calculate Ending time using Start Time and Elapsed Time | Excel Worksheet Functions | |||
| Converting date/time serial values to cumulative time totals... | Excel Discussion (Misc queries) | |||
| verify use of TIME Function, Find Quantity Level compare to time-d | Excel Discussion (Misc queries) | |||
| Calculating days & time left from start date/time to end date/time | Excel Worksheet Functions | |||
| Remove time from a date and time field? Format removes the displa. | Excel Worksheet Functions | |||
Linear Mode
