Cập nhật (2 người xem)

[sonktc]

Cập nhật mới

Mình muốn như thế này, xin các bạn giúp đỡ, mình đang học nên cái gì mình cũng muốn hỏi, xin đừng cười nghe, Cám ơn nhiều
Các bạn xem file mình giải thích trên ấy.

 

[tedaynui]

To sonktc
Đối với File bạn gởi lên, bạn hãy gán đoạn code sau cho nút cập nhật

Sub CapNhat()
Dim iC As Integer
iC = WorksheetFunction.CountA(Range("K4:T4"))
Range("E4:E14").Copy Destination:=(Cells(4, 11 + iC))
End Sub

TDN

 

[SA_DQ]

Thêm một tham khảo

Option Explicit[b]

Sub CopyColumn()[/b]
 Dim Rng As Range
    Set Rng = Cells(4, Cells(4, 255).End(xlToLeft).Column + 1)
    Range("E4:E" & Cells(65432, 5).End(xlUp).Row).Copy Destination:=Rng
  [b]  
End Sub[/b]

 

[sonktc]

Cám ơn cả 2 bạn đã quan tâm, mình đã làm theo cách Bạn Tedaynui, mình có thay đổi 1 chút mong 2 Anh giúp đở, Thanks
File gởi kèm là file mới

 

[tedaynui]

Cám ơn cả 2 bạn đã quan tâm, mình đã làm theo cách Bạn Tedaynui, mình có thay đổi 1 chút mong 2 Anh giúp đở, Thanks
File gởi kèm là file mới

Mình đọc yêu cầu của bạn, không hiểu rõ lắm. Bạn thử sử dụng đoạn code sau xem có đúng yêu cầu không. Nếu chưa được như ý thì bạn nói rõ hơn yêu cầu của mình nhé. Dựa vào file của bạn mà mình đơn về thì code như sau :

Private Sub CapNhat_Click()
Dim iC As Integer
iC = WorksheetFunction.CountA(Range("K4:T4"))
Range("[B]E4:F14[/B]").Copy Destination:=(Cells(4, [B]12[/B] + iC))
End Sub

TDN

 

[sonktc]

Bạn Nedaytui, Bạn đã giải đáp đúng rồi, Thanks, nhưng, bây giờ như thế này, dữ liệu ban đầu là những cột không nằm cạnh nhau,bây giờ mình copy các cột ấy sang những cột khác, không liền nhau, mình phải làm sao, mong bạn giải thích để mình có thể tùy biến, tự làm,Bạn giúp được, rất thanks nhiều, (giài thích code)

 

[sonktc]

Các bạn ơi, những đoạn code mà các giúp, nếu ô có chứa công thức thì kết quả ra sai, mình phải làm sao, xin hướng dẫn, cám ơn nhiều.

 

[tedaynui]

Các bạn ơi, những đoạn code mà các giúp, nếu ô có chứa công thức thì kết quả ra sai, mình phải làm sao, xin hướng dẫn, cám ơn nhiều.

Lần này thì hiểu ý bạn hỏi nhưng không biết giải thích sao cho bạn hiểu ??? hi hi, cái này có liên quan tới địa chỉ tuyệt đối / tương đối trong công thức. Bạn gởi file hay ví dụ cụ thể sẽ dễ giải thích hơn.

TDN

 

[sonktc]

Đây bạn nhờ bạn coi sửa giúp, và giải thích cho.Thanks

 

[tedaynui]

Đây bạn nhờ bạn coi sửa giúp, và giải thích cho.Thanks

Bạn chỉ cần sửa lại công thức ở cột T và cột AA (địa chỉ cột tuyệt đối, dòng tương đối : ví dụ $D1:$D14)
Bạn xem file

 

[SA_DQ]

Chưa đúng là do bạn chưa tinh tế trong việc xài địa chỉ tuyệt đối & địa chỉ hỗn hợp

Này nha: Tại ô AA15, của bạn có CT (công thức)
=IF(Z15<>"";RANK(Z15;$Z$4:$Z$53);"");
Tại ô AA4 phải là :
=IF(Z$4<>"";RANK($Z4;$Z$4:$Z$53);"")

Tương tự tại T15 đang là
=SUM(G15:S15;G15;K15)/(COUNTA(G15:S15)+2)
Tại ô T4 mình sửa lại là:
=SUM($G4:$S4;$G4;$K4)/(COUNTA($G4:$S4)+2)

Bạn xem & chỉnh lại hết đi là OK trhôi!
Khi đó xài macro nào cũng xong!

 

[sebastian]

bạn ơi , sao làm cho hàng số 3 nó đứng yên hay vậy . Có cách nào làm cho các hàng dưới no chỉ chạy trong 1 khảong , còn các hàng dưới đó nữa lại đứng yên ko . Thanks trước nha