Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - Ewidencja BHP

kufel97 · Starszy Forumowicz Posty: 40

Witam

Mam taki problem. Próbuję stworzyć plik w którym będę mógł ewidencjonować pobrane ciuchy przez pracowników i nie wiem jakim makrem mogę wypełniać listę przysługujących sortów. Problem polega na tym że nie chciałbym aby była tam jakaś formuła z uwagi na to że każdy pracownik oprócz przysługującego asortymentu zawsze może dostać inny ciuch według potrzeb.
Czy ktoś mógłby mi pomóc w tym temacie.
W załączeniu plik.

BHP.zip

Pobierz Plik ściągnięto 945 raz(y) 12.37 KB

Trebor · Excel Expert **Pomógł:** 1752 razy Posty: 4680

Wypróbuj takie makro

Kod:

Private Sub CommandButton1_Click()
Dim wiersz As Integer
Dim gdzie As Integer
Dim pierwsza As Integer
Dim ostatnia As Integer
gdzie = 18
Range("A18:D39").ClearContents
If Range("B13") = "" Then Exit Sub
With Sheets("Lista stanowisk")

pierwsza = .Columns(2).Find(What:=Range("B13"), _
After:=.Cells(1, 2), SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

ostatnia = .Columns(3).Find(What:="*", _
After:=.Cells(1, 3), SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

For wiersz = pierwsza To ostatnia
If .Cells(wiersz, 2) = Range("B13") Or .Cells(wiersz, 2) = "" Then
Cells(gdzie, 1) = gdzie - 17
Cells(gdzie, 2) = .Cells(wiersz, 3)
Cells(gdzie, 3) = .Cells(wiersz, 4)
gdzie = gdzie + 1
Else
Exit Sub
End If
Next wiersz
End With
End Sub

Nie jest to szczyt przejrzystego makra, ale w miarę szybkie w działaniu.

Pozdrawiam

kufel97 · Starszy Forumowicz Posty: 40

Po raz kolejny - wielkie podziękowania dla WSZECHWIEDZĄCYCH tego forum.