Tạo dùm em nút nhập liệu (1 người xem)

[thuytram0405]

Em có file bán hàng mấy anh chị giúp dùm em tạo nút nhập liệu nha, em gà quá mò không ra. Cám ơn mấy anh chị nhiều!

 

[Ba Tê]

Em có file bán hàng mấy anh chị giúp dùm em tạo nút nhập liệu nha, em gà quá mò không ra. Cám ơn mấy anh chị nhiều!

Lấy cái "giò gà" này thử coi có được không.

 

[thuytram0405]

dạ đúng rồi! Anh siêu quá! cảm ơn anh nhiều

 

[ndu96081631]

Lấy cái "giò gà" này thử coi có được không.

Code chưa bẫy lỗi Ba Tê à!
Bấm nút 2 lần, code lỗi

 

[Ba Tê]

Code chưa bẫy lỗi Ba Tê à!
Bấm nút 2 lần, code lỗi

Chết mấy vụ này hoài mà chưa tỉnh!
Híc!!!
(I'm sorry!)

 

[nam châm]

Bẫy lỗi như thế náo các sư phụ hướng dẫn với tôi hay bị lỗi này

 

[boyxin]

Em có file bán hàng mấy anh chị giúp dùm em tạo nút nhập liệu nha, em gà quá mò không ra. Cám ơn mấy anh chị nhiều!

Với bài này thì dùng tạm code này cũng được

Option Explicit
Sub GPE()
Dim Clls As Range
Application.ScreenUpdating = False
Set Clls = Sheet2.[B65000].End(xlUp)
    Clls.Offset(1).Resize(22) = [B6:B27].Value
    Clls.Offset(1, 1).Resize(22) = [E6:E27].Value
    [B6:E27].ClearContents
Application.ScreenUpdating = True
End Sub

 

[Ba Tê]

Bẫy lỗi như thế náo các sư phụ hướng dẫn với tôi hay bị lỗi này

Thêm vào dòng này:

Sheets("TONGHOP").[B65000].End(xlUp).Offset(1, -1).Resize(k, 3).Value = Arr

Thành:

If k Then Sheets("TONGHOP").[B65000].End(xlUp).Offset(1, -1).Resize(k, 3).Value = Arr