Ja po prostu nie wiem o co Ci chodzi.:)
Zazwyczaj funkcja powinna zwrócić wartośc Spójrz w pomocy VBA przykład funkcji(Help - Writing a Function Procedure) Twoja funkcja nie zwraca żadnej wartości.
Makro w oddzielnom skoroszycie [syntax=vb]Sub wypelnienie() Dim rd&, rs&, bd As Worksheet, bsh As Worksheet rs = InputBox("Wprowadz numer wiersza danych", "Wiersz #?", 1) path_A = "d:\AAA\" path_B = "d:\AAB\" Set bsh = Workbooks.Open(path_B & "BAZA").Sheets(1) Set bs = Range(Cells(rs, 1), Cells(rs, 7)) plik = Dir(path_A & "*.xlsx") While...
Jeżeli w komórce ma się "pojawić" napis "Nie dotyczy" a w innym przypadku masz wprowadzać datę to tak jak sam napisałeś w pierwszym poście: tylko proste makro to załatwi. Niestety funkcja jeżeli w tym przypadku to za mało. Kłopot polega że nie masz pojęcia o makrach (jak sam mówisz), a makro trzeba ustawić w "modułach zdarzeniowych" arkusza. Np. takie:...
w przykładzie zeszyt3 [syntax=vb]Sub Wstawianie_wierszy() Dim i As Long, OstWrs As Long OstWrs = Cells(Rows.Count, 1).End(xlUp).Row 'ile wierszy Application.ScreenUpdating = False For i = OstWrs To 2 Step -1 If Cells(i, 1) <> Cells(i - 1, 1) Then Rows(i).Insert Next i Application.ScreenUpdating = True End Sub[/syntax] A tu kod z nazwą - ale nie...
Witaj [syntax=vb] Sub InsSubtot() Dim bs As Range Set bs = ThisWorkbook.Sheets(1).Cells Dim r&, rp& ow = bs(Rows.Count, 8).End(xlUp).Row r = 2: rp = 2 While bs(r, 8) <> Empty r = r + 1 If bs(r, 8) <> bs(r - 1, 8) Then bs.Rows(r).Insert bs(r, 5) = "SUMA" bs(r, 6) = Application.Sum(Range(bs(rp, 6), bs(r - 1, 6))) bs(r, 5).Resize(1,...
Moja propozycja: jedna para przycisków +/- i przypisane do nich makr: [syntax=vb]Sub wstaw() Rows(ActiveCell.Row + 1).Insert shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Cells(ActiveCell.Offset(1, 0).Row, "H").FormulaR1C1 = "=R[-1]C" End Sub[/syntax] i [syntax=vb]Sub usuń() Rows(ActiveCell.Row).Delete shift:=xlUp End Sub[/syntax] Przed przyciśnięciem...
Może więc takie rozwiązanie jak w załączniku? Menu kontekstowe PPM jest zablokowane, ale jeśli nawet ktoś je wywoła, to nie może wykorzystać wklejania: http://obrazki.elektroda.pl/7679986700_1... Na wstążce zablokowane są funkcje przycisków: http://obrazki.elektroda.pl/8622171000_1... Cały czas jednak mam wrażenie, że takie całkowite...
Druga część warunku pętli to przerwanie w razie powtórnego uruchomienia. Wiersz(e) należy wstawić o jeden niżej (Range("A" & i + 1).EntireRow.Insert) oraz (i = i + how_many + 1) Sub rows_influx() Dim i As Long i = 2 Do Until ActiveSheet.Range("A" & i) = "" Or ActiveSheet.Range("A" & i + 1) = ""...
Przecież pod linkiem jest składnia. Cytuję przykład dodania arkusza przed obecnie aktywnym: [syntax=vbscript]ActiveWorkbook.Sheets.A... Before:=Worksheets(Worksheets.Count) [/syntax]
Wygląda mi to na jakieś "kombinowanie" i, znając życie, nie będzie to działało tak, jak chcesz - bo zaistnieją jakieś warunki, których teraz nie przewidzisz, ale tak na szybko można próbować takim makrem, jak w załączniku. Cała "sztuka" to dodawanie / usuwanie wierszy od końca, żeby zakres się w pętli nie przesuwał. Usuwanie zakłada, że usuwasz wiersze,...
a moze mni ktos napsać jak to dokładnie zrobic bo za bardzo nie wiem
[syntax=vbscript]Sub Naglowki() If Application.CountIf(Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row), [A1]) > 1 Then Exit Sub w = 2 While Cells(w, 1) <> "" n = w + 1 If Cells(n, 1) <> Cells(w, 1) And Cells(n, 1) <> "" Then Rows(n).Insert Range("A1:E1").Copy Cells(n, 1) w = w + 2 End If w = w + 1 Wend End Sub [/syntax]
zdecydowanie początkujący Ale pomoc podręczna mimo wszystko jest dostępna ... :-) A z tym poniżej, jak działa ? [syntax=vba]Option Explicit Private Sub Workbook_Open() Dim ark As Worksheet For Each ark In ThisWorkbook.Worksheets(Array("Inne", "Beton, pompy", "Stal", "Elementy murowe i zaprawy", "Kruszywa", "Szalunki", "Sprzęt", "Żurawie", "Kontenery",...
VBA nie obsługuje polskich nazw formuł, tylko ich angielskie odpowiedniki. Najprościej zrobisz to tak, że włączasz rejestrator makr, wpisujesz w Excelu formułę i kończysz rejestrowanie. Potem przechodzisz Alt+F11 do kodu, wchodzisz w moduł i odnajdujesz ostatnie zarejestrowane makro. Z niego kopiujesz wspomnianą formułę, ewentualnie poprawiając jej...
Spróbuj takiego makra: [syntax=vbscript]Sub Powielanie() Dim ile As Long, w As Long w = 1 Do With Cells(w, 2) ile = .Value .ClearContents .Offset(1, -1).Resize(ile - 1, 2).Insert xlShiftDown .Offset(0, -1).Resize(ile, 2).FillDown w = w + ile End With Loop Until Cells(w, 2) = vbNullString End Sub[/syntax] Makro działa w arkuszu aktywnym zgodnie z przedstawionymi...
Nie bardzo rozumiem co z tym "Znacznik" :( W każdym razie linia, w której znajduje się kursor: Ln = Selection.Range.Information(wdFirstChara...
a po drugie chyba mniej skomplikowane będzie usuwanie tych z zakresu drugiej ramki No, może odrobinkę. W załączniku są dopisane oba. Procedury znajdują się w kodzie arkusza. W makro wstawiania nie ingerowałem, nadmiarowe CheckBox'y wyrzuciłem.
Sub ZapiszPlik() Dim Skor As Workbook Const FOLDER As String = "D:\moje dokumenty\" -tu wpisujesz lokalizację pliku, gdzie docelowo ma się zapisać plik Set Skor = ThisWorkbook Skor.SaveAs FOLDER & "pliczek" & Format(Now(), "_yyyymmdd") - "pliczek" to nazwa jaką będzie posiadał plik ThisWorkbook.Close False End Sub To makro wstawiasz w pliku, który ma...
To nie są ActiveX, więc nic z tego. A nie wystarczy Ci takie szybkie wstawianie na skróty: Ctrl + : spacja Ctrl + Shift + : Wszystko "ciurkiem" w komórce...
czy są w ogóle w excelowskim vba jakieś komendy służące do rysowania tabel? Nagraj makro wstawiania tabeli to się przekonasz :) W sumie to jedna, dwie linijki, gdzie zakres jest typu string, więc łatwo podstawić wartości ze zmiennych. Jeśli ilość kolumn i nagłówki są stałe można wyrysować tabelkę z jednym wierszem i wstawiać kolejne, wplatając polecenie...
Witam. mam z drobna odrębny problem a mianowicie. Pracuję na cenniku w excelu gdzie są numery produktów OE i nasza oraz cena. Chciałbym to zautomatyzować makrem tak aby wyszukiwało po numerze OE i zwracało numer nasz i cenę. Prosze o pomoc. Super gyby to działało w nowym oknie Pozdrawiam
Witam oto z makrem
Witam, Podaję makro: Sub Logoeps() ' Logoeps Makro ' Option Explicit Dim x As Double Dim y As Double Dim obraz As String Dim kom As Range Dim fd As Object Set fd = Application.FileDialog(msoFileDialogOpen... With fd .InitialFileName = ActiveWorkbook.path & "\" & Range("M68") .AllowMultiSelect = False .Filters.Clear .Filters.Add "Picture Files", "*.png;...
W takim razie załącz plik bez kodu, żeby można było dodać kod. P.S. Dlaczego kolumna A jest pusta? Skoro tak ma być, to prosimy o przykładowy plik...
Wstawiasz przycisk, klikasz go 2x i wpisujesz kod: ActiveCell.Value = Now Masz też skróty klawiszowe: CTRL+; wstawia datę, CTRL+SHIFT+; - czas. Data i czas to kombinacja powyższych. Możesz też stworzyć moduł Public Sub WstawCzas() ActiveCell.Value = Now End Sub i przypisać do niego klawisz skrótu (makra->opcje)
...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...
Napisałeś pętlę nieskończoną. Nie do końca łapię co chcesz zrobić. Może wystarczy licznik pętli przesunąć poza gałąź If Do Until ActiveSheet.Range("A" & i) = "" Or ActiveSheet.Range("A" & i + 1) = "" If Range("A" & i).Value = 37258 Then Range("A" & i + 1).EntireRow.Insert...
Teraz jest ok jeżeli chodzi o tworzenie pliku DXF. :-) Jest jeszcze jednak mały problem techniczny zapisu rekordów w samym pliku, a mianowicie przed każdą liczbą i po każdej liczbie w danym rekordzie makro wstawia spację np. "30" natomiast powinno być tak "30" (sama liczba tak jak jest wpisane w komórce). Przy ciągach literowych ten problem nie występuje.
Mnie te makra nie zawiesiły Excela ani razu, ale testowałem je na wersji 2007 i 2010. Być może problem jest spowodowany przez połączenie wklejania danych ze schowka z wstawianiem komórek. Jeśli formatowanie komórek nie ma znaczenia i kopiowane są stałe (tak to przynajmniej wygląda w przykładowym pliku), to może zrezygnować z kopiowania na rzecz przypisywania...
Witam! Bardzo proszę o pomoc, mam następujący problem chciałbym aby makro wstawiało pusty wiersz po określonej liczbie w moim przypadku chodzi aby wiersz pusty był wstawiany przed ostatnią liczbą mniejszą od 1 000 000 (wartości zawsze posortowane są malejąco) np mam taki ciąg: a 6 541 237 b 3 214 578 c 1 002 478 tutaj makro wstawia pusty wiersz d 987...
Wydzielono z Np. tak: To makro bardzo mi odpowiada do moich zastosowań, jednak nie umiem go zmodyfikować. Chodzi mi o to, że potrzebuje aby tworzyło mi arkusze z kolumny J - czasami będą to 2 arkusze, czasami 10. Jak zmodyfikować makro, aby wykonywało tworzenie arkuszy tylko dla pełnych komórek?
Witam (at)adamas_nt podał linka gdzie masz tam wstawianie procedury.
Doczytałem jeszcze, że wszystko odbywa się w tym samym arkuszu. W takim przypadku musisz zagnieździć dwie pętle. Zewnętrzną Do...Until z inkrementacją wiersza, gdzie warunkiem będzie niepusta komórka i wewnętrzną For...Next również ze zwiększaniem indeksu wiersza. Taki szybki przykład "pisany na kolanie"[syntax=vb]wrs = 1 Do While Cells(wrs, 1) <>...
Przyszło mi do głowy że może tak jeszcze opisze mój problem, będzie łatwiej zrozumieć: 1.1. Makro wstawia wszystkie symbole z kolumny A arkusza "BAZA" do arkusza "DANE" do pierwszej wolnej komórki w kolumnie C i dla każdego symbolu wstawia tekst:"cccccccccccc cccccccccc" w kolumnie D arkusza "DANE; 1.2. Raz jeszcze raz makro wstawia wszystkie symbole...
Teraz makro wstawia za jednym kliknięciem we wszystkie wolne pole. Nadal nie jest to. Tamte proste makro umożliwiało mi wstawić pojedynczo wartości. Czyli klikam i wstawia wartości w C5, D5, E5, F6, następne kliknięcie to wstawienie w kolejne wolne komórki, czyli C7, D7, E7, F7. Za diabła nie wiem jak do tego podejść.
makro, które znajdzie wiersz podsumowujący A po co makro miałoby się tak wysilać ? Samo może zrobić podsumowanie ... :) ... Coś w tym stylu ... może i w tym ... może w tamtym ... 886901 Takie odrobinę automatyczne ... podajesz adres początku tabelki, jeśli w innym miejscu jak 'A1', parę innych rzeczy, jeśli chcesz je zmienić, i jak nie będziesz za...
CZeść czy ktoś mógłby mi pomóc w treści kodu makra, który wyszukuje na podstawie danej wartości w komórce np.AO1O_00123456_0 wyszukuje wartość która jest nazwą pliku i automatycznie dodaje hiperłącze? Tzn w moim przypadku wyszukuje po całej wartości która jest w komórce np. AO1O_00123456_0, a chciałabym żeby móc również modyfikować kod żeby wyszukiwał...
Witam W miedzy czassie kolega mi pomagał i wyszlo cos co prawie chcę osiągnąc (plik w załaczniku) jakbyś dołożył to tego pliku usuń tabelki i zrobiłem okienko do wpisywania żółtych pól ale to już czarna magia żeby to zrobić czy dałbyś radę jeszcze to okienko podpiąc formuły??
Dziękuje koledze makro wstawia w kolumnę s wszystkie znaki. A co z włączeniem filtra skopiowaniem danych i wyłączeniem filtra?
Załączyłem przed i po, w tym przypadku makro wstawia formułe A+B
Witam, Mam do napisania makra, które najpierw tworzy 100 arkuszy o nazwach "Nowy_1", "Nowy_2", itd.. a później w komórkach A1:A10 w co drugim arkuszu wstawia liczby od 1 do 10. Niestety makro nie działa poprawnie, nie wiem gdzie popełniam błąd, ponieważ liczby wstawiają się tylko w pierwszym arkuszu. Baaardzo proszę o pomoc ! :) Sub WstawSkoroszyt()...
W zależności od tego który przycisk wybierzesz: - z formularzy: zmieniasz nazwę makro i/lub przenosisz je do oddzielnego modułu wstawiasz przycisk z menu kontekstowego wybierasz opcję "Przypisz makro..." wskazujesz makro, które chcesz przypisać przyciskowi finisz - z przybornika formantów: wstawiasz przycisk z menu kontekstowego wybierasz "Wyświetl...
Witam, Ponieważ tworzę wiele pism które muszę zakończyć tą samą treścią (klika zdań na końcu dokumentu), poszukuję rozwiązania które wstawiało by tekst przypisanym wcześniej skrótem klawiszowym. Interesuje mnie makro które będzie działało trwale, treść którą będzie wstawiało musi zwierać w kodzie VB, tak żeby można było czasami zmienić datę lub treść....
Na razie dziękuję za pomoc. Pozniej sprawdzę makro
Nagraj makro usunięcia scalenia, wstawiania wiersza, ponownego scalenia i zapętlij...
Witam, Mam makro jak w ostatnim fragmencie kodu w temacie: http://www.elektroda.pl/rtvforum/topic15... Makro rozwiązało problem z tego tematu, jednak pojawił się kolejny - otóż muszę w puste komórki w kolumnie A1 wstawić takie daty, żeby w kolumnie była ciągłość. Kod: Sub rows_influx() Dim i As Long i = 2 Do Until ActiveSheet.Range("A"...
Witam [syntax=vbscript]Sub zamianki() Dim kom As Excel.Range Application.ScreenUpdating = False With Sheets("L-ki") For Each kom In .Range("c3:c70") If kom.Value <> "" Then Sheets("R-ki").Cells(kom.Row, "E") = Range("C" & kom.Row).Value End If Next kom End With Application.ScreenUpdating = True End Sub[/syntax]
Proszę tymczasem sprawdzić poniższe procedury:[syntax=vb]Option Explicit Sub Test() Dim strListSep As String strListSep = Application.International(wdListSeparato... If Spaces2Space(strListSep) Then If CyfraJednostka(strListSep) Then If ThousandsSeparator160(strListSep) Then MsgBox "Koniec...." End If End If End If End Sub ''---------------------------...
Makro jest bardzo dobre. Jeżeli zmienisz na:[syntax=vb] Set kom = Selection [/syntax] to obrazek wklei się w całej, scalonej komórce.
Najprościej: Nagraj makro wstawiania autofiltra z dowolnym wyborem. Następnie podstaw wartość parametru jako zakres /Np Criteria1:=Range("A1")
Wróżąc z fusów wróżę, że ta propozycja nie doprowadzi do postępu. Klawisz Enter nie ma tu znaczenia. Sprawdzałem, że jeśli makro wstawia wartość do komórki zdarzenie Change jest generowane i godzina się pojawia, choć nie jest używany żaden klawisz.
Robisz sobie makro artykułu i wstawiasz makro do schematu- zmienia się tylko numeracja komponentu.
Można bez makra, Np wpisz w B2 i skopiuj/przeciągnij w dół =WYSZUKAJ.PIONOWO(A2;Arkusz2!A:B... Jeśli koniecznie VBA, to w kod arkusza wklej [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Columns(1)) Is Nothing Then On Error Resume Next Target.Offset(0, 1) = Sheets("Arkusz2").Columns(1).Find(what:=...
Hej, dziękuję za odpowiedź, niezwłocznie przetestuję makro.
Witam Chciałbym aby makro wstawiało wiersz. [syntax=vbscript] Range("B2").Select Selection.EntireRow.Insert [/syntax] ale to działa gdy jestem w danym arkuszu, a ja bym chciał coś takiego zrobić aby będąc w "Arkusz1" i na podstawie danych z tego arkusza stworzyć nową tabele w nowym arkuszu "Arkusz2" I to jakoś mi nie chce zadziałać (nie mogę składni...
a co masz na myśli mówiąc "...podstawiać formuły w osobnej pętli"? Wstaw kolumny, wpisz ręcznie formuły sumowania i przepisz argumenty do makra. Po zakończeniu pętli wstawiającej kolumny i nagłówki (usuń linię z wstawianiem sum), dopisz następną wpisującą tylko formuły.
makro wstawia, w głównym menu mam przycisk "WYPOŻYCZ" po kliknięciu otwiera mi się userform po przez userforma wypełniam imie ,nzawisko, wybieram z comboboxow reszte, date, godzine i wprowadza mi do historii pobran, jedynie ZWROT wpisuje ręcznie i oblicza mi całościowy czas wypożyczenia
Cześć, mam problem z utworzeniem makra do podanego przeze mnie pliku. Otóż znajdują się tam trzy arkusze: Dane, Dane(2), Do uzupełnienia. W arkuszu Do uzupełnienia potrzebowałbym rozwiązania, aby pobierając dane z arkusza Dane (2) w odpowiedni sposób wstawiać nowe wiersze, pomiędzy stare tak aby nie trzeba było szukać miejsc w arkuszu Do uzupełniania...
Tak napisałeś, ale napisałeś również: Chodzi o to żeby z pliku z danymi makro pobierało konkretne dane i wstawiało w bazę danych. Przerobiłem makro pod pliki z Twoimi danymi. Nie było mowy o tym, że dane mają być importowane przyrostowo. Dodano po 8 Przerobiłem makro, żeby importowało tylko 'nowe' pliki. po drugie w pliku z danymi są pewne komórki stałe...
Disable - //reszta tekstu tylko dla wypenienia No to już wiem że nic nie wiem. U mnie zawsze dla F103, czy to gołego czy w Nucleo (a też np. dla F100) generuje się makro w HAL_MspInit. A jeśli W SYS->Debug jest Disable (obojętnie czy jawnie ustawione czy nieruszana wartość na dzień dobry) to jest __HAL_AFIO_REMAP_SWJ_DISABLE(); czyli w konsekwencji...
Witam! Proszę forumowiczów o pomoc. Jak przerobić następujące makro znajdujące się w załączonym pliku tak, żeby: 1) Przycisk [Dodaj] umieszczał w tabeli poniżej określoną w komórce M6 liczbę wierszy o treści wpisanej tak jak w komórkach B6:K6 2) Obecnie przy dodawaniu wpisów w kolumnach C oraz F makro wstawia puste pola, a ma wstawiać dane z wiersza...
To forum jest bezpłciowe, nie ma panów, ani pań ;) Jeżeli w kodzie adams_nt zmienisz w dwóch miejscach ctrl.Name na ctrl.Caption, to będzie wstawiało opisy checkboxów.
Makro musiało Te makro to właśnie wstawianie 'wyszukaj.pionowo'
(at)PRL Przepraszam za złe wytłumaczenie mojego problemu. Postaram wytłumaczyć jaśniej: 1. W arkuszu "MENU" w komórce F5 makro wstawia na przykład liczbę 1 2.W arkuszu"AAA" i "BBB" muszą zaciągnąć się funkcje 3.Drukowanie arkusza "AAA" do domyślna drukarkę 4. Makro sprawdza czy w arkuszu "MENU" w komórce G13-jest rożna od pustej: 4.1 jeżeli komórka...
Witam, mam problem z makrem. Potrzebuję aby makro wyszukiwało mi w kolumnie zmianę liczb. Np. mam w kolumnie F liczby: 1 1 1 2 2 2 3 4 5 5 5 6 chcę aby makro przeszukiwało mi kolumnę i jeżeli jest zmiana cyfr wstawiało wiersz prze liczbą i tak by to wyglądało: 1 1 1 2 2 2 3 4 5 5 5 6 czy da się coś takiego zrobić??
Oki, tylko że jeśli postawisz kursor w danej tabeli, to masz już z autoamtu przygotowany pusty wiersz do wprowadzania danych, tak działa lista-tabela. 912568 1. Czy chodzi ci zatem o to, żeby prócz tego wiersza z gwiazdką, makro wstawiało dodatkowy pusty wiersz, jako "kolejny" (wtedy będą dwa puste, w tym jeden z gwiazdką) ? 2. Czy wystarczy może tylko,...
Można np zarejestrować makro które wstawia tekst. Przypiąć to do jakiegoś przycisku i naciskać go kiedy chcemy wstawić tekst.
makro które będzie na podstawie porównania wiersza i kolumny wstawiało znak " "X" Makro VBA można wykorzystać do automatyzacji wielokrotnie powtarzanych czynności w aplikacjach Office :idea: Nie przedstawiłeś kolego żadnych plików, ani żadnych informacji, które wskazywały by, że w Twoim przypadku istnieje jakakolwiek możliwość zastosowania kodu VBA...
Witam, Potrzebuję makra, które będzie kopiowało i wklejało zawartość wiersza w którym: Jeżeli w kolumnie G komórka zawiera wartość to wstaw <pod nią> wiersze n-1 i skopiuj dane z tego wiersza. Czyli w komórce g8 pojawia się wartość 3 to makro wstawia pod 8smym wierszem 2 puste i kopiuje cały wiersz 8 do wstawionych wierszy. Mam nadzieję że dość,...
Mam doswiadczenie w pisaniu pluginow w Outloku, chetnie pomoge. Opisz dokladniej swoj problem.
Zdaje się, że dla każdego powiatu musisz mieć osobne procedury dla przycisków. W przykładzie makro "orientuje się" po nazwie miasta wpisanej w komórce zakrytej przyciskiem.
Witam, Mam plik Excela służący jako magazyn. W każdy arkuszu są zapisywane ruchy magazynowe dla każdego produktu w formie tabeli Excela. -w każdym arkuszu jest po jednej tabeli -wszystkie tabele mają dokładnie ten sam układ nagłówków (np. Towar, Cena, Ilość, Jednostka, Suma, Nr FV itp.) ale oczywiście różną ilość wierszy -chcę wstawić pomiędzy nagłówki...
INFO" kto i ile danego dni zrobił Wystarczy funkcja LICZ.WARUNKI bez sortowania Problem że różne formaty daty
Tak będzie mieć Dzięki ! ;) Mam jeszcze jedno szybkie pytanie. Otóż chce żeby makro wstawiało wyraz "NEW" od komórki A2 w dół ale ilość wypełnionych wierszy jest zależna od ilości wierszy w kolumnie C zaczynając od C2. Napisałem coś takiego ale niestety nie działa, mógłby ktoś rzucić na to okiem i podpowiedzieć co jest nie tak? For i = Cells(Rows.Count,...
Zakładam, że za aktualizowanie odpowiedzialne jest jakieś makro. Dopisz wstawianie komórki (Range("A1").Insert Shift:=xlDown) i usuwanie końcowej przed zasadniczą procedurą.
wyszło zupełnie inaczej niż we wzorze Mówisz zupełnie inaczej. A co konkretnie? Nie wstawił wiersza 4 (Twojej tabeli 3). Nie przeniósł daty z C3 do C4? Nie zsumował D2 i D3 w D4?
Prawdopodobnie wstawiasz makro reprezentacji graficznej aparatu. Przy wstawianiu makra w oknie na dole zwykle jest rozwijalna lista z wyborem wariantu makra do wstawienia. Często jest tak, że wariant np. A to reprezentacja graficzna, a np. wariant B to reprezentacja schematowa i jeśli wstawisz właśnie tę reprezentację schematową to bez problemu można...
Witam. Nie mogę poradzić sobie ze stworzeniem makra... Chciałabym aby makro łączyło tekst z komórek z zakresu C13:C21 ( z pominięciem pustych) z zachowaniem formatowania i wstawiało do komórki w innym arkuszu. Plik przykładowy z makrem. Jak dołączyć do makra, które mam makro, które połączy zakresy C13:C21 z arkusza "dodaj dane" do jednej komórki w innym...
Nagraj sobie makro zapisywania. Poniżej zarejestrowane (bez korekty) dwa: "Zapisz jako" oraz Ctrl+s (zwykłe zapisz) http://obrazki.elektroda.pl/3841968300_1... i wybierasz z listy. Aby oprogramować komórkę/zakres potrzebujesz procedury zdarzeniowej [url=http://dzono4.w.interiowo.pl/kurs/d... Tu należy warunkowo wywołać...
Obawiam się, że musisz napisać makro w VBA.
Witam wszystkich forumowiczów Mam problem z prostym makrem, mianowicie potrzebuję aby w każdym arkuszu makro automatycznie wstawiało pierwsza pustą kolumnę. W moim makrze wstawiane jest tyle kolumn ile arkuszy w zeszycie i to tylko w akurat podświetlonym arkuszu. Wiem, że mógłbym to zrobić operacją na wielu arkuszach ale niestety potrzebny jest mi automat....
Cześć, mała sugestia, wstawiaj zdjęcia ostre, nieostrych nie wstawiaj. To jest nieprzyjemne. Tryb makro i dobre światło, statyw lub czasówka. Dbajmy też o oczy, nie tylko o uszy. Z poważaniem terminus
Stworzyłem makro, które wstawia do komórki excela zdjecie produktu, którego nazwa znajduje się w komórce obok. Niestety po sortowaniu pliku zdjęcia nie zmieniają lokalizacji razem z resztą danych. Czy jest jakiś sposób aby "przywiązać" zdjęcie do komórki, tak aby możliwe było sortowanie?
W pliku "Spis" jest 6 komórek do których mają być zaciągnięte dane z pliku"Dane". W makro widzę, że dane są pobierane z pliku arkusz1.xls w folderze C:\Dane_\ Utworzony plik z danymi na dysku C i nie trzeba nic kliknąć. Wystarczy otworzyć plik Spis_xxxx. Testowano to. Jaka jest rzeczywista ścieżka do plików danych?
dziękuje za odpowiedzi - mam jeszcze jedno pytanie - jeśli w pliku txt mam kilka kolumn danych np: 1 2 3 4 5 6 7 8 9 to jest możliwość modyfikacji makra aby kopiował dane np z pliku nr 1 do kolumn A B C, później z pliku nr2 do D E F itd ? EDIT: pojawił się jeszcze jeden problem - mianowicie gdy mam pliki nazwane: abc-1.txt abc-2.txt i tak do 60 to najpierw...
a u mnie działa. może zamioast ; wstawiasz , dodaje załącznik. - przy otwieraniu pojawi się monit o tym ze plik posiada makro - jest tam tylko to makro (w module). plik i komputer czysty i sprawdzony antyvirem
Z przesłanego pliku wynika, że tylko bardzo niewielka część ofert skutkuje zawarciem umowy - co powoduje, że w kolumnie P jest "więcej dziur niż sera" :D Konieczne jest zatem (jeśli baza danych jest "chronologiczna") odwrócenie procedury wyszukiwania. Dla nowych rekordów - można to zrealizować kodem: edycji starych rekordów w celu modyfikacji wpisu...
Cześć, jestem początkująca w VBA, dlatego proszę o pomoc. Potrzebuję stworzyć makro, które formatowałoby ofertę, a konkretnie wstawiało linię po każdym uzupełnionym wierszu, a na końcu zsumowało kwoty by w kolumnie G (wartość netto), I (VAT) i J (wartość brutto). Nagrałam makro wstawiania linii, niestety przy próbach wstawiania pętli wyskakuje błąd....
Witam mam problemik z Excelem. Mam np dane w kolumnie A w kolejnych wierszach np 1,1,2,3,3,3,4,5,5,5 czy jest jakas formuła która z automatu porównała by te dane i przed każdą zmianą danych wstawila pusty wiersz aby pozniej wygladalo to tak 1,1 pusty wiersz, 2 p[usty wiersz 3,3,3, pusty wiersz 4 i tak dalej? Z gory dzieki za pomoc
Pewnie to proste ale nie mogę sobie poradzić. Mam makro umozliwiajce wstawiane zdjęć do komórki po wpisaniu nazwy zdjecia w komórce obok. Obecnie arkusz tego excela znajduje się w tym samym folderze co baza zdjęć ( np KATALOG 2019) sciezka = ThisWorkbook.Path & "/". Jak zapisac ściężkę aby arkusz znajdował sie w innym folderze ( np. OFERTY).
Pętla, podstawianie (replace), porównywanie długości ciągów (len), rozbijanie ciągów (split), podstawianie, porównywanie, rozbijanie, itd. W zależności, czy warunek spełniony wstawianie wiersza, dodanie wartości, mnożenie *10, lub przepisanie. Mnóstwo kombinacji, ale do zrobienia.
Żeby nie grzebać już w schowku to najprościej jest zmodyfikować warunek i dopisać "/". Np.: [syntax=vbscript](...) If .Find.Found Then .Copy .GoTo What:=wdGoToLine, Which:=wdGoToAbsolute, Count:=1 .Find.Text = "-[0-9]{8}" .Find.MatchWildcards = True .Find.Execute If .Find.Found Then .TypeText Text:="/" .Paste (...)[/syntax]
Witam potrzebuje kilku porad odnośnie excela 1. Formułę lub makro do automatycznego wstawiania formuły przy kopiowaniu arkusza. Przykład: w arkuszu2 w polu B2 jest formuła =DANE!H5 czyli przenosi mi wartość z arkusza DANE pola H5 i teraz przy kopiowaniu arkusza2 i zmianie nazwy na arkusz3 chce żeby w polu B2 była formuła =DANE!H6 itd. 2. formułę lub...
nagralam makro ale nowy wiersz wstawia mi sie zawsze pod wierszem 29 a chcialbym aby kazdy nowy wstawial sie na koncu
Sprawdź załącznik. Powinno być dobrze, jeśli nie pominąłeś jakiegoś wariantu. Nie wstawiałem kropek jako separatorów tysięcy, bo to nie jest polski standard. Jeśli chcesz, zrób sobie formatowanie niestandardowe. Makro Konwersja w module uniwersalnym.
Zdaje się, że wystarczy[syntax=vb]Sub Makro1() ' ' Makro1 Makro Dim wks As Worksheet, shp As Shape, adres As String Set wks = Sheets("Arkusz1") Select Case Range("A4") Case 1: adres = "K6" Case 2: adres = "K7" Case 3: adres = "K8" 'itd End Select For Each shp In wks.Shapes If shp.TopLeftCell.Address(False, False) = adres Then shp.Copy Exit For End If...
Witam, Nie mogę poradzić sobie ze znalezieniem sposobu na makro, które będzie wstawiało formułę wyszukaj.pionowo, w zafiltrowanych polach. O ile z samą funkcją nie mam problemu, to nie mogę znaleźć uniwersalnego sposobu na znalezienie drugiej "widocznej" komórki (bo pierwsza jest to wiersz nagłówkowy).
Witam Mam makro (wstawianieprocedury), które wstawia procedurę (Makro2) do aktywnego skoroszytu. Przy okazji jest tworzony przycisk w aktywnym arkuszu, który miałby uruchamiać tą wstawioną procedurę z Makra2. Problem w tym, że przycisk nie próbuje się odwoływać do Makro2 z aktywnego skoroszytu, ale do tego skoroszytu w którym jest makro wstawianieprocedury....
Witam, wczoraj uruchomiłem nowego laptopa z systemem windows 10 pro. zainstalowalem najnowszego office 365 i pobrałem makro do wstawiania zdjęć, z którego od dawna bezproblemowo korzystam: gregmaxey . com na wszystkich wczesniejszych komputerach makro było uzywane na office 2010, tak też zalecają na stronie photo gallery add-in. Zainstalowalem więc...
makro wstawianie wierszy makro wstawianie pliku makro wstawianie tekstu
iskrownik ustawić sterujacy samsung ładowanie zafira
zgrzewarka transformatorowa vestel firmware toshiba
Instrukcja kotła Conica Green 25 S SI Turbo Jak uzyskać listę kanałów na telewizorze Samsung?