Lập trình nhập liệu

[levanhoa1977]

Anh chị diễn đàn giúp em file nhập liệu. Nhập liệu giống như một hóa đơn bán hàng có thông tin khách hàng và sản phẩm. Khi có 3 sản phẩm khi cập nhật tự động cập nhật vào sheet data 3 dòng có 3 sản phẩm và thông tin khách hàng cũng phát sinh theo 3 dòng sản phẩm đó. Xem file giúp mình nhé. Mình đang cần gấp. Cảm ơn anh chị diễn đàn:

 

[nghiaphuc]

Anh chị diễn đàn giúp em file nhập liệu. Nhập liệu giống như một hóa đơn bán hàng có thông tin khách hàng và sản phẩm. Khi có 3 sản phẩm khi cập nhật tự động cập nhật vào sheet data 3 dòng có 3 sản phẩm và thông tin khách hàng cũng phát sinh theo 3 dòng sản phẩm đó. Xem file giúp mình nhé. Mình đang cần gấp. Cảm ơn anh chị diễn đàn:

Anh dùng code sau nhé:

Sub NhapData()
    Dim n As Byte, Rng As Range
    Sheet1.Activate
    If [B30].End(xlUp).Row = 11 Then Exit Sub
    n = [B30].End(xlUp).Row - 11
    Set Rng = Sheet2.[A65536].End(xlUp).Offset(1)
    With Rng
        .Resize(n, 2).Value = [B12].Resize(n, 2).Value
        .Offset(, 8).Resize(n, 3).Value = [D12].Resize(n, 3).Value
        .Offset(, 2).Resize(, 6).Value = WorksheetFunction.Transpose([C3:C8])
        .Offset(, 2).Resize(n, 6).FillDown
    End With
    Union([C3], [B12:B26]).ClearContents
End Sub

 

[levanhoa1977]

Anh dùng code sau nhé:

Sub NhapData()
    Dim n As Byte, Rng As Range
    Sheet1.Activate
    If [B30].End(xlUp).Row = 11 Then Exit Sub
    n = [B30].End(xlUp).Row - 11
    Set Rng = Sheet2.[A65536].End(xlUp).Offset(1)
    With Rng
        .Resize(n, 2).Value = [B12].Resize(n, 2).Value
        .Offset(, 8).Resize(n, 3).Value = [D12].Resize(n, 3).Value
        .Offset(, 2).Resize(, 6).Value = WorksheetFunction.Transpose([C3:C8])
        .Offset(, 2).Resize(n, 6).FillDown
    End With
    Union([C3], [B12:B26]).ClearContents
End Sub

Cảm ơn Bạn. Bạn giỏi thật đó làm đúng theo yêu cầu mình rồi