GoldenLine
Zaloguj się
Zbigniew Bereta

Zbigniew Bereta sinol gdańsk

Temat: usuwanie danych z kórek w wielu arkuszach

Witam,
proszę o pomocne makro do usuwania zawartości z takiego samego zakresu komórek w wielu arkuszach (nazwanych od 1 do 150).
Link do wypowiedziLink
Marzanna Szulta

Marzanna Szulta właściciel, Usługi
Informatyczne
SZULTASET

Temat: usuwanie danych z kórek w wielu arkuszach

Jeżeli ten sam zakres komórek w każdym arkuszu - to można to zrobić bez makra. Wystarczy zaznaczyć wszystkie arkusze (klikamy na pierwszy, a następnie z przyciśniętym Shiftem - ostatni) i w jednym z arkuszy usuwamy deletem, to co trzeba. Skutek będzie widoczny w każdym z zaznaczonych arkuszy.
Link do wypowiedziLink
Zbigniew Bereta

Zbigniew Bereta sinol gdańsk

Temat: usuwanie danych z kórek w wielu arkuszach

Oczywiście, jednak chciałbym wykorzystać makro by można było przypisać do przycisku.
Link do wypowiedziLink
Oskar Shon

Oskar Shon Dodatki do Office
www.VBATools.pl

Temat: usuwanie danych z kórek w wielu arkuszach

np tak: 
Sub kjk()

Dim z%

For z = 1 To ActiveWorkbook.Worksheets.Count

    If Sheets(z).Name <= 150 Then _

    Sheets(z).Range("a1:a150").Clear

Next

End Sub


Zapraszam na VBATools.pl -> tam znajdziesz dla siebie dodatki do Office.
Link do wypowiedziLink
Damian Zurawski

Damian Zurawski Data Engineer w
Grupie Żywiec

Temat: usuwanie danych z kórek w wielu arkuszach

Zbigniewie,

Pytanie jest jeszcze jak chcesz okreslac zakres komorek do wyczyszczenia? czy chcesz wpisac zakres do okreslonej komorki (np. A1), czy bedzie to staly zakres do kasowania danych, czy moze ma wyskakiwac okno z zapytaniem o zakres komorek do kasacji?
Link do wypowiedziLink
Zbigniew Bereta

Zbigniew Bereta sinol gdańsk

Temat: usuwanie danych z kórek w wielu arkuszach

Błąd kompilacji:
"Next without For" mimo, że po next dodałem z.
Do usunięcia mam stały zakres komórek B11:M19 w wybranych arkuszach o nazwach od 1 do 150
Link do wypowiedziLink
Oskar Shon

Oskar Shon Dodatki do Office
www.VBATools.pl

Temat: usuwanie danych z kórek w wielu arkuszach

Nie masz przypadkiem zablokowanych komórek? Menu/Recenzja/Chroń arkusz
Oczywiście w linijce zamieniasz zakres na taki jaki ciebie interesuje:
Sheets(z).Range("B11:M19").Clear


Jeśli twoje arkusze nie nazwywają się 1,2,3 ale Arkusz1, Arkusz2...Arkusz150 to zamieniamy warunek:
If replace(Sheets(z).Name, "Arkusz","") <= 150 Then _


Zakładam że nie robisz nas w konia i nie masz OpenOfficea lub innego wynalazku,
bo kod na Excelu działa jak należy.
Link do wypowiedziLink
Zbigniew Bereta

Zbigniew Bereta sinol gdańsk

Temat: usuwanie danych z kórek w wielu arkuszach

Pracuję z Excel 2010.
Arkusze w których chcę usunąć dane nie są chronione, dodatkowo zaznaczyłem wszystkie i CTRL+1 odznaczyłem zablokuj
Wpisałem dokładnie takie makro ale jest komunikat "Next without For" i podświetlone jest Słowo Next przed End

Sub czysc()
Dim z%

For z = 1 To ActiveWorkbook.Worksheets.Count

If Sheets(z).Name <= 150 Then
Sheets(z).Range("b1:m19").Clear

Next

End Sub

Czekan na dalszą pomoc
Link do wypowiedziLink
Damian Zurawski

Damian Zurawski Data Engineer w
Grupie Żywiec

Temat: usuwanie danych z kórek w wielu arkuszach

Zbigniewie,

Diabeł w przypadku makr tkwi w szczegółach. W tym przypadku nie ma zwykłego podkreślnika po słowie "Then".

Powinno to wyglądać tak "Then _"

Sprawdz czy działa.
Link do wypowiedziLink
Artur D.

Artur D. Solution Architect,
Atos IT Services Sp.
z o.o.

Temat: usuwanie danych z kórek w wielu arkuszach

Kod :
If Sheets(z).Name <= 150 Then
> Sheets(z).Range("b1:m19").Clear

Powinien być w jednej linii lub tak jak w oryginale powinien być znak "_" po Then lub dopisz End If przed Next
Link do wypowiedziLink
Zbigniew Bereta

Zbigniew Bereta sinol gdańsk

Temat: usuwanie danych z kórek w wielu arkuszach

Dziękuję wszystkim.
Zadziałało po wpisaniu End If.
Link do wypowiedziLink
Krzysztof Żurek

Krzysztof Żurek kontroler jakości

Temat: usuwanie danych z kórek w wielu arkuszach

Witam.
Jak zmodyfikowac to makro żeby usuwalo same wartości, pozostawiajac wczesniesze formatowanie komórek?
Dodatkowo usunięte sa wybrane komorki z arkusza (we wszystkich te same) o zakresie np:
P7:X28
AB7:AJ28
AN7:AV28Ten post został edytowany przez Autora dnia 14.11.17 o godzinie 09:09
Link do wypowiedziLink
Oskar Shon

Oskar Shon Dodatki do Office
www.VBATools.pl

Temat: usuwanie danych z kórek w wielu arkuszach

Krzysiek, wystarczy nagrać kliknięcie przycisku [DEL]
a otrzymujesz .clearcontents
Link do wypowiedziLink
Krzysztof Żurek

Krzysztof Żurek kontroler jakości

Temat: usuwanie danych z kórek w wielu arkuszach

:-) dzięki za podpowiedź
Link do wypowiedziLink
« Wróć do tematów
Odpowiedz

Podobne tematy





Wyślij zaproszenie do
Anuluj