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...
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.
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]
Czy da radę stworzyć jakieś makro dla rozwiązania tego problemu. Da się. Inną pętlą z wykluczeniem "_" (załącznik).
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
Excel wyświetlał MsgBox To się nazywa InputBox. W załączniku numerowanie FV.
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ź...
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
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...
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ć,...
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.
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.
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...
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...
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)...
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...
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...
... 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...
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...
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...
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...
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...
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ę...
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...
Niestety nie można zarejestrować w makro "inna komórka", VBA nie zrozumie takie. W post #2 PRL podal Ci link Dodano po 3 Być może jednak wiersze w arkuszu są równomiernie, na przykład co 40 wierszy umieścić numery?(w m6, m46, m86 itd.) Dodano po 19 No tota M6, przy prawej krawędzi, lub na ilu kolumny w lewo? Numer na każdej stronie powinno być 5 wierszy...
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...
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 ??
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 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...
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")....
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ść 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...
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...
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ć...
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. Makrem: sub PrnOsobno() For Each sh in ActiveWorkbook.Sheets sh.Activate sh.PrintOut Next End Sub
No trochę źle wyjaśniłam o co mi chodzi Wiec Arkusz1 to wzór, tak bym chciała, aby wyglądały wszystkie tabele, ale to rozwiązanie sprawia, ze kopiuje się znacznie więcej wierszy niż jest to potrzebne w danejtabeli (po 1700 tyle ile jest w tabeli źródłowej (tabela źródłowo, może być bez obramowani a i nagłówków, bo i tak dane będę importowane...
powinien pozostać tylko jeden wiersz z zsumowanymi danymi liczbowymi i tym numerem. A jeśli będzie więcej tych samych numerow? np. 1.1.15.202 , 2.3.11.204 Dlaczego nie zrobić tabelę przestawną?
Witam! Głowię się już na pewnym problemem z GPW od pewnego czasu i jakoś nie wychodzi. Algorytm wygląda następująco: 1. Pobieram dane z strony parkiet.com (to działa ;)) 2. Później chcę stworzyć X nowych arkuszy (każdy nazwy jako wybrana spółka) 3. Każdego dnia pobierać do wiersza=numerowi dnia odpowiednie dane (np. do arkusza PKO BP, pobieram dane...
Witam.Potrzebuję zmienić funkcje tego makro aby sprawdzało 6 pierwszych znaków numerów w kolumnie i nie usuwało podobnych(teraz nie kasuje tylko identycznych .Czy ma ktoś pomysł jak to zrobić? Sub wyszukaj_numery() ' ' wyszukaj_numery Makro ' ' Otworz plik z lista numerow Workbooks.Open Filename:="C:\Users\lista numerow.xls" ' Policz niepuste wiersze...
Witam nie mogę sobie poradzić ze stworzeniem makra które ma zadanie skopiować dane z innych plików do jednego skoroszytu (razem.xls). W pliku "razem.xls" jest arkusz w którym w kolumnie "A", w kolejnych wierszach jest umieszczony numer np. X01, X02, itd do 100. W katalogu C:\Dane są założone podkatalogi które się nazywają tak jak ten powyższy numer...
jak zdefiniować formularz ? może jakiś przykład ? Zostańmy na razie przy przycisku (który może mieć przypisane makro, a makro - to nic innego niż kod VBA). Zakładam, że masz dokument korespondencji seryjnej, otworzyłeś go, wybrałeś źródło rekordów. Stwórz i uruchom sobie makro z następującym kodem: [syntax=vb]With ActiveDocument.MailMerge .DataSource.FirstRecord...
problem jest następujący: w załączniku umieściłam plik w którym są arkusze Arkusz 1 i Arkusz 2 w komentarzu w Arkuszu 2 opisałam o co mi mniej więcej chodzi ale jeszcze przybliżę zastanawiam się nad zastosowaniem makra żeby dane z Arkusza 1 (dane dotyczące zamówienia) zostały za pomocą makra wpisane na Arkuszu 2 w odpowiednie pola; dane te powinny być...
Cześć, potrzebuje napisać makro VBA w Excelu które: - będzie otwierać wszystkie pliki *.xlsx w katalogu w którym znajduje się uruchamiany plik skoroszytu (ew. będzie można wskazać kilkanaście plików w oknie wyboru) - z każdego pliku zostanie skopiowany zakres $$ i doklejony do arkusza "zaimportowane" w pliku w którym jest makro - po zaimportowaniu wszystkich...
excel numerować numerować excel excel automatyczny numerować
zapala dioda pomarańczowa gorący przewód kolba lutownicza zhaoxin
zbudować gokarta zbudować gokarta elektycznego
Blaupunkt MAN BasicLine MP - brak dźwięku Regulacja gaźnika Briggs & Stratton 875EXi