Myślę, że najlepsze wyniki czy nie od końca, ale od początku [syntax=vb]Sub Wstawianie_wierszy() Dim i As Long, r As Long, c As Long Application.ScreenUpdating = False i = 2 r = i While Cells(i, 11) <> Empty If Cells(i, 11) <> Cells(i + 1, 11) Then Rows(i + 1).Insert For c = 5 To 7 Cells(i + 1, c + 3) = Application.WorksheetFunction.Sum(Range(...
Poproś kogoś innego.
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...
to sobie zobacz: [url=https://www.youtube.com/watch?v=ash...
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,...
Witam, Temat ogólnie już był poruszany, ale został zablokowany a ja chciałabym stworzyć coś dodatkowego do niego i nie wiem jak. Konkretnie chodzi mi o taką tabelkę jak w załączniku 1 i stworzenie do niej makra by oddzielały się wiersze po nagłówku "Obiekt" i dodatkowo by tam gdzie jest nagłówek "Godziny" tworzyło się auto-sumowanie dla powyższych kolumn...
nie ma sensu pisać takich komentarzy Nie ma sensu wysyłać obrazków zamiast przykładowego pliku Excela. niedozwolone rozszerzenie Spakuj go i umieść na forum. W jaki sposób zrobić Copy z parametrem Destination? ma powstać baza danych Nienajlepsze rozwiązanie. P.S. Używaj proszę znaczników przy wstawianiu kodu.
uzupełniam kolumnę C i poniżej w tabelach automatycznie dodają się wiersze z tym tekstem co powyżej. Dokładnie podobny mechanizm mam na myśli :D , ale oparty na formułach, oraz na automatycznym ukrywaniu pustych wierszy (realizowane prostym makrem Worksheet_Change) :idea: 989747 Jak widać na zrzucie wstawiam pierwszą literę nowego surowca, zatwierdzam...
Witam, Mam następujący problem: w arkuszu Excel mam dane z datami w kolumnie A od komórki A2 w dół. Dane są w porządku malejącym, ale mają luki - tzn. np. po 26/01 czasami jest od razu (bez pustego wiersza) 24/01. Chcę napisać makro, które w takim wypadku wstawi odpowiednią ilość pustych wierszy w miejscach, gdzie brakuje dat. Póki co mam kawałek kodu,...
Witam! Potrzebuję sposób na wstawianie pustych wierszy miedzy poscalane komórki,najlepiej makro.
Witam! Szukam funkcji która wyszuka i wstawi mi (obok siebie) komórki (zawartość komórki) z wiersza pełnego różnych informacji. Np Wiersze (między pełnymi komórkami jest różna ilość pustych komórek): 3 22 4 88 cw d aa 7 31 2 75 ah e bb Potrzebuje aby wyglądało to tak: 3 4 aa 7 2 bb Czyli chcę aby wstawiło mi wartość pierwszej niepustej komórki, trzeciej...
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:
Właśnie wrzuciłem to makro do arkusza; po uruchomieni u Basic wyskakuje mi błąd etykiety Compare; Nie powinien napisałeś Compare z dwukropkiem ? If (Sheets("Arkusz1").Cells(i, j) = "") Then Return Pomijamy puste komórki (ja akurat sobie przygotowałem arkusz rzadko zapełniony. Jeśli nie masz pustych komórek, możesz tę linię pominąć. Jak mam tę cześć...
Trzeba poskładać wszystko i dopiero drukować. Coś w stylu a co to znaczy pagebr = 42 ??? skąd ta wartość??? i poco w szablonie usuwać resztę pustych wierszy???
nagrałem dodawanie wiersza i wstawiłem w po else w miejsce exit sub ale tutaj zdaje się powinienem wstawić warunek sprawdzający tabelę z ofertą taki, że jeśli tabela nie ma pustych wierszy to wówczas na końcu dostawia nowy wiersz. Po nagraniu rejestratorem otrzymałem taki kod: Dodano po 8 Jeszcze pytanie: w kodzie, który mi podesłałeś miałem przypisane...
Tematowi już parę razy się się przyglądałem jednak "zawiłość" tematu wpływa na czas jaki można temu poświęcić - a nie mam go za dużo. Wbrew pozorom wcale nie kierował bym się w tym przypadku żadnym losowaniem tylko normalną kolejnością zmian przy spełnieniu określonych warunków (kolejna wyższa - najbliższa z możliwych - jak nie ma możliwości wyższej...
Hmm a jeśli wykorzystałam poprzednie makro, które napisałam, które wstawia dodatkowy wiersz jeśli suma>20 i odwołuje się do niego. Natomiest nowe makro ma wyszukiwac pustego wiersza i wklejać do nowo otwartego pliku zakres 1:pusty wiersz do określonej zakłądki AERO. Mam coś takiego, ale wyrzuca mnie(po wstawieniu Breakpointu) w odwołaniu do otwarcia...
Chcesz wstawić formułę wyszukaj w kolumnę G w zależności od danych w kol A? [syntax=vb]ost = Cells(Rows.Count, 7).End(xlUp).Row + 1 ost2 = Cells(Rows.Count, 1).End(xlUp).Row Range("G" & ost2 & ":G" & ost).FormulaR1C1 = "=VLOOKUP(RC[-6],'Previous week'!C[-6]:C,7,0)"[/syntax]
2 – Jest możliwe aby w kolumnie Kartony była podświetlona komórka zawierająca najwyższą wartość ALE z wyłączeniem tras zaznaczonych jako Anulowano i Przeniesiono? Ustawiłęm dla całej kolumny formatowanie Warunkowe -> Reguły dla pierwszych/ostatnich -> 10 pierwszych elementów i zmień z 10 na 1. Sprawdziłem, oznacza na czerwono (można zmienić)...
Witam, Mam arkusz kalkulacyjny, który zawiera dane wyglądające w następujący sposób: Imię, naziwsko (xxxx xxxx / użytkownik) Telefon Mail Takich danych jest kilka tysięcy. Szukam sposobu, aby usunąć z arkusza duplikaty (ponieważ niektórzy użytkownicy się powtarzają) z zachowaniem unikalnego słowa. Większość użytkowników ma podane imię i nazwisko, więc...
Mam głupi problem. Po wpisaniu segregatora danych do arkusza próbowałem je uporządkować przy pomocy tabeli. Niestety coś poszło nie tak i tabela z pustymi danymi wstawiła mi się w miejsce danych. Wszystkie dane zniknęły, a operacji tej nie można cofnąć :( W każdym wierszu arkusza pisze teraz =TABELA(B40;E43). Czy można w jakiś sposób odzyskać nadpisane...
Witam, stanąłem przed taką oto zagadką: Tabela excela: A......B......C......D abc.001...002...1sdd def..002...001...4asd mnh.002 ghi..003...004....3sda jkl...004...003....2asd Chcę ten arkusz posortować tak, żeby kolumna C wraz z odpowiednimi wartościami w D pokryła się z kolumną B: A......B......C......D abc..001..001..4asd def..002...002..1sdd mnh.002...
Bardzo dziekuję za pomoc. Dodano po 2 Ok. Działa. Dzięki. PS. Możecie polecić jakiś podręcznik/ stronę inernetową w której są opisane polecenia VBA i ich zastosowanie tak aby można byloby się uczyć samemu? Dodano po 16 Z kolumną J jednak nie dokonca jest w porządku ponieważ aktualizuje komórki aż za tabelkę. Wydaje mi się że w przypadku kolumny J ten...
Nie chcę nikogo obrażać ani się wywyższać itd. Liczę na pomoc, jak w pierwszym poście niestety muszę sie posiłkować goal seekiem gdyż wynik końcowy jest sumą bardzo wielu zmiennych opartych na formułach. Dałem taki przykład aby niepotrzebnie nie wprowadzać zamieszania. Zakres komórek zmienianych pokrywa się z moim arkuszem roboczym i operacje na tych...
Witam, Próbuję napisać swoje pierwsze MAKRO w VBA i ugrzązłem w połowie pracy. Dlatego też proszę o pomoc w celu naprowadzenia na rozwiązanie problemu. Celem programu jest przetwarzanie danych z jednego skoroszytu i zapisywanie ich w drugim. Na dane składają się uszeregowane w interwałach miesięcznych dane spółek notowanych na GPW z uwzględnieniem kryterium...
wstawianie pustych wierszy wstawianie wierszy excel excel usuwanie pustych wierszy
elektryka corsa podłączenie ds1820 komputer wskaźnik radmora
sterownik menuet taraban dmp502 przestrojenie
Solex 31 PICT-7 Golf 1.1 GG – rozmiary dysz głównej, wolnych obrotów i pomocniczej Ustawianie temperatury Buderus RC35 - poradnik
