Nhập dữ liệu vào nhiều sheet theo điều kiện-Vba

[momo101194]

Xin chào các anh chị trên diễn đàn ah!
Mong các anh chị giúp đỡ ah.
-Em có 1 form nhập liệu,Nếu ở "Bo phan" chon kinh doanh, thì dữ liệu sẽ được nhập vào sheet kinh doanh.Nếu là "kho" thì sẽ đuợc nhập vào sheet kho.....
-Em có viết chương trình như bên dưới ,nhưng không chạy đúng như em mong muốn ah.

Private Sub btn1_Click()
Dim RegCheck As Boolean

Dim lastRow As Long

If ComboBox1.Text = "kinh doanh" Then

With Worksheets("kinh doanh")
Worksheets("kinh doanh").Protect UserInterfaceOnly:=True

lastRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
lastRow = Worksheets("kinh doanh").Cells(Rows.Count, 1).End(xlUp).Row + 1

.Cells(lastRow, 1).Value = ComboBox1
.Cells(lastRow, 2).Value = txt1.Text
.Cells(lastRow, 3).Value = txt2.Text
.Cells(lastRow, 4).Value = txt3.Text
.Cells(lastRow, 5).Value = txt4.Text
.Cells(lastRow, 6).Value = txt5.Text
.Cells(lastRow, 7).Value = txt6.Text
.Cells(lastRow, 8).Value = txt7.Text
.Cells(lastRow, 9).Value = Date

End With
End If
If ComboBox1.Text = "kho" Then
With Worksheets("kho")
Worksheets("kho").Protect UserInterfaceOnly:=True

lastRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
lastRow = Worksheets("kho").Cells(Rows.Count, 1).End(xlUp).Row + 1

.Cells(lastRow, 1).Value = ComboBox1
.Cells(lastRow, 2).Value = txt1.Text
.Cells(lastRow, 3).Value = txt2.Text
.Cells(lastRow, 4).Value = txt3.Text
.Cells(lastRow, 5).Value = txt4.Text
.Cells(lastRow, 6).Value = txt5.Text
.Cells(lastRow, 7).Value = txt6.Text
.Cells(lastRow, 8).Value = txt7.Text
.Cells(lastRow, 9).Value = Date
End With
End If
If ComboBox1.Text = "tong" Then
With Worksheets("tong")
Worksheets("tong").Protect UserInterfaceOnly:=True

lastRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
lastRow = Worksheets("tong").Cells(Rows.Count, 1).End(xlUp).Row + 1

.Cells(lastRow, 1).Value = ComboBox1
.Cells(lastRow, 2).Value = txt1.Text
.Cells(lastRow, 3).Value = txt2.Text
.Cells(lastRow, 4).Value = txt3.Text
.Cells(lastRow, 5).Value = txt4.Text
.Cells(lastRow, 6).Value = txt5.Text
.Cells(lastRow, 7).Value = txt6.Text
.Cells(lastRow, 8).Value = txt7.Text
.Cells(lastRow, 9).Value = Date
End With
End If
MsgBox " da cap nhap"
Unload Me
UserForm1.Show



End Sub

Private Sub UserForm_Initialize()
On Error Resume Next

 ComboBox1.AddItem "king doanh"
 ComboBox1.AddItem "tong"
 ComboBox1.AddItem "kho"
 ComboBox1.AddItem "dau tu"
 ComboBox1.AddItem "nhan su"
 ComboBox1.AddItem "tu van"
 ComboBox1.AddItem "ban hang"

End Sub

Private Sub ComboBox1_Change()

ComboBox1 = ComboBox1.Value

End Sub

 

[befaint]

.

 

[momo101194]

.

Cảm ơn @befaint nhieu!
So với cách mình làm ban đầu thì rất là gọn ah,không cần phải xét từng cai từng cái 1.
Cảm ơn bạn nhiều ah!
Cho mình hỏi thêm 1 điều là giờ mình muốn tạo form tìm kiếm từ tất cả các sheets ah!
Mình có tìm hiểu và thay thế pham vị worksheets thành workbooks nhưng chắc không đúng nên khong chạy được ah!