Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 64416 Skopiuj do schowka Usuwanie i wstawianie arkuszy
Autor Wiadomość
beret
ExcelGaduła 500+


Pomógł: 3 razy
Posty: 583
Wysłany: 13-03-2019, 14:53   Usuwanie i wstawianie arkuszy

Jakim makrem można z załączonego pliku usunąć wszystkie arkusze różne od "Lista", "Baza" i "Pierwszy", następnie skopiować arkusz "Pierwszy" i wstawić go tyle razy ile jest imion w arkuszu "Lista" nadając im nazwy tych imion.

Arkusze.xlsm
Pobierz Plik ściągnięto 13 raz(y) 9.57 KB

ID posta: 364123 Skopiuj do schowka
 
 
J_B 
Excel Expert


Pomógł: 273 razy
Posty: 778
Wysłany: 13-03-2019, 15:26   

Patrz załącznik

Arkusze.xlsm
Pobierz Plik ściągnięto 11 raz(y) 23.76 KB

ID posta: 364131 Skopiuj do schowka
 
 
beret
ExcelGaduła 500+


Pomógł: 3 razy
Posty: 583
Wysłany: 13-03-2019, 16:00   

Dzięki, o to chodziło.
A jeszcze jedno, jak by wyglądało makro dla odwrotnej sytuacji:
tzn. żeby w jakimś arkuszu np. Lista wstawione zostały np. do kolumny A nazwy pozostałych arkuszy z pliku?
ID posta: 364141 Skopiuj do schowka
 
 
beret
ExcelGaduła 500+


Pomógł: 3 razy
Posty: 583
Wysłany: 13-03-2019, 16:52   

To makro:
Kod:
Sub UsunDodajArkusze()
    Dim i As Integer
    Application.DisplayAlerts = False

    For i = ThisWorkbook.Sheets.Count To 1 Step -1
        If Sheets(i).Name <> "Pierwszy" And Sheets(i).Name <> "Lista" _
           And Sheets(i).Name <> "Baza" Then
            Sheets(i).Delete
        End If
    Next
    Application.DisplayAlerts = True
    For i = 2 To Worksheets("Lista").Cells(Rows.Count, 3).End(xlUp).Row
        Worksheets.Add
        ActiveSheet.Name = Worksheets("Lista").Cells(i, 3)
    Next
End Sub
usuwa arkusze wstawia nowe z nazwą z listy, ale nie kopiuje arkusza "Pierwszy"
Co dodać, aby kopiowało arkusz "Pierwszy" i wstawiało go tyle razy ile pozycji w arkuszu "Lista" i nadawało tym nowym arkuszom (kopiom pierwszego) nazwy z listy?
ID posta: 364144 Skopiuj do schowka
 
 
J_B 
Excel Expert


Pomógł: 273 razy
Posty: 778
Wysłany: 13-03-2019, 17:13   

Zapomniałem o kopiowaniu :-)
Kod:

Sub UsunDodajArkusze()
    Dim i As Integer
    Application.DisplayAlerts = False

    For i = ThisWorkbook.Sheets.Count To 1 Step -1
        If Sheets(i).Name <> "Pierwszy" And Sheets(i).Name <> "Lista" _
           And Sheets(i).Name <> "Baza" Then
            Sheets(i).Delete
        End If
    Next
    Application.DisplayAlerts = True
    For i = 2 To Worksheets("Lista").Cells(Rows.Count, 3).End(xlUp).Row
        Worksheets("Pierwszy").Copy After:=Sheets(Sheets.Count)
        ActiveSheet.Name = Worksheets("Lista").Cells(i, 3)
    Next

End Sub


ID posta: 364146 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe