Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Need to change the following code
Hello all,
I have this bit of code and I need to add the following fomula instead of the VB code. Thanks I need this part changed: r1.PasteSpecial Paste:=xlValues, Operation:=xlMultiply, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False To some thing like this: =ROUND(ROUND(A1,2)*1.09,2) End With Range("R:S").ClearContents Range("R13").Select ActiveCell.FormulaR1C1 = "COUNTRY" Range("R14").Select ActiveCell.FormulaR1C1 = " New Zealand" Range("R15").Select ActiveCell.FormulaR1C1 = "Australia" Range("S13").Select ActiveCell.FormulaR1C1 = "1.9" Range("A13:P550").AdvancedFilter _ Action:=xlFilterInPlace, _ CriteriaRange:=Range("R13:R15"), _ Unique:=False Set r = Range("H13:P500") Set r = r.Offset(1, 0).Resize(r.Rows.Count - 1) On Error Resume Next Set r1 = r.SpecialCells(xlVisible) On Error GoTo 0 If Not r1 Is Nothing Then Range("S13").Copy r1.PasteSpecial Paste:=xlValues, Operation:=xlMultiply, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False End If |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Code to change code in a sheet and workbook module | Excel Programming | |||
Change code with code? | Excel Programming | |||
Change code by code. Can you do that? | Excel Programming | |||
Can I use code/macro to change code/macro in an existing file? | Excel Programming | |||
Code Conflicts With Worksheet Change Code | Excel Programming |