A small problem for you but big for me!
Dim Msg, Style, Title, Help, Ctxt, response, MyString 'Deklarerer msgbox
'If a user push a button this happens:
Msg = "Do you want to change the input ?"
Style = vbOKCancel + vbInformation + vbDefaultButton2
Title = "Input"
response = MsgBox(Msg, Style, Title)
If response = vbOK Then
MaterialRow = 0 'the column is called material
MaterialCol = 0
MaterialRow = ActiveSheet.Range("Material").Row
MaterialCol = ActiveSheet.Range("Material").Column '
response = InputBox("Please enter the row number", "Number Entry") 'The
user can choose row number
MaterialRow = response
Load FrmMaterial
FrmMaterial.TextBoxOldMaterial.Text = ActiveSheet.Range("f12").Value
'Instead of "f12" should i manage to put in MaterialRow, but i cant,
what's wrong?
FrmMaterial.Show
Else
End If
I want this to give me the contents of the cell MaterialRow no mather if its
a number or text.Help!!
--
Nil Satis Nisi Optimum
|