How to Make the Data from my UserForm Go into another page

[vdailey2016]

My code is posted below. I want to take it from the "Log Form" Sheet to the "Cage Inventory" Sheet

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub CommandButton2_Click()
If Range("b2") <> "" Then
Rows("2:2").Select
Selection.Insert shift:=x1down
End If

If Range("b2") = "" Then
sheetsRange("b2") = TextBox1.Text
Range("C2") = TextBox2.Text
Range("D2") = TextBox3.Text
Range("E2") = TextBox4.Text
Range("F2") = TextBox5.Text
Range("G2") = TextBox6.Text
Range("H2") = TextBox7.Text
Range("I2") = TextBox8.Text
Range("J2") = TextBox9.Text
Range("L2") = TextBox10.Text
Range("N2") = TextBox11.Text
Range("O2") = TextBox12.Text

End If

TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
TextBox12.Text = ""

Range("Q1").Select



MsgBox "Material Has Been Checked In Successfully"

End Sub

Private Sub Label8_Click()

End Sub

 

[davesexcel]

Private Sub CommandButton2_Click()
with sheets("Cage Inventory")
If .Range("b2") <> "" Then
.Rows("2:2").insert shift:=x1down
End If

If .Range("b2") = "" Then
.Range("b2") = TextBox1.Text
.Range("C2") = TextBox2.Text
.Range("D2") = TextBox3.Text
.Range("E2") = TextBox4.Text
.Range("F2") = TextBox5.Text
.Range("G2") = TextBox6.Text
.Range("H2") = TextBox7.Text
.Range("I2") = TextBox8.Text
.Range("J2") = TextBox9.Text
.Range("L2") = TextBox10.Text
.Range("N2") = TextBox11.Text
.Range("O2") = TextBox12.Text

End If
end with

 

[vdailey2016]

Thank you!

And is there anyway that I can delete this
If Range("b2") <> "" Then
Rows("2:2").Select
Selection.Insert shift:=x1down
End If

And make it so that it goes from row 2 and down? So that the first entry will be in row 2 and the next entry will be in row 3?

[QUOTE="davesexcel, post: 5553633, member: 58374"]
[code]
Private Sub CommandButton2_Click()
with sheets("Cage Inventory")
If .Range("b2") <> "" Then
.Rows("2:2").insert shift:=x1down
End If

If .Range("b2") = "" Then
.Range("b2") = TextBox1.Text
.Range("C2") = TextBox2.Text
.Range("D2") = TextBox3.Text
.Range("E2") = TextBox4.Text
.Range("F2") = TextBox5.Text
.Range("G2") = TextBox6.Text
.Range("H2") = TextBox7.Text
.Range("I2") = TextBox8.Text
.Range("J2") = TextBox9.Text
.Range("L2") = TextBox10.Text
.Range("N2") = TextBox11.Text
.Range("O2") = TextBox12.Text

End If
end with

Private Sub CommandButton2_Click()
with sheets("Cage Inventory")
If .Range("b2") <> "" Then
.Rows("2:2").insert shift:=x1down
End If

If .Range("b2") = "" Then
.Range("b2") = TextBox1.Text
.Range("C2") = TextBox2.Text
.Range("D2") = TextBox3.Text
.Range("E2") = TextBox4.Text
.Range("F2") = TextBox5.Text
.Range("G2") = TextBox6.Text
.Range("H2") = TextBox7.Text
.Range("I2") = TextBox8.Text
.Range("J2") = TextBox9.Text
.Range("L2") = TextBox10.Text
.Range("N2") = TextBox11.Text
.Range("O2") = TextBox12.Text

End If
end with
[/code]
[/QUOTE]

Private Sub CommandButton2_Click()
with sheets("Cage Inventory")
If .Range("b2") <> "" Then
.Rows("2:2").insert shift:=x1down
End If

If .Range("b2") = "" Then
.Range("b2") = TextBox1.Text
.Range("C2") = TextBox2.Text
.Range("D2") = TextBox3.Text
.Range("E2") = TextBox4.Text
.Range("F2") = TextBox5.Text
.Range("G2") = TextBox6.Text
.Range("H2") = TextBox7.Text
.Range("I2") = TextBox8.Text
.Range("J2") = TextBox9.Text
.Range("L2") = TextBox10.Text
.Range("N2") = TextBox11.Text
.Range("O2") = TextBox12.Text

End If
end with

Private Sub CommandButton2_Click()
with sheets("Cage Inventory")
If .Range("b2") <> "" Then
.Rows("2:2").insert shift:=x1down
End If

If .Range("b2") = "" Then
.Range("b2") = TextBox1.Text
.Range("C2") = TextBox2.Text
.Range("D2") = TextBox3.Text
.Range("E2") = TextBox4.Text
.Range("F2") = TextBox5.Text
.Range("G2") = TextBox6.Text
.Range("H2") = TextBox7.Text
.Range("I2") = TextBox8.Text
.Range("J2") = TextBox9.Text
.Range("L2") = TextBox10.Text
.Range("N2") = TextBox11.Text
.Range("O2") = TextBox12.Text

End If
end with

 

[davesexcel]

This will -place the data in the next available row.

Dim LstRw           As Long

With Sheets("Cage Inventory")
    LstRw = .Cells(.Rows.Count, "B").End(xlUp).Row + 1
    'If .Range("b2") <> "" Then
    '.Rows("2:2").Insert shift:=x1down
    'End If
    
    If .Range("b" & LstRw) = "" Then
        .Range("b" & LstRw) = TextBox1.Text
        .Range("C" & LstRw) = TextBox2.Text
        .Range("D" & LstRw) = TextBox3.Text
        .Range("E" & LstRw) = TextBox4.Text
        .Range("F" & LstRw) = TextBox5.Text
        .Range("G" & LstRw) = TextBox6.Text
        .Range("H" & LstRw) = TextBox7.Text
        .Range("I" & LstRw) = TextBox8.Text
        .Range("J" & LstRw) = TextBox9.Text
        .Range("L" & LstRw) = TextBox10.Text
        .Range("N" & LstRw) = TextBox11.Text
        .Range("O" & LstRw) = TextBox12.Text
        
    End If
End With