Cập nhật dữ liệu vào file nhập

[qluongloc]

Em xin chào diễn đàn
Nhờ mọi người hỗ trợ giúp em, em đang tìm hướng giải quyết cho việc tự động cập nhật các vị trí trống trong kho để hỗ trợ xe nâng nâng hàng vào một cách nhanh nhất, sau khi tìm line trống có thể tự động đánh dấu dùm em line đó đã sử dụng để tránh trùng lặp.
Cảm ơn mn đã quan tâm hỗ trợ

 

[Thóc Sama]

Em xin chào diễn đàn
Nhờ mọi người hỗ trợ giúp em, em đang tìm hướng giải quyết cho việc tự động cập nhật các vị trí trống trong kho để hỗ trợ xe nâng nâng hàng vào một cách nhanh nhất, sau khi tìm line trống có thể tự động đánh dấu dùm em line đó đã sử dụng để tránh trùng lặp.
Cảm ơn mn đã quan tâm hỗ trợ

Bạn xem đúng ý không nhé!

Sub Line_Trong()
Dim i As Long, j As Long, n As Long
For j = 12 To 16
    For i = 6 To 21
        For n = 1 To Cells(i, 11).Value
        If Cells(i, 11) > 0 Then
            Cells(i, j + n - 1).Interior.ColorIndex = 3
        End If
        Next n
    Next i
    If i = 22 Then Exit Sub
Next j
End Sub

 

[qluongloc]

Bạn xem đúng ý không nhé!

Sub Line_Trong()
Dim i As Long, j As Long, n As Long
For j = 12 To 16
    For i = 6 To 21
        For n = 1 To Cells(i, 11).Value
        If Cells(i, 11) > 0 Then
            Cells(i, j + n - 1).Interior.ColorIndex = 3
        End If
        Next n
    Next i
    If i = 22 Then Exit Sub
Next j
End Sub

Cảm ơn bạn đã hỗ trợ, ý mình muốn tự động điền các line còn trống vd như A9, B1 ... vào các ô bạn đã line màu á

 

[Thóc Sama]

Cảm ơn bạn đã hỗ trợ, ý mình muốn tự động điền các line còn trống vd như A9, B1 ... vào các ô bạn đã line màu á

Bạn cần mô tả kỹ yêu cầu, nhập thủ công kết quả mong muốn xem thế nào ha!

 

[qluongloc]

Bạn cần mô tả kỹ yêu cầu, nhập thủ công kết quả mong muốn xem thế nào ha!

nhờ bạn hỗ trợ ạ, mình muốn điền line vào như file ạ

 

[Thóc Sama]

nhờ bạn hỗ trợ ạ, mình muốn điền line vào như file ạ

Bạn thử Code dưới xem sao!

Sub Line_Trong()
Dim i As Long, j As Long, n As Long, k As Long
Dim Arr(), l As Long, m As Long
Sheet1.Range("L6:P21") = ""
Sheet1.Range("L6:P21").Interior.ColorIndex = 0
Arr = Sheet2.Range("B5:C64").Value
Application.ScreenUpdating = False
For j = 12 To 16
    For i = 6 To 21
       For n = 1 To Cells(i, 11).Value
            If Cells(i, 11) > 0 Then
                Cells(i, j + n - 1).Interior.ColorIndex = 3
                For l = 1 To 60
                    For k = 1 To 20
                        If Cells(i, 9).Value & k = Arr(l, 1) And Arr(l, 2) = "" Then
                                Cells(i, j + n - 1) = Arr(l, 1)
                                Arr(l, 2) = "X"
                                If Cells(i, j + n - 1) <> "" Then Exit For
                        End If
                    Next k
                    If Cells(i, j + n - 1) <> "" Then Exit For
                Next l
            End If
        Next n
    Next i
    If i = 22 Then Exit Sub
Next j
Application.ScreenUpdating = True
End Sub

 

[qluongloc]

Bạn thử Code dưới xem sao!

Sub Line_Trong()
Dim i As Long, j As Long, n As Long, k As Long
Dim Arr(), l As Long, m As Long
Sheet1.Range("L6:P21") = ""
Sheet1.Range("L6:P21").Interior.ColorIndex = 0
Arr = Sheet2.Range("B5:C64").Value
Application.ScreenUpdating = False
For j = 12 To 16
    For i = 6 To 21
       For n = 1 To Cells(i, 11).Value
            If Cells(i, 11) > 0 Then
                Cells(i, j + n - 1).Interior.ColorIndex = 3
                For l = 1 To 60
                    For k = 1 To 20
                        If Cells(i, 9).Value & k = Arr(l, 1) And Arr(l, 2) = "" Then
                                Cells(i, j + n - 1) = Arr(l, 1)
                                Arr(l, 2) = "X"
                                If Cells(i, j + n - 1) <> "" Then Exit For
                        End If
                    Next k
                    If Cells(i, j + n - 1) <> "" Then Exit For
                Next l
            End If
        Next n
    Next i
    If i = 22 Then Exit Sub
Next j
Application.ScreenUpdating = True
End Sub

Mấy nay mình đi tỉnh, nay mới vào lại, đúng ý mình rồi ạ, cảm ơn bạn rất nhiều ạ