Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro Problems
I recently made a macro to insert certain values on a spreadsheet into
another worksheet in the same workbook. My code is this. Sub copy_1_Values_PasteSpecial() Dim sourceRange As Range Dim destrange As Range Dim Lr As Long Application.ScreenUpdating = False Lr = LastRow(Sheets("Invoices")) + 1 Set sourceRange = Sheets("PO Form").Range("A44:G44") Set destrange = Sheets("Invoices").Range("A" & Lr) sourceRange.Copy destrange.PasteSpecial xlPasteValues, , False, False Application.CutCopyMode = False Application.ScreenUpdating = True End Sub Function LastRow(sh As Worksheet) On Error Resume Next LastRow = sh.Cells.Find(What:="*", _ After:=sh.Range("A1"), _ Lookat:=xlPart, _ LookIn:=xlFormulas, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious, _ MatchCase:=False).Row On Error GoTo 0 End Function This formula worked great for the PO Form worksheet. I then wanted to add an almost identical worksheet to the workbook and have it do the same thing. I named it PO Form2 but I was unsuccessful in implementing it. This was the code that I used. Sub copy_1_Values_PasteSpecial() Dim sourceRange As Range Dim destrange As Range Dim Lr As Long Application.ScreenUpdating = False Lr = LastRow(Sheets("Invoices")) + 1 Set sourceRange = Sheets("PO Form2").Range("A44:G44") Set destrange = Sheets("Invoices").Range("A" & Lr) sourceRange.Copy destrange.PasteSpecial xlPasteValues, , False, False Application.CutCopyMode = False Application.ScreenUpdating = True End Sub Function LastRow(sh As Worksheet) On Error Resume Next LastRow = sh.Cells.Find(What:="*", _ After:=sh.Range("A1"), _ Lookat:=xlPart, _ LookIn:=xlFormulas, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious, _ MatchCase:=False).Row On Error GoTo 0 End Function An error came back saying Ambiguous name detected : copy_1_values_PasteSpecial |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro Problems | Excel Discussion (Misc queries) | |||
Macro Problems | Excel Programming | |||
Macro problems | Excel Worksheet Functions | |||
various macro problems | Excel Programming | |||
macro problems | Excel Programming |