Sau khi test ở file chính thì code xuất hiện lỗi mong anh viehoai khắc phục giùm em. ở sheet DULIEU hoặc sheet DULIEU1 nếu dữ liệu các hàng gần nhau thì khi copy nó sẽ hiện lỗi như trong file.
Tùy theo dữ liệu mà bạn có thể tự sửa code cho mình, nghiêm cứu kỹ tí là được mà
[GPECODE=vb]Private Sub CommandButton2_Click()
' Chuyen cac lua chon sang Sheet
Dim StartCell As Range
Dim Vung As Range, iHang As Long, iNhay As Long
Dim Cll As Range, Rng As Range
Dim Sh As Worksheet
If Me.CheckBox1 Then
Set Sh = Sheet2
Else
Set Sh = Sheet3
End If
On Error GoTo ErrHandler
With ListBox1
For I = 0 To .ListCount - 1
Set StartCell = Selection
If .Selected(I) Then
StartCell.Value = .List(I, 0)
StartCell.Offset(, 1).Value = .List(I, 1)
StartCell.Offset(, 2).Value = .List(I, 2)
Set Vung = Sh.Range(Sh.[A10], Sh.[A10000].End(xlUp))
Set Rng = Vung.Find(.List(I, 0))
If Not Rng Is Nothing Then
iHang = Rng.Row
If Rng.Offset(1).Value <> "" Then
Sh.Range("D" & iHang & ":R" & iHang).Copy ActiveCell.Offset(, 3)
ActiveCell.Offset(1).Select
Else
iNhay = Rng.End(xlDown).Row - 1
If iNhay > 6500 Then iNhay = Sh.Range("M65500").End(xlUp).Row
Sh.Range("D" & iHang & ":R" & iNhay).Copy ActiveCell.Offset(, 3)
ActiveSheet.Range("A" & ActiveCell.Row + iNhay - iHang + 1).Select
End If
End If
End If
Next
End With
' Thay doi Cell lua chon sang vi tri moi
ErrHandler:
Unload Me
Set Vung = Nothing: Set Rng = Nothing
End Sub[/GPECODE]
quên là post file lên cho lẹ nhỉ. Với file em đưa lên thì code em chỉ copy dữ liệu từ shet DULIEU, vậy các anh có thể giúp em là sau khi mở form (từ cột A9 shet TLuong) e có thể chọn dữ liệu từ 2 shet DULIEU và DULIEU1 được không? vì tính chất công việc thường có thêm những công việc không nằm trong DM. em cám ơnthầy NDU và anh Hai Lúa giúp em với
nhiều lúc hơi ngu nên thầy thông cảm
ola alo thầy đâu goy
thầy NDU ơi giúp em thì giúp cho chót, em chạy code cả đêm vẫn không được thầy ơi.
. Dạ TK a nhiều
