Macro Question revisited
I have a macro that works if I hard code the cell number into instead of
using the "t" variable as suggested below. If I use the t variable though,
nothing happens. I have put the first part of the code into the spreadsheet
code as suggested, and the macro "Conversion" into a module called
"ConversionModule". When I try to run the macro now though, nothing shows in
the selection box....what am I doing wrong here?????
It will not matter if F6 ( or any of F6 thru F65536) is changed thru direct
typing or via a data validation dropdown.
In the worksheet code area:
Private Sub Worksheet_Change(ByVal Target As Range)
Set r = Range("F6:F65536")
Set t = Target
If Intersect(t, r) Is Nothing Then Exit Sub
Application.EnableEvents = False
Call Conversion(t)
Application.EnableEvents = True
End Sub
and in a standard module:
Sub Conversion(t)
Roww = t.Row
If Cells(Roww, "F").Value = " " Then
Cells(Roww, "H").Value = "0.00 "
End If
End Sub
Note that we give Conversion a range. It gets the row number and puts it in
the variable Roww.
--
Gary''s Student - gsnu200769
"Rodney Crow" wrote:
Okay, maybe I'm not explaining enough about the macro. The macro
(Conversion) is activated when a dropdown box is clicked. Based upon that
choice, "Conversion" converts the choice for comparison (in this case, cost
per ounce). My code in "Conversion" uses If/Then/ElseIf statements based on
the cell that is clicked. For example:
If Cells(Row, "F").Value = " " Then
Cells(Row, "H").Value = "0.00 "
ElseIf Cells(Row, "F").Value = "BAG" Then
myVar = Val(InputBox("What is the size of the bag in pounds?", "Ounces"))
Cells(Row, "H").Value = Cells(Row, "G").Value / (myVar * 16)
and so on and so forth.
So what I need to do, is when say cell "f6" is clicked, it sends the row
value to my macro as the declared integer "Row" so that it will work for
every cell. I know there are probably many reading this that are rolling
their eyes at my brainlessness, but as I said, this is my first trial with
VBA.
Thank you all in advance for your help and suggestions.
|