cześć, czy bawił się ktoś z Was API REGON?
próbuję wykonać kod w VBA, który po numerze REGON zwróci mi następujące dane:
-nazwa firmy
-NIP
-ulica, numer lokalu, kod pocztowy, miejscowość
-PKD

bazuje na tym excelu: https://github.com/MarekRod/Excel---GUS

zmusić kod żeby pobierał dane po REGON zamiast po NIP jest bardzo prosto, jednak kiedy pobieram dane po REGON nie wiem jak mogę pobrać NIP; tak jakby nie było takiej danej w pobranym xml.

macie
@cohontes: kiedyś ludzie nie mający pojęcia o Excelu na każde możliwe pytanie na tym tagu odpowiadali: użyj wyszukaj.pionowo albo tabelę przestawną. Teraz jest moda na PQ. Każde narzędzie jest dobre, pod warunkiem, że osoba je proponująca wie do czego służy. Jaką masz konkretną radę do zastosowania w tym przypadku PQ?
Witajcie!

Nie wiem czy zauważyliście, ale obchodzimy dzisiaj specjalny dzień. Mianowicie łączne straty Rosjan oraz Ukraińców w wyniku SWO, (które przebiega zgodnie z planem btw) liczone według Oryxa przekroczyły już 20 000 (14.7k Rosjanie, 5.3k Ukraincy) sztuk sprzętu [według moich obliczeń]!

Ah, jak ten czas szybko mija.
A pod spodem zdjęcie obrazujące temat:

------------------------------
O co chodzi?
Prowadzę mini projekt, który polega na tym, że zrobiłem dashboardy na bazie Oryxa w Excelu
Mbrcz - Witajcie!

Nie wiem czy zauważyliście, ale obchodzimy dzisiaj specjalny dzień...

źródło: Untitled

Pobierz
Hej,

Przygotowałem interaktywne dashboardy analityczne w Excelu oraz Power Bi na bazie danych zescrapowanych danych Oryxa, które opisują straty poniesione przez strony konfliktu w wojnie na Ukrainie. Na dzień dzisiejszy mam 2 odsłony projektu, jedną jako plik .xlsm (macro-enabled file) oraz .pbix [wymaga Microsoft Power Bi]. Plik xlsm wymaga włączenia makr, jeśli się nie da to można użyć .pbix. Dane zamierzam gromadzić i update'ować aż do końca trwania konfliktu.

Jeśli jesteście zainteresowani
Mbrcz - Hej,

Przygotowałem interaktywne dashboardy analityczne w Excelu oraz Power B...

źródło: Excel

Pobierz
#excel #vba #visual #basic

Witam. Od razu się przyznam że jestem VBA’owym ignorantem. Żadnego macro nie napisałem (noo oprócz czyszczenia komórek), zawsze posiłkuje się publicznie dostępnymi kompilacjami (Ctrl+C i Ctrl+V + drobne poprawki by dopasować, czasami na oślep). Będę wiec prosił Was o pomoc z poziomu 0 – totalnego amatora.

Sprawa: na koniec zmiany chce wysłać raport. Raport wypełniany w Excelu, a zadanie macro to:
- otwarcie Outlooka
-wygenerowanie nowej wiadomości
-zaadresowanie
#excel #programowanie #vba

idzie jakos w exceu ustawic domyslne zapisywanie pliku zeby byl w .xls? w korpo generuje mi pliki w .csv i za kazdym razem jak chce cos na szybko zapisac to musze pamietac zeby zmienic zapis na .xls bo inaczej znikna mi filtry itp.
@turbine: stwórz nowy guzik na wstążce do zapisywania i podepnij pod niego makro w vba, kod wygeneruje Ci chatGPT, coś na zasadzie: utwórz guzik w excelu który będzie służył do zapisywania pliku ale zawsze w xls a nie w domyślnym rozszerzeniu programu lub w wymuszonym przez plik
Czy da się w #excel nie używając #vba zrobić zaznaczanie danego wiersza poprzez kliknięcie w czekbox obok niego i np. sumowanie zaznaczonych pól? Nie mam ochoty teraz sobie przypominac i uczyć się na nowo vba :P
W dodatkowej kolumnie wprowadzasz jakiś znak który będzie robił za "check'a", filtrujesz tabelę zostawiając tylko wiersze z określonym "checkiem", zazaczasz kolumnę z wartościami do zsumowania i w linii statusu dostajesz między innymi sumę z komórek które zostały po odfiltrowaniu, ewentualnie dodajesz pole z formułą SUMIF.
@Kamaz0: W systemie "localesy" ustawione są na polskie, ale aktywowana jest opcja UTF-8. Coś czytałem, że to przypadłość związana z tym, że Excel jest 64 bitowy, ale nic ponad to i mam wrażenie, że nie ma na to żadnej rady... :-(
@arturooo32: =TEKST.DZIEL(A1, ".", 1) & "." & TEKST.DZIEL(A1, ".", 2) & "." & TEKST.DZIEL(A1, ".", 3) & "." & (KONWERTUJ.NA.LICZBĘ(TEKST.DZIEL(A1, ".", 4)) - 10)

Ta formuła działa pod następującymi założeniami:

Adres IP jest poprawny i ma 4 części rozdzielone kropkami.
Odejmowanie 10 od ostatniej części adresu IP nie spowoduje wartości mniejszej niż 0.
Pamiętaj, że ta metoda jest ograniczona i nie obejmuje wszystkich potencjalnych problemów związanych z adresami IP (takich jak
Zna ktoś może jakiś sposób na rozsyłanie sms na podstawie bazy danych w excel?

Korzystam z wiadomości Google sparowanych z kompem, ale za każdym razem manualnie kopiuje treść, zmieniam numer klienta i wysyłam. Chciałbym to zautomatyzować.

Może jakaś integracja wiadomości google przez vba z excel? Da się coś takiego zrobić?

#excel #vba
Cześć, potrzebuję pomocy. Chcę, żeby Excel przeskoczył do pierwszego pustego wiersza, ale wyskakuje mi błąd w drugiej linijce, że Application-defined or object-defined error. Co jest nie tak z tym poleceniem?



Arkusz1.Activate

Range("A1").End(xlDown).Offset(1, 0).Select


#excel #vba
@Kamenes: W kolumnie A masz za mało danych. Twój kod zadziała jeśli będą uzupełnione co najmniej 2 pierwsze komórki. Poniższy kod powinien działać lepiej:

Arkusz1.Activate
Range("A" & Rows.Count).End(xlUp).Offset(1,0).Select
mam 2 pliki excel o nazwie "Zeszyt1" i "Zeszyt2".
w "Zeszyt1" mam komórki które muszę pojedyńczo kopiować i wyfiltrować w "Zeszyt2"
Jak napisać makro w którym mogę przypisać skórt np ctrl + d żeby mi to automatycznie robiło?

Sub Makro3()
'
' Makro3 Makro
'
' Klawisz skrótu: Ctrl+d
'
Range("A1").Select
Selection.Copy
Windows("Zeszyt1.xlsm").Activate
ActiveSheet.Range("$A$1:$B$7").AutoFilter Field:=1, Criteria1:="54321"
Windows("Zeszyt2.xlsm").Activate
End Sub

ww. makro wyszukuje 54321

#vba #excel
Dzień dobry. Mam pytanie do osób, które potrafią programować w #vba, polecicie jakieś materiały do nauki? Przerobiłem już jedną książkę do VBA i dwa kursy z Udemy. Złapałem już podstawy, ale wciąż trochę mi się miesza i nie jestem w stanie jeszcze pisać samodzielnie programów. Z jakich materiałów sami korzystaliście podczas nauki?

#excel
@Kamenes jeśli sam nie masz pomyslu co robić to znajdź jakieś forum vba i staraj się rozwiązywać problemy z jakimi ludzie tam uderzają. w ten sposób będziesz rozwiązywać praktyczne problemy z jakimi ludzie się stykają w pracy w vba.
Mirki z #programowanie muszę nauczyć się na studbaza #vba jakie książki polecacie?
Wiem że jest miliard materiałów po angielsku na YouTube ale na samą myśl o oglądaniu jakiś hindusów na YouTube mnie skręca xd w szczególności że już raz próbowałam uczyć się tą metodą i typ przez godzinę tłumaczył coś co typ na studbaza mi w 10 minut wytłumaczył także strata czasu. To już wolę książkę. Może być dla debili. Ważne żeby
#excel #vba #visual #basic

Mam problem z makro. Niestety jestem Amatorem- w VBA (wiedza polega na losowym edytowaniu kodu).
Dodatkowy problem to to, że makro ma działać w środowisku firmowym, na pobieraniu danych ze stron zabezpieczonych dwu etapową weryfikacją. Co ciekawe to już mam za sobą – makro odpytuje o hasło, makro akceptuje klucz weryfikacyjny, tworzy cookie itd. Itp.
Niestety format pobranych danych bardzo mi nie odpowiada, bo jest to kod źródłowy
✨️ Obserwuj #mirkoanonim
Witam,
Czy zestaw książek - Biblia Excel, Formuły 2016 oraz Programowanie VBA 2019, pomogą mi trochę poszerzyć wiedzę z Excela? Wolę postudiować z książki, ponieważ filmy jak oglądam bardzo często robią coś na danym zagadnieniu, do tego jest ich zatrzęsienie, a ja potrzebuję sobie poukładać wszystko chronologicznie. Dodam że jestem posiadaczem tych książek od niedawna. Chodzi mi o ugruntowanie posiadanej wiedzy z excela.

#excel #vba #programista15k #analizadanych #programowanie #
sprzedaj książki i ucz się na przykładach, tak będzie szybciej i skuteczniej, szkoda wbijać sobie do głowy wiedzę z książek która Ci się nigdy nie przyda
#pytanie #programowanie #vba #excel

Sub ShadeEveryOtherRow()
Dim Counter As Integer

'For every row in the current selection...
For Counter = 1 To Selection.Rows.Count
'If the row is an odd number (within the selection)...
If Counter Mod 2 = 1 Then
'Set the pattern to xlGray16.
Selection.Rows(Counter).Interior.Pattern = xlSolid
Selection.Rows(Counter).Interior.Pattern = xlSolid
Selection.Rows(Counter).Interior.PatternColorIndex = xlAutomatic
Selection.Rows(Counter).Interior.ThemeColor = xlThemeColorAccent4
Selection.Rows(Counter).Interior.TintAndShade = 0.399945066682943
Selection.Rows(Counter).Interior.PatternTintAndShade = 0
End If
Next

End Sub

znalazłem taki kod na
If Counter Mod 2 = 1 Then


@turbine: If Counter Mod 2 = 1 Then
Zmien na If Counter Mod 3 = 0 Then
Wtedy masz dokładnie co 3 wiersz pokolorowany
W obecnym stanie kod dziala tak, ze jezeli reszta z dzielenia przez 2 to 1. to kolorujesz
@turbine:
Sub ShadeEveryOtherRow()
Dim Counter As Integer

'For every row in the current selection...
For Counter = 1 To Selection.Rows.Count step [tutaj wstaw liczbe co który wiersz ma kolorować]
'If the row is an odd number (within the selection)...

'Set the pattern to xlGray16.
Selection.Rows(Counter).Interior.Pattern = xlSolid
Selection.Rows(Counter).Interior.Pattern = xlSolid
Selection.Rows(Counter).Interior.PatternColorIndex = xlAutomatic
Selection.Rows(Counter).Interior.ThemeColor = xlThemeColorAccent4
Selection.Rows(Counter).Interior.TintAndShade = 0.399945066682943
Selection.Rows(Counter).Interior.PatternTintAndShade = 0

Next

End Sub
@MPTW: na przyszłość polecam chat gpt, do takich prostych problemów jest bardzo przydatny. Wszystko zostało wygenerowane na podstawie twojego pytania (dodałem na początku pytania vba, żeby AI wiedziało o co chodzi)
#excel #vba #programowanie #pytanie

Excel ma fajna funkcje podpowiadania po wpisaniu pierwszych liter. Pytanie mam takie, czy moznaby jakos zrobic takie macro, ktore mialoby juz wczesniej zdefiniowana list wyrazow? Autouzupelnianie dziala, dopiero wtedy kiedy wpisze juz cos recznie albo jak mam cos wklejone, wiec musialbym za kazdym razem pisac ta liste.
możesz sobie zrobić listę wyrazów, a potem w pewnych komórkach zaznaczyć że wartości mogą być wyłącznie z tej listy


@heniek_8: mniej wiecej, tylko zalezy mi na tym zeby mozna bylo wpisac tez cokolwiek, bo nie zawsze potrzebuje danych z listy, ale najbardziej zalezy mi zeby mi autouzupelnialo, np. jak wpisze poczatek gam to uzupelnia mi samoo gamma