vova2209
Thành viên tích cực
- Tham gia
- 5/4/17
- Bài viết
- 825
- Được thích
- 110
- Giới tính
- Nam
- Nghề nghiệp
- Đường bộ
Mã:
'CODE IN BIEN BAN + KHÔI' LUONG + CAO DÔ
Private Sub OkInBB_CDKL_Click()
Dim inStart, inFinish As Long 'Dùng Inputbox dôi? Integer
Dim I As Long
Dim shNameKL, shNameCD As String
Dim Rng As Range, DK As Long
If ActiveSheet.CodeName = "Sheet22" Then
On Error Resume Next
Set Rng = Sheets("VoVa").Range("A3", Sheets("VoVa").Range("A65535").End(xlUp)).Resize(, 4)
inStart = TextBox1.Value
inFinish = TextBox2.Value '
shNameKL = Sheets("BBan").Range("A2") 'Duyêt sheets lây' tên o? ô cel
shNameCD = Sheets("BBan").Range("A3")
For I = inStart To inFinish
DK = Application.WorksheetFunction.VLookup(I, Rng, 4, False)
If DK > 0 Then GoTo Tiep
Sheets("BBan").Range("AZ1").Value = I
Sheets("BBan").PrintOut 'Vùng in .Range("C2:AF152").PrintOut
Sheets(shNameKL).Select
Call HidedongProKL
Sheets(shNameKL).Range("AZ1").Value = I
Sheets(shNameKL).PrintOut
Sheets(shNameCD).Select
Call HidedongProCD
Sheets(shNameCD).Range("AZ1").Value = I
Sheets(shNameCD).PrintOut
Tiep:
Next I
Unload Me
Else
MsgBox "Ban phai chon o* Sheet(BBan)", vbCritical, "In Biên Ban"
End If
End Sub
Nhờ anh chị chỉnh lại code giúp em:
Đây là code in các sheets lựa chọn
+ In sheet("BBan") + 2 sheets có tên lựa chọn lấy ở ô A2 và A3
shNameKL = Sheets("BBan").Range("A2")
shNameCD = Sheets("BBan").Range("A3")
- Giờ em muốn lựa chọn cả 3 sheets này ở Forms như hình dưới mô tả
Em xin chân thành cảm ơn!
File đính kèm
Lần chỉnh sửa cuối: