Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Run-time error 5
Hi, running the code and at asterixed line am getting: Run-time error '5': Invalid prcedure call or argument Many Thanks **** Sub printtariq() Worksheets("Test").Select a = Cells.Find("WorkOrder").Column b = Cells.Find("CostC").Column c = Cells.Find("PaperSize").Column d = Cells.Find("PaperWeight").Column e = Cells.Find("NoBW").Column f = Cells.Find("printtype").Column lastrow = Range("A65500").End(xlUp).Row lastcol = Range("IV1").End(xlToLeft).Column Cells(1, lastcol + 1) = "x" Cells(1, lastcol + 1).Font.Bold = True g = Cells.Find("x").Column 'For i = 2 To lastrow 'Cells(i, g) = Right(Cells(i, a), Len(Cells(i, a)) - 1) 'Next 'Cells(2, 9) = Replace(Cells(2, 1), 1, 1, "S") Worksheets("MORI").Select z = Cells.Find("Job No").Column firstrowmori = Cells.Find("Job No").Row 'MsgBox z lastrowmori = Cells(65000, z).End(xlUp).Row Cells(26, z).EntireColumn.Select Selection.Insert Shift:=xlToRight Cells(22, 8).Select ***Cells(22, z - 1) = Right(Cells(22, z), Len(Cells(22, z)) - 1) 'Next End Su -- T De Villier ----------------------------------------------------------------------- T De Villiers's Profile: http://www.excelforum.com/member.php...fo&userid=2647 View this thread: http://www.excelforum.com/showthread.php?threadid=56658 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Run-time error 5
Cells(22, z - 1) = Right(Cells(22, z), Len(Cells(22, z) - 1))
-- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "T De Villiers" wrote in message news:T.De.Villiers.2bt62v_1154346804.7536@excelfor um-nospam.com... Hi, running the code and at asterixed line am getting: Run-time error '5': Invalid prcedure call or argument Many Thanks **** Sub printtariq() Worksheets("Test").Select a = Cells.Find("WorkOrder").Column b = Cells.Find("CostC").Column c = Cells.Find("PaperSize").Column d = Cells.Find("PaperWeight").Column e = Cells.Find("NoBW").Column f = Cells.Find("printtype").Column lastrow = Range("A65500").End(xlUp).Row lastcol = Range("IV1").End(xlToLeft).Column Cells(1, lastcol + 1) = "x" Cells(1, lastcol + 1).Font.Bold = True g = Cells.Find("x").Column 'For i = 2 To lastrow 'Cells(i, g) = Right(Cells(i, a), Len(Cells(i, a)) - 1) 'Next 'Cells(2, 9) = Replace(Cells(2, 1), 1, 1, "S") Worksheets("MORI").Select z = Cells.Find("Job No").Column firstrowmori = Cells.Find("Job No").Row 'MsgBox z lastrowmori = Cells(65000, z).End(xlUp).Row Cells(26, z).EntireColumn.Select Selection.Insert Shift:=xlToRight Cells(22, 8).Select ***Cells(22, z - 1) = Right(Cells(22, z), Len(Cells(22, z)) - 1) 'Next End Sub -- T De Villiers ------------------------------------------------------------------------ T De Villiers's Profile: http://www.excelforum.com/member.php...o&userid=26479 View this thread: http://www.excelforum.com/showthread...hreadid=566588 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Run-time error 5
Thanks a lot Bo -- T De Villier ----------------------------------------------------------------------- T De Villiers's Profile: http://www.excelforum.com/member.php...fo&userid=2647 View this thread: http://www.excelforum.com/showthread.php?threadid=56658 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Visual Basic Error Run Time Error, Type Mismatch | Excel Discussion (Misc queries) | |||
Conditional Formatting - Run Time Error '13' Type Mismatch Error | Excel Programming | |||
run-time error '1004': Application-defined or object-deifined error | Excel Programming | |||
Befuddled with For Next Loop ------ Run - Time Error '13' Type Mismatch Error | Excel Programming | |||
Code Error - Run Time Error 5 (Disable Cut, Copy & Paste) | Excel Programming |