Have textbox.value populate cells in a certain row and column

I have a formula that doesn't quite seem to work. First I tried to make a formula to match the text in row 4 and then input the text from another box in a row below that. Does it matter if it is merged?

here is the code so far:

Private Sub SubmitButton_Click()
Dim emptyRow As Long
Dim emptyCol As Long
Dim Res As Variant
    With Sheet2
        Res = Application.Match(Roomnum.Value, .Rows(4), 0)
            If Not IsError(Res) Then
                emptyRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
            Else
                emptyRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
                .Range("C" & emptyRow).Value = Credittxt.Value
            End If
    End With
End Sub

Hi, Templemind,

avoid merged cells not if possible but at all!

Why are both If-Statements referring to Column A insteasd of the column you picked up in res? Why write to Column C?

Ciao,
Holger

Hi, Templemind,

Res ia a Variable while number 5 is a constant, itīs simple as that. I would suggest not to work with a Textbox to let the user type items (I prefer a Listbox or Combobox where the items are listed or may be added if needed).

Private Sub SubmitButton_Click()
Dim emptyRow As Long
Dim Res As Variant
With Sheet2
  Res = Application.Match(Roomnum.Value, .Rows(4), 0)
  If Not IsError(Res) Then
      emptyRow = .Cells(Rows.Count, Res).End(xlUp).Offset(1, 0).Row
      .Cells(emptyRow, Res).Value = Credittxt.Value
  End If
End With
End Sub

I donīt see your workbook so it may be a typo or the searched value may just be part of the string in the cell or there may be formulas...

Ciao,
Holger

Hi, Templemind,

you are looking for text in a row where just numbers are listed.

Private Sub SubmitButton_Click()
Dim emptyRow As Long
Dim Res As Variant
With Sheet2
  Res = Application.Match(CLng(Roomnum.Value), .Rows(4), 0)
  If Not IsError(Res) Then
      .Cells(Rows.Count, Res).End(xlUp).Offset(1, 0).Value = Credittxt.Value
  End If
End With
End Sub

You could use your variable to make sure that the entries start from a certsain row on, and maybe have to adjust the column to which to write (this is the first of the two merged cells).

Ciao,
Holger