Lấy dữ liệu từ form vào bảng dữ liệu ở 1 sheet khác

[kacalic]

Nhờ các anh chị code giúp: mình nhấn Add để mở userform và chọn người vận động là => vi trần thanh thảo chẳng hạn. thì khi nhấn OK. nó sẽ đưa sang sheet" hiện có" tìm đến bảng có tên Vi Trần Thanh Thảo và paste vào đó. paste vào đầu hay cuối của bảng đó cụng được ạ.

Mình không biết code VBA tìm kiếm trên mạng và diễn đàn làm được đến đây thôi ạ.

 

[hoanganhvo2612]

Nhờ các anh chị code giúp: mình nhấn Add để mở userform và chọn người vận động là => vi trần thanh thảo chẳng hạn. thì khi nhấn OK. nó sẽ đưa sang sheet" hiện có" tìm đến bảng có tên Vi Trần Thanh Thảo và paste vào đó. paste vào đầu hay cuối của bảng đó cụng được ạ.

Mình không biết code VBA tìm kiếm trên mạng và diễn đàn làm được đến đây thôi ạ.

Bạn thay đoạn điền dữ liệu bằng code này

With Sheet4
        ar = .Range("C8:C1000")
        For i = 1 To UBound(ar)
            If ar(i, 1) = nvvd.Text Then
                .Rows(i + 8 & ":" & i + 8).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
                .Range("B8").Offset(i, 0) = dichvu.Text
' code them cho cac cot khac
                Exit For
            End If
        Next
    End With

 

[be_09]

Nhờ các anh chị code giúp: mình nhấn Add để mở userform và chọn người vận động là => vi trần thanh thảo chẳng hạn. thì khi nhấn OK. nó sẽ đưa sang sheet" hiện có" tìm đến bảng có tên Vi Trần Thanh Thảo và paste vào đó. paste vào đầu hay cuối của bảng đó cụng được ạ.

Mình không biết code VBA tìm kiếm trên mạng và diễn đàn làm được đến đây thôi ạ.

Góp ý cho bạn:
1/ Làm bưu điện mà theo dõi mỗi nhân viên 1 đoạn như sheet HIENCO thì làm sao theo dõi.
2/ Sheet HIENCO chỉ nên để tiêu đề ở dòng 8, tất cả mọi thứ giống như dòng 20:22 thì xóa sạch (vì nó không cần thiết), cho tiêu đề tại F8 là người theo dõi là đủ, tất cả dữ liệu bên dưới dòng tiêu đề không nên Merge and Center (gộp ô).
3/ Còn sheet TRACUU chưa hiểu nó là cái gì nên không góp ý.

 

[kacalic]

Góp ý cho bạn:
1/ Làm bưu điện mà theo dõi mỗi nhân viên 1 đoạn như sheet HIENCO thì làm sao theo dõi.
2/ Sheet HIENCO chỉ nên để tiêu đề ở dòng 8, tất cả mọi thứ giống như dòng 20:22 thì xóa sạch (vì nó không cần thiết), cho tiêu đề tại F8 là người theo dõi là đủ, tất cả dữ liệu bên dưới dòng tiêu đề không nên Merge and Center (gộp ô).
3/ Còn sheet TRACUU chưa hiểu nó là cái gì nên không góp ý.

cảm ơn bác đã góp ý:
mình làm như vậy để ACE dễ đối chiếu... và cụng dễ cho mình thu tiền từng người nữa bác ạ.cơ quan mình có 7 người thôi bác ạ.không có gì là khó theo dõi. gộp ô vì đó là 1 nhà. chỉ dc tính 1 chỉ tiêu thôi bác ạ

 

[kacalic]

Bạn thay đoạn điền dữ liệu bằng code này

With Sheet4
        ar = .Range("C8:C1000")
        For i = 1 To UBound(ar)
            If ar(i, 1) = nvvd.Text Then
                .Rows(i + 8 & ":" & i + 8).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
                .Range("B8").Offset(i, 0) = dichvu.Text
' code them cho cac cot khac
                Exit For
            End If
        Next
    End With

cảm ơn bạn nhiều nhé. mình làm được rồi

 

[be_09]

cảm ơn bác đã góp ý:
mình làm như vậy để ACE dễ đối chiếu... và cụng dễ cho mình thu tiền từng người nữa bác ạ.cơ quan mình có 7 người thôi bác ạ.không có gì là khó theo dõi. gộp ô vì đó là 1 nhà. chỉ dc tính 1 chỉ tiêu thôi bác ạ

Khi góp ý cho thành viên nào đó thì tôi luôn gắn vào các tiêu chí sau:
- Dễ dàng nhập liệu và thuận tiện cho việc theo dõi.
- Tổng hợp báo cáo nhanh, gọn, lẹ.
- Dựa vào sheet theo dõi thuận tiện cho việc tách danh sách theo từng người hoặc theo từng bộ phận cũng có thể tách theo công việc hoặc chủng loại.

 

[kacalic]

Bạn thay đoạn điền dữ liệu bằng code này

With Sheet4
        ar = .Range("C8:C1000")
        For i = 1 To UBound(ar)
            If ar(i, 1) = nvvd.Text Then
                .Rows(i + 8 & ":" & i + 8).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
                .Range("B8").Offset(i, 0) = dichvu.Text
' code them cho cac cot khac
                Exit For
            End If
        Next
    End With

Bạn ơi sửa giúp mình thành thêm dữ liệu vào dòng cuối trong dãy tên của người vận động đang tìm đó. Nếu ko tìm thấy thì thêm vào dòng đầu tiên hay dòng cuối cùng của cả bảng danh sách đó cụng được.cảm ơn bạn nhiều