Nhờ viết code copy dữ liệu từ sheet khác (1 người xem)

[vova2209]

Em muốn copy kết quả từ ô G34 - Sheet(KLL-K95) vào cột S
+ Chạy code hỏi muốn copy số lớp: VD như bảng tinh: nhập (17) và chạy bắt đầu từ số nhập (100) ok or cancel
+ KQua vào 1 ô cell bất kỳ VD để chuột vào ô S3 sẽ kết quả sẽ chạy từ ô S3, S4, S5
+ Copy số G34 sang ô S3 vị trí đặt con chỏ và paste Value
+ tiếp: Next số thứ tự tiếp theo của ô AZ1 - Sheet(KLL-K95) >> Copy số G34 sang ô S4 và paste Value
+ tiếp: Next số thứ tự tiếp theo của ô AZ1 - Sheet(KLL-K95) >> Copy số G34 sang ô S5 và paste Value
+ ... 17 lần
==> Kết quả sẽ giống như cột N

Mong các anh giúp đỡ! em xin chân thành cảm ơn

 

[selves037]

chào bạn, có phải sheet Vova cột AG có 1 số STT và 1 kết quả tương ứng, bạn muốn điền kết quả vào cột S tương ứng với STT phải không?

 

[vova2209]

chào bạn, có phải sheet Vova cột AG có 1 số STT và 1 kết quả tương ứng, bạn muốn điền kết quả vào cột S tương ứng với STT phải không?

em muốn kết quả chạy ra như video bài #12 ạ: e viết được 1 đoạn nhưng chạy chưa dc theo ý
Sub activeCell_K953()
Dim i, iMax As Long
Dim KQk95 As Long
Dim iMaBB As Range

With Sheets("KLL-K95")
KQk95 = .Range("G200")
iMax = .Range("BC1")
Set iMaBB = .Range("AZ1")

End With
For i = 0 To iMax - 1
'iMaBB = i
ActiveCell.Offset(i) = KQk95
Next i
End Sub

 

[selves037]

Bạn chờ xíu mình thử thế nào nhé

 

[vova2209]

Bạn chờ xíu mình thử thế nào nhé

file e gửi lên là dòng G34 KQk95 = .Range("G200")

 

[selves037]

bạn điền vào ô AZ=99 bị lỗi nhưng cứ điền là 99 rồi nhấn nút chạy bên VaVo coi đúng ý không nhé, có gì phản hồi ngay, mình chưa ngủ đâu.

 

[vova2209]

bạn điền vào ô AZ=99 bị lỗi nhưng cứ điền là 99 rồi nhấn nút chạy bên VaVo coi đúng ý không nhé, có gì phản hồi ngay, mình chưa ngủ đâu.

file a làm chưa đúng ý ạ
em muốn lấy dc kq như file dưới đây

 

[selves037]

Đã làm được nhưng rất chậm, bạn xem file theo đúng ý chưa, của mình như sau:
trong sheet Vova chọn active cell ví dụ ô S11, mình sẽ lấy giá trị tương ứng ở cột A là 100 điền vào AZ1 bên KLL-95, sau đó có biến BC1=17, rồi gán biến chạy i=bc1. cứ nhập tương ứng như với giá trị ở cột A sheet Vova