Xin code VBA lấy dữ liệu từ sheet này qua sheet khác (1 người xem)

[LightStar252]

[TABLE="width: 480"]
[TR]
[TD="colspan: 4"]Giúp mình viết code VBA thực hiện lệnh sau:[/TD]
[/TR]
[TR]
[TD="colspan: 4"]-Điền số máy có số ngày báo < 15 ngày từ sheet Số liệu T9 vào sheet Báo dầu.
Cảm ơn mọi người![/TD]
[/TR]
[/TABLE]

 

[quanluu]

[TABLE="width: 480"]
[TR]
[TD="colspan: 4"]Giúp mình viết code VBA thực hiện lệnh sau:[/TD]
[/TR]
[TR]
[TD="colspan: 4"]-Điền số máy có số ngày báo < 15 ngày từ sheet Số liệu T9 vào sheet Báo dầu.
Cảm ơn mọi người![/TD]
[/TR]
[/TABLE]

Công thức dùng đc bạn ko dùng, sao lại phải code vậy

C4=LOOKUP(2,1/(COUNTIF($C$3:C3,'Số liệu T9'!$C$5:$C$16)=0)/('Số liệu T9'!$G$5:$G$16<15),'Số liệu T9'!$C$5:$C$16)

 

[LightStar252]

Tại mình đang muốn tìm hiểu về VBA. Cho mình xin code VBA đi )

 

[quanluu]

Tại mình đang muốn tìm hiểu về VBA. Cho mình xin code VBA đi )

thế này vậy

Sub somay()
Dim i As Integer, k, arr()
With Sheets(1)
    ReDim arr(1 To .Range("C65000").End(3).Row, 1 To 1)
    For i = 5 To .Range("C65000").End(3).Row
        If .Cells(i, 7) < 15 Then
            k = k + 1
            arr(k, 1) = .Cells(i, 3)
        End If
    Next
End With
Sheets(2).Range("C4").Resize(k) = arr
End Sub

 

[LightStar252]

thế này vậy

Sub somay()
Dim i As Integer, k, arr()
With Sheets(1)
    ReDim arr(1 To .Range("C65000").End(3).Row, 1 To 1)
    For i = 5 To .Range("C65000").End(3).Row
        If .Cells(i, 7) < 15 Then
            k = k + 1
            arr(k, 1) = .Cells(i, 3)
        End If
    Next
End With
Sheets(2).Range("C4").Resize(k) = arr
End Sub

Ngon ngẻ rồi. Thanh kiu )