A small problem for you but big for me!

[Guest]

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!!

 

[Guest]

Hi Michael

In your inputbox you define the response as a number (row number). To use
this info, you will have to concatenate it with Col number, which is alpha.
MaterialCol & MaterialRow. However, you set MaterialCol to "0". Instead,
set it to "". I would also define it properly with Dim and As String

 

[Guest]

Thanks Kassie!

Hi Michael

In your inputbox you define the response as a number (row number). To use
this info, you will have to concatenate it with Col number, which is alpha.
MaterialCol & MaterialRow. However, you set MaterialCol to "0". Instead,
set it to "". I would also define it properly with Dim and As String

 

[Bernie Deitrick]

Michael,

FrmMaterial.TextBoxOldMaterial.Text = _
ActiveSheet.Range("F" & MaterialRow ).Value

HTH,
Bernie
MS Excel MVP

 

[Guest]

Thanks Bernie, that was a easy one, it works perfect