Em cảm ơn bác đã giúp đỡ em!
Private Sub CmdTim_Click()
Dim Rng As Range, sRng As Range
Dim Rws As Long, W As Integer, Cot As Integer
Dim MyAdd As String
ReDim Arr(1 To 98, 1 To 6)
[AA2].Resize(98, 6).Value = Arr()
Rws = [b2].CurrentRegion.Rows.Count
Set Rng = [b1].Resize(Rws)
Set sRng = Rng.Find(Me!tbTim.Text, , xlFormulas, xlPart)
If sRng Is Nothing Then
MsgBox "Không tìm Ra!", , "GPE.COM Xin Chào!"
Else
MyAdd = sRng.Address
Do
W = W + 1: If W = 98 Then GoTo GPE '*'
For Cot = 0 To 5
With Cells(sRng.Row, "A")
Arr(W, Cot + 1) = .Offset(, Cot).Value
End With
Next Cot
Set sRng = Rng.FindNext(sRng)
Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
GPE: '**'
If W Then
[AA2].Resize(W, 6).Value = Arr()
End If
End If
End SubCảm ơn bác nhiều ạ! Bác thông cảm, em không hiểu code đâu ạ, chỉ bặp bẹ copy thôi chứ không phải em lười đâu
11 hay K1212 hoặc Q13:Q16 nhấn Ctrl+C thì vùng dự liệu cần dán đã có trong ClipBoard rồi mình chỉ việc gọi UerForm lên và AddClipBoard thì dư liệu xẻ đc đưa vào từng textbox rồi chép giá trị đó đến các sheet chị định vào tưng ô trong các Sheet tuy vào ngày trong thang tương ứng khi ta muốn thay thế giá trị hay thêm giá trị .
Thât ra mình làm bên ky thuât cứ 4 tiếng mình cập nhật thông số khá nhiều và phải chuyển đi chuyện lại hơn 30 sheets nên mình có ý định làm cái form trên sheet main cho tiện và file mình up lên chỉ là demo thôi.
Mình mới tìm tòi vba đc 1 tuần nên cũng hạn ý trong đâu . Nên vẫn chưa có cách làm sao có bạn giúp thì còn gì bằng.
Chưa hiểu bạn muốn làm cái gì, nhưng theo tôi với File này thì chỉ làm 1 sheet theo dõi, muốn ngày hoặc tháng nào thì lọc nó ra.Mình có cái form như trên File, Form có tác dụng là khi mình đánh dấu vùng K11
----- Nhưng mình vẩn chưa làm đc việc đó, nó chỉ chép đc 1 textbox còn các texbox kac không có giá trị
-----nếu là ô có chứa giá trị như K27 thì đưa vào Form thì đc nhưng khi gia trị muốn addClipboard không đủ 6 số thì code vẩn chưa làm đc .
--- Bác nào có phương án nào sử lý việc này xin chỉ giáo e cảm ơn .
Sub ChuyenDuLieuTheoNgay()
Dim Sh As Worksheet, Cls As Range
Set Sh = ThisWorkbook.Worksheets(CStr(Day([I1].Value)))
For Each Cls In Range("K11:P12")
Sh.Cells(Cls.Row, Cls.Column - 8).Value = Cls.Value
Next Cls
For Each Cls In Range("Q13:Q16")
Sh.Cells(Cls.Row + 1, "J").Value = Cls.Value
Next Cls
MsgBox "Chép Xong Ròi!"
End Sub- Mình đang viết cái VBA với mục đích là : Khi mình dùng chuột select một vùng chon và nhấn Ctr+C ( Copy) cái vùng đó thì clipboard đã lưu cả vùng chọn ấy vào trong bộ nhớ máy rồi ( bạn lick vào clipboard ngay thanh công vụ là thấy nó liên)
Cam ơn Sa_DQ đã góp sức .
Nếu như vậy thì mình phải copy từng ô rồi lại paste vào từng textbox và mình có cả trăm ô phải làm như thế. Nếu như copy từng day ô tới dảy ô khác như trong bảng tính excel thì mọi việc đa đơn giản rồi nhưng mình kg làm đc như vậy.
