Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Paste from other sheets to below current text
I'm trying to copy text from other sheets (Dir) and post below current text
(Temp) if there is any. I keep getting errors. What am I doing wrong? If DirectorBox = True Then Application.CutCopyMode = False Worksheets("Dir").Activate ActiveSheet.UsedRange.Copy Worksheets("Temp").Activate If Range("A1") < "" Then Range("A1").End(xlDown).Offset(1, 0).Select Else ActiveSheet.Cells(1, 1).Select End If ActiveSheet.Paste End If |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Paste from other sheets to below current text
Jeff,
Maybe a bit simpler If DirectorBox = True Then Worksheets("Dir").UsedRange.Copy lastrow = Sheets("Temp").Cells(Cells.Rows.Count, "A").End(xlUp).Row Worksheets("Temp").Range("A" & lastrow + 1).PasteSpecial End If Mike "Jeff S." wrote: I'm trying to copy text from other sheets (Dir) and post below current text (Temp) if there is any. I keep getting errors. What am I doing wrong? If DirectorBox = True Then Application.CutCopyMode = False Worksheets("Dir").Activate ActiveSheet.UsedRange.Copy Worksheets("Temp").Activate If Range("A1") < "" Then Range("A1").End(xlDown).Offset(1, 0).Select Else ActiveSheet.Cells(1, 1).Select End If ActiveSheet.Paste End If |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Copy&paste of several sheets | Excel Discussion (Misc queries) | |||
AutoName Sheets by current date | Excel Worksheet Functions | |||
Can I display the current date in a text box? | Excel Discussion (Misc queries) | |||
how do i add the same text after current text in multiple cells | Excel Discussion (Misc queries) |