Giúp mình code copy Data (7 người xem)

[hoang0569]

Mình gửi File kèm, mong các bạn giúp, cảm ơn nhiều

 

[snow25]

Mình gửi File kèm, mong các bạn giúp, cảm ơn nhiều

Sub copy()
Dim a As Long
With Sheet2
    a = .Range("b4").Value
    .Range("b5:b36").copy
End With
With Sheet1
     .Select
    .Range("A5").Offset(0, a).PasteSpecial
End With
End Sub

Đây bạn xem

 

[hoang0569]

Mình có gửi kèm File, mong các bạn giúp, cảm ơn nhiều.

 

[Lê Hồng Minh83]

Mình có gửi kèm File, mong các bạn giúp, cảm ơn nhiều.

Cái này dùng hàm cũng được mà, đâu cần VBA
Tham khảo

=LOOKUP(10^10,B8:B38)

 

[hoang0569]

Cảm ơn bạn nhiều.

Bài đã được tự động gộp: 30/11/18

Mình xem lại, vẫn chưa đúng ý mình bạn ơi, mình lấy data đúng ngày cuối tháng, nếu không có data thì để trống, bạn xem lại giúp mình nhé

 

[heyhey1994]

Cái này dùng hàm cũng được mà, đâu cần VBA
Tham khảo

=LOOKUP(10^10,B8:B38)

Dạ bác có thể giải thích cho mình cái 10^10 nó có ý nghĩa gì ko ạ?

 

[Lê Hồng Minh83]

Dạ bác có thể giải thích cho mình cái 10^10 nó có ý nghĩa gì ko ạ?

10^10 bằng 10 tỷ, 1 con số đủ lớn hơn tất cả các con số xuất hiện trong file của bạn
Nếu bạn thử với LOOKUP(10,B8:B38), bạn sẽ thấy nó ra #N/A vì số 10 không đủ lớn hơn các con số bạn cần tìm
Giải thích đại loại như vậy thôi chắc bạn hiểu

 

[hoang0569]

Mình xem lại, vẫn chưa đúng ý mình bạn ơi, mình lấy data đúng ngày cuối tháng, nếu không có data thì để trống, bạn xem lại giúp mình nhé

 

[SA_DQ]

Thích macro thì thử với cái ni:

Sub CopyTheoThang()
 Dim J As Long, Ng As Byte, Thg As Byte
 
 For J = 2 To 24 Step 2
    If Cells(5, J).Value = "" Then
        Exit For
    Else
        Thg = CByte(Right(Cells(5, J).Value, 2))
        Select Case Thg
        Case 1, 3, 5, 7, 8, 10, 12
            Ng = 31
        Case 4, 6, 9, 11
            Ng = 30
        Case Else
            If Year(Date) \ 4 = Year(Date / 4) Then Ng = 29 Else Ng = 28
        End Select
        Ng = Ng + 7
    End If
    Cells(7, J).Value = Cells(Ng, J).Value
    Cells(7, J + 1).Value = Cells(Ng, J + 1).Value
 Next J
End Sub

Nhưng nếu ngày cuối tháng không có số liệu thì sao đây tá?!

 

[hoang0569]

Cảm ơn bạn nhiều, đúng ý mình rồi