Giúp viết code sử lý vấn đề!!! (1 người xem)

[hasitinh]

Đây là File mình làm việc hằng ngày.
- Mình mới chỉ nhập môn VBA thôi nên cò gà lắm nên rất cần hoc hỏi.
- File chỉ mới thêm đc DTPicker nhưng vẫn không ổn lăm.
- nhờ mấy bạn chỉ mình viết code VBA lọc ô"NGAYTHANG" lấy 2 chử số đầu tiên// ngày làm điều kiện để tới sheets cần làm việc vì hằng giờ mình cần chép dự liệu bên sheet "TinhDau" vào sheet ngày tương ứng với Ô "NGAYTHANG".
tạo một commanbox chỉ cần lick vào là nhập dư liệu vào vị thí đc tô màu vang trên sheets thì càng tốt.
- Con nhiều thứ lắm nhưng chi thế thôi đã hoc VBA phải ngấm tù từ mới hay cảm ơn cộng đồng đã giúp đở mình.

 

[SA_DQ]

Tiếng Nga trong file thì mình hiểu; Còn tiếng Việt & tiếng Anh thì chịu!

 

[hasitinh]

Tiếng Nga trong file thì mình hiểu; Còn tiếng Việt & tiếng Anh thì chịu!

Anh biết tiếng Nga luôn là kinh rồi. tiếng anh nào trong đó vậy anh. cái File này do cty em cấp cho nó protec hết chỉ có mấy ô không tô màu là mở để mình nhập dử liệu hằng giờ thôi, em đã viết mấy hàm excel cơ bản cho a em ks làm việc cho nó đở mất thời gian rồi, chi đang tìm hiểu cái VBA cho nó pro hơn thôi. có gì a chỉ bảo e thêm .

 

[SA_DQ]

Tiếng Anh là các câu lệnh VBA đó thôi!
Bạn nên giả lập file & đưa lên; File đã đưa lên của bạn dễ vướng lắm!
Tiếng Nga toàn từ kĩ thuật không, nên dễ mà!

 

[hasitinh]

Tiếng Anh là các câu lệnh VBA đó thôi!
Bạn nên giả lập file & đưa lên; File đã đưa lên của bạn dễ vướng lắm!
Tiếng Nga toàn từ kĩ thuật không, nên dễ mà!

Y anh là em nên chỉnh lại file gốc cho mọi người đọc dể hiểu phải không anh . em chỉ mới học VBA đc mấy ngày nên hơi gà . cái code VBA em lọc Ngày tháng để VBA đến sheet cần copy và paste dử liệu nó báo lổi mà em không biết cứ loay hay mãi :
Sub test3()
Dim Loc1 As Integer
Dim loc2 As Integer

If Left(Range("I1"), 1) = "0" Then
Loc1 = Mid(Range("I1"), 2, 1)
MsgBox Loc1
Sheets(" &loc1& ").Select ' đến đoạn này em cố gắng cho VBA đi đến Sheet đc lọc từ I1 moa kg biết.?
.

Else
loc2 = Left(Range("I1"), 2)
MsgBox loc2
End If


End Sub