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: 63744 Skopiuj do schowka Kopiowanie danych do zdefiniowanych tabel
Autor Wiadomość
maro_co 
świeżak


Posty: 6
Wysłany: 09-01-2019, 11:31   Kopiowanie danych do zdefiniowanych tabel

Witam,

potrzebuję przenieść dane do z góry zdefiniowanych tabelek. Przykładowe dane są w zakładce Arkusz1, a to jak to ma wyglądać jest w zakładce Arkusz2. Dane są wczytywane do arkusza raz dziennie więc o tyle są statyczne.

Jakieś pomysły?

Zeszyt4.xlsx
Pobierz Plik ściągnięto 18 raz(y) 12.55 KB

ID posta: 360069 Skopiuj do schowka
 
 
kuma 
Excel Expert


Pomógł: 1214 razy
Posty: 3602
Wysłany: 09-01-2019, 12:16   

Najlepiej VBA.
Pozdrawiam.
ID posta: 360079 Skopiuj do schowka
 
 
maro_co 
świeżak


Posty: 6
Wysłany: 09-01-2019, 12:54   

Tak myślałem, tyle tylko, że to zadanie przerosło mój poziom kompetencji w VBA. O ile jeszcze przesortowanie wierszy wg. kolumny J i wybranie tych 'pełnych' to dam sobie radę, to już tworzenie tabelek z nagłówkami i odstępami jednego wiersza mnie przerosło.
ID posta: 360080 Skopiuj do schowka
 
 
kuma 
Excel Expert


Pomógł: 1214 razy
Posty: 3602
Wysłany: 09-01-2019, 13:11   

W taki razie to do działu zadania. Przyjrzyj się, czy takie rozwiązanie jak w załączniku może być.
Pozdrawiam.

Kopiowanie wybranych F_kuma.xlsm
Pobierz Plik ściągnięto 14 raz(y) 30.32 KB

ID posta: 360081 Skopiuj do schowka
 
 
maro_co 
świeżak


Posty: 6
Wysłany: 09-01-2019, 13:19   

To mi się baaardzo podoba, dzięki WIELKIE! Sprawdzę jeszcze czy te nagłowki na górze są , ale jak dla mnie wygląda super.
ID posta: 360083 Skopiuj do schowka
 
 
DwaNiedźwiedzie 
Excel Expert



Pomógł: 217 razy
Posty: 555
Wysłany: 09-01-2019, 13:24   

A może Power Query?
Kod:
let
    Źródło = Excel.CurrentWorkbook(){[Name="Tabela1"]}[Content],
    #"Zmieniono nazwy kolumn" = Table.RenameColumns(Źródło,{{"Kolumna1", "papier"}, {"Kolumna2", "nazwa"}, {"Kolumna3", "data transakcji"}, {"Kolumna4", "data rozliczenia"}, {"Kolumna5", "średnia cena"}, {"Kolumna6", "ilość"}, {"Kolumna7", "prowizja"}, {"Kolumna8", "wartość"}, {"Kolumna9", "waluta"}}),
    #"Usunięto inne kolumny" = Table.SelectColumns(#"Zmieniono nazwy kolumn",{"Kolumna10"}),
    #"Posortowano wiersze" = Table.Sort(#"Usunięto inne kolumny",{{"Kolumna10", Order.Ascending}}),
    #"Przefiltrowano wiersze" = Table.SelectRows(#"Posortowano wiersze", each ([Kolumna10] <> 0)),
    #"Usunięto duplikaty" = Table.Distinct(#"Przefiltrowano wiersze"),

    funkcja = (elem as text) =>
        let
            #"Przefiltrowano wiersze1" = Table.SelectRows(#"Zmieniono nazwy kolumn", each ([Kolumna10] = elem)),
            #"Usunięto kolumny" = Table.RemoveColumns(#"Przefiltrowano wiersze1",{"Kolumna10"}),
            #"Nagłówki o obniżonym poziomie" = Table.DemoteHeaders(#"Usunięto kolumny"),
            #"Dołączone zapytanie" = Table.Combine({Table.FromList({null, elem}, null, {"Column1"}), #"Nagłówki o obniżonym poziomie"})
        in
            #"Dołączone zapytanie",

    #"Dodano kolumnę niestandardową" = Table.AddColumn(#"Usunięto duplikaty", "Niestandardowe", each funkcja([Kolumna10])),
    #"Rozwinięty element Niestandardowe" = Table.ExpandTableColumn(#"Dodano kolumnę niestandardową", "Niestandardowe", {"Column1", "Column2", "Column3", "Column4", "Column5", "Column6", "Column7", "Column8", "Column9"}, {"Column1", "Column2", "Column3", "Column4", "Column5", "Column6", "Column7", "Column8", "Column9"}),
    #"Zamieniono wartość" = Table.ReplaceValue(#"Rozwinięty element Niestandardowe",each [Kolumna10],each null,Replacer.ReplaceValue,{"Kolumna10"})
in
    #"Zamieniono wartość"
ID posta: 360085 Skopiuj do schowka
 
 
maro_co 
świeżak


Posty: 6
Wysłany: 09-01-2019, 18:24   

To też wygląda zgrabnie, muszę potestować, bo jeszcze z Power Query nie działałem. W każdym razie dzięki za wsparcie.
ID posta: 360113 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