nhờ các bác giúp em lấy dữ liệu từ sheet này qua sheet khác (1 người xem)

[quoc nhat]

Chào các bác !em có một file excel trong đó có 2 sheet : sheet phieuxuat in và sheet danh sách.
EM muốn lấy dữ liệu từ sheet phieu xuat in sang sheet danh sách theo các ô mà em đã đánh dấu nhưng theo điều kiện sắp xếp của dữ liệu số 3 trong phiếu xuất in nếu dãy mã có 2 kí tự đầu giống ở trong sheet danh sách thì sắp xếp vào hàng trùng kí tự đó .
mong các bác quan tâm giúp đỡ em hoàn thành đề tài này

 

[Luc Van]

Chào các bác !em có một file excel trong đó có 2 sheet : sheet phieuxuat in và sheet danh sách.
EM muốn lấy dữ liệu từ sheet phieu xuat in sang sheet danh sách theo các ô mà em đã đánh dấu nhưng theo điều kiện sắp xếp của dữ liệu số 3 trong phiếu xuất in nếu dãy mã có 2 kí tự đầu giống ở trong sheet danh sách thì sắp xếp vào hàng trùng kí tự đó .
mong các bác quan tâm giúp đỡ em hoàn thành đề tài này

Sẽ chẳng có câu trả lời nếu bạn gửi file mà ko cho pass.

 

[Ba Tê]

Gặp cái này là "Hông chơi"

 

[quoc nhat]

em xin lổi em quên mất đây là pass: 12111987
Cả nhà giúp em với nhé!!!!!!!!

 

[quoc nhat]

em muốn in bấm lệnh in trên sheet phieu xuat in ngoài các lệnh đã có rồi thì muốn thêm code trích dữ liệu sang sheet danh sách và các dữ liệu khi được lấy từ sheet phieuxuấtin sang sheet danhsách thì nó được sắp xếp liên tục theo mã ô đánh dấu số 3 vào các hàng có đề sẵn mục trên sheet VD: CH, HC, HT, Bt ..........
Các bác xem giúp em với

 

[quoc nhat]

em có file này. đây là em đánh thủ công giờ muốn nhờ excel trợ giúp . các bác tham khảo và giúp em với nhé!

 

[Quang_Hải]

Sheet Danhsach trống trơn biết làm thế nào đây. Ít ra cũng để dữ liệu mẫu. 2 ký tự nằm như thế hay có 1 hàng nào cho 2 ký tự này??? Muốn mọi người giúp mà phải đoán rồi lại làm trật lất rồi phải làm lại nữa.

Cái file đính kèm không mở được, bị lỗi rồi

 

[quoc nhat]

gửi anh quang hải

Sheet Danhsach trống trơn biết làm thế nào đây. Ít ra cũng để dữ liệu mẫu. 2 ký tự nằm như thế hay có 1 hàng nào cho 2 ký tự này??? Muốn mọi người giúp mà phải đoán rồi lại làm trật lất rồi phải làm lại nữa.

Cái file đính kèm không mở được, bị lỗi rồi

anh Hải xem lại bài giúp em với

 

[Quang_Hải]

Bạn thay Sub Inphieu trong file bằng code này.

Lưu ý là các dòng màu vàng của cột E phải nhập 2 ký tự điều kiện copy, nếu không code sẽ cho kết quả sai

Sub InPhieu()
Dim i As Long, j As Long
    For j = 174 To 178  ' cac o chua ma thuoc '
        i = WorksheetFunction.Match(Sheet1.Range("A" & j), Sheet4.[A:A], 0)
        Sheet4.Cells(i, 3) = Sheet4.Cells(i, 3) + Sheet1.Range("D" & j)
    Next
    dulieu = Array([b147], [f147], [c158], [c169], [g170], [g109], [f179])
    dk = UCase(Left(dulieu(2), 2))
    Set found = Sheets("danh sach").[e:e].Find(dk, , , xlWhole)
    If Not found Is Nothing Then
        With Sheets("danh sach").Cells(found.Row, 2).End(3)
            .Offset(1) = dulieu(0)
            .Offset(1, 1) = dulieu(1)
            .Offset(1, 3) = dulieu(2)
            .Offset(1, 4) = dulieu(3)
            .Offset(1, 5) = dulieu(4)
            .Offset(1, 6) = dulieu(5)
            .Offset(1, 9) = dulieu(6)
        End With
    End If
    Sheet1.PrintOut From:=1, To:=1, Copies:=1, Preview:=True
    ThisWorkbook.Save
    End Sub

 

[SA_DQ]

Thêm một cách nữa để bạn tham khảo làm vui!

Option Explicit
Sub CopyToDanhSach()
 Dim Sh As Worksheet, Rng As Range, sRng As Range
 
 Sheets("phieuxuat in").Select
 Set Sh = ThisWorkbook.Worksheets("danh sach")
 Set Rng = Sh.Range(Sh.[e10], Sh.[E65500].End(xlUp))
 Set sRng = Rng.Find(Left([c158].Value, 2), , xlFormulas, xlPart)
 If Not sRng Is Nothing Then
    If sRng.Offset(1).Value = "" Then
        Set Rng = Sh.Cells(sRng.Row + 1, "B")
    Else
        Set Rng = Sh.Cells(sRng.End(xlDown).Row, "B")
    End If
    With Rng
        .Value = [B147].Value
        .Offset(, 1).Value = [F147].Value
        .Offset(, 3).Value = [c158].Value
        .Offset(, 4).Value = [C169].Value  '??'
        .Offset(, 5).Value = [G170].Value
        .Offset(, 6).Value = [f179].Value
        .Offset(, 9).Value = [g109].Value
    End With
 Else
    MsgBox "Nothing"
 End If
End Sub

 

[quoc nhat]

Option Explicit
Sub CopyToDanhSach()
 Dim Sh As Worksheet, Rng As Range, sRng As Range
 
 Sheets("phieuxuat in").Select
 Set Sh = ThisWorkbook.Worksheets("danh sach")
 Set Rng = Sh.Range(Sh.[e10], Sh.[E65500].End(xlUp))
 Set sRng = Rng.Find(Left([c158].Value, 2), , xlFormulas, xlPart)
 If Not sRng Is Nothing Then
    If sRng.Offset(1).Value = "" Then
        Set Rng = Sh.Cells(sRng.Row + 1, "B")
    Else
        Set Rng = Sh.Cells(sRng.End(xlDown).Row, "B")
    End If
    With Rng
        .Value = [B147].Value
        .Offset(, 1).Value = [F147].Value
        .Offset(, 3).Value = [c158].Value
        .Offset(, 4).Value = [C169].Value  '??'
        .Offset(, 5).Value = [G170].Value
        .Offset(, 6).Value = [f179].Value
        .Offset(, 9).Value = [g109].Value
    End With
 Else
    MsgBox "Nothing"
 End If
End Sub

nhưng khi em ấn comb in phiếu trên sheet phiẽu xuất in ngoài các lệnh đã có rồi giờ viết thêm lệnh copy như trên thì viết như thế nào hả HYen 17. Cảm ơn nhiều!!!!!!1

 

[quoc nhat]

anh quang hải ơi em đã làm như lời anh dặn sao có mấy ô cell khi dữ liệu vào thì nó nhay vào ô khác anh ạ

 

[Ba Tê]

anh quang hải ơi em đã làm như lời anh dặn sao có mấy ô cell khi dữ liệu vào thì nó nhay vào ô khác anh ạ

Dòng 141 sheet danh sach "Cộng XB,CC, XN, KC" phải tách thành các dòng cộng XB, cộng CC... như các mã khác mới được.
Thêm 1 nút xóa để nhập phiếu mới, số phiếu tự động tăng 1 số.

 

[quoc nhat]

anh Bê Ta

Dòng 141 sheet danh sach "Cộng XB,CC, XN, KC" phải tách thành các dòng cộng XB, cộng CC... như các mã khác mới được.
Thêm 1 nút xóa để nhập phiếu mới, số phiếu tự động tăng 1 số.

gửi anh Ba Tê . Ở dòng 141 em đã thay đổi như anh nói, nhưng sao khi các ô chứa một mã nào đó VD như CC khi đầy nó không tự thêm hàng mà xoá hàng củ đi vậy anh.anh giúp em cho nó tự thêm hàng khi bị đầy đươccj không anh. Còn nút lệnh xoá cũng không cần thiết lắm đâu anh ạ. Và em muốn nhờ anh sửa giúp em cái này nữa. Ở đây mã phiếu (ô đỏ số 7) không phải tự động nhảy thêm ( cộng 1) đâu anh mà ô này em phải tự nhập vì anh biết không mã số phiếu này đã được người khác đã đánh thủ công trên phiếu rồi giờ muốn đánh lên sheet để nó lấy dữ liệu cho sheet danh sách nên cần phải thay đổi khi một lần in xong. anh giúp em cái báo lỗi nếu ô này chưa được thay đổi số liệu ( em hay quên vụ cái ô này lắm) . anh giúp em với. em cảm ơn nhiều