Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - Prosze o pomoc

Tajan · **Pomógł:** 5618 razy Posty: 12152

11 to nie 30. Proponuję je wypisać i użyć makra, tak jak poniżej:

Kod:

Private Sub KopiujMiesiac(nrMies As Integer)

Dim arkusz As Worksheet
Dim nieKopiuj

nieKopiuj = Array("Ustawiania", "NieKopiowany1", "NieKopiowany2") ' itd ...

For Each arkusz In ActiveWorkbook.Worksheets

If IsError(Application.Match(arkusz.Name, nieKopiuj, 0)) Then
'Aktywuj wybrany arkusz
arkusz.Activate
'sprawdź warunek
If Sheets("Ustawienia").Range("M13").Value = nrMies Then
KopiujDane nrMies
Else
'warunek niespełniony
MsgBox "Chcesz skopiować niewłaściwy " & _
"miesiąc na arkuszu " & nazwa
Exit Sub
End If
End If

Next

End If
End Sub

jarekjarek · Exceloholic **Pomógł:** 1 raz Posty: 113

Dziękuje BARDZO !!!

był mały błąd
Next

End If
End Sub

End If było tutaj zbędne

Jeszcze raz Bardzo Dziękuję

Tajan · **Pomógł:** 5618 razy Posty: 12152

Sorry, ale pisałem bez testowania.

jarekjarek · Exceloholic **Pomógł:** 1 raz Posty: 113

Nie ma sprawy