Đưa số liệu vào sheet khác

[hunggtg]

Chào các bạn GPE,

Mình có vấn đề sau cần giúp đỡ:
Mình nhập số liệu vào sheet1, sau khi kiểm tra ok rồi thì sẽ copy các số liệu này để paste (paste special giá trị thôi chứ không paste công thức) vào sheet 2, và tuần tự paste vào các dòng tiếp theo nếu mình nhập nhiều dòng số liệu.

Mời các bạn xem file đính kèm và tạo giúp giùm mình luôn nhé, vì mình không rành code lắm.

Cám ơn.

 

[NH_DK]

Chào các bạn GPE,

Mình có vấn đề sau cần giúp đỡ:
Mình nhập số liệu vào sheet1, sau khi kiểm tra ok rồi thì sẽ copy các số liệu này để paste (paste special giá trị thôi chứ không paste công thức) vào sheet 2, và tuần tự paste vào các dòng tiếp theo nếu mình nhập nhiều dòng số liệu.

Mời các bạn xem file đính kèm và tạo giúp giùm mình luôn nhé, vì mình không rành code lắm.

Cám ơn.

Bạn muốn cứ cập nhập phát sinh bao nhiêu thì cũng muốn dữ liệu đó xuất hiện đầy đủ thông tin sang sheet Bao gia uh? Hay bạn chỉ muốn sau mỗi lần nhập thi cập nhật xong rồi lại xoá nó đi khi nào muốn thì nhập và lại cập nhật sang bên kia?

 

[hunggtg]

Chào NH_DK,

Mình muốn nhập 1 lần (có thể là 1 hàng hoặc 20 hàng) ở trong sheet báo giá (có nghĩa trong sheet nhập liệu phải làm chừng đó lần). Sau khi save lại, mở ra để làm báo giá thứ 2 thì xoá hết dữ liệu cũ để làm 1 báo giá hoàn toàn mới.

Và bạn giúp thêm giùm, khi nhập vào hết số liệu thì có thể chèn thêm vào 1 dòng tổng cộng (sum) giá tiền luôn để mình khỏi phải làm thủ công cộng lại.

Cám ơn.

 

[SA_DQ]

Sao lại viết bài không dấu tiếng Việt thế kia, vội à?!

Hunggtg;270932 := ???

Xem trong file nha; Mình dùng VBA

 

[hunggtg]

http://www.giaiphapexcel.com/forum/member.php?10-SA_DQCám ơn SA_DQ nhé,

Bạn có thể giúp giùm mình là dữ liệu chuyển qua sheet báo giá chỉ là giá trị được không (paste special value), vì trong sheet "Nhap lieu" mình có lấy giá trị (có chứa công thức) từ nơi khác. Do đó khi copy qua sheet "bao gia" nó chứa cả công thức thì sẽ không đúng.

Cám ơn.

 

[concogia]

Cám ơn SA_DQ nhé,

Bạn có thể giúp giùm mình là dữ liệu chuyển qua sheet báo giá chỉ là giá trị được không (paste special value), vì trong sheet "Nhap lieu" mình có lấy giá trị (có chứa công thức) từ nơi khác. Do đó khi copy qua sheet "bao gia" nó chứa cả công thức thì sẽ không đúng.

Cám ơn.

Bạn muốn làm bảng này chỉ một lần thôi? Khi làm lại sẽ xóa hết cái cũ
Thử cái này xem, ở sheet "nhap lieu" mình thử tạo cái công thức Vlookup đó nhé, kiểm tra xong bạn xóa đi giúp
Mà nếu làm một lần sao không nhập thẳng vào bảng báo giá luôn nhỉ? Híc

 

[hunggtg]

Chào Concogia,

Cái này đúng cái mình cần rồi bạn à, nhưng bạn có thể giúp là trong sheet nhập liệu mình có thể nhập vào từng mã hàng rồi sau đó nhập tiếp mã mới được không. Sau đó khi nào hoàn tất thì có 1 button hoàn tất thì sẽ tiến hàng chèn vào hàng tổng cộng. Và bạn giúp mình định dạng kẻ khung toàn bảng chào giá trong sheet "bao gia" giùm mình luôn nhé.

Cám ơn rất nhiều.

 

[concogia]

Chào Concogia,

Cái này đúng cái mình cần rồi bạn à, nhưng bạn có thể giúp là trong sheet nhập liệu mình có thể nhập vào từng mã hàng rồi sau đó nhập tiếp mã mới được không. Sau đó khi nào hoàn tất thì có 1 button hoàn tất thì sẽ tiến hàng chèn vào hàng tổng cộng. Và bạn giúp mình định dạng kẻ khung toàn bảng chào giá trong sheet "bao gia" giùm mình luôn nhé.

Cám ơn rất nhiều.

Câu 1: Thì bạn cứ từ từ thong thả mà nhập, từng cái từng cái một, khi nào xong thì bấm nút ( cái nút là nút của bạn, muốn bấm lúc nào thì bấm mà, híc). Nếu có thiếu mà lỡ bấm thì lại tiếp tục nhập, khi nào thấy đủ ta lại....bấm
Câu 2: mình ghi cái macro đóng khung giúp bạn nhé
Right Click vào Sheet "bao gia" ==> View Code ==> chép cái này vào

Private Sub Worksheet_Activate()
With Range([b4], [b500].End(xlUp)).Offset(0, -1).Resize(, 8).Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Range([b4], [b500].End(xlUp)).Offset(0, -1).Resize(, 8).Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Range([b4], [b500].End(xlUp)).Offset(0, -1).Resize(, 8).Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Range([b4], [b500].End(xlUp)).Offset(0, -1).Resize(, 8).Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Range([b4], [b500].End(xlUp)).Offset(0, -1).Resize(, 8).Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Range([b4], [b500].End(xlUp)).Offset(0, -1).Resize(, 8).Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
End Sub

Khi nào xong, bấm nút, qua sheet "bao gia" nó sẽ đóng khung cho bạn
Thân

 

[hunggtg]

Chào NH_DK,

Và bạn giúp thêm giùm, khi nhập vào hết số liệu thì có thể chèn thêm vào 1 dòng tổng cộng (sum) giá tiền luôn để mình khỏi phải làm thủ công cộng lại.

Cám ơn.

Nhờ bạn chỉnh lại giùm dòng tổng cộng khi tính xong rồi thì vẫn còn công thức (=sum(XY:XZ)) để lỡ mình có thay đổi đơn giá thì nó có thể tự thay đổi liền

Cám ơn

 

[hunggtg]

Chào,

Nhờ các bạn giúp giùm chèn công thức vào giùm

Thanks