Temat: Pomoc w ogarnięciu makra do przerobienia pliku txt w bazę...

Witam Wszystkich,

Mam pewien problem i bardzo proszę o pomoc.
Zrzut z systemu ma postać txt i przeklejony do arkusza excel ma postać:
pierwszy wiersz zawiera kod towaru
poniżej jest kilka wierszy z danymi tego towaru (kolejne komórki zawierają datę przyjęcia, datę wypożyczenia, ilość, kod operacyjny, dane faktur itp.)
następnie jest wiersz pusty i wiersz z kolejnym kodem, kilka wierszy z danymi, wiersz pusty i kolejny kod itd.
Ilość wierszy z danymi jest różna i jest ich kilka lub kilkanaście a kodów jest kilkadziesiąt (ok. 180).
Zależy mi, aby kod towaru (ten z każdego wiersza poprzedzającego partię wierszy z danymi) dopisać do każdego wiersza danych, aby móc identyfikować, które dane należą do jakiego towaru. Wówczas będę mógł dokonywać dowolnej analizy czy to ilości wypożyczeń w zadanym okresie, bądź jakie towary występują w podobnym okresie czasu itp.
Myślę, że potrzebne byłoby takie makro, które pobierałoby dane z komórki i dopisywałoby do każdego wiersza aż do napotkania wiersza pustego. Potem pobiera dane z następnego po pustym wierszu i przykleja do każdego wiersza poniżej, aż do napotkania kolejnego pustego wiersza itd, do końca danych . . .
Niestety, ja makr używałem tylko zapisując je w formie "wizualnej" i głównie do formatowania dużych tabel otrzymywanych co miesiąc z innego programu.

Bardzo proszę o pomoc i z góry dziękuję za wszelkie porady (bo okres analiz rocznych już niebawem . . . ;-)

Temat: Pomoc w ogarnięciu makra do przerobienia pliku txt w bazę...

Można bez makra.
1. Wpisz w dowolnym polu formułę pobierającą dane z komórki ponad. Np =a1
2. Skopiuj komórkę z formułą.
3. zaznacz całą kolumnę gdzie znajdują się numery
4. Funkcja przejdź (ctrl+g) > specialne > puste
5. wKlej (ctrl+v)

Luki pomiędzy kolejnymi numerami zostaną wypełnione.

Temat: Pomoc w ogarnięciu makra do przerobienia pliku txt w bazę...

A jeśli makrem to proszę:

 Sub makro()



    Dim kod As String

    Dim i As Integer

    

    i = 1

    

    kod = Cells(i, 1) & " - "

    

    Do While Cells(i + 1, 1) <> "" Or Cells(i + 2, 1) <> ""

        Do While Cells(i + 1, 1) <> ""

            i = i + 1

            Cells(i, 1) = kod & Cells(i, 1)

        Loop

        i = i + 2

        kod = Cells(i, 1) & " - "

    Loop

End Sub

zakładając że dane są od komórki A1.

Temat: Pomoc w ogarnięciu makra do przerobienia pliku txt w bazę...

WIELKIE DZIĘKI !
Leszku - uratowałeś mi kilka dni życia . . . i mozolnej dłubaniny.
Rzeczy proste są genialne, problem polega na tym aby na nie wpaść.

Jeszcze raz bardzo dziękuję i pozdrawiam

Temat: Pomoc w ogarnięciu makra do przerobienia pliku txt w bazę...

Polecam się :)

Pozdrawiam.