Xin các thầy giúp em đoạn code lấy kết quả từ userform1 sang userform2? (1 người xem)

[haikimcuong]

Như tựa đề em xin giải thích chi tiết hơn thế này:
em có 2 form ở sheet1 và sheet 2.
Với form 2(ở sheet name: 1) như sau có textboxA và tboxB khi nhập số trong 2 tbox này thì sẽ có 1 phép tinh cộng A+B=C. Button "Thoát chuyển" sẽ làm nhiệm vụ thoát form2, chuyển kết quả ở tbox KQ sang userform1 ở tbox "CHUYỂN SANG" đồng thời hiện userform1.
Với userform1(sheetname: 2) cũng có 1 phép toán tương tự như form2 kết quả sẽ được hiện trên tbox "SỐ MỚI" và ở đây sẽ thực hiện 1 phép toán : "CHUYỂN SANG" - "SỐ MỚI" = "CÒN DƯ".
Em xin gửi kèm file ạ.
Em xin Cảm ơn các thầy.

 

[viehoai]

Như tựa đề em xin giải thích chi tiết hơn thế này:
em có 2 form ở sheet1 và sheet 2.
Với form 2(ở sheet name: 1) như sau có textboxA và tboxB khi nhập số trong 2 tbox này thì sẽ có 1 phép tinh cộng A+B=C. Button "Thoát chuyển" sẽ làm nhiệm vụ thoát form2, chuyển kết quả ở tbox KQ sang userform1 ở tbox "CHUYỂN SANG" đồng thời hiện userform1.
Với userform1(sheetname: 2) cũng có 1 phép toán tương tự như form2 kết quả sẽ được hiện trên tbox "SỐ MỚI" và ở đây sẽ thực hiện 1 phép toán : "CHUYỂN SANG" - "SỐ MỚI" = "CÒN DƯ".
Em xin gửi kèm file ạ.
Em xin Cảm ơn các thầy.

Ý bạn thế này phải không?

 

[Quang_Hải]

Như tựa đề em xin giải thích chi tiết hơn thế này:
em có 2 form ở sheet1 và sheet 2.
Với form 2(ở sheet name: 1) như sau có textboxA và tboxB khi nhập số trong 2 tbox này thì sẽ có 1 phép tinh cộng A+B=C. Button "Thoát chuyển" sẽ làm nhiệm vụ thoát form2, chuyển kết quả ở tbox KQ sang userform1 ở tbox "CHUYỂN SANG" đồng thời hiện userform1.
Với userform1(sheetname: 2) cũng có 1 phép toán tương tự như form2 kết quả sẽ được hiện trên tbox "SỐ MỚI" và ở đây sẽ thực hiện 1 phép toán : "CHUYỂN SANG" - "SỐ MỚI" = "CÒN DƯ".
Em xin gửi kèm file ạ.
Em xin Cảm ơn các thầy.

Phức tạp hóa vấn đề nhiều quá nhá

 

[haikimcuong]

Phức tạp hóa vấn đề nhiều quá nhá

Chuẩn quá anh Hải ơi tại anh bỏ bom em nên giờ em phải mầy mò ra các trường hợp để vọc đấy, Hôm qua nhắn tin mừng sn bác mà trả thấy ỏ ê gì làm mất cả hung.

 

[sealand]

Sub chuyển của Quang Hai nên gán trực tiếp cho gọn, bỏ biến a và khâu gán biến

Private Sub CommandButton1_Click()
  With UserForm1
   .TextBox1 = Me.TextBox1
    Unload Me
   .Show
 End With
End Sub