vdailey2016
New Member
- Joined
- Sep 10, 2020
- Messages
- 2
- Office Version
- 2016
- Platform
- Windows
- MacOS
- Mobile
- Web
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
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