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.
Excel wyświetlał MsgBox To się nazywa InputBox. W załączniku numerowanie FV.
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...
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...
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...
W załączniku.
dla H2 mam wpisaną wartość 0001, H3 - 0002, H4 - 0003 itd do H161 mam wartość 0160 i teraz po włączeniu makra żeby w wierszu H2 było 0161, H3 - 0162, H4 - 0163 itd do H161 - wartość 320. i po następnym włączeniu makra dalsze numerowanie. czyli H2 - 0321, H3 - 0322 itd itd
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...
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)...
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)...
Co do numerowania wierszy spróbuj takiego makra: Sub num() Dim w As Integer Dim i As Integer Dim v As Integer Dim k As Integer v = 1 k = 30 'liczba wierszy do ponumerowania For i = 1 To k Step 3 'step liczba powtórzeń For w = i To k ActiveCell.Range(Cells(w, 1), Cells(w, 1)).Value = v 'numeracja od aktywnej komórki Next...
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, "-",...
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...
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ć,...
Nie do końca łapię co chcesz zrobić. Makro musi mieć zdefiniowane zakresy i/lub warunki, jeśli ma coś zrobić, Np jeśli w wierszu wystąpi pusta komórka w kol B, to usuń wiersz, usuń n wierszy, usuń wiersze do następnego zawierającego COŚ itp. Napisz ciut więcej lub najlepiej wrzuć przykład (plik Excela jako załącznik).
Problemów ciąg dalszy.Mianowicie dziś potrzeba zaszła wstawienia nowego wiersza miedzy wiersze już wypełnione w tabeli i powstał problem. Próbuję i Makrem wstawiać nowy wiersz i za pomocą PP i nic.Wiersz owszem się wstawia ale w pierwszych trzech kolumnach nie wstawia mi użytych tam formuł.W kolumnie L,N,O,P formuły wstawiane są normalnie w nowym wierszu.Co...
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, funkcja LICZ.JEŻELI w przypadku wykorzystania adresowania bezwzględnego, rozciąganego na pozostały zakres niestety nie daje rady. Excel wyrzuca błąd o braku możliwości wykonania operacji z powodu zbyt małych zasobów pamięci. Sprawdziłem to na milion sposobów, nie działa. Efektywna praca z wykorzystaniem funkcji LICZ.JEŻELI kończy się na 50 tysiącach...
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...
Szanowni Panowie, miałbym jednak jeszcze prośbę. Opisany przeze mnie sposób z usunięciem makra nie sprawdza się w pełni. Przy importowaniu danych z katalogu X przy użyciu makra cbrman'a i przy usuwaniu duplikatu przy użyciu mojego makra wszystko działa (dodam, że stworzyłem kolejne marko, które numeruje od nowa poszczególne wiersze). Gdy do tego samego...
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,...
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...
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...
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...
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...
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...
...W pliku który mi przesłałeś nie wiem czemu ale nie ma żadnych przycisków do makr ... Bo i być nie powinno ... w zamyśle miało być menu " KOSZTORYS " i takie w tych " Dodatkach " widać - w teorii, jak się je kliknie, powinno pokazać coś takiego jak poniżej na drugim obrazku - wygląd w starym excelu: 838683 838684 ... Zauważyłem, że: 1. jak dodaje...
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...
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.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...
ldir31, high((at)xlat) ld x,(at)wiersz loop: ld r30,x lpmr30,z ld x+,r30 or r30,r30 brneloop Na atmelku cały kod może wyglądać tak. I co powiesz o "lpm", czy nie działa dokładnie jak xlat ;) Podobnie, ale nie dokładnie, tablice muszą zaczynać się pod określonym adresem (podzielnym bez reszty przez 256), a w xlat jest dowolność. I tak trzeba...
Właściwie potrzebuję takie proste makro, gdzie częściowo już sobie wymóżdżyłem jak poniżej: Dodano po 5 "E" ponieważ data, akuratnie znajduje się w tej kolumnie, "w" to wiersz (zaczynamy numeracje od drugiego) Pewnie wasze oczy :shocked!: :shocked!: widzą więcej niż tu napisałem :flasingsmile:
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...
Witam Jestem niestety początkującym użytkownikiem Excela Szukam makra w VBA które pomoże mi skopiować ostatni wiersz razem z formułami które są w wybranych kolumnach i arkuszach. Stworzyłem arkusz w którym używam kolumn A-S, mam 24 wiersze, chciałbym aby w momencie wypełnienia ostatniej kolumny J w wierszu 24 doszło do skopiowania i powielenia do wiersza...
numerowanie wierszy numerowanie wierszy kolumnie numerowanie wierszy excel
elm327 oryginalny grzanie betonu schematy ładowarek uniwersalnych
mikrokomputer cobra1 tester wirnikow
Wymiana podświetlenia pokrętła w piekarniku Amica z chowanymi pokrętłami Canon EOS M6 Mark II – lokalizacja baterii podtrzymującej pamięć, superkondensator, reset daty
