Temat: VBA,Excel - Kopiowanie i drukowanie zawartości komórek z...

Witam,

Proszę o pomoc.

W arkuszu 2, 3 i 4 w kolumnie A, wpisane są unikalne numery. Po wybraniu interesującego mnie arkusza - chcę kopiować te numery - jeden po drugim - do arkusza1 do komórki H1.

Chciałbym żeby makro:
1- wybieram arkusz (2, 3, 4) najlepiej wpisując jego nazwę w Box,
2- programik kopiuje z wybranego arkusza (2, 3 lub 4) numer/zawartość komórki A1 i wkleja do "arkusza 1" do komórki H1,
3- drukuje kartę z danymi które wyszukuje za pomocą formuły wyszukaj.pionowo -to już zrobiłem
4- powraca do wybranego w punkcie 1 arkusza i kopiuje zawartość komórki A2 i znów wkleja do "arkusza 1" do komórki H1,
5- pętla kończy się na ostatniej "pełnej" komórce w kolumnie A wybranego arkusza.

Troszkę zagmatwane:) Z góry dziękuje za pomoc.

Pozdrawiam

Temat: VBA,Excel - Kopiowanie i drukowanie zawartości komórek z...

Coś w ten deseń, wklej do modułu ogólnego (module)

Sub Kopiuj_Z_Arkuszy_Do_Docelowego()

Dim Arkusz_Docelowy As Worksheet 'Arkusz1 tu wklejamy dane

Dim Arkusz_Z_Danymi As Worksheet 'Arkusz wskazywany

Dim Ostatni_Wiersz_Arkusza_Z_Danymi As Long

Dim i As Long



Set Arkusz_Docelowy = Sheets("Arkusz1")

On Error GoTo ErrArkuszNameBlad

Set Arkusz_Z_Danymi = Sheets(InputBox("podaj nazwę arkusza z danymi", , "Arkusz2"))

On Error GoTo 0

With Arkusz_Z_Danymi

    Ostatni_Wiersz_Arkusza_Z_Danymi = .Range("A1").End(xlDown).Row

    For i = 1 To Ostatni_Wiersz_Arkusza_Z_Danymi

        Arkusz_Docelowy.Range("H1") = .Range("A" & i)

        'drukuj

    Next

End With

Exit Sub

ErrArkuszNameBlad:

    MsgBox "wpisano nazwę arkusza, który nie występuje w skoroszycie", vbCritical

    If MsgBox("Chcesz zrezygnować z działania?", vbYesNo + vbQuestion) = vbYes Then Exit Sub

    Resume

End Sub

Ten post został edytowany przez Autora dnia 27.06.14 o godzinie 19:33

Temat: VBA,Excel - Kopiowanie i drukowanie zawartości komórek z...

Działa:)
Coś dodałem, coś zmodyfikowałem. Dzięki wielkie.

Pozdrawiam