Truy vấn dữ liệu từ hàng sang cột giữa 2 sheet khác nhau (1 người xem)

[hoanhnnc]

[h=2]Mọi Người Giúp Em Với[/h]

Em có file này khi em nhập hoặc gọi mã ô A1 rồi bấm Sửa lập tức dữ liệu bên dòng sheet "HC" sẽ hiện đúng với Mã đã chọn đúng vị trí ngày của tháng.

Link file: Em không biết upload file lên diễn đàn. Mong mọi người thông cảm

​

 

[Ba Tê]

Mọi Người Giúp Em Với

Em có file này khi em nhập hoặc gọi mã ô A1 rồi bấm Sửa lập tức dữ liệu bên dòng sheet "HC" sẽ hiện đúng với Mã đã chọn đúng vị trí ngày của tháng.

Link file: Em không biết upload file lên diễn đàn. Mong mọi người thông cảm

​

Gán cái Sub này cho cái nút "Sửa" thử coi sao:

Public Sub CoCoCo()
Dim Ma As String, Rng(), Arr(1 To 31, 1 To 4), I As Long, J As Long, Ngay As Long
Ma = Sheets("Timesheet").[A1].Value
With Sheets("HC")
    Rng = .Range(.[B4], .[B65000].End(xlUp)).Resize(, 130).Value
End With
    For I = 1 To UBound(Rng, 1)
        If Rng(I, 1) = Ma Then
            For J = 4 To 124 Step 4
                Ngay = Ngay + 1
                Arr(Ngay, 1) = Rng(I, J): Arr(Ngay, 2) = Rng(I, J + 1)
                Arr(Ngay, 3) = Rng(I, J + 2): Arr(Ngay, 4) = Rng(I, J + 3)
            Next J
        End If
    Next I
Sheets("Timesheet").[B4].Resize(Ngay, 4).Value = Arr
End Sub

 

[xuanha]

Mọi Người Giúp Em Với

Em có file này khi em nhập hoặc gọi mã ô A1 rồi bấm Sửa lập tức dữ liệu bên dòng sheet "HC" sẽ hiện đúng với Mã đã chọn đúng vị trí ngày của tháng.

Link file: Em không biết upload file lên diễn đàn. Mong mọi người thông cảm

​

Dưới đây là code theo cấu trúc bài của bạn

Private Sub CommandButton1_Click()
Dim i%, j%: j = 3
Do: j = j + 1
For i = 5 To 128
If Val(Sheets("HC").Cells(2, i)) = Val(Range("A" & j)) Then
Sheets("HC").Cells(4, i) = Range("B" & j).Value
Sheets("HC").Cells(4, i + 1) = Range("C" & j).Value
Sheets("HC").Cells(4, i + 2) = Range("D" & j).Value
Sheets("HC").Cells(4, i + 3) = Range("E" & j).Value
End If
Next
Loop Until j = 33
End Sub

 

[hoanhnnc]

Em cám ơn bác bate và bác xuân hạ 2 code thật tuyệt vời. Em cám ơn 2 bác Em cam ơn diễn đàn GPE nhiều

 

[hoanhnnc]

Private Sub CommandButton1_Click()
Application.Calculation = xlCalculationManual
Application.EnableEvents = False