ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   IF THEN ELSE in VBA (https://www.excelbanter.com/excel-programming/305561-if-then-else-vba.html)

CCManager[_3_]

IF THEN ELSE in VBA
 
What I am trying to do:
If the user has cell M3 selected, then change cell S8 to show the dat
in cell K57. If the user has cell M5 selected, change cell S8 to sho
the data in cell K58...and so on.

Here is what I have that is not working.

Sub FieldTip()
If ActiveCell.Value = ("M3") Then Range("S8").Value = ("K57")
Else: If ActiveCell.Value = ("M5") Then Range("S8").Value = ("K58")
Else: Range("S8").Value = " "
End If
End Sub

Any help would be greatly appreciated

--
Message posted from http://www.ExcelForum.com


Norman Jones

IF THEN ELSE in VBA
 
Hi CCManager,

Try:

Sub FieldTip2()
With Range("B1")

If ActiveCell.Address(0, 0) = "M3" Then
.Value = Range("K57").Value
ElseIf ActiveCell.Address(0, 0) = "M5" Then
.Value = Range("K58").Value
Else
.Value = ""
End If
End With
End Sub


---
Regards,
Norman

"CCManager " wrote in message
...
What I am trying to do:
If the user has cell M3 selected, then change cell S8 to show the data
in cell K57. If the user has cell M5 selected, change cell S8 to show
the data in cell K58...and so on.

Here is what I have that is not working.

Sub FieldTip()
If ActiveCell.Value = ("M3") Then Range("S8").Value = ("K57")
Else: If ActiveCell.Value = ("M5") Then Range("S8").Value = ("K58")
Else: Range("S8").Value = " "
End If
End Sub

Any help would be greatly appreciated.


---
Message posted from http://www.ExcelForum.com/




JE McGimpsey

IF THEN ELSE in VBA
 
One way:

Public Sub FieldTip()
Select Case ActiveCell.Address(False, False)
Case "M3"
Range("S8").Value = Range("K57").Value
Case "M5"
Range("S8").Value = Range("K58").Value
Case Else
Range("S8").ClearContents
End Select
End Sub

Note: Change

Range("S8").ClearContents

to

Range("S8").Value = " "

if you really want the space character inserted.

In article ,
CCManager wrote:

What I am trying to do:
If the user has cell M3 selected, then change cell S8 to show the data
in cell K57. If the user has cell M5 selected, change cell S8 to show
the data in cell K58...and so on.

Here is what I have that is not working.

Sub FieldTip()
If ActiveCell.Value = ("M3") Then Range("S8").Value = ("K57")
Else: If ActiveCell.Value = ("M5") Then Range("S8").Value = ("K58")
Else: Range("S8").Value = " "
End If
End Sub

Any help would be greatly appreciated.


Tom Ogilvy

IF THEN ELSE in VBA
 
Sub FieldTip()
If ActiveCell.Address = "$M$3" Then
Range("S8").Value = Range("K57").Value
ElseIf ActiveCell.Addess = "$M$5") Then
Range("S8").Value = Range("K58").Value
Else
Range("S8").Value = " "
End If
End Sub

How many cells does "so on" refer to?



--
Regards,
Tom Ogilvy


"CCManager " wrote in message
...
What I am trying to do:
If the user has cell M3 selected, then change cell S8 to show the data
in cell K57. If the user has cell M5 selected, change cell S8 to show
the data in cell K58...and so on.

Here is what I have that is not working.

Sub FieldTip()
If ActiveCell.Value = ("M3") Then Range("S8").Value = ("K57")
Else: If ActiveCell.Value = ("M5") Then Range("S8").Value = ("K58")
Else: Range("S8").Value = " "
End If
End Sub

Any help would be greatly appreciated.


---
Message posted from http://www.ExcelForum.com/




CCManager[_4_]

IF THEN ELSE in VBA
 
Sorry so long since replied but another project took precedence over
this one and just now able to get back to work on it.

The "and so on" refers to a total of 8 cell matches that must be made.

Also I have tried all your suggestions thusfar and for some reason none
of them are producing a result in cell S8. Could merged cells cause a
conflict in this?

Thanks again for all of your help.


---
Message posted from http://www.ExcelForum.com/



All times are GMT +1. The time now is 01:15 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com