Gán lệnh cho Menu con trong Form (1 người xem)

[Shiping41]

Trong Sheet "Danh mục " Có 2 form là "Chọn MH" và "THEM MA"để tra mã công việc và tạo thêm mã mới.
Nhờ các anh chị trên diễn đàn giúp :
- Ở Form "THEM MA" :
Nút "GHi" hiện tại chỉ thêm mã mới vào 1 trong 2 Sheet là "DM1778" và "Mã người dùng". Ý em muốn khi mình bấm vào nút "GHI" thì thêm mã mới vào 1 trong 2 Sheet là "DM1778" và "Mã người dùng" và Trong Sheet "Data" tự động Copy vùng trên của nó ví dụ vùng "A4:H15" dán vào "A16" thêm các nội dung của các TextBox trong Form vào trong phần bôi màu tương ứng của vùng vừa Paste

 

[dovanhoc84]

Thực ra tôi thấy bạn đã làm được để nó ghi vào 2 sheet kia rồi thì việc ghi vào sheet còn lại đâu phải vấn đề lớn gì nhỉ?

 

[giaiphap]

Trong Sheet "Danh mục " Có 2 form là "Chọn MH" và "THEM MA"để tra mã công việc và tạo thêm mã mới.
Nhờ các anh chị trên diễn đàn giúp :
- Ở Form "THEM MA" :
Nút "GHi" hiện tại chỉ thêm mã mới vào 1 trong 2 Sheet là "DM1778" và "Mã người dùng". Ý em muốn khi mình bấm vào nút "GHI" thì thêm mã mới vào 1 trong 2 Sheet là "DM1778" và "Mã người dùng" và Trong Sheet "Data" tự động Copy vùng trên của nó ví dụ vùng "A4:H15" dán vào "A16" thêm các nội dung của các TextBox trong Form vào trong phần bôi màu tương ứng của vùng vừa Paste

Bạn thêm code sau vào Sub CommandButton4_Click:

  Sheets("Data").Range("A4:H16").Copy Sheets("Data").Range("A16")
  Sheets("Data").Range("B16").Value = TextBox2
  Sheets("Data").Range("C16").Value = TextBox8
  Sheets("Data").Range("C18").Value = TextBox4
  Sheets("Data").Range("C20").Value = TextBox7
  Sheets("Data").Range("C22").Value = TextBox5
  Sheets("Data").Range("C24").Value = TextBox6
  Sheets("Data").Range("C26").Value = TextBox9

Cụ thể Sub CommandButton4_Click như sau:

Private Sub CommandButton4_Click()
  Dim wks As Worksheet
  If CheckBox1.Value Then
    Set wks = Sheet5
    Me.CheckBox1.Caption = "DM1778"
  Else
    Set wks = Sheet2
   End If
     '..........................
  Dim Rng As Range
  Set Rng = wks.Range("A65500").End(xlUp).Offset(1)
  Rng.Value = TextBox2.Value
  Rng.Offset(, 1).Value = TextBox8.Value
  ThisWorkbook.Save
  Set Rng = Nothing
  Sheets("Data").Range("A4:H16").Copy Sheets("Data").Range("A16")
  Sheets("Data").Range("B16").Value = TextBox2
  Sheets("Data").Range("C16").Value = TextBox8
  Sheets("Data").Range("C18").Value = TextBox4
  Sheets("Data").Range("C20").Value = TextBox7
  Sheets("Data").Range("C22").Value = TextBox5
  Sheets("Data").Range("C24").Value = TextBox6
  Sheets("Data").Range("C26").Value = TextBox9
End Sub