Giúp chỉnh sửa form nhập liệu

[gialàcun]

Mình có 2 bảng là THNX và bảng NK, mình nhập dữ liệu ở bãng NK rồi bấm nút Lưu thì dữ liệu sẽ chuyễn sang qua bảng THNX, nhưng đằng này không có. các bạn sửa mình 1 cái. Mình cám ơn

 

[ngocmaipretty]

Dòng đầu:

    Sheets("THNX").Select

Sửa thành:

    Sheets("NK").Select

Vẫn còn thiếu code cho các dòng mặt hàng nhập kho nha!

 

[gialàcun]

Dòng đầu:

    Sheets("THNX").Select

Sửa thành:

    Sheets("NK").Select

Vẫn còn thiếu code cho các dòng mặt hàng nhập kho nha!

bạn ui là sao? không hiểu?

mấy bạn chỉnh dùm mình luôn đi, mình cám ơn, vì mình hơi bị dở cái nì

 

[gialàcun]

Mình đã chỉnh lại thì nó đã chạy rùi, nhưng có 1 chỗ nữa là chỗ mã hàng, nếu mình nhập nhiều mã vào thì làm cách nào nó nhập hết luôn, vì mình thử thì chỉ nhập được có 1 dòng vào bảng THNX

 

[sealand]

Bạn thử dùng code của mình xem sao (Mình test thấy OK, mình không dùng CountA mà test đủ 90 dòng vì sợ bạn nhập nhiều mã cách dòng)

Sub NhapLieu()
 Dim endR, i As Long
 i = 12
 endR = Sheet1.[i56356].End(xlUp).Row + 1
 For i = 12 To 90
If Sheet2.Cells(i, 1) <> "" Then
  With Sheet1.Cells(endR, 2)
    .Offset(, 0) = Sheet2.[b3]
    .Offset(, 1) = Sheet2.[b4]
    .Offset(, 2) = Sheet2.[b5]
    .Offset(, 3) = Sheet2.[b6]
    .Offset(, 4) = Sheet2.[b7]
    .Offset(, 5) = Sheet2.[b8]
    .Offset(, 6) = Sheet2.[b9]
    .Offset(, 7) = Sheet2.Cells(i, 1) 'Ma hang
     .Offset(, 8) = Sheet2.Cells(i, 4)
    .Offset(, 11) = Sheet2.Cells(i, 3) '
    .Offset(, 12) = Sheet2.Cells(i, 5)
 End With
 endR = endR + 1
 End If
 Next
End Sub

 

[SA_DQ]

Bạn thử thay bằng macro này xem sao. Nó giúp bạn nhập hết luôn đó nha!

Macro chạy rùi, nhưng có 1 chỗ nữa là chỗ mã hàng, nếu mình nhập nhiều mã vào thì làm cách nào nó nhập hết luôn, vì mình thử thì chỉ nhập được có 1 dòng vào bảng THNX

Sub NhapLieu()
 Dim SoDg As Long, Jj As Long
 Dim Sh As Worksheet
 
 SoDg = [a65500].End(xlUp).Row - 11
 Set Sh = Sheets("THNX")
 For Jj = 1 To SoDg
   With [b65500].End(xlUp).Offset(1)
      .Value = Range("b3").Value
      .Offset(, 1).Value = Range("b4").Value
      .Offset(, 2).Value = Range("b5").Value
      .Offset(, 3).Value = Range("b6").Value
      .Offset(, 4).Value = Range("b7").Value
      .Offset(, 5).Value = Range("b8").Value
      .Offset(, 6).Value = Range("b9").Value
      
      .Offset(, 7).Value = Cells(11 + Jj, "A").Value
      .Offset(, 17).Value = Cells(11 + Jj, "B").Value '<=|'
      .Offset(, 8).Value = Cells(11 + Jj, "C").Value '<=|'
      .Offset(, 9).Value = Cells(11 + Jj, "D").Value '<=|'
      .Offset(, 10).Value = Cells(11 + Jj, "E").Value '<=|'
   End With
 Next Jj
 [A12] Resize(SoDg, 5).ClearContents
    Range("B3").Select
End Sub

Nhắn thêm bạn:
(*) Các dòng lệnh có đánh dấu là chưa tương thích giữa 2 trang tính; Bạn hãy sửa lại cho phù hợp

(*) Mới ban đầu, nên cái gì cũng phải tường minh (Khai báo biến cho đầy đủ)

 

[gialàcun]

Bạn ui sửa dùm mình luôn đi, mình không rành mấy cái nì lắm, mình chỉ cần cái fỏmm nhập liệu này thui, Nên giúp mình nha

 

[tam8678]

Sub NhapLieu()
 Dim SoDg As Long, Jj As Long
 Dim Sh As Worksheet
 
 SoDg = [a65500].End(xlUp).Row - 11
 Set Sh = Sheets("THNX")
 For Jj = 1 To SoDg
   With [b65500].End(xlUp).Offset(1)
      .Value = Range("b3").Value
      .Offset(, 1).Value = Range("b4").Value
      .Offset(, 2).Value = Range("b5").Value
      .Offset(, 3).Value = Range("b6").Value
      .Offset(, 4).Value = Range("b7").Value
      .Offset(, 5).Value = Range("b8").Value
      .Offset(, 6).Value = Range("b9").Value
 
      .Offset(, 7).Value = Cells(11 + Jj, "A").Value
      .Offset(, 17).Value = Cells(11 + Jj, "B").Value '<=|'
      .Offset(, 8).Value = Cells(11 + Jj, "C").Value '<=|'
      .Offset(, 9).Value = Cells(11 + Jj, "D").Value '<=|'
      .Offset(, 10).Value = Cells(11 + Jj, "E").Value '<=|'
   End With
 Next Jj
 [A12] Resize(SoDg, 5).ClearContents
    Range("B3").Select
End Sub

Nhắn thêm bạn:
(*) Các dòng lệnh có đánh dấu là chưa tương thích giữa 2 trang tính; Bạn hãy sửa lại cho phù hợp

(*) Mới ban đầu, nên cái gì cũng phải tường minh (Khai báo biến cho đầy đủ)

-------------
Tôi có chạy thử code, nhưng sheets "THXN" không nhận được kết quả và báo lỗi dòng gần cuối (RESIZE ) bạn có thể kiểm tra lại dùm được không ? Cám ơn bạn nhiều.

 

[ChanhTQ@]

Tôi có thử code, nhưng sheets "THXN" không nhận được kết quả và báo lỗi dòng gần cuối (RESIZE ) bạn có thể kiểm tra lại dùm được không ? Cám ơn bạn nhiều.

Bạn phải chạy Code từ nút lệnh (hay nói cách khác, bạn phải hiện hữu trang tính có nút lệnh mới mong được kết quả từ Code trên)

Mong bạn như ý!

 

[gialàcun]

Mình có 1 số vấn đề mong các bạn giải quyết dùm:
- Mình có các bảng sau: NK, XK, THNX, DMHH, NXT, DMKH. Khi mình nhập sữ liệu vào XK thì cột Đơn giá vốn sẽ tra ở bảng NXT để điền vào, sau đó nó sẽ lưu dữ liệu đó vào bảng THNX với Đơn giá đó, nhưng nếu trong tháng có phát sinh nhập hàng thì Đơn giá vốn ở XK sẽ thay đổi nhưng bên bảng THNX không thay đổi mà bảng NXT lại lấy dữ liệu từ bảng THNX => sai. có cách nào khắc phục không?
- Khi muốn thêm mới hoặc xóa bỏ 1 mã hàng hóa nào đó bên bảng DMHH thì nó sẽ tự động cập nhật sang các bảng có liên quan ( ví du như bảng NXT chẳng hạn)
- cty mình có nhiều kho( kho cty,kho QH, NTN, CMC, MT) thì có cách nào xuất ở kho nào thì nó chỉ trừ ở kho đó thui không?
Đơn giá vốn là ĐGBQ cuối kỳ
Các bạn chỉ hộ mình, mình gửi kèm file , các bạn sửa giúp. Cám ơn các bạn