[Hekun]

#zlecenie
#pracbaza
#excel

Chce ktoś dorobić? Mam do zmiany arkusze excel. Nie bede za bardzo tlumaczyl co i jak wysle po prostu arkusze przed zmiana i po zmianie jak to ma wygladać. Jak macie excel zaawansowany to powinniście ogarnać xD

Na 1 arkusz (po wprawie) wychodzi mi około 2 minuty Arkuszy mam do zmiany 37. Wyjdzie to mniej więcej 2h jak ktoś ogarnia.

Tylko to musi być teraz zrobione na już (sam bym to zrobił, ale nie wiem czy się przez noc wyrobię ze wszystkim xD)

Za wszystko płacę 40 zł przelewem

[brakloginuf]

@Hekun: wypokowe zlecenia ( ͡° ͜ʖ ͡°)

[N.....k]

@Hekun a kiedy to?

[Hekun]

@Niebieski_mazak: no teraz powiedzmy, jak jesteś zainteresowany to wysyłam na priv

[N.....k]

@Hekun teraz to mi się nie chce

[brak_nicku]

@Hekun: najsampierw trzeba albo podwoić stawkę albo pokazać z grubsza o co chodzi, bo może to kwestia 5-minutowego makra:)

[Hekun]

@brak_nicku: @Niebieski_mazak:
już wrzucam jak to ma wyglądać :)

https://we.tl/t-GkJxh8dpUS

na dole tam jest do policzenia średnia aryt.

arkuszy 38, może więcej :)

[Hekun]

jedno jest przed, a drugie tak jak to ma wyglądać po zrobieniu

[soadfan]

@Hekun: czyli zmiana csv na xlsx?

[Hekun]

ide na fajkę, mam nadzieję, że jak wrócę to się ktoś skusi :)

[Hekun]

@soadfan: zmiana na xslv, rozbicie danych z 1 kolumny na 2 kolumny i policzenie średniej arytmetycznej z 2 kolumny jak we wzorze

[brak_nicku]

Miałem rację, że to 5-minutowe makro, ale dzisiaj niedziela

[Hekun]

@brak_nicku: chetnych nie ma, przynajmniej mi wędkę daliście, to ide na poradnik na youtube jak robić makra w excelu xD

[DwaNiedzwiedzie]

@Hekun @brak_nicku: Jakie makro, Power Query! :)

let
 Źródło = Folder.Files("d:\csv"),
 #"Przefiltrowano wiersze" = Table.SelectRows(Źródło, each [Extension]=".csv"),
 #"Dodano kolumnę niestandardową" = Table.AddColumn(#"Przefiltrowano wiersze", "csv", each Csv.Document([Content],[Delimiter=",", Columns=2, Encoding=1250, QuoteStyle=QuoteStyle.None])),
 #"Usunięto inne kolumny" = Table.SelectColumns(#"Dodano kolumnę niestandardową",{"csv"}),
 #"Rozwinięty element csv" = Table.ExpandTableColumn(#"Usunięto inne kolumny", "csv", {"Column1", "Column2"}, {"Column1", "Column2"}),
 #"Zamieniono wartość" = Table.ReplaceValue(#"Rozwinięty element csv",".",",",Replacer.ReplaceText,{"Column2"})
in
 #"Zamieniono wartość"

W pierwszym kroku podstaw swój katalog, w którym masz pliki.

Edit: A nie, moment,

[brak_nicku]

@DwaNiedzwiedzie: nadal nie mam PQ, ale patrząc na długość makro pewnie miałoby mniej znaków:D

[DwaNiedzwiedzie]

@brak_nicku: Pewnie tak, ale nie wykilkałbyś go w minutę z menu :) Choć tu dochodzi podział danych na arkusze, co nieco komplikuje sprawę dla PQ :)

[brak_nicku]

nie znam PQ, więc zapytam: jak bardzo komplikuje? Znaczy, że trzeba arkusz z gotowym PQ ręcznie skopiować 38 razy i każdy ręcznie zmodyfikować? A może trzeba użyć VBA, żeby zautomatyzować PQ:) W obu przypadkach samo VBA może się okazać ciut szybszym rozwiązaniem

[brak_nicku]

@DwaNiedzwiedzie: zapomniałem zawołać^^

[cooluch]

@Hekun zrobione?

[Hekun]

@cooluch: Pan @DwaNiedzwiedzie robi, ale coś nie odpowiada, jak coś to dam ci znać

[cooluch]

@Hekun spoko