Mam stworzony arkusz. Chciałbym automatycznie wysłać e-mail do osoby z wybieranej listy o treści jak w kolumnie C. Najlepiej jakby to było po kliknięciu w wiersz "wyślij wiadomość" lub żeby była informacja, że taki mail już został wysłany. Proszę o pomoc w utworzeniu skryptu. #sheets #google #vba #skrypt
malysek599 - Mam stworzony arkusz. Chciałbym automatycznie wysłać e-mail do osoby z w...

źródło: comment_mDXaDpmd7jHdN6Af9nqpZbvjjwcDYHoR.jpg

Pobierz
  • 4
  • Odpowiedz
  • Otrzymuj powiadomienia
    o nowych komentarzach

Treść przeznaczona dla osób powyżej 18 roku życia...
  • 1
  • Odpowiedz
  • Otrzymuj powiadomienia
    o nowych komentarzach

Szybkie pytanie, czy orientuje się ktoś czy jest możliwość stworzenia folderu na sharepoincie używając VBA, bez tricku z mapowaniem dysku sieciowego. Od razu uprzedzam, MkDir to nie jest rozwiązanie.
#vba #sharepoint #programowanie #hehe
  • 5
  • Odpowiedz
  • Otrzymuj powiadomienia
    o nowych komentarzach

  • 1
Jak zrobić żeby jednym fragmentatorem manipulować tabelą (tbDane) i tabelą przestaną.

Źródłem tabeli przestawnej jest tabela tbDane.

#excel #vba
  • Odpowiedz
  • Otrzymuj powiadomienia
    o nowych komentarzach

Mam makro, które wstawia zdjęcia i chciałbym zapytać, czy jest możliwość skalowania % rozmiaru zdjęcia od oryginału? Czasami zdjęcia do rozmiarów 150x200 źle się zmniejszają bo ich rozmiar jest za szeroki i widać, że są mocno zwężone.

With ActiveSheet.Shapes.AddShape(msoShapeRectangle, 1, 1, 150, 200)
.Name = "MyPicture1"
.Line.Weight = 0.2
.Fill.UserPicture "aa.jpg"
  • 2
  • Odpowiedz
  • Otrzymuj powiadomienia
    o nowych komentarzach

czy jest możliwość skalowania % rozmiaru zdjęcia od oryginału?


@Tomz: Minęło trochę czasu ale może się przyda. Po wybraniu obrazka, który wstawiasz jest opcja:

Selection.ShapeRange.ScaleWidth 0.8433333333, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.8433337499,
  • Odpowiedz
Mirki, potrzebuję napisać kod VBA, który będzie mi wpisywał do kolumny np. L liczbę w zależności od liczby w kolumnie B. Tzn jeżeli w kolumnie B jest liczba z przedziału 1-15, wpisz do L liczbę 14 itp. Dzięki za pomocną dłoń ( ͡° ͜ʖ ͡°)
#excel #vba
  • 6
  • Odpowiedz
  • Otrzymuj powiadomienia
    o nowych komentarzach

@1001001: trochę go edytowałem, bo to 14 chodziło mi o sztywno przypisaną liczbę, czyli no gdy jest liczba 9 lub 8 lub 7, wpisuj 14, ale i tak wielkie dzięki :)
  • Odpowiedz
Mireczki, w jaki sposób z komórek o takim zapisie :

2019-02-04 12:09:41.92748
04.02.2019 11:28:12

wyciągnąć godzinę w takim formacie dd:mm:ss?
  • 10
  • Odpowiedz
  • Otrzymuj powiadomienia
    o nowych komentarzach

uczę się sam


@etherard: to bardzo fajnie, ale od razu zapomnij o istnieniu instrukcji Goto (wyjątek - archaiczna obsługa błędów w VBA On Error Goto - wymuszająca użycie Goto). Wszystko poza obsługą błędów da się zrobić bez jej użycia, a nie nauczysz się bardzo złych praktyk
  • Odpowiedz
Mirki mam problem z #vba. Kumpel podesłał mi jakieś zadanie żebym pomógł mu rozwiązać w #excel. Mam komórkę do której chce przypisać ocene ucznia z kolumny. Jak iterować po kolumnie każdego ucznia? Chciałem to rozwiązać w taki sposób że numer w dzienniku ucznia z innego arkuszu z danymi będzie iteratorem. Checkboxem "aktywuje" wyświetlanie oceny". Byłym w swoim i jego imieniu wdzięczny za pomoc :)
#programowanie
Kluska1337 - Mirki mam problem z #VBA. Kumpel podesłał mi jakieś zadanie żebym pomógł...

źródło: comment_96MmCXhsFZteSpmePPfsLWrElJsexDTW.jpg

Pobierz
  • 13
  • Odpowiedz
  • Otrzymuj powiadomienia
    o nowych komentarzach

Mam nadzieje że teraz jest bardziej zrozumiale wytłumaczone :D


@Kluska1337: Jak zrobić offset to już napisałem wyżej, mając ID. Tylko nadal nie wiem, co to za ID i czym się różni od tego co jest w komórce C3... Jeśli C3 to pozycja ucznia na liście, to w komórce A6 wystarczy wstawić:

Range("A6") = Sheets("Baza danych").Range("L1").Offset(Range("C3").value).Value
Czyli mówiąc po chłopsku - w A6 wstaw wartość przesuniętą względem L1 z drugiego arkusza o
  • Odpowiedz
  • 0
Jak policzyć liczbę sobót i niedziel między dwiema datami? Funkcja DataDiff zwraca liczbę dni między datami a ja chcę policzyć ile jest sobót i niedziel. Wie ktoś jak to zrobić?
#programowanie #vba
  • 5
  • Odpowiedz
  • Otrzymuj powiadomienia
    o nowych komentarzach

@dupaztrupa: To mnie rozbawiłeś. Myślałeś że samo podzielenie na 7 wystarczy? Oprócz tego trzeba oczywiście odpowiednio pobawić się warunkami brzegowymi. No ale do tego trzeba użyć trochę pomyślunku.
Po prostu załamuje mnie takie podejście że zamiast chwilę pomyśleć, to prosi się o gotowca.
  • Odpowiedz
@zapomnialemjakiebylohaslo: to się nie do końca rozumiemy, żeby zaimportować te dane musisz użyć VBA, ale zamiast po prostu otwierać poszczególne pliki - importujesz je za pomocą zapytań SQL przy wykorzystaniu sterownika ADOdb. Z tego co wiem, to jest chyba najszybsza metoda, bo pomija wszystko co Excel próbuje robić przy otwieraniu pliku - sprawdzanie formuł, łączy itp. Nawet jak ich tam nie ma - to zajmuje to sporo czasu, a przy
  • Odpowiedz
Dzień dobry szanownych specjalistów.
Przychodzę prosić o pomoc jednocześnie dając przy tym zarobić. Ten skrypt jaki chciałbym ogarnąć jest niby prosty, ale złożony (dla mnie). Poza wyszukaniem w plik2, pobieraniem danych z niego i wklejaniem do plik1 to jeszcze makro miałoby parę innych pętli. Możliwe, że sam bym to ogarnął, ale naprawdę szkoda mi czasu. Posiedziałem chwilę nad tym i trochę rozumiem. Możliwe że dla ogarniętego to z pół godziny maks. Może
  • 2
  • Odpowiedz
  • Otrzymuj powiadomienia
    o nowych komentarzach

@1001001: są dwa pliki. plik1.xlsx to tabela gdzie wpisuję wyniki na podstawie plik2.csv, który zawiera surowe wyniki. Po prostu porównuję i wpisuję ręcznie. To wszystko mógłbym na chama nagrać i po prostu mieć brzydki, wielgachny kod z każdym poszczególnym elementem.
Ale do rzeczy. Kopiuję z np komórki A15 nazwę testu i szukam w plik2.csv. Wynajduje i kopiuję komórkę niżej i wklejam ją w wyznaczonym miejscu w plik1. Po czym leci
  • Odpowiedz
#excel #studbaza #vba #makro
Czesc, mam taki mały problem, nie wiem jak do tego podejsc
coś ala dashboard do oznaczania statusu projektu. w komórkach b3, b9 etc zaciąga mi się data zakonczenia i kolejno na tej podstawie dopisuje zakonczenie task1 task2 funkcją workday.
jak tu zgrabnie podejsc do tematu przycisku refresh, ktory:
a) sprawdzi date zakonczenia projektu (z reguly jest ich 6-8 ale to sie moze roznic) zawsze
cactooos - #excel #studbaza #vba #makro
Czesc, mam taki mały problem, nie wiem jak d...

źródło: comment_pY827MXMFx2BNsVISckXsENwYsYWzSDj.jpg

Pobierz
  • 6
  • Odpowiedz
  • Otrzymuj powiadomienia
    o nowych komentarzach

via Wykop Mobilny (Android)
  • 1
Dobra, mam naprawdę durne pytanie...
Mam w #excel #vba odziedziczony plik, który wykonuje wiele operacji obliczeniowych na danych. W produkcji zajmuje mu to ok. 40 minut.
Przygotowałem sobie mały, testowy zestaw danych, który się liczy w okolicach 3 minut.

I teraz zaczyna się magia ( ͡° ͜ʖ ͡
  • 13
  • Odpowiedz
  • Otrzymuj powiadomienia
    o nowych komentarzach

@DarkAlchemy: wystarczy 5 sekund, żeby stwierdzić, że to nie jest kod napisany przez osobę z choćby średnią znajomością VBA. Brak deklaracji zmiennych, kod ewidentnie skopiowany z rejestratora makr i koszmarki typu:

If c = 86 Or c = 87 Or c = 93 Or c = 95 Or c = 100 Or c = 105 Or c = 106 Or c = 108 Or c = 109 Or c =
  • Odpowiedz
@DarkAlchemy: nie widząc pacjenta więcej nie pomogę, ostatnio pomagałem komuś, kto miał koszmarne problemy z wydajnością i tam wystarczyło wyłączyć zawijanie wierszy... Tu problemem mogą być formuły, algorytm obliczeń, albo coś równie mało oczywistego jak w tamtym przypadku
  • Odpowiedz
Co potrzebuje zrobić w poniższym kodzie, żeby przeskoczyć do następnego "i" w pętli jeżeli sprawdzane 2 komórki mają 0 lub są puste?

For i = 3 To LastRow
'If .Range("BB" & i).Value <> .Range("AB" & i).Value Then
If .Range("BB" & i).Value = 0 And .Range("AB" & i).Value = "" Then

MsgBox
  • 1
  • Odpowiedz
  • Otrzymuj powiadomienia
    o nowych komentarzach

Potrzebuję pomocy z następującym zadaniem. Mam plik excela składający się z kilku worksheetow, każdy ma inną nazwę, dla uproszczenia przyjmijmy, że są to kolejne lata. Te arkusze zawierają – znów tylko przykład – dane pracowników, każda zmienna jest w innej komórce, wszystkie arkusze są zorganizowane w ten sam sposób tzn. że w kolumnie 2 jest zawsze nazwisko, w 5 wygenerowany przychód, w 8 adres itp. Każdy pracownik jest unikalny, tzn. kombinacja imienia
  • 6
  • Odpowiedz
  • Otrzymuj powiadomienia
    o nowych komentarzach

Dziękuję za podpowiedź, ale łącznie arkuszy nie wchodzi w grę, to jest to, czego właśnie chciałem uniknąć. A przy okazji, skoro jesteśmy przy vlookup to do podobnych zadań polecam łączona index match w wersji array – to jest naprawdę mocarne połączenie i potrafi zwrócić wartości przy nieograniczonej liczbie założeń.
  • Odpowiedz
@czterypalcewnatalce: Formułami będzie lekko problematycznie, jeśli liczba arkuszy będzie się zmieniać (np. będą dochodzić kolejne lata). W VBA zrób pętlę lecącą po arkuszach, a w niej Range.Find w kolumnie uzależnionej od rodzaju wprowadzonej zmiennej (nazwisko lub adres) i tyle. Można też zrobić to w Power Query (połączyć wszystkie arkusze i filtrować według wybranej zmiennej) i tylko odświeżanie tabeli oskryptować w VBA.

wybiera z drop down menu imię pracownika


@czterypalcewnatalce
  • Odpowiedz