Wstaw lipne dane i załącz plik
To bylo tylko fragment makro Wstaw jak w Ciebie - 'On Error Resume Next' - gdy nie ma pustych komorek(xlCellTypeBlanks)
Może wstaw plik z danymi dla ułatwienia temu, kto się za to weźmie.
[syntax=vbscript]Sub WstawWiersze() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual x = 2 While Cells(x + 1, "D") <> "" y = x + 2 Rows(y).Insert Cells(y, "C") = Cells(x + 1, "C"): Cells(x + 1, "C") = "" Cells(y, "D").FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)" Range("D" & y).AutoFill Range("D" & y & ":I" &...
Zależy, jak chcesz żeby się makro wykonywało. Albo zarejestruj makro i kod wklej tam, albo wstaw przycisk i w zdarzeniu przycisku.
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...
Używałem tej opcji ale tylko dla "zwykłych tabel" czyli komórek obramowanych itp. Jak w Excel mam wstawione table przez "wstaw tabele" to nie ma możliwości wykonywania operacji na więcej niż jednym arkuszu w obszarze tabeli (opcja wstaw kolumny jest nie aktywna).
do C1 wstaw JEŻELI(CZY.PUSTA(A1);"";B1) i ukryj kolumne B, było tutaj też: http://www.elektroda.pl/rtvforum/topic12...
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...
Najpierw makro, które wstawi przecinki.
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...
Dalej jest źle bo nie to spakowałeś ale już stworzyłem sam. Na razie bez makro ale dodałem kolumnę pomocnicza D (Jak masz dane to prawy klawisz myszy na literę kolumny D i "Wstaw"
Wstaw plik to popatrzę.
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...
Nagraj makro jak wpisujesz formułę. Zobaczysz ją w kodzie.
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...
[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]
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,...
Jak umieścić w konkretnym arkuszu Przycisk polecenia (formant ActiveX) tak aby odpalał makro z Modułu Z toolboxa (v.2007^ ;) menu 'Wstaw' na karcie developer (dolna grupa kontrolek), następnie "wyświetl kod" i wpisujesz: Call NazwaMakra
Ja po prostu nie wiem o co Ci chodzi.:)
Super. Kliknąłem podziękowanie :D. Dzisiaj w pracy przetestuję (nocna zmiana). Czy te makro dodajemy jakoś specjalnie do skoroszytu czy też normalnie na zasadzie makro/wstaw nowe?
tabelki bedą sie róznic opisami poza zółtymi polami i jak nacisnę wstaw b2 to wstawi z arkusza tabelka_b2 i analogicznie z F
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) = ""...
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.
W mojej ocenie w Twoim pliku widać, że w ogóle nie panujesz nad tym co drukujesz :cry: Ustaw sobie właściwie obszar drukowania, spójrz na widok podział stron, ustaw właściwe skale. W większości arkuszy masz ustawione: szerokość jedna strona i wysokość jedna strona i normalnie te dwa obrazki się nie mieszczą "w drukarce" :D Proponuje albo zmodyfikować...
Przetestuj poniższe makro: [syntax=vb]Private Sub CommandButton1_Click() Dim DataPodana As Date Dim lCol& DataPodana = InputBox("Wprowadź datę dniówki w roku rozliczeniowym " & Date, , Date) On Error Resume Next lCol = Application.Match(CLng(DataPodana), Range("3:3"), 0) On Error GoTo 0 If lCol = 0 Then lCol = Application.Match(CLng(DataPodana), Range("3:3"),...
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,...
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",...
Dane docelowe będą bardziej skomplikowane, ale na podstawie "szablonu" sam będę próbował dostosować do moich potrzeb. Potrzebuję wsparcia na start, bo VBA jeszcze nie wchodzi jak trzeba Jeśli dobrze odczytuję Twoje zadanie :?: - uzyskanie efektu takiego jak na zrzucie 1144985 To na początek możesz wypróbować makro z załączonego pliku Protraport.xlsm...
Witaj Odpal to makro [syntax=vb] Sub popraw() Dim bs As Range, r As Long Set bs = Sheets(1).Range("A:C").Cells r = 2 While bs(r, 1) <> Empty If (bs(r, 1) = bs(r + 1, 1)) And (Month(bs(r + 1, 2)) - Month(bs(r, 2)) > 1) Then bs.Rows(r).Copy bs.Rows(r + 1).Insert Application.CutCopyMode = False bs(r + 1, 2) = DateSerial(Year(bs(r, 1)), Month(bs(r,...
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:...
Oczywiście, że funkcji takiej nie ma, bo jest to makro. Musisz otworzyć edytor makr w excelu (Visual Basic) i tam w moim przykładzie znajdziesz funkcję. Ogólnie możesz w edytorze Visual Basic dodać do Twojego arkusza nowy moduł i wkleić w nim definicję funkcji: [syntax=vb]Function NDay(exclude As Range, prev As Date) As Date Dim flag As Boolean Dim...
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.
jestem początkująca To na początek nagraj makro i wstaw tutaj ten kod. Jeżeli nie wiesz, jak nagrać makro, to na Youtube na pewno znajdziesz.
nie chciał bym bawić się w makro Czy w Excelu mogą migać komórki? Te dwie rzeczy nie są zgodne... ale mogą migać np. http://www.goldenline.pl/grupy/Zainteres...
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.
wiem, że pewnie to głupie pytanie ale chyba gdzieś robię jakiś głupi błąd i się zakręciłem. Jak by wyglądało makro na następujące warunki? np. Jeżeli $G$9=E11 to wstaw w G11 aktualną datę z zablokowaną wartością?
Excel 2003: (Nie mam zainstalowanego, mogę się mylić, proszę kolegów o ew. poprawkę. Chodzi o wstawienie przycisku ActiveX) W menu: 'widok' wybierz: 'paski narzędzi' i 'przybornik formantów'. Z przybornika wybierz: 'przycisk'. W okienku 'makra' wybierz makro o nazwie 'actualize' lub W edytorze VB, przy zdarzeniu 'NazwaPrzycisku_Click()' wpisz nazwę...
Skoro nie chcą, zrezygnuj z listy i wstaw formułkę (niestandardowe): [syntax=text]=ORAZ(PODAJ.POZYCJĘ(C4;J$6:... Jeśli jednak makro, to w SelectionChange (ogranicz 'Target' do tych trzech komórek).
wpisanie, na koniec makra, linijek z przypisaniem pustego tekstu Wstaw przed (bf.SetText "") w celu nieco opóźnić makro, aby mieć czas dla ^V (wklej) tt=Timer While timer - tt < 0.5: Doevents: Wend Dodano po 14 bf As MSForms.DataObject' właściwe podejście powinno być tak. Z innej strony DataObject jest tylko w włączonej referencji do Microsoft Forms...
Wszystko się da, ale z zadaniami wykluczającymi się będzie kłopot. Jeśli puste to nic nie rób - da się Jeśli puste to wstaw najwyższą - da się. Ale ... albo albo :) Chyba żeby przeszukać kolumnę bardziej wgłąb niż o 1 wiersz. Wtedy będzie działało. W przeciwnym przypadku będzie się to wykluczać wzajemnie
Wstaw załącznik to jak będę miał chwilę wolnego to spróbuje sobie przypomnieć. :D
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,...
Wygląda na to, że tak. Wstaw przed pętlą Do (po With) [syntax=vb].ShowAllData[/syntax]i spróbuj.
Wtam, doszedłem do etapu, w którym musze wykorzysta makro. Mam 2 kolumny: A.................B dana1 || 2011-04-15 dana2 || 2011-04-16 dana3 || 2011-04-20 dana4 || dana5 || dana6 || Jak zrobić makro, które sprawi, że jeśeli w komórce A jest wpisana dana to w komórce B wstawi dzisiejszą datę która w niezmienionej formie już tam zostanie? Wierszy w kolumnie...
Tak najprościej: On Error Resume Next 'wyłącza błąd jeżeli wpiszesz daną której nie ma w arkuszu 2 a = Sheets(1).Range("a1&quo... 'pobranie ciągu znaków z komórki A1 pierwszego arkusza w excelu kol = Sheets(2).Cells.Find(What... ' numer kolumny wpisanego ciągu znajdujacego się w drugim arkuszy excela...
Załóż nowy plik, wstaw nazwiska, grupy, wrzuć tuplik a oszczędzisz nam czsu. Zrób to jako tabela przestawna, w puste pola wstaw np "*" aby zadziłało. https://www.youtube.com/watch?v=hS6023Kg...
Proszę o pomoc w napisaniu makra, które będzie uruchamiane za pomocą przycisku. Czyżby jakaś podpucha? Jeśli wiesz jak wstawić przycisk i kliknąć w niego p.p.myszy (czego nawet nie musisz, bo Excel Cię wyręczy), to w czym problem? Wstaw przycisk>Przypisz makro>nowe> i między znaczniki (tagi) Sub-End Sub wklej kod...
Jest w module :) Alt+F11, skopiuj zawartość Module1, wstaw moduł w swoim pliku (Insert>Module) i wklej. Funkcję używasz jak wbudowaną. "=" itd...
Witaj. Makro dosyć proste: [syntax=vbnet]Sub Makro1() ActiveCell.Value = "PRZ1" ActiveCell.Offset(1, 0).Select End Sub[/syntax] Podpinasz pod przycisk i działa.
Zapisz/zapamiętaj nazwę kontrolki (cmbLista bodaj), usuń ComboBox z formy, wstaw ListBox, nazwij go tak samo (kichać standardy w tym przypadku) i powinno działać ;)
Zamiast tej linijki[syntax=vb]Wb.Sheets.Copy before:=ThisWorkbook.Sheets("makro")[/sy... pętlę For, z warunkowym kopiowaniem arkuszy. Warunkiem może być cells.find(what:="*") z wyłączoną obsługą błędów i jeśli Err=0, kopiujesz.
Panowie Mam plik txt, w którym mam daty i inne bajery. Mam małą zagwostke Potrzebuje makro które jak znajdzie mi taki ciąg: http://jakasstronka.pl/stronkatest to wstawi mi to do nowej linii (komórki). Ten szukany ciąg znaków jest poprzedzony innymi słowami. Import pliku realizuje mi sie poprawnie
Jeżeli tak to proponuje nagrać makro i podpiąć je pod przycisk (będzie najprościej). Włącz na wstążce zakładkę deweloper Plik-opcje-Dostosowanie wstążki-i w oknie po prawej stronie zaznaczyć Deweloper i OK Na wstążce pojawi się karta deweloper.Otwórz ją. Przejdź na twój pierwszy arkusz. Wciśnij "Zarejestruj makro" Teraz postępuj tak jak zawsze robisz...
Chodzi o wyłączenie przeliczania. Ale jeśli zrobisz to ręcznie, zgubisz datę. W Excelu jest skrót Ctrl+: Możesz sobie dorobić coś podobnego: Wstaw moduł (Narzędzia>Makra>Zarządzaj) i wklej http://obrazki.elektroda.pl/7824836700_1... Po tym wszystkim Ctrl+spacja wstawia aktualną datę w aktywnej komórce.
Załącz przykłąd będzie prościej (wstaw fikcyjne dane). I wg mnie wcale nie potrzebujesz makra tylko suma.iloczynów() wykorzystana jako suma wielu warunków.
Ad1) Zastosuj warunkowe zapisywanie (gałąź If-Else). Sprawdź stan/wartości kontrolek (w pętli wg nazwy typu, jeśli dużo) i jeśli spełniają warunki - zapisujesz, jeśli nie, wyświetlasz stosowny komunikat. Ad2) Wstaw licznik do pętli i wymuś wyjście, jeśli licznik=suma.
Mam problem z przerobieniem makra, na takie które automatycznie wstawi w kolumnie Data https://obrazki.elektroda.pl/3208294900_... Private Sub Worksheet_Change(ByVal Target As Range) Dim xCellColumn As Integer Dim xTimeColumn As Integer Dim xRow, xCol As Integer Dim xDPRg, xRg As Range xCellColumn = 4 xTimeColumn = 5 xRow =...
Dzień dobry 1 .Wpisanie wartości (godzin 24 lub 12 lub 6 lub innych jeśli 24 dzieli się na dwóch pracowników to tak by było wiadomo który przychodzi w dzień a który w nocy ) w arkuszu "ROBOCZY GRAFIK POST MC" w kolumnie oznaczonej datą - spowoduje automatyczne wstawienie w arkuszu "GRAFIK DZIENNY" odpowiednio do wystąpienia wartości w kolumnie IMIENIA...
Dzięki koledze adamas_nt i jego sugestii co do "automatycznego" pobrania numeru kolumny (i wiersza w domyśle) poprawiłem nieznacznie moje makro. Wystarczy teraz wkleić w arkusz "dane" gdziekolwiek twoją tabelę z danymi (jak by ona nie wyglądała). Nacisnąć wstaw kody i kody wewnętrzne zostaną wstawione bez względu na to gdzie znajduje się tabela z danymi...
Cześć! :) Mam taki problem: Mam plik Excela z listą osób: Liczba porządkowa (kolumna B), imię i nazwisko (kolumna C), potem miesiące (od stycznia do grudnia) i suma w kolumnie P. Chciałbym zrobić makro, za pomocą którego wyskoczy mi InputBox, w którym będę mógł dopisać na końcu listy nową osobę. Ponadto chciałbym, aby obok nazwiska tej osoby pojawiała...
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).
Dziękuję za chęć pomocy, tabela jest utworzona w excelu poprzez "wstaw tabele" w załączniku plik z przykładem w docelowej wersji są jeszcze inne tabele niżej dla których też chce zrobić taki przycisk
Samo wyszukaj.pionowo() będzie chyba za mało bo trzeba sprawdzić dwie komórki z nr seryjnym i kodem. Chyba że "dobuduje" się z przodu kolumnę pomocniczą łączącą nr seryjny z kodem. (Z opisu autora zrozumiałem że może się trafić przypadek np. 1235-5 i 1235-8) Może takie makro, ale nie wiem ile jest danych w pierwszym arkuszu. Przy dużej ilości danych...
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...
W podanym linku jest gotowe makro do wklepania, z tym że nie wiesz gdzie go wkleić. Zrób arkusz wstaw jakieś liczby w komórki, dodaj przycisk, dodaj kod reagujący na ten przycisk w którym wstaw tylko komentarz że tu trzeba wywołać coś aby wymieszać komórki w zakresie A1:A3
Właśnie to pozwoliłem sobie zmienić w przesłanym przykładzie w makrze kolegi adamas_nt Wpisz zamiast ostatniWiersz = 100 to ostatniWiersz = Sheets("Arkusz1").Cell... 1).End(xlDown).Row Wtedy makro samo policzy ile jest wierszy i będzie się wykonywało tylko do ostatniego wiersza. Warunek dane w kolumnie...
Pewnie można, ale to już dłuższa historia... :) Najprościej - jeżeli plik-źródło jest w tej samej lokacji - wstawić kwerendę wybierającą dane (Dane->Importuj dane zewnętrzne->Nowa kwerenda bazy danych, wybrać Excel Files * i OK, wskazać plik-źródło (można zaznaczyć "Tylko do odczytu"), a dalej z kreatora" wybrać zakładkę, rozwinąć ją krzyżykiem, wybrać...
Hej próbuję zrobić makro które wkleja w daną komórkę odpowiedni obraz z innego arkusza. W skrócie: Po wyborze obrazka w polu kombi z listy i naciśnięciu wstaw obrazek do odpowiedniej komórki wstawia się obraz. Najlepiej pokaże to przykład który jest w załączniku. Moje pytanie czy dało by się formułę makra uprościć żeby przy większej ilości obrazków...
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()...
Pętlę możesz utworzyć na różny sposób, np. Sub Kopia_co_5() Application.ScreenUpdating = False Dim x As Long For x = 1 To 1000 ' na początek wstaw np. 50 zamiast 1000 Sheets("Arkusz1").Select Rows(5 * x).Select Selection.Copy Sheets("Arkusz2").Select Rows(x).Select ActiveSheet.Paste Sheets("Arkusz1").Select Next x Range("A" & x).Select Application.CutCopyMode...
Ale jaka lista (poprawność danych, lista formularzowa. AciveX)? Chodzi o to, że nie wiadomo przy jakiej akcji ma się makro uruchomić... Może na początek nagraj sobie makro: 'Format>autodopasowanie kolumn' i wstaw gdzie trzeba. Chr(10) też można, w prosty sposób, warunkowo wstawić co ileś tam znaków.
W tej wersji wybiera się wszystkie pliki do importu za jednym razem. Prościej się chyba nie da. (at)maciejgonet Widzę, że używasz 365. Ja mam dostęp tylko do wersji darmowej A1 i tutaj nie widzę wcale możliwości użycia makr... https://obrazki.elektroda.pl/4569294400_... Poprosiłem kolegę, który ma 365 i makro działa poprawnie. https://obrazki.elektroda.pl/3843900100_...
Tak jak napisał one_eddie - trzeba sięgnąć do VBA. Poniżej przykład rozwiązania Twojego problemu. Sub makro() Dim komorka As Range Set komorka = Range("A2") While komorka.Value <> Empty If komorka.Value <> komorka.Offset(-1, 0).Value Then komorka.EntireRow.Insert Set komorka = komorka.Offset(1, 0)...
Ja w tym kodzie błędów nie widzę - makro działa tak, jak je zapisałeś. Nie kończy się na wierszu 16, tylko ponieważ jest ono uruchamiana w zdarzeniu Change komórki, polecenie wpisujące coś do komórki: [syntax=vb]... Cells(c.Row, 12) = DateAdd("m", Cells(c.Row, 9), Cells(c.Row, 11)) ...[/syntax]powoduje ponowne wywołanie zdarzenia zmiany (co może wyglądać...
Hej Od pewnego czasu borykam się w pracy z monotonną czynnością kopiowania i rozdzielania ilości w wierszach w pliku excelowym, chciałbym zakończyć to bezsensowne przeklejanie i stworzyć makro, niestety jestem amatorem, wcześniej głównie pracowałem już na stworzonych przez kogoś makrach i je tylko edytowałem. Chciałbym aby makro weryfikowało mi kolumne...
co musze zrobic aby dopisac tekst w komorce A29 lub A48 i A32 i A51 To puste komórki makro określa, ile chcesz skopiować, ponieważ liczba wierszy jest różna w różnych arkuszach. Chyba że tam Wstaw komentarz.
Witam. Kiedyś już pytałem o to i miałem odpowiedź na to pytanie, ale nie mogę tego odnaleźć. Jak napisać makro, aby w pewnym zakresie komórek po wpisaniu do komórki jakiejkolwiek liczby, przed liczbą zawsze automatycznie dodał się znak równości? Ten zakres komórek co jakiś czas jest edytowany i dopisuję do komórek kolejne liczby, które mają być sumowane...
Jak można zrobić, żeby przed uruchomieniem tej procedury makro sprawdziło czy w tabeli ("A3:D&) nie ma już danych osoby wstawionej do komórek Przykładowo - sprawdzanie nazwiska (w praktyce trzeba by zastosować rozbudowany słownik bo mogą występować pracownicy o tym samym nazwisku :D ) można zrobić poprzez małą modyfikację Twojego kodu :spoko: [syntax=vbscript]...
Przyczyną błędu jest tylko to, co napisał adams_nt : powinna być deklaracja typu jak poniżej: Ewentualnie program mógł by sprawdzić czy akrusz B jest otwarty, jeżeli jest nie otwierać go ponownie a jeżeli jest zamknięty otworzyć go. Założyłeś, że Twoje makro będzie kopiować z pliku B.xls aktualnie zaznaczony wiersz - ono nie otwiera pliku [ponownie]....
Cel jest prosty, chcę aby w każdej komórce w kolumne, wstawiało mi makro formułe do momentu kiedy np w kolumnie A będzie cokolwiek wpisane. W programowaniu nie ma 'na przykład. Dlatego pokaż arkusz wejściowy i arkusz po wykonaniu makra.:)
Cytat z microsoftu dot. skrótów klawiszowych: [syntax=vb]Bieżąca data Zaznacz komórkę i naciśnij klawisze CTRL+; Bieżąca godzina Zaznacz komórkę i naciśnij klawisze CTRL+SHIFT+; Bieżąca data i godzina Zaznacz komórkę i naciśnij klawisze CTRL+; oraz naciśnij klawisz SPACE, a następnie klawisze CTRL+SHIFT+;[/syntax] Albo robisz to więc w sposób nr 3,...
Nagraj makro usunięcia scalenia, wstawiania wiersza, ponownego scalenia i zapętlij...
Zaproponowany uprzednio kod makra przystosowany jest do określonego układu tabeli :!: :D tzn. po zmianie układu kolumn trzeba stosownie kod zmodyfikować :cry: Dodatkowo makro nie przystosowane jest do "niespodzianek" typu "nadziewanie" pustych komórek pojedyńczą spacją czy wprowadzania nietypowych wierszy tabeli z nazwami podzbiorów danych :sm31: :cunning:
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:=...
Excel to arkusz kalkulacyjny (obliczeniowy) a nie gotowy program. Nie da się "wstawić "tabelki w jeden wiersz. Wg mnie nie do końca rozumiesz co to jest arkusz kalkulacyjny. Co do makra i "małej" podpowiedź. :) Kłopot polega na tym że pisanie makra pod dane rozwiązanie musi opierać się na konkretnych/stabilnych danych (które zna autor projektu). To...
Proponuję makro zdarzeniowe BeforeDoubleClick: [syntax=vbscript]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, Columns("B:C")) Is Nothing Then Exit Sub Cancel = True If Len(Target) = 19 Then Exit Sub Target.Value = Format(Now, "yyyy-mm-dd hh-mm-ss") Target.Columns.AutoFit End Sub[/syntax]Makro...
no właśnie chciałem by było to na zasadzie przeklikania tylko przy odbiorze czy wydaniu.
Makro działa.. Dziękuję
Makro jest bardzo dobre. Jeżeli zmienisz na:[syntax=vb] Set kom = Selection [/syntax] to obrazek wklei się w całej, scalonej komórce.
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?
Ile tekstu zawiera plik? Jak często występuje szukane słowo (np w jednej linii)? Makro w Word, czy w Excel? [url=https://www.elektroda.pl/rtvforum/t...
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...
Po pierwsze dzięki za szybką reakcję i pomoc. Aczkolwiek makro nie działa wg mojej instrukcji powyżej. W twoim makro kopiuje i rozdziela same ścieżki, czyli tylko kolumne T. A powinno kopiować wszystkie kolumny, czyli cała strukture tabeli.
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
Dzień dobry, Próbuję stworzyć makro, które kiedy wpiszę cokolwiek w kolumnie C, automatycznie wstawi w dwóch komórkach obok datę i numer wpisu. Np. wpisuję w C2 "dane", automatycznie w A2 pojawia się dzisiejsza data, a w B2 numer wpisu np. "2015/1". Miałoby to działać w ten sposób dla całych kolumn. Czyli wpisując coś do C3, pojawi się data w A3 i kolejny...
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ł...
Pewnie jest w tym makro jakiś błąd (sądząc po godzinie powstania = mniej więcej godzina postu to nawet bardzo prawdopodobne). Niestety bez rzeczywistego pliku danych ciężko coś poprawić. Nie znam specyfiki Twojego arkusza, ale spróbuj zmienić na początku makro: Const MaxR = 20 ' maksymalna ilość powtórzeń zamiast 20 wstaw 100. Zobacz czy coś się zmieni,...
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()...
makro wstaw excel makro wstaw wiersze excel makro wstaw wiersz
amazon assistant czujnik czarny czujnik zielony podłączyć niemiecki telefon
rudocell viessmann ogranicznik przepięc
Odpowietrzniki układu chłodzenia w Mercedes C216 5.5 388 KM Ustawienie mechanizmu CD w AIWA NSX-R30