Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to code macro with if condition?
Does anyone have any suggestions on how to code macro with if condition?
My code: myCell.Offset(0,3).Value = Sheets("Temp").Range("B15").Value If Sheets("Temp").Range("B15").Value contains "B" character, then delete "B" and time 1000 with this number, such as 254.63B will become 254630 and assign into myCell.Offset(0,3).Value else If Sheets("Temp").Range("B15").Value contains "M" character, then delete "M", such as 117.46M will become 117.46 and assign into myCell.Offset(0,3).Value Does anyone have any suggestions? Thank you very much for any suggestions Eric |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to code macro with if condition?
Sub eric001()
v = Sheets("Temp").Range("B15").Value Set myCell = Range("A1") If InStr(1, v, "M") Then v = Replace(v, "M", "") Else If InStr(1, v, "B") Then v = Replace(v, "B", "") * 1000 End If End If myCell.Offset(0, 3).Value = v End Sub -- Gary''s Student - gsnu200773 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to code macro with if condition?
Possibly
Sub sonic() Set myCell = Range("D6") myCell.Offset(0, 3).Value = Sheets("Temp").Range("B15").Value myvalue = Sheets("Temp").Range("B15").Value If Right(myvalue, 1) = "B" Then Sheets("Temp").Range("B15").Value = Left(myvalue, Len(myvalue) - 1) * 1000 myCell.Offset(0, 3).Value = Sheets("Temp").Range("B15").Value ElseIf Right(myvalue, 1) = "M" Then Sheets("Temp").Range("B15").Value = Left(myvalue, Len(myvalue) - 1) myCell.Offset(0, 3).Value = Sheets("Temp").Range("B15").Value End If End Sub Mike "Eric" wrote: Does anyone have any suggestions on how to code macro with if condition? My code: myCell.Offset(0,3).Value = Sheets("Temp").Range("B15").Value If Sheets("Temp").Range("B15").Value contains "B" character, then delete "B" and time 1000 with this number, such as 254.63B will become 254630 and assign into myCell.Offset(0,3).Value else If Sheets("Temp").Range("B15").Value contains "M" character, then delete "M", such as 117.46M will become 117.46 and assign into myCell.Offset(0,3).Value Does anyone have any suggestions? Thank you very much for any suggestions Eric |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
code to check condition for each row | Excel Discussion (Misc queries) | |||
Condition Formatting in code. How? | Excel Programming | |||
Condition Formatting in code. How? | Excel Programming | |||
Condition Formatting in code. How? | Excel Programming | |||
Condition added to Sort Code | Excel Programming |