Giúp tạo 2 Button copy dữ liệu và xoá dữ liệu

[kobebryant]

Bác nào chỉ em tạo code cho 2 button như trong file đính kèm
- Button thứ 1: Chuyển số liệu từ cột I sang cột E
- Button thứ 2: Chỉ xóa số liệu cột E

Do em ko rành lắm VBA, mong các bác giúp em
Cám ơn

 

[kobebryant]

bác nào giúp em với, ngày nào cũng theo dõi mà ko ai trả lời

 

[nmhung49]

Mình chỉ nghĩ ra được nhiêu đây thôi không biết có đúng ý bạn không. Có gì nhờ ACE trong diễn dàn giúp thêm.Thanks

 

[kobebryant]

Thấy bạn tạo code hay quá
Do 1 số ô ở cột E mình để công thức sum nên khi mình chuyển số từ cột I mình chỉ muốn chuyển các ô ko có công thức thôi để khi nó chuyển sang E thì nó tự sum để mình dễ dàng kiểm tra
Cám ơn sự giúp đợ của bạn nhiều lắm

 

[nmhung49]

Mình mới nghĩ ra cách dựa vào đinh dạng file của bạn mình dựa vào format màu nếu bạn đinh dạng khác thì sẽ có lỗi, mình chỉ được tới đó thôi mình upload lại trên bài 3 bạn xem coi có đúng không nhen. Thanks

 

[kobebryant]

Cám ơn bạn nhiều lắm, vì có 1 số công thức sẽ ko có màu, nhưng nếu bạn dựa trên định dạng màu thì mình sẽ tô màu lên cho các công thức ấy.
Cám ơn bạn rất nhiều, bạn có YM! ko, cho mình xin để mai mốt còn thọ giáo dài dài nữa
Cám ơn, cám ơn, đa tạ nhiều hì hì

 

[sealand]

Sao lại dựa vào format. Nên dùng SpecialCell chứ. Bạn gửi file Exc 2007 nên mình không tham gia cụ thể được.

 

[nmhung49]

Sao lại dựa vào format. Nên dùng SpecialCell chứ. Bạn gửi file Exc 2007 nên mình không tham gia cụ thể được.

Em tải lại file rồi đó excel 2003 anh xem giúp dùm hen. Thanks

 

[kobebryant]

nhiều lúc muốn học VBA mà ko có chỗ nào dạy, tự nghiên cứu thì ko đủ khả năng
hix, em cám ơn các bác nhiều lắm

Bác sealand có cao kiến gì giúp em với nhé

 

[kobebryant]

Bác Sealand ơi, bác giúp đỡ em với đợi hoài ko thấy bác hồi âm

 

[concogia]

Do 1 số ô ở cột E mình để công thức sum nên khi mình chuyển số từ cột I mình chỉ muốn chuyển các ô ko có công thức thôi để khi nó chuyển sang E thì nó tự sum để mình dễ dàng kiểm tra

Thật sự chưa hiểu rõ lắm về yêu cầu của bạn. Tạm thời thế này nhé, bạn bấm Alt + F11 chép 2 code này vào
Code chép dữ liệu

Public Sub Chep()
    Dim Vung As Range, I As Long
    Set Vung = Range([e8], [e5000].End(xlUp))
        For I = 1 To Vung.Rows.Count
            If Vung(I) = "" And Vung(I).Offset(, 4) <> 0 Then Vung(I) = Vung(I).Offset(, 4)
        Next
End Sub

Code xóa dữ liệu

Public Sub Xoa()
    Range([e8], [e5000].End(xlUp)).SpecialCells(2).ClearContents
End Sub

RightClick vào nút "Chuyen so CK" ==> chọn "AsignMacro" ==> chọn "Chep"
RightClick vào nút "Xoa trang" ==> chọn "AsignMacro" ==> chọn "Xoa"
Trúng thì tốt còn trật thì...làm lại
Thân

 

[kobebryant]

Thật sự chưa hiểu rõ lắm về yêu cầu của bạn. Tạm thời thế này nhé, bạn bấm Alt + F11 chép 2 code này vào
Trúng thì tốt còn trật thì...làm lại

Wá chuẩn, xin email gấp,....... đa tạ