Zarejestrowane makro musi działać. Spróbuj ograniczyć kod do następującego: [syntax=vb] Sub Podglad_wydruku() ActiveSheet.PageSetup.CenterFooter = "Strona &P z &N" ActiveWindow.SelectedSheets.PrintPreview End Sub[/syntax]
Rzeczywiście dane w kolumnie B nie były takie jak w makro, nie wiem dlaczego excel zmienia po wpisaniu więcej niż trzech kropek na jakąś większość ilość znaków... Poprawiłam dane w kolumnie B. Teraz śmiga. W załączeniu plik poprawiony. Dodałam jeszcze komendę do wyjświetlania okna gdy makro napotka na licznik nie zdefiniowany w makrze(np ".........8")....
Witam, Pomoże ktoś w zrobieniu makra takiego że: NR # MM # RR NR- kolejny numer (+1 przy każdym otwarciu dokumentu) MM - numer miesiąca np. MAJ = 05 RR - rok np. 2015 r. = 15 lub 2015 Jest takie coś możliwe do wykonania? Najlepiej żeby cała formuła makra była w jednej komórce.
Odpuszczam z tymi stronami, stworzyłem sobie szblon i makro które bedzie samo nadawało numer. Żeby nie zaczynać nowego tematu, mam jeszcze jedno pytanie. Czy można stworzyć przycisk makro, z funkcją wyszukaj. Tak, żeby można było wpisać szukane hasło i wyszukać je w arkuszu jak to się robi przy pomocy ctrl+f
Dzień dobry, Dziękuję za wyjaśnienie w kwestii sumy liczb nieujemnych. Tak jak myślałem, chodzi o to, żeby co najmniej jedna wartość była niezerowa, więc jeśli liczby są nieujemne, właściwym kryterium jest suma. Formuły z ostatniego postu znowu nie rozumiem, bo w tej wersji, którą Pan załączył w komórkach B166 i C166 nie ma żadnych liczb. Ale zostawmy...
Witam, mam problem z makrem odpowiadającym za wyświetlanie numeracji wniosków. Po kliknięciu "nowy wniosek" numeracja wzrasta o 1 (Cells(5, 10) = a + 1). Chciałbym aby do numeracji było przypisane stałe wyrażenie "/3". czyli np. 2/3, 3/3, 4/3 itd. Dim j As Integer Dim a As Long For j = 0 To 2 Next j a = Cells(5, 10) Cells(5, 10) = a...
Witam Poszukuje pomysłu, jak stworzyć makro, które będzie zamieniało nr telefonu na podanym przykładzie: Mamy nr 48 600 500 400 i zamienia go na 48 601 501 401. Jeśli występuje więcej niż 1 raz w całym arkuszu robi taką samą zamianę . I czy da się stworzyć takie makro które będzie zmienialo powiedzmy wszystkie nry w danej kolumnie automatycznie w sposó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()...
Witam! Mam arkusze o nazwach 1,2,3,4,5,6 itd Czy da sie zrobić makro które dodaje kolejny arkusz z kolejnym numerem? ostatni arkusz to "n" kolejny bedzie "n+1" Pozdrawiam! kosa
Sprawdź poniższe dwa warianty ... tak coś niby działa, ale sceptycznie podchodzę do takiego drukowania. W mojej ocenie, na teraz, drukarka będzie się przytykać - wstawiłem "opozniacz" (Const opozniacz), przy pomocy którego możesz sterować opóźnieniem nowego wydruku, gdzie: 0.5 = 0.5 s 1 =1 s itd. (opóźniacz pomysłu kolegi JRV ). Wariant nr 1 - drukuje...
Witam! Mam utworzony w Excelu arkusz, który codziennie, wielokrotnie drukuję. Problem polega na tym że każdy arkusz ma swój numer. Ręczna zmiana jest bardzo czasochłonna. Istnieje możliwość samoczynnej zmiany tego numeru przy drukowaniu? Pozdrawiam #
Witam, Bardzo proszę o pomoc, potrzebuję zrobić makro, które skopiuje z arkusza "wydruk" komórki z kolumny C (numer księgowy) i przeniesie je do arkusza "Zobowiązania" do kolumny F (numer księgowy), ale posegreguje wpisy zgodnie z kolumnami "numer faktury". W obu arkuszach są te same dane w wierszach ale w innej kolejności, w arkuszu wydruk nadawane...
A tak będzie dobrze? Makro Numerowanie()
Jeśli tylko ukryć wartości, to najprościej "zabielić" czcionkę za pomocą formatowania warunkowego. Jeśli wynik formuły, to warunek podobny do numerowania wyżej. Jeśli zablokować przed edycją, to jedynie makro w procedurze zdarzeniowej.
Właściwie potrzebuję takie proste makro Chciałeś proste, to masz proste.
Czy da radę stworzyć jakieś makro dla rozwiązania tego problemu. Da się. Inną pętlą z wykluczeniem "_" (załącznik).
Ciekawa kombinacja :) Trochę nad tym pomyślałem ale wyszło (choć dziwie się że excel nie zgłasza odwołań cyklicznych). Zapewne można to uprościć ale już nie mam czasu. Nie przeraź się :) W c2 wpisz: =JEŻELI(E2="";MAX($C$1:C1)+1;JEŻELI(E2>0...
Może będziesz wiedział gdzie popełniam błąd i coś zasugerujesz. Podstawowa przyczyna złego formatowania to przedziwne style w Wordzie, które utworzyłeś jako listę numerowaną (dodatkowo jako numerowane cyframi rzymskimi :| ). Proponuje przeanalizować makro - działa ono w oparciu o 3 symbole wieloznaczne (np." arabskiej :idea: ), poprzez polecenie znajdź...
Po Next dodać [syntax=vb] .Cells(w,1).value = .Cells(w-1,1).value + 1[/syntax] Powinno działać. Pamiętaj tylko, że gdy w = 1 dostaniesz error, bo spróbujesz się odnieść do Row = 0. Oraz, jeśli ta komórka nad nie będzie liczbą(bądź pusta), a spróbujesz do niej dodać 1. Można temu zapobiec dodając kilka If'ów. Jednakże myślę, że nie jest to takie znów...
Załącznik, który wysłałem numeruje tylko pozycje w tabelach, nic więcej, więc o czym mówisz?
(at)PRL wiersze dokładnie tak jak zrobiłeś. Makro followers również idealnie. (at)janokoza (at)PRL dziękuję wam obu za niedzielną pomoc. Klasa
Opis jest strasznie niejasny, czy chodzi o makro do Excel'a które zrobi tak: dla H1 - 1 dla H2 - 160 dla H3 - 320 dla H4 - 480 ??
Excel wyświetlał MsgBox To się nazywa InputBox. W załączniku numerowanie FV.
Czy to ma być na zasadzie interpolacji liniowej między sąsiednimi punktami? Jeżeli tak, to tymczasem można liczyć tak jak w załączniku. Można jeszcze pomyśleć nad jakąś bardziej uniwersalną formułą, ale to wymaga trochę czasu. Trzeba też dokładnie określić jaki będzie układ danych, żeby potem nie okazało się, że formuła jest nieprzydatna, bo coś jest...
Chodzi o to, by podczas np. edytowania bazy danych, dane wynikowe były uzupełniane na bieżąco . Właśnie z tego powodu proponuje ci funkcje excelowskie a nie makro. To co ci przedstawiłem to pomysł. Wzbij się ponad chmury i spójrz pod innym kątem :). Nie daj się ograniczeniom i spójrz świeżym okiem :) . Bazy (ani dobrze przygotowanych kolumn pomocy)...
Jeżeli wszystkie tabele masz w tych 100 arkuszach i masz je numerowane po kolei to wystarczy dodać nad tym formatowaniem pętle z dodaniem zmiennej dla nazwy tabeli: [syntax=vbscript] Dim NazwaTabeli as String Dim NumerTabeli as Integer For NumerTabeli = 2 to 100 ' Czy inny zakres jaki Ci potrzebny NazwaTabeli = "Tabela" & NumerTabeli '... Tutaj Twoje...
Wiem że będą to inne komórki, mój problem jest tylko z makrem bo czytałem dużo i nie mogę wpaść na to jak je napisać, dlatego ten temat.
Załącz jakiś plik przykładowy przede wszystkim. Zamiast od razu dokładnie napisać o co chodzi dałeś przykład na 5 wierszy, a teraz piszesz, że Ci makro wolno działa. To trzeba sprawdzić w którym momencie zwalnia, nie sądzę, żeby powodem było kasowanie w kolumnie B. Zresztą z tego wszystkiego można zrezygnować. Musi być precyzyjny opis, co może być,...
Witam. Makrem: sub PrnOsobno() For Each sh in ActiveWorkbook.Sheets sh.Activate sh.PrintOut Next End Sub
Można napisać odpowiednie makro, tylko czy nie prościej jeżeli to się robi samo, po ustawieniu odpowiedniej formuły w arkuszu, tak jak podpowiedział kolega adamas_nt.
Problem w tym, że nigdy nie uda Ci się wpisać innej liczby porządkowej przy tej postaci kodu (nawiasem pisząc, zdała by się pętla). Zanim makro "wyprostuje" numerację musiałbyś zrealizować kopiowanie... Czyli odpowiedź brzmi: Tak, jest do zrealizowania.
reszta już prosta :) dziękuje pięknie - kombinowałem kombinowałem ale na taki prosty pomysł nie wpadłem :P to może pomożesz jeszcze w jednym - mam makro drukujące zaznaczony w arkuszu obszar ale poszukuje możliwości zapisania w makro na której drukarce ma zostać wykonany wydruk - mam dwie i chciałbym drukować tylko na jednym z nich.
Sprawdz poniższy kod. Powinno działać ale pisze z pamięci. [syntax=vb]Sub Wstawianie_wierszy() Dim i As Long, OstWrs As Long, k As Long OstWrs = Cells(Rows.Count, 3).End(xlUp).Row 'ile wierszy Application.ScreenUpdating = False For i = OstWrs To 2 Step -1 If Cells(i, 3) <> Cells(i - 1, 3) Then Rows(i).Insert Cells(i, 1) = "zrobione" Cells(i, 3)...
Super. Tylko niestety wyskakuje jeszcze błąd z tą samą nazwą arkusza, więc fajnie by było jakby te arkusze się same numerowały - (1), (2) itd. Ponadto nie za bardzo wiem jak wybrać zbiorczo pliki do konsolidacji. Możliwe jest tylko wybranie 1 pliku na raz.
To ode mnie jeszcze taka propozycja funkcji (założyłem, że pozycje "X" są numerowane od 1, a nie odczytywane z arkusza): [syntax=vbscript]Function ZbierzX2(rZakres As Range) As String Dim wynik, i As Long ReDim wynik(1 To rZakres.Count) For i = 1 To rZakres.Count wynik(i) = IIf(rZakres(i).Value = "X", i, "-") Next i ZbierzX2 = Join(Filter(wynik, "-",...
Cześć Odświeżę ten temat i jednocześnie rozszerzę o informacje. W arkuszu znajduje się kliku stron (do druku), na których są różne informacje. Każda ze stron ma być numerowana (z założenia pierwsza zawsze- na stałe będzie mieć 1, a druga - 2) 1, 2 ,3, itd. Jaką formułę zastosować (najlepiej excelową), aby wybrane strony do druku były numerowane w kolejności,...
... Ok wstążka z makrami ogarnięta ... Na pewno ? I jak jest uruchamiana ? Uruchamianie i usuwanie menu "KOSZTORYS" aktywowane jest makrami z modułu "Ten_soroszyt": ... No i prośba o dodanie do tej listy tego pola z możliwością podania ilości j.m Jak by to miało wyglądać? I tutaj kolega pospieszył się ze swoimi poprawkami, a ja spóźniłem ze swoimi...
1. Jeśli tabela w arkuszu wzorcowym "P00" będzie miała nazwę "Tabela0" (czy podobną z "0"), to z każdym kopiowanym arkuszem będzie wtórować swoim numerem nowemu numerowi arkusza, tj. w arkuszu nr 1 o nazwie "P001" będzie to tabela o numerze 1, wziętym z " intName + 1 " 2. Wydaje mi się, że makro źle numeruje kolejne arkusze, zostawiając, zawsze, początkowe...
1. Klikam przycisk "Dodaj wiersz" 2. Makro dodaje jeden wiersz nad wierszem sumy zostawiając formatowania komórek. W tym przypadku numeruje z automatu kolejny wiersz w pierwszej kolumnie a drugi pozostawia pusty Uruchom sobie makro które jest w pliku to zobaczysz. Problem mam że przy wstawieniu tego makro i przypisaniu w nim zakresu "Tabela2" i tak...
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...
Witam, serdecznie poszukuje pomocy odnośnie wykonanie Makra, które by czytało dane z tabeli, wstawiało dokładnie jedna dana w dokładnie jedno miejsce oraz drukowało tak przygotowany arkusz oraz numerowało strony od 1 . Chodzi o to by Makro wzięło z tabeli z pierwszego wiersza 3 dane, z każdej kolumny inna wstawiło do następnego arkusza oraz wydrukowało...
Witam. Mój problem wygląda następująco: Dostaje plik excela w którym są dane z kilku plików pdf. Dane wyglądają następująco: Nagłówek - kilka linijek Dane - tabela numerowana od 1 do różnie czasem do 100 czasem ponad 1000 pozycji. Stopka - kilka linijek Nagłówek itd. Chodzi mi o takie makro które sprawdzi które wiersze mają w kolumnie A liczbę, natomiast...
właśnie sobie poradziłem: z numerowaniem zrobiłem tak jak sugerowałeś tylko, że: =LICZ.JEŻELI(C3:C$300;C2) i później jeszcze dodałem w makro funkcję zamiany dopisanych liczb na kropki, i później jeszcze łączenie zawartości kolumn itd... ogólnie mam już to co chciałem za jednym kliknięciem dzięki pozdrawiam
Dzięki, o to chodziło... niestety napotkałem kolejny duży problem. Nie wiem czy to wina Excela 2003,ale okazuje się że w tak przygotowanym arkuszu nie są aktualizowane łącza. W zasadzie miało to działać tak: Wiersze z danymi są zaciągane z zewnętrznych plików, numerowanych od 1 wzwyż, stąd konieczna była zmiana nazw. W przypadku braku pliku excel wyświetla...
Wygląda to tak, że dane klientów znajdują się w pliku Excel, natomiast dokument wystawiany jest przy pomocy Worda. Dziennie wystawiane jest około 7-10 dokumentów dostawy. I chciałabym dowiedzieć się czy jest możliwość jakiegoś zautomatyzowania tej procedury, ponieważ dotychczas wszystko było wklepywane ręcznie. Przez "nadpisywanie" rozumiem to, że tak...
jednym zdaniem? hmm... popatrz na ramkę w przykładzie jak dodaje kolejną to nadają im się numery: pierwsza ta kopiowana ma nr 1, a dodawane nr 2 itd. więc jest to numerowanie ramek. P.s. A przy okazji ta ramka, którą pokazuję jest przykładowa - oficjalna (nie do pokazania na formum ;-)) jest już mega rozbudowana i nagrywanie makra kopiowania robi się...
Witam Mam do was wielką prośbę dotyczącą makra. Posiadam Excel 2013 i 2016. Załóżmy że w komórce D1 mam tekst "Utworzenie sprawy"; Załóżmy że w komórce D14 mam tekst "Utworzenie sprawy Załóżmy że w komórce D41 mam tekst "Utworzenie sprawy" Załóżmy że w komórce D65 mam tekst "Utworzenie sprawy" W komórce d1 od tej komórki makro zaczyna pracę. Jeśli 1...
Jeżeli dobrze zrozumiałem, to takie makro: [syntax=vb]Sub PobiezCSV() Poczatek = "2015-01-01 10:00" koniec = "2015-01-01 11:00" Dim w As Worksheet Set w = Sheets("Wynik") Open "C:\ala.csv" For Input As #1 x = 1 Do While Not EOF(1) Line Input #1, l If InStr(1, l, Poczatek) > 0 Then f = True a = Split(l, ";") w.Cells(x, 1) = a(0) ' Pierwsza 'kolumna'...
Witam, mam do napisania makro w języku VBA w którym za pomocą formularza przeszukuje bazę danych(zakres komórek) a przede wszystkim wybraną kolumnę (w moim przypadku np:imie,nazwisko) i po wybraniu odpowiadającej mi wartości reszta pól w formularzu wypełniała się automatycznie ( w moim przypadku:ulica,kod pocztowy,uwagi). Nie mam pojęcia jak się do...
Witam wszystkich forumowiczów Jestem początkującym użytkownikiem vba i natrafiłem na problem, przez który nie mogę ruszyć dalej: Stworzyłem Userforma, który ma za zadanie przenosić wartości z textboxów do kolejnych pustych komórek. Makro działa dobrze, jednak mam problem z numeracją wiersza w pierwszej kolumnie w tej samej linii, w której wprowadzane...
Cześć mam napisane takie makro: [syntax=vbnet] Sub Usun_Etap() Dim rob As String rob = Selection.Address If Left(Range("A" & Range(rob).Row), 4) = "Etap" And Right(Range("A" & Range(rob).Row), 6) <> "razem:" And Left(Range("B" & Range(rob).Row - 1), 4) <> "STAN" Then Call Usun_Wiersz Do Until (Range("A" & Selection.Row) Like...
To prawda, że nie przemyślałem tego do końca. Sory, za to ale niestety olśniło mnie dopiero teraz. I zapewniam cię że jesteś THE BEST. Dodano po 26 Coś jeszcze jest nie tak z tą tabelą. Jak wykasowałem kol. P-Q w wierszach 4-7 w arkuszu "kontrole" to wyskoczył mi taki komunikat "Run-time error'13': Type mismatch". Klikam w debug i wskazuje mi ten wiersz...
Cześć, Jestem początkujący w VBA, ale porwałem się, by przygotować skoroszyt obsługujący raporty kasowe i druk KP w szkole muzycznej. W załączonym pliku nie wiem jak napisać taki skrytp: W arkuszu "dane" wpisuję kwotę, którą za dany miesiąc wpłacił uczeń np. w komórce J8, i pozostawiam tę komórkę zaznaczoną. Uruchamiam makro, które przykleja do odpowiednich...
Witam serdecznie. Zwracam się z wielką prośba o pomoc w edytowaniu makra. Mam folder o nazwie"aaaa" w nim jest podpięte makro o nazwie "bydło". W tym folderze mamy nazwy arkuszy: "Dane", "Ksiega", Ksiega1", "wzor ksiegi". Jak uruchomimy makro"bydło" to idealnie działa w arkuszu o nazwie "księga". Osoba która będzie mi chciała pomoc, niech uruchomi makro...
W załączniku.
Witam mam problem. Napisalem makro ktore z jednego arkusza Dane1 kopiuje mi dane do odpowiednich kolumn w arkuszu Sheet i automatycznie numeruje. Chcialbym stworzyc kilka arkuszy z identycznymi polami jak w arkuszu Dane2, lecz z innymi wartościami, i teraz chodzi mi o to , ze jak przekopiuje mi dane z arkusza Dane2 do Sheet, to będe mogł rownież skopiować...
żeby to magiczne makro działało z moimi danymi, byłoby super Na podstawie Twojego pliku utworzyłem jeszcze drugi podobny plik csv i przetestowałem z nimi import za pomocą załączonego pliku z makrami :D Po uruchomieniu makra zmiana_numerów (skrót ctrl+i ) - wszystkie numery kart uzyskują przedrostek CN - uzyskując w ten sposób cechy wartości tekstowej....
excel numerować numerować excel numerować wiersz excel
kablówka multimedia openwrt edimax megane przebieg
bateria macallister frania podgrzewanie
AMT Bramster nie reaguje na piloty - przyczyny i rozwiązania Problemy z tabletem Wacom: diagnostyka i rozwiązania
