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
Przesunięty przez: Zbiniek
18-01-2019, 11:47
Usuwanie kolumn wg kryteriów
Autor Wiadomość
VeX85 
świeżak


Posty: 2
Wysłany: 18-01-2019, 11:31   Usuwanie kolumn wg kryteriów

Witam serdecznie,

Nie mogę nigdzie znaleźć podobnego tematu, sprawa jest tego typu... w arkuszu mam kolumny gdzie pierwszy wiersz to tytuły kolumn przykładowo plik w załączniku

Chciałbym aby po użyciu makra pozostały tylko kolumny "Imię" "Nazwisko" "Faktura" a reszta została usunięta, proszę o pomoc w tym temacie.


edycja Zbiniek:
Załącz plik bezpośrednio na forum (zgodnie z pkt. 2.4 Regulaminu naszego forum); na naszym forum plik ma szansę być dłużej niż na wielu innych serwerach. Część osób ma ograniczony w pracy dostęp do takich serwerów. Często jeśli nie jesteśmy zarejestrowanym użytkownikiem, to trzeba czekać na możliwość ściągnięcia i jeszcze inne (np. wyskakujące okienka). Dostępne formaty załączników znajdziesz w Regulaminie.


usuwanie kolumn.xlsm
Pobierz Plik ściągnięto 7 raz(y) 9.76 KB

ID posta: 360796 Skopiuj do schowka
 
 
Zbiniek 
Excel Expert



Zaproszone osoby: 2
Pomógł: 403 razy
Posty: 2572
Wysłany: 18-01-2019, 11:47   

Zerknij -> http://www.excelforum.pl/...ika-vt59262.htm

P.S. Temat przenoszę do właściwego działu.
_________________
pozdrawiam
Zbiniek

Pisz po polsku! Jest różnica czy siedzisz w sadzie czy w sądzie. "Język polski jest ą-ę" :-)

Prawdopodobieństwo otrzymania satysfakcjonującej odpowiedzi jest proporcjonalne do właściwego sformułowania problemu (popartego załącznikiem).

Jest załącznik - jest impreza

http://rtfm.killfile.pl/
ID posta: 360798 Skopiuj do schowka
 
 
keri85 
Starszy Forumowicz


Pomógł: 27 razy
Posty: 55
Wysłany: 18-01-2019, 20:43   

Może coś takiego:
Kod:
Sub usuń_kolumny()

Dim j As Long

For j = Cells(1, Columns.Count).End(xlToLeft).Column To 1 Step -1
    If Not (Cells(1, j) = "Imię" Or _
        Cells(1, j) = "Nazwisko" Or _
        Cells(1, j) = "Faktura") Then
        Columns(j).Delete
    End If
Next j

End Sub
ID posta: 360836 Skopiuj do schowka
 
 
VeX85 
świeżak


Posty: 2
Wysłany: 21-01-2019, 09:12   

Dzięki za pomoc, działa ;-)
ID posta: 360941 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