X
ďťż

Mefisto...diabeł czy anioł?

Witam serdecznie,

adaptuję sobie wcześniejsze makro, ale muszę z powodu użyszkodników użyć nazw kodowych arkusza. Proszę Was o podpowiedź co powinienem zmienić by makro nie wywalało się na lini


With ThisWorkbook.Worksheets(nazwa)

oto cały kod:


Option Explicit

Private Sub doArkAll()
Dim WksAll  As Worksheet
Dim nazwa As Variant
Dim ostA    As Long
Dim ostRazem As Long
Dim i       As Long

Application.ScreenUpdating = False

Set WksAll = ThisWorkbook.Worksheets("razem")

With WksAll
    ostRazem = .Cells(.Rows.Count, "A").End(xlUp).Row
        If ostRazem > 1 Then
            .Range("A2:R" & ostRazem).Clear
        End If
End With

i = 2

' Ark01 itd to nazwy kodowe moich arkuszy

For Each nazwa In Array(Ark01, Ark02, Ark03, Ark04)
   
    With ThisWorkbook.Worksheets(nazwa)
       
        ostA = .Cells(.Rows.Count, "A").End(xlUp).Row
       
        If ostA > 1 Then
           
            .Range("A2:R" & ostA).Copy
           
            WksAll.Cells(i, "A").PasteSpecial xlPasteValuesAndNumberFormats
           
            i = i + ostA - 1
       
        End If
   
    End With

Next

Application.CutCopyMode = False

   Set WksAll = Nothing

   Call RefreshPivots

MsgBox "Dane zaktualizowane. Drukuj co trzeba. Miłego dnia :)", vbInformation

Application.ScreenUpdating = True

End Sub
Private Sub RefreshPivots()
 
    Dim PC As PivotCache

    On Error Resume Next
    For Each PC In ThisWorkbook.PivotCaches
        With PC
            .MissingItemsLimit = xlMissingItemsNone
            .Refresh
        End With
    Next PC

End Sub

Z góry ogromne dzięki
Radek

[ Dodano: 2010-06-09, 10:01 ]
  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • katkaras.opx.pl

    • Drogi uzytkowniku!

    W trosce o komfort korzystania z naszego serwisu chcemy dostarczac Ci coraz lepsze uslugi. By moc to robic prosimy, abys wyrazil zgode na dopasowanie tresci marketingowych do Twoich zachowan w serwisie. Zgoda ta pozwoli nam czesciowo finansowac rozwoj swiadczonych uslug.

    Pamietaj, ze dbamy o Twoja prywatnosc. Nie zwiekszamy zakresu naszych uprawnien bez Twojej zgody. Zadbamy rowniez o bezpieczenstwo Twoich danych. Wyrazona zgode mozesz cofnac w kazdej chwili.

     Tak, zgadzam sie na nadanie mi "cookie" i korzystanie z danych przez Administratora Serwisu i jego partnerow w celu dopasowania tresci do moich potrzeb. Przeczytalem(am) Polityke prywatnosci. Rozumiem ja i akceptuje.

     Tak, zgadzam sie na przetwarzanie moich danych osobowych przez Administratora Serwisu i jego partnerow w celu personalizowania wyswietlanych mi reklam i dostosowania do mnie prezentowanych tresci marketingowych. Przeczytalem(am) Polityke prywatnosci. Rozumiem ja i akceptuje.

    Wyrazenie powyzszych zgod jest dobrowolne i mozesz je w dowolnym momencie wycofac poprzez opcje: "Twoje zgody", dostepnej w prawym, dolnym rogu strony lub poprzez usuniecie "cookies" w swojej przegladarce dla powyzej strony, z tym, ze wycofanie zgody nie bedzie mialo wplywu na zgodnosc z prawem przetwarzania na podstawie zgody, przed jej wycofaniem.