Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek dla www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

Excel - makro kopiowanie kilku arkuszy

25 Lip 2013 15:25 1551 2
  • Poziom 10  
    Witam,
    mam taki problem. Mam kilka arkuszy, których ilość może się zmieniać natomiast struktura będzie zachowana.
    Każdy arkusz zawiera dane osoby, projekt i ilość godzin przepracowanych na danym projekcie. Liczba projektów jest zmienna w miesiącu maksymalna wartość 30.

    Chciałbym żeby do arkusza wynikowego skopiować nazwisko, nazwę projektu, ilość godzin jak ma to miejsce w arkuszu wynik.


    Proszę o pomoc.
  • Poziom 27  
    Przetestuj poniższe makro:
    Kod: vb
    Zaloguj się, aby zobaczyć kod
  • Poziom 10  
    Dzięki ale poradziłem sobie w inny sposób, mniej optymalny ale działa tak jak powinien :)
    W tym twoim chyba coś jest z zakresem danych i chyba dubluje wpisy nie sprawdzałem dokładnie.


    Poniżej moje makro



    Sub Polacz()
    Application.ScreenUpdating = False

    Dim ark As Integer, d1 As Integer
    Dim a As Worksheet

    Set a = Worksheets(1)

    For ark = 2 To Worksheets.Count

    d1 = a.Cells(Rows.Count, "A").End(xlUp).Row + 5
    Worksheets(ark).Range("B7:F36").Copy
    Worksheets(1).Rows(d1).PasteSpecial Paste:=xlPasteValues

    'Destination:=a.Rows(d1)
    Next ark



    Set Wynik = ActiveSheet
    For i = Cells(1000, "A").End(xlUp).Row To 5 Step -1
    If Cells(i, "D").Value = "" Then
    Rows(i).Delete shift:=xlUp
    End If
    Next

    End Sub