Coś ala tak, pod zmienna wartość będziesz miał zawartość komórki "A2" po filtrowaniu. [syntax=vbscript]wartosc = ActiveSheet.AutoFilter.Range.Offset(1).S... 1)[/syntax]
Zacznij od: http://obrazki.elektroda.pl/2291354500_1... Wpisz adres dowolnej komórki. Np A1 W makro If Range("A1")=True Then
Wpisz sobie jako parametr: [syntax=vbscript]Copies:=Range("A1").Val... A1 jest adresem komórki, gdzie masz wpisaną liczbę kopii. Można też użyć nazwy tej komórki, jeśli komórka została jakoś nazwana.
tylko adres porzebny Tutaj. ;) https://obrazki.elektroda.pl/5067666000_...
Proponuję makro zdarzeniowe przy założeniu, że adresy komórek z listami wyboru będą stałe. Można byłoby też wyszukiwać listy rozwijane gdyby ich adresy miały być ruchome. [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target = "TAK" Then Select Case Target.Address Case "$G$2": Range("G8").Select Case "$G$8": Range("G12").Select...
Niestety nie działa :/ Oczywiście, że działa ;) Sprawdza wszystkie komórki w zakresie S340. Innego nie podałeś. Do sprawdzenia zakresu >1 komórka należy zastosować pętlę: [url=http://dzono4.w.interia.pl/kurs/for... Szukanie wolnej komórki: Włącz rejestrator makr i nagraj kilka kombinacji Ctrl+strzałka (w dół/górę). Najlepiej z wypełnionymi...
Zrobiłem bez makr. Może ktoś Ci przerobi na makro. Łącze do formantu w komórce bieżącej, formatowanie niestandardowe ukrywające wpis ;;; formatowanie warunkowe określające kolor. Niestety łącza nie dają się kopiować, bo są zawsze adresami absolutnymi, nawet jeśli się je zapisze bez dolarów.
Skoro nagrało Ci się coś w rodzaju 'ActiveCell.FormulaR1C1 = "=TODAY()' to dopisz pod spodem 'ActiveCell = ActiveCell.Value' i po sprawie. To samo "bardziej po Bożemu": ActiveCell = Date Zamiast ActiveCell może być oczywiście dowolny Range(adres) lub Cells(wiersz, kolumna).
Rozbudowałem Ci to makro tak, żeby uwzględniało operacje na kilku komórkach jednocześnie, ale nie zmieniałem zasady jego działania. Więc jeśli zależy Ci na historii wszystkich komórek, musisz przestrzegać pewnych reguł. Makro działa w ten sposób, że po zaznaczeniu komórki/komórek zapamiętuje ich zawartość i adres (procedura SelectionChange). Następnie...
Nie kumam tego podłączenia Toż to proste jak świński ogon :D Zaznaczasz swego Checkboxa (w trybie projektowania), klikasz we wstążce właściwości i w otwartej tabelce we wierszu LinkedCell wpisujesz adres bezwzględny komórki, gdzie będziesz miał wskazania stanu tego Checkboxa (PRAWDA|FAŁSZ) :please:
Chyba łatwiej zrobić dwuklik na wierszu, z którego chcesz kopiować. Równocześnie uruchamiasz makro i wskazujesz wiersz. Możesz też się upewnić, czy to właściwy wiersz. Oczywiście można też wstawić tam InputBox, tylko wtedy jak chcesz uruchamiać to makro? Jeśli chodzi o moją propozycję, to komórki docelowe wypisujesz po kolei jako adresy obiektu Range:...
Tak o to chodziło aby dane były w jednej komórce a adres przenoszony do komórki obok. A jak się włącza to makro? Proszę o krok po kroku jestem zupełnie zielony jak widać.
Zaproponować dodatkowy arkusz do dopasowania adresów komórek i przycisk Uruchom makro. Cos takiego:
Dobry wieczór, Nie wiem, ile jest tych wzorów i czy będą w nich w danej chwili identyczne ścieżki czy różne. Ale można spróbować tak. W edytorze Visual Basica wpisać sobie proste makro wstawiające do aktywnej komórki albo do komórki o określonym adresie formułę z funkcją WYSZUKAJ.PIONOWO. [syntax=vb]Sub WstawWzor() ActiveCell.FormulaLocal = _ "=WYSZUKAJ.PIONOWO(J6;'C:\Users\user\Des...
jest mozliwe działanie funkcji wyszukaj.pionowo tak jak bym chciała? Jeżeli chcesz to "składać" z komórek to musisz użyć 'adr.pośr' . ale tu pojawi problem bo plik musi być otwarty, więc zostaje makro.
W prosty sposób można tylko w dodatkowej kolumnie D, w której byłby wyliczany postęp jako ułamek. W kolumnach B i C można to zrobić, ale trzeba dla każdej komórki podać osobną formułę, bo przy definiowaniu tego typu formatowania nie można używać adresów względnych, zatem nie można skutecznie kopiować komórek sformatowanych tak, aby każdy wiersz był...
Dziękuję- rzeczywiście.... A by w danej komórce sprawdziło, że ma być (at)- dot. adresu email.
Nagraj makro w exelu jak wysyłasz wiadomość outlukiem, krok po kroku. Adres do wysłania bierzesz z komórki exela i wszystko co potrzebujesz. Będziesz miał kod. Potem można pozamieniać co trzeba aby działało np. tak że podajesz wiersz z adresem i samo wysyła. Tu też masz opis: https://support.microsoft.com/pl-pl/offi...
Witaj, Musisz gdzieś w takim razie zapisywać aktualny stan, albo wykrywać pierwszą pustą komórkę w zakresie pracy Twojego makro (o ile konstrukcja arkusza na to pozwoli).
Sorry za zamieszanie. Dane ułożone są w poziomie przecież. Należy uderzyć w inny Np taki deseń =SUMA(ADR.POŚR(ADRES(7;A4-7&... Wciąż zakładając, że A4 to komórka z dniem miesiąca.
Witam, od niedawna próbuję pisać proste makra ale teraz przede mną cięższy temat... Mam plik excel . Kolumna A zawiera informacje o problemie, B - zadania do wykonania, C - termin, D - osoba odpowiedzialna na zadanie, E- adres mailowy tej osoby. Jest ook 100 wierszy z różnymi zadaniami. Za kilka działań może byc odpowiedzialna ta sama osoba. Czy istnieje...
Bardzo proszę o pomoc chciałbym napisać proste makro, które po przypisaniu do kontrolki formularza lub kontrolki activeX wykona takie zadanie skopiuj komórkę o adresie kolumna: A wiersz: TopLeftCell.Row (klikniętej kontrolki) do wiersz kolumna: c wiersz: ten sam
Napisz to jaśniej i załącz przykładowy plik. Jeśli plik źródłowy jest otwarty (w tej samej instancji Excela), to nie jest potrzebna ścieżka, wystarczy nazwa pliku. Co to znaczy: "Wprowadzenie odwołania do innego (otwartego pliku)"? Gdzie ma być wprowadzone to odwołanie? Do komórki arkusza? Do jakiegoś okna dialogowego wyświetlonego przez makro? Czy...
W dalszym ciągu nie wiadomo, co zrobić z pozostałą resztą miesiąca... Ale, żeby ruszyć z miejsca, zacznij od przeanalizowania / zdebugowania krok po kroku, takiego kodu, pewnie będziesz musiał poprawić warunki dotyczące rozliczania wolnego i urlopu... a nie umiem sie też odwołać do wartości w scalonych komórkach czy ktoś wie jak to zrobić? Odwołujesz...
Proszę o pomoc w makrach Stworzyłem arkusz do obliczeń. Makro które zarejestrowałem importuje mi do "Arkusz1" dane z pliku o określonej nazwie. Nie wiem jak stworzyć makro by nazwa tego pliku była pobierana z komórki o adresie np: D1 arkusza "Obliczenia" znajdującego się w tym samym skoroszycie Moje makro: Sub pobieranie_danych() ' ' pobieranie_danych...
Zliczanie komórek o innym kolorze tła jest możliwe wyłącznie makrem. Jednak nawet makro nie obliczy kolorów jeżeli są one zmienione formatowaniem warunkowym. W makro, w twoim przypadku, trzeba by było zliczać tak samo jak w warunku formatów. Proponuje ci, w przypadku rozwiązania zastosowanego przez kolegę adamas_nt , w jakiejkolwiek komórce wpisać =LICZ.JEŻELI(G1:I3;"<="&C5)...
Podpowiesz proszę jak uruchomić to Makro? Zmieniłem już adres komórki na właściwy i nie wiem co dalej
Proponuję takie makro: [syntax=vbscript]Sub Moduł_Kliknięcie() Dim kom As Range, form As String For Each kom In Selection If kom.HasFormula Then form = Application.Replace(kom.Formula, 2, 0, "ABS(") On Error Resume Next kom.Formula = Replace(form, "*", ")*", 1, 1) On Error GoTo 0 End If Next kom End Sub[/syntax]Przed użyciem makra należy zaznaczyć zakres...
(at)cbrman Mogę prosić o wyjaśnienie kodu? Mam błąd na linijce "lCnt = Mid(sTemp, i, Len(sTemp))" - "type mismatch". (at)lanzul 1. Po AU09 ma być AU10. 2. Zestaw znaków zawiera się w zbiorze jaki tworzy alfabet angielski + cyfry + znaki specjalne jak kropki, przecinki, myślniki 3. Ma się to dziać jedynie w jednej, scalonej komórce o adresie B+C, 9+10...
Tak chodzi o coś takiego. Takie coś to zrobiłem ale chodzi o to by makro sprawdzało właśnie to "z_komorki" oraz "do_komórki". "Z_komórki" to pierwsze wolne a "do_komórki" jedna zmiana wcześniej ale warunkiem jest to by była pracująca. Przepraszam, ale teraz to już zupełnie nic nie rozumiem :) Napisz może punkt po punkcie jak to ma działać. Podaj też...
Można przypisać dowolną kombinację klawiszy do makro wyszukiwania (żeby łatwo było je uruchomić) np. takiego: Cells.Find(What:=Cells(1, 1), After:=ActiveCell, SearchOrder:=xlByColumns).Select Jeszcze lepiej zastosować przypisanie opisane w moim poprzednim poście (...)What:=strSzukana(...). Do szukania tylko w 1 kolumnie można...
Cześć. Potrzebuje pomocy. Chcę utworzyć excela, które będzie służyć do rejestracji obiegu dokumentów. Z założenia excel po wypełnieniu danej komórki z adresem e-mail -1, za pomocą makra w kolejnej komórce przypisuje datę wypełnienia tej komórki, która jest datą wysłania dokumentu (ta komórka jest zablokowana, tak żeby nie było możliwości ingerencji)...
Makro nie musi otwierać skoroszytu Szybsze (w działaniu) rozwiązanie tj bez otwierania i zamykania plików może wyglądać tak: [syntax=vbscript]Public Sub wypisz() Set a = ThisWorkbook.Sheets(1) x = a.Cells(Rows.Count, "A").End(xlUp).Row + 1 Set objFSO = CreateObject("Scripting.FileSystemObject... Set objFolder = objFSO.GetFolder("C:\testfolder") 'Tu...
Funkcja jest, nazywa się: [syntax=vb]=KOMÓRKA("adres";A1)[/syntax] albo [syntax=vb]=ADRES(WIERSZ();NR.KOLUMNY())... nie wiem czy i w jaki sposób to ma rozwiązać Twój problem... Raczej bym zdjął to hasło albo napisał makro do wypełniania tych komórek co chcesz albo pokombinował z kopiuj-wklej specjalnie.
1. Załóż filtr w oryginalnej tabeli (niepuste) -> zaznacz całą tabelę i wtedy dopiero kopiuj dane . Może nawet lepiej wklejać "tylko wartości" niż dane z pełnym formatem każdej kopiowanej komórki. Zrobisz to w jednym ruchu zamiast korzystać z pętli (2000 razy). Po nagraniu makra można edytować zaznaczony zakres tak, żeby najlepiej nam odpowiadał. 2....
W module dos.h jest takie chytre makro do tego które tworzy wskaźnik do określonego adresu, potem trzeba zrzutować ten wskaźnik na typ zmiennej w zależności od rozmiaru komórki pamięci. Makro się nazywa MK_FP(segment, offset). Występuje napewno w Borland C PS znalazłem też że w starszej wersji BC są instrukcje peekX i pokeX.
W komórce z formułą włącz zawijanie tekstu, a oprócz tego w module arkusza zdefiniuj sobie takie makro zdarzeniowe: [syntax=vbscript]Dim kom Private Sub Worksheet_Calculate() With Range("B8") If IsError(.Value) Then .Rows.AutoFit kom = 0 ElseIf .Value <> kom Then .Rows.AutoFit kom = .Value End If End With End Sub [/syntax]Alternatywnie możesz...
Sprawdź takie rozwiązanie. W momencie dowolnej zmiany w arkuszu uruchamiane jest makro updateOne z adresem komórki, która jest do pokolorowania. Jeśli masz czysty arkusz i chcesz wszystkie istniejące komórki pokolorować, uruchamiasz makro updateAll, które przespaceruje się po całym arkuszu. W momencie, gdy usuwasz zawartość komórki albo wprowadzisz...
O!, Rzeczywiście :) Zastanawiam się, czy nie lepiej byłoby zrobić coś w arkuszu PRODUCTION aby uniknąć błędów u źródła. Poprawność danych, makro zdarzeniowe? Jak to wygląda w tamtym arkuszu?
Witajcie, Szukam odpowiedzi od kilku godzin w necie i nie mogę rozwiązać pewnego problemu. Z VBA u mnie kiepsko. Czy jest możliwość stworzenia makra które automatycznie będzie tworzyło kwerendę z sieci WEB? Chcę by makro korzystało z linku zapisanego np. w komórce J1 tworzyło kwerendę sieci WEB. (link jest stworzony z danych kilku innych komórek i ulega...
Do wartości czy adresu? Sam kolor otrzymasz w wyniku użycia: [syntax=vb]= Range().Interior.ColorIndex[/syntax] W nawiasie Range podajesz adres komórki. Jest tylko drobny problem. Nie działa w przypadku formatowania warunkowego. :(
Witam mam taki problem, potrzebuję makro które by z eksportowanego pliku xls dane komórki np. komórka B2 zawierająca datę, C5 zawierającą jakieś dane jak imię nazwisko i adres kopiowało do bazowego pliku excela z tym żeby pobraną komórkę ze źródła napisaną z enterami (ch10) i rozdzielało do poszczególnych komórek w bazowym pliku, czy coś takiego da...
Po co sendkeys, skoro odwołujesz się do adresu komórek i co robi tutaj filtr, skoro w opisie nic o nim nie piszesz?
Przed: ActiveCell.FormulaR1C1 = ... Nie zaktywowałeś żadnej komórki, musi być coś w rodzaju: Range("K342").Select Tylko że z innym adresem.
Ok, jestem po dłuższej przerwie... Ogarnąłem temat z funkcją wyszukaj.pionowo z wpisaniem treści formuły do komórki: [syntax=vbscript] Range("K50").Formula = "=VLOOKUP('HDK'!A43, 'HDK'!A:E, 5, False)" [/syntax] lub [syntax=vbscript] Arkusz1.Cells(w, kIL.Column).Formula = Application.WorksheetFunction.VLookup("C... Worksheets(Arkusz1.Cells(w, 2).Value).Range("C:E"),...
Korzystam z podobnego rozwiązania ale potrzebne jest też formatowanie warunkowe (aby zaznaczać tylko zakres wiersza). Zaznaczanie aktywnego wiersza za pomocą formatowania warunkowego i VBA 1. Zaznaczanie aktywnego wiersza Definiujemy nazwę: AktywnyWiersz=0 Wpisujemy formułę w VBA w sekcji Worksheet - SelectionChange Private Sub Worksheet_SelectionChange(ByVal...
Przyjrzałem się bliżej danym w pierwszym arkuszu i... mamy tam parę "kwiatków". Dane nie są spójne, ale ogólnie nie jest źle. Znalazłem ze 4 wyjątki, które na szczęście "mają regułę". Np: http://obrazki.elektroda.pl/2132347100_1... http://obrazki.elektroda.pl/4068974900_1... Adres też zapisany jest różnie, od lewej: "ul",...
czy funkcja licz.jeżeli będzie tutaj przydatna Aby podzielić wszystko w kolumny najbardziej odpowiedni tutaj makro VBA. Ale najlepszy arkusz Excel niż zdjęcie ekranu. Lub nawet adres strony Web, być może do pobierania danych bezpośrednio z niego.
Możesz zastosować takie makro: [syntax=vbscript]Sub Kopiowanie2() ' ' Kopiowanie2 Makro ' Dim lw As Long, i As Long, j As Long Sheets("Arkusz1").Activate '1 lw = Cells(Rows.Count, "A").End(xlUp).Row '2 j = 1 '3 For i = 2 To lw '4 Range("A" & i & ",B" & i & ",D" & i & ",F" & i).Copy _ Destination:=Sheets("Arkusz2").Range("A" & j).Resize(Range("G" & i))...
Problem wydaje mi się trochę udziwniony, bo jeżeli minuty są potrzebne, to dlaczego nie ma być zer gdy są tylko pełne godziny? Dwukropek oczywiście można zastąpić przecinkiem, tylko czy to jest lepsze? Wszak minuty nie są setnymi częściami godziny. Natomiast format czasu nie jest tak elastyczny, żeby można było pominąć minuty gdy są równe 0, a wyświetlać...
A co jeszcze zostanie? Chyba nic.;) Czyli faktycznie przegiąłem... No nic , będę musiał walczyć dalej sam. Pętelka , którą mam (makro) pięknie skacze po arkuszach i wywołuje makro do wysyłki email , przerobiłem to makro aby wysyłało na adres z komórki "D1" z aktywnego arkusza - no i ładnie to wysyła. Przecież nie pisałem "macie mi to zrobić" tylko...
Dzięki FLESZ za makro. Działa ono w zakresie deklarowanym gdzie znajdują się wartości. Makro skraca czas tworzenia funkcji (klepania adresów). Jeżeli zwiększę zakres i część komórek będzie pustych to Excel traktuje je jako "zero" podstawia do wzoru i wylicza średnią. Jeszcze raz dzięki za pomoc spróbuję zmodyfikować Twoje Makro. Pozdrawiam
Chciałbym aby wyniki były zaciągane do kolejnych wierszy, czyli w jedym wierszu dane dotyczące jednej ankiety, i tak kolejno w kolumnach informacje odnośnie szkolenia Nie wiedziałem, pisząc makro, jak ma być, ale właśnie jest tak, jak chcesz. W arkuszu 'Parametry' wpisz adresy komórek od góry do dołu odpowiadające kolumnom w arkuszu 'Podsumowanie'....
Dalej nie bardzo wiadomo, o co dokładnie chodzi. Masz makro, które po wykonaniu zwraca w kolumnie E formuły z odwołaniami względnymi do komórek z kolumn C i D. Jeśli pomiędzy kolumny C i D wstawisz dodatkową kolumnę lub kolumny, to formuły (obecnie w kolumnie E) dostosują się do nowych adresów kolumn źródłowych i formuły będą nadal działać prawidłowo....
Wstaw na początku makra [syntax=vb]Application.ScreenUpdating = False[/syntax]a na końcu, przed wiadomością: [syntax=vb]Application.ScreenUpdating = True[/syntax]Dzięki temu unikniesz przeskakiwania między arkuszami. Druga sprawa: cały taki przykładowy fragment: [syntax=vb]Sheets("instrukcja").Select Range("b11").Select Selection.Copy Sheets("czas pracy").Select...
Co do przycisku wywołujacego makro. Jeżeli masz więcej arkuszy i będzie to w nich wykorzystywane to kod umieść w module. Menu - Widok - paski narzędzi - Visual Basic. Na tym pasku wciśnij Edytor Visual Basic. Otworzy ci się edytor makr. Po lewej stronie będzie okienko "project -VBA project" . Znajdź pogrubioną nazwę twojego skoroszytu i prawokliknij...
Generalnie na przyszłość, unikaj scaleń, bo z nimi dużo kłopotów. Ewentualnie stosuj scalenia na samym końcu, jak wszystkie dane i formuły są już w arkuszu. Tymczasem napisałem Ci makro, które usuwa scalenia z obszaru formuł, wstawia formuły do wszystkich komórek, a na końcu przywraca scalenia kopiując je z kolumny 'lp' z tabelki po lewej stronie. W...
Jeśli chodzi o to makro inicjujące, to można zrobić przycisk albo skrót klawiszowy. Można by zrobić automatycznie po wprowadzeniu miesiąca, ale to na Pana odpowiedzialność - ja bym tego sposobu nie polecał, bo jak ktoś przypadkowo wejdzie w edycję miesiąca i nawet nic tam nie zmieni tylko naciśnie Enter, to cała tablica się zresetuje. Trzeba jeszcze...
Bo on nie jest uniwersalny, tylko "szyty na miarę" do tamtego skoroszytu. Pojawiają się jakieś błędy w czasie działania makra? Pierwsze do sprawdzenia w kodzie to nazwy arkuszy z tabelą przestawną oraz listą dystrybutorów oraz adres komórki w której jest nagłówek "dystrybutorzy" w tabeli przestawnej. [syntax=vb]shArkPvTbl.Range("A5").Curren...
Co to makro ma robić? Na moje oko wystarczy sprawdzić te dwie komórki przy Change (zmienna 'Target' przekazuje adres) i porównać daty. Dlaczego sprawdzasz formaty przed, a nie po? A jeśli ktoś wpisze tekst zamiast liczby?
dzień dobry, w związku z tym, że jestem słaby w VBA, mam prośbę czy ktoś może pokazać mi przykładowy/ podobny lub fragment kodu w vba , który wykonywałby następujące zadanie : - makro w danym folderze i podfolderach przeszukuje wybrane pliki excel (pliki wybierane są wg nazw , która zawiera oznaczony fragment tekstu) , - w tych wybranych plikach przeszukuje...
w tabeli znajdującej się w Arkuszu1 odnajdywany byłby wiersz zawierający "XYZ", a nastepnie wiersz ten byłby wstawiany do Arkusza2 w tych samych adresach komórek czasem wstawi w wiersz odpowiadający adresowi wiersza z źródłowego arkusza A więc w ten sam adres, czy do nowego wiersza? PS. Niestety funkcje się nie sprawdzą bo ja potrzebuje skopiować wartości,...
Lecz problem w tym, że formuła ma znajdować się w E8, po zmianie adresów komórek na przedziały D$8:D$57, nie przydziela miejsc, pokazuje błąd formuły.
można zrobić i funkcie któras będzie działała jak inne funkcje excela (np suma() z tym że za każdym razem przy wejściu do takiego pliku excela będzie monit o makro. Przyznam że nie jestem za dobry w makrach ale poprzez logiczne myślenie :) coś takiego stworzyłem Function KOMENTARZ(a As Integer, b As Integer) As String KOMENTARZ = Cells(a, b).Comment.Text...
1. Zmienne te muszą być liczbami, np. musi być: kol_pocz = 1 wiersz_pocz = 1 kol_fine = 27 ' (27 jest nr kolumny "AA") wiersz_fine = 100 2. "ZZ" - nie ma takiej kolumny (excel 97). 3. Makro to dla dużych zakresów będzie liczyło bardzo długo (musi przejść wszystkie komórki) 4. Należy usunąć wywołanie okien INPUTBOX i zmiennych z nim związanych (lub poprzedzić...
Dobry wieczór, Według pliku pomocy Microsoftu, aby utworzyć łącze do konkretnej komórki w pliku Excela należy komórce tej nadać nazwę, a następnie przy podawaniu adresu hiperłącza po nazwie pliku dopisać #nazwa. Sprawdziłem, że można również podać adres komórki np. plik#A10 przekieruje do komórki A10 w pierwszym arkuszu, plik#Arkusz2!A10 przekieruje...
Nie wiem czy to zadziała na Excelu 2002, ale możesz sprawdzić przykład z załącznika. Oparty na "zwykłych" formantach formularza - checkboxach. Jak klikniesz prawym -> Formatuj formant to we właściwościach masz Łącze Komórki, gdzie możesz ustawić powiązanie formantu z komórką - to ta pierwsza część. Druga - do checkboxa można przypisać makro, które zaznaczy...
mam coś takiego Sub wypelnienie_komorek() ' ' wypelnienie_komorek Makro ' ' Range("C1").Select ActiveCell.FormulaR1C1 = "=SUM(RC[-2]:RC)" Range("C1").Select ActiveCell.FormulaR1C1 = "=SUM(RC[-2]:RC[-1])" Range("C1").Select Selection.AutoFill Destination:=Range("C1:C5") End Sub jak widać, zakres wyników, który tworzy się w kolumnie C obejmuje C1;C5 Chciałbym...
Witam! Przeszukałem fora, tutoriale straciłem sporo czasu ale problem nie rozwiązany pozostał: PROBLEM: W komórce a1 mam już hiperłaczę które jest hiperłączem dynamicznym opartym na formule (=HIPERŁĄCZE("#ARKUSZ1"&ADRES(PODAJ.POZY... dane i kliknij TU!") Teraz próbuje zbudować makro które skopiuje mi...
Witam. W jaki sposób określać zakres działania makra (chcę aby zakres adaptował sie do ewentualnie wstawianych/usuwanych wierszy)? Nie umiem pisać kodu. Zawsze nagrywam makro ale wtedy zakres jest zapisany jako konkretne adresy komórek i po dodaniu lub usunięciu wierszy zakres pracy działania makra nie jest właściwy. Przykład: 1 Mam sformatowaną komórkę...
Witam, Mam taki problem, bo niestety nie znam się na VBA, a chciałbym sobie ułatwić życie i z automatu wysyłać maile. Mam szablon w excelu z danymi, mailem oraz zmienną wartością procentowa i przypisanym do tym zdaniem. Czy dało by rade zrobić takie makro, które bierze z arkusza adres e-mail i maila z teksem z komórki wysyła automatycznie w momencie...
Po naciśnięciu na przycisk commandbutton, otwiera się "Wstawianie hiperłącza", po wybraniu pliku, dodaje adres do następnej wolnej komórki w wybranej kolumnie. Wprawdzie makro nie działa poprzez okno "Wstawianie hiperłącza", ale wstawia łacza, podepnij je sobie pod przycisk. [syntax=vb]Sub Dodaj_Hiperlacze() Dim iCol% 'kolumna aktywnej komórki Dim...
Jeśli adresy w podglądzie są prawidłowe, to podstaw kopiowanie. [syntax=vbscript]Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets("Arkusz2") wdst = 3 With ws For w = 2 To 812 Step 6 For k = 11 To 24 Step 3 'podgl = Range(Cells(w, k), Cells(w, k + 2)).Address(0, 0) & " kopiuj do " & Cells(wdst, 8).Address(0, 0) .Range(.Cells(w, k), .Cells(w, k +...
...gdy wstawie przycisk w tym samym arkuszu co dane to wszystko działa, natomiast gdy wstawie przycisk do drugiego arkusza to wywala mi błąd... Wydaje mi się, że to wyłącznie wina adresowania. W makrze brak pełnego adresu zakresu komórek do którego się odwołujesz. Poczytaj o obiekcie "Range" Excela. Choćby tu: [url=https://msdn.microsoft.com/en-us/li...
Witam ponownie. Ponownie potrzebuję pomocy mistrzów excela :) [syntax=vbscript]Sub Send_Range() ' zakres ActiveSheet.Range("A6:G6").Select ' envelope ActiveWorkbook.EnvelopeVisible = True ' opcje With ActiveSheet.MailEnvelope .Introduction = "This is a sample worksheet." .Item.To = "xxx(at)xx.pl" .Item.Subject = "AWARIA" .Item.Send End With End Sub[/syntax]...
Niestety nie interesuje mnie wysyłanie do wszystkich tylko do pojedynczych osób.. Do korespondencji seryjnej możesz wykorzystać bazę z jakimś polem od którego będzie zależało czy adres się drukuje czy nie.(wstawiasz w to pole np. jakiś krzyżyk) Nie musisz drukować całej bazy za każdym razem. Tu na pewno coś znajdziesz Korespondencja seryjna jest mi...
Witam Chcę makrem przeszukiwać komórki w bieżącej kolumnie idąc w górę arkusza. Makro zatrzyma się jeśli znajdzie określoną wartość. Jednak jest problem jeśli nie znajdzie tej wartości. Przesuwam się po komórkach poleceniem: ActiveCell.Offset(-1, 0).Range("A1").Sel... Nie wiem czemu jest w treści A1, ale działa. Teraz chciałbym...
Byc moze to angielska wersje Excel. Wtedy w warunku formatowania zastap 'adres' na 'address'
Witaj. Nie piszesz, w jaki sposób chcesz tego inputboxa użyć, więc nie wiadomo, dlaczego nie działa. Najlepiej zamieść przykładowy arkusz, będzie też wtedy wiadomo, w jaki sposób są wpisywane dane do tej tablicy. sytuacja wygląda tak, że kopiuję tekst, gdzie są adresy i inne informację (adresów może być maksymalnie 6). włączam makro, które szuka tylko...
A jak takie makro wykonać zależne ? Włącz nagrywanie makra, nagraj czynności które chcesz wykonać i prześlij na forum - poprawimy :) [url=http://support.microsoft.com/kb/213... makra po zmianie zawartości komórki lub zakresu komórek [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) Dim KeyCells As Range ' jezeli makro maja...
Witam, Makra - fajna sprawa. pod warunkiem że umie się je pisać :) Jak znajdę coś co mogę wykorzystać (tak mi się wydaje), to im dłużej czytam mniej wiem. Bez pomocy z zewnątrz nie dam rady. Potrzebuję makro, które z folderu „W” ze wszystkich plików xlsx.(A, B, C, D) przejdzie przez każdy plik oraz po każdej zakładce i zwróci mi do pliku...
Ale w czym problem? Schemat kodu masz. Mam nadzieję, że go rozumiesz. Poprzednio pisałeś, że chcesz zaznaczać komórki A1 w arkuszu, który ma być drukowany (przynajmniej ja tak zrozumiałem), teraz widzę, że chciałbyś, żeby te komórki były zaznaczane w arkuszu "FORMULARZ", więc trzeba dodać tę nazwę arkusza do adresu: [syntax=vbscript]Sub Drukowanie()...
Sprawdz w pomocy opis funkcji ADRES(); np: =ADRES(2;3;1;FAŁSZ;"Arkusz2") W tym przypadku to się nie przyda bo z ręki byś musiał zmieniać dwa pierwsze parametry a i nie da się tu wykorzystać funkcji wiersz i nr.kolumny bo odnoszą się one do wskazanej komórki a nie do formuły wpisanej w tej komórce. Zostaje tylko makro lub włączenie w opcjach w zakładce...
Nie wiem czy to ważne ale 8-bitowce były programowane w maszynowym bezpośrednio wszystkie. Asm to nic innego jak bezpośrednie komendy procesora. Tu się nie zgadzam - język maszynowy jest dwójkowy i tak pisałem na laboratorium proste programy na Mera 305 (procesor Momik 8b). Pisałem to chyba nie precyzyjne słowo - wprowadzałem do pamięci. Na klawiszach...
Super, wielkie dzięki. Brakuje mi tylko wisienki na torcie tzn: skoro już pobiera adres obrazu z komórki to po co wyświetla mi okno do wyboru pliku. Idealnie by było gdybym tylko włączył makro a ono wstawiło obrazek bez pytania skoro ścieżkę pliku ma podaną w komórce. Teraz wygląda to tak: " Sub Nieobudowany() ' ' Nieobudowany Makro ' Option Explicit...
Sub Korekta(wrs, kol) Application.ScreenUpdating = False If Cells(wrs - 8, kol) < 0 Then Exit Sub If Cells(wrs + 6, kol) < Cells(wrs + 7, kol) Then knyps = 1 If Cells(wrs + 6, kol) > Cells(wrs + 8, kol) Then knyps = -1 Do Until Cells(wrs + 6, kol) >= Cells(wrs + 7, kol) And...
Witam piszę proste makro mające pisać słownie wartości liczbowe zawarte w komórce excela. Osoby, które będą używały tego makra mają małe doświadczenie z excelem, dlatego chcę maksymalnie uprościć interfejs. Chodzi mi o to, żeby można było wybrać komórkę z której ma być pobrana wartość liczbowa i miejsce wpisania tekstu w taki sposób jak robią to formatki...
Jak zdołałem się zorientować ze schematu makro Kod: #define ADDR_SHIFT(A) (NOR_FLASH_START_ADDR + (2 * (A))) jest potrzebne na przesunięcie adresu ponieważ do linii adresowej A0 pamięci flash podpięta jest linia adresowa A1 (P4.1) LPC4088. Rozumiem, że odwołując się do adresu 0x90000001 kontroler EMC ustawi stan wysoki na P4.0, a ponieważ...
Masz makra robiące coś podczas otwarcia skoroszytu? W załączeniu skoroszyt z jednym adresem bez hiperłącza i drugi z hiperłączem. Po zapisaniu i otwarciu jest tak jak powinno być. Chyba ze wejdę w komórkę wtedy nastąpi "Autokorekta". Można ją wyłączyć w opcjach excela - ale to nie jest chyba twój problem. Wydaje mi się że coś/makro "przepatruje" te...
Ps. czy istnieje mozliwosc wybierania z jednego arkusza danych z innych poprzez najprostsze przelaczanie? klik "1" mam dane z arkusza1, klik "2" mam dane z arkusza2 itp Może nie pod przyciskiem (bo konieczne makro) a np pod listą stworzoną za pomocą sprawdzania poprawności można dynamicznie "pobierać" dane z innych arkuszy wykorzystując funkcję adr.pośred()...
Cześć! Drodzy forumowicze! Mam przed sobą następujące zadanie. Piszę makro które ma za zdanie wysłać maila na wskazany adres pobierając dane (jako treśc maila ) z komórki A1 oraz A2 ale ma wysłać taką wiadomość dopiero kiedy w tym wierszu w którejkolwiek z kolejnych komórek A3-A10 pojawi się umowiony symbol np: 1. Makro powinno działać dla wszystkich...
W jednym arkuszu co jakiś czas jestem zmuszony tworzyć min. 5 wierszy (odpowiednio sformatowanych) i jest to dosyć czasochłonne, dlatego od kilku dni zmagam się z napisaniem makra, które by to trochę usprawniło. Chodzi o to aby przez buttony móc kopiować 5 wierszy z jednego arkusza do drugiego w odpowiednim miejscu. Problem polega na tym, że te miejsca...
Trochę zmieniłem zamieszczony w odpowiedziach kod. Makro kończy działanie, gdy napotka pierwszy raz szukaną wartość. Dla wizualnego testu dodałem wpisanie wartości w komórkę C4. [syntax=vbscript]Sub xyz() Dim komorka As Object, data As String Dim Zakres data = Format(Date, "yyyy-mm") Set Zakres = Range("B1:B" & Cells(Rows.Count, "B").End(xlUp).Row)...
to makro rzeczywiście jest prostsze i sumuje wszystkie komórki A1 do UZYWANE A1, B1 do B1, C1 do C1 itd. Ale tylko z A1 do A1 bo nie wiem jak to zmienić docelowo aby np można by było samemu edytować, że źródło to np A1 a adres docelowy to np B1. Ale to w sumie najmniejszy tu problem bo mogę stworzyć arkusz docelowy na wzór arkuszy źródłowych i nie będę...
niemam pojecia ziomus :D Nabijasz punkty ??? po co ??? Liczy się twoja wiedza a nie ilość punktów czy postów - jak nie wiesz to nie zabieraj głosu. Do twórcy topiku Przepisowo wbudowana funkcja sprawdzająca format komórki to KOMÓRKA(typ;odwołanie) - niestety to się tyczy tylko formatu liczb adresu i paru innych ale nie koloru samej komórki. myśle żebez...
jak ustawić by w komórce "B2" wyświetlała się wartość z formantu, czyli np. "10-20%"zamiast "2" Zacznę od końca. Pewnie da się to zrobić na kilka sposobów, ja bym to zrobił tak: - przeniósłbym wynik listy rozwijalnej z B2 gdzieś poza widoczną część arkusza, załóżmy chwilowo że do Z2. Wiersz ten będzie można ukryć, bo w arkuszu nie będzie on przydatny...
Witam serdecznie Próbuje już od dwóch miesięcy znaleźć odpowiednie makro dla siebie ale niestety wszystko co znajduje nie jest w całości moim zapotrzebowaniu, znalazłem prawie wszystko w ułamkach ale nie jestem w stanie tego sklepać w całość. Chciałbym stworzyć makro które: 1. wyśle maila z treścią komórek C2:D16 z arkusza o nazwie "zestawienie" w tej...
Jeśli makro jest w module lub jest to kod formularza a wcześniej nie jest aktywowany właściwy arkusz, to wartość pobierana jest z komórki bieżącego (aktywnego w tym momencie) arkusza. Dla uniknięcia "pomyłek" lepiej użyć pełnego adresu Np w bloku "With-End With" With Sheets("Arkusz1").Rang... & j) .Value = .Value...
Lista niedozwolonych znaków dla nazwy pliku w Windowsie jest krótsza, w dodatku domyślnie nie można niektórych z nich wstawić jako nazwy arkusza, więc finalnie można ją skrócić jeszcze bardziej. Możesz sobie sprawdzić listę i wstawić własne znaki. Pełen przykład poniżej: [syntax=vbscript]Private Sub CommandButton1_Click() ' sendAll Makro ' Makro zarejestrowane...
Jest to makro czyli program napisany w języku Visual Basic. [syntax=vbscript] Function kwota_slownie(kwota As Double) As String Dim do_konwersji As String, kwota_groszy As String Dim zlote As String, cala_kwota As String cala_kwota = Application.WorksheetFunction.Text(kwota... "#####0.00") Select Case Len(cala_kwota) Case 4 If Left(cala_kwota, 1) = "0"...
adres komórki adres komórki zmienna excel adres komórki
zasilanie manipulatorów integra płyta grzejna amica gazem grand cherokee
philips 43pus7334 wymiana głośnika niskotonowego
Bezpiecznik radia Renault Laguna II 2005 Diesel - oznaczenie i lokalizacja Piszczenie żelazka podczas prasowania - przyczyny i rozwiązania