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

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

"Michael" wrote:

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

Thanks Kassie!

"Kassie" wrote:

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

"Michael" wrote:

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

Michael,

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

HTH,
Bernie
MS Excel MVP


"Michael" wrote in message
...
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

Thanks Bernie, that was a easy one, it works perfect :-)
--
Nil Satis Nisi Optimum


"Bernie Deitrick" wrote:

Michael,

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

HTH,
Bernie
MS Excel MVP


"Michael" wrote in message
...
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