[daredevil944]

#excel #vba

Dopiero się uczę, może pomożecie:

1) Jak tutaj zrobić żeby nie usuwało np. A:FM tylko po prostu komórki w których są dane?

Sheets("Data").Select
Columns("A:FM").Select
Selection.Delete Shift:=xlToLeft

2) Jak tutaj zrobić żeby zamiast jakiegoś zakresu poszukało komórek które są zajęte i na nich zmieniło nazwę tabeli? Przy kazdym odświeżeniu może się zmienić i chcę żeby z automatu to zrobiło. Przy nagrywaniu zapisało jakiś stały zakres który był tabelą i teraz tyle zmienia jako tabele.

Sheets("Data").Select
ActiveSheet.ListObjects("Tabela11").Name = "NAZWA"

[DwaNiedzwiedzie]

@daredevil944: Przede wszystkim unikaj kombinacji typu Range.Select, Selection.Metoda, zamiast tego rób od razu Range.Metoda.

1) Columns("A:FM").ClearContents
2) Możesz odnieść się do tabeli przez jej indeks: ActiveSheet.ListObjects(1)

[daredevil944]

@DwaNiedzwiedzie:

jeszcze jedno

3. Jak tutaj zmienić żeby nie brało na sztywno tylko sobie sprawdziło gdzie są dane tak jak np za pomocą ctrl+A?

ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$O$16319"), , xlYes).Name _
= "Tabela11"
Range("Tabela11[#All]").Select

Tutaj robi na sztywno ten zakres "$A$1:$O$16319" i na tym zakresie jest tabela a chce zeby to było po prostu całość danych?

[daredevil944]

@DwaNiedzwiedzie:

1) jak podmieniłem ten kod to nadal usuwa A:FM a chce żeby usunęło dane z całego arkusza

[Pan_Cerny]

@daredevil944: rozpocznij nagrywanie makra, zrób to, co chcesz żeby było zrobione. Podejrzyj kod makra. To dobra nauka IMO.