W
Wellie
I have the following code attached to a macro. The macro is associated to a
command button. When the command button is clicked, this macro will ve
invoked and the display/place the result into ActiveCell.
Problem I have is that the macro knows which is the active cell but unable
to place the value in there. Can someone please help to let me know where is
my problem ?
----------- Code Start ---------------
... Other codes ....
If ActiveCell.Column <> 4 Then
MsgBox "Sorry! Invalud column selected. It must be on column D",
vbExclamation, "Column Error"
Exit Sub
End If
Select Case Cells(28, 3)
Case 0
ActiveCell.Value = ""
Range(Results_Cell) = ""
Case 1
ActiveCell.Value = ""
Range(Results_Cell) = ""
Case Else
ActiveCell.Value = "Hello" ' Test to see Hello will be place
in active cell.
'ActiveCell.Value = Item(Cells(28, 3) - 1
Debug.Print "Cell(" & ActiveCell.Row & "," & ActiveCell.Column &
")=" _
& Cells(28, 3) & " " & Item(Cells(28, 3) - 1)
End Select
----------- Code End ----------------
command button. When the command button is clicked, this macro will ve
invoked and the display/place the result into ActiveCell.
Problem I have is that the macro knows which is the active cell but unable
to place the value in there. Can someone please help to let me know where is
my problem ?
----------- Code Start ---------------
... Other codes ....
If ActiveCell.Column <> 4 Then
MsgBox "Sorry! Invalud column selected. It must be on column D",
vbExclamation, "Column Error"
Exit Sub
End If
Select Case Cells(28, 3)
Case 0
ActiveCell.Value = ""
Range(Results_Cell) = ""
Case 1
ActiveCell.Value = ""
Range(Results_Cell) = ""
Case Else
ActiveCell.Value = "Hello" ' Test to see Hello will be place
in active cell.
'ActiveCell.Value = Item(Cells(28, 3) - 1
Debug.Print "Cell(" & ActiveCell.Row & "," & ActiveCell.Column &
")=" _
& Cells(28, 3) & " " & Item(Cells(28, 3) - 1)
End Select
----------- Code End ----------------