Lưu dữ liệu phát sinh số chứng từ và gọi lại số chứng từ đó

[saobekhonglac]

Dear all.

Mình có 1 file tính tiền cho khách hàng (số lượng, mã khách hàng, tên khách hàng, mã hàng, đơn giá, thành tiền,...). Mọi người giúp mình làm sao khi mình nhập 1 đơn hàng hoàn chỉnh và bấm vào nút save thì sẽ sinh ra số chứng từ ở cell K4 đồng thời dữ liệu đó được cập nhật vào 1 file/data nào đó bất kỳ mà khi mình gõ số chứng từ lại vào cell K4 thì nó sẽ hiện ra đơn hàng đã lưu.

Thanks all

 

[Ba Tê]

Dear all.

Mình có 1 file tính tiền cho khách hàng (số lượng, mã khách hàng, tên khách hàng, mã hàng, đơn giá, thành tiền,...). Mọi người giúp mình làm sao khi mình nhập 1 đơn hàng hoàn chỉnh và bấm vào nút save thì sẽ sinh ra số chứng từ ở cell K4 đồng thời dữ liệu đó được cập nhật vào 1 file/data nào đó bất kỳ mà khi mình gõ số chứng từ lại vào cell K4 thì nó sẽ hiện ra đơn hàng đã lưu.

Thanks all

Ồ! Sao bé không lắc?

Cũng muốn lắc lắm nhưng gặp bố cục dữ liệu thì không dám lắc.
Cột bị kéo nhỏ li ti, merge cell vô tội vạ, viết code biết địa chỉ nó ở đâu mà viết....


Híc! Lần đầu tiên thấy một bảng dữ liệu Excel như thế này.

 

[ndu96081631]

Híc! Lần đầu tiên thấy một bảng dữ liệu Excel như thế này.

Cái này thì em thấy hoài: Dữ liệu xuất từ 1 phần mềm nào đó nên đành chịu vậy

 

[Ba Tê]

Cái này thì em thấy hoài: Dữ liệu xuất từ 1 phần mềm nào đó nên đành chịu vậy

ÁI da!
Hoá ra không phải tự tác giả "chế ra" cái bảng như vậy sao.
Nếu đã là "đành chịu vậy" thì cũng cố làm một cái "SAVE", còn chuyện tìm ngược lại thì chờ bạn khác tiếp vậy, "hoa mắt gồi".

Public Sub GPE()
Dim sArr(), dArr(), Tem(1 To 1, 1 To 11), I As Long, J As Long
With Sheets("Order")
    Tem(1, 1) = .[K4].Value
    Tem(1, 2) = DateSerial(.[V4], .[S4], .[Q4])
    Tem(1, 3) = .[D4].Value
    Tem(1, 4) = .[D6].Value
    Tem(1, 5) = .[D8].Value
    Tem(1, 6) = .[D10].Value
    Tem(1, 7) = .[J30].Value
    Tem(1, 8) = .[L30].Value
    Tem(1, 9) = .[O31].Value
    Tem(1, 10) = .[O34].Value
    Tem(1, 11) = .[O36].Value
    sArr = .Range(.[B12], .[B65000].End(xlUp)).Offset(, -1).Resize(, 26).Value
    ReDim dArr(1 To UBound(sArr, 1), 1 To 16)
End With
For I = 1 To UBound(sArr, 1)
If sArr(I, 2) <> vbNullString Then
    For J = 1 To 6
        dArr(I, J) = Tem(1, J)
    Next J
    For J = 12 To 16
        dArr(I, J) = Tem(1, J - 5)
    Next J
    dArr(I, 7) = sArr(I, 2)
    dArr(I, 8) = sArr(I, 8)
    dArr(I, 9) = sArr(I, 11)
    dArr(I, 10) = sArr(I, 12)
    dArr(I, 11) = sArr(I, 16)
End If
Next I
Sheets("GPE").[A65000].End(xlUp).Offset(1).Resize(I - 1, 16).Value = dArr
MsgBox "Da Luu xong", , "Hic! Hic! Hic!"
End Sub

 

[saobekhonglac]

Cái này mình xuất từ phần mềm ra nến không chỉnh sữa lại, nếu bạn cần thì mình chỉnh lại bỏ Merge. Bạn hướng dẫn mình trên 1 file không có Merge đi, đại khái file nào cũng được.Thanks