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ć,...
Jeśli chodzi o faktyczne kasowanie to dla mnie działa coś takiego: [syntax=vb]Sub Makro1() ActiveCell.SpecialCells(xlLastCell).Sele... ActiveCell.Offset(0, 1 - ActiveCell.Column).Select While (True) If IsNumeric(ActiveCell.Value) Then If ActiveCell.Row = 1 Then Exit Sub ActiveCell.Offset(-1, 0).Select Else Rows(ActiveCell.Row).EntireRow.Delete End If...
Witam ponownie. Prosiłbym jeszcze o cierpliwość adamsa i ewentualną pomoc w usprawnieniu mojego programu , ponieważ mimo moich wielu,wielu kombinacji nie udaje mi się go naprawić, a działa prawie dobrze (oprócz): 1. Kiedy wpisuję pierwszy raz w lub k nie dopisuje reszty , ale po zatwierdzeniu enterem wpisuje i leci błąd. Następne linie już wpisuje normalnie....
Musiałem dodać fragmenty kodu odpowiedzialne za zróżnicowaną numerację kopiowanych przycisków, a następnie identyfikację przycisku "Clear", który został użyty. Wszystkie przyciski "Copy" działają identycznie - kopiują zawsze pierwszą tablicę na pierwsze wolne miejsce. Możesz tej pierwszej tablicy nie wypełniać, potraktować ją jako szablon, unikniesz...
Nie można usuwać komórek do których odwołują się formuły bo właśnie wtedy pojawia się błąd odwołania. Odwołania również są usuwane. Jeżeli chcesz by odwołanie było cały czas "sprawne" kasuj dane a nie usuwasz wiersz. Jeżeli chcesz aby wybierać różne wiersze w arkuszu docelowym skorzystaj z formuły indeks() i poprzez dodatkową komórkę określającą nr...
Wygląda prawie idealnie. Nie wszystkie tylko wiersze się przenoszą do zakładki "zalatwione" poniżej któregoś wiersza tylko są kasowane...
Puste pole pojawia się, gdyż poepłniłem błąd. Przy linii ReDim strNowaLista odejmij 1 od intPozycja [syntax=vb]ReDim strNowaLista(intPozycja -1, 2)[/syntax] Co do usuwania/modyfikowania danych pracowników. Masz coś, co załaduje Ci ich dane do UserForma, tak? Coś co znajduje odpowiedni wiersz i ładuje? Jeśli tak, i znasz numer wiersza, to chyba nie powinien...
Ale kasuje datę z wiersza wyżej... W załączniku poprawiony z przyciskiem usuwania ostatniego. (Burza poszła bokiem) Gdybyś zamiast ostatniego chciał kasować pierwszy to zmień w makro UsunWiersz linię: ostatni = True na: ostatni = False (opisane w makro)
Lewy górny róg zdjęcia musi być w wierszu zaznaczonym do usunięcia. Scalenia z reguły nie pomagają, ale jak jest scalenie w wierszu, to w tym przypadku chyba nie powinno przeszkadzać. Trzeba testować, odtworzyć sobie taką sytuację, że obrazek się nie skasował i sprawdzić wszystkie szczegóły. Piszesz dość niejasno, czy w ogóle się te obrazki nie kasują,...
1. 1. Nie kasuje komórek z zakresu Kod: br.Sheets(s).Range("39:56,97:100,141:144... To jest mój błĄd, miało być o 9 wierszy mniej, poniewaz kopie z a10 do a1 na sbiorczym t.j. range("30:47, 88:91, ... itd. teraz makro usuwa wiersze z dane, nie te z 'Note: 1. All tests (VT, PT, MT, UT, RT) were carried...
Czyli wstawianie arkusza opanowane. Teraz mamy wpisywać *jakieś* dane w jakiś sposób. Można założyć, że linia po linii (ale to założenie wynikające tylko z kontekstu wcześniejszych postów). W jaki sposób działa teraz wpisywanie do jednej linii? Makro, które już Kolega posiada zaczyna wpisywać od komórki, która jest aktualnie zaznaczona i wypełnia ileś...
No raczej kasowanie tego było by żmudne rzeczywiście. Lepiej dopisać funkcję poprawiającą, czyli zamiast wpisywać w ostatni_wiersz + 1 ( pierwszy wolny ), to wpisałbym jeszcze raz ( poprawne już dane ) w ostatni_wiersz
usuwam wiersz z tym punktem z tabeli i od nowa wczytuje tablice zaczynam od punktu który był wcześniej najkrótszą odległością Spróbuj to inaczej rozwiązać. Dlaczego kasujesz wiersze? Czy ja dobrze zrozumiałem, że w arkuszu 'Baza' szukamy najbliższego punktu dla punktu wyjściowego 'C27'?
Ten kod jest do napisania od nowa, według mnie. Mnie też :) ale nie ma żadnego innego pliku. jest: 1) plik bat, który generuje mi listę z dyskami, które są na komputerach - ta lista nazywa się raport.txt. Dołączyłem w pierwszym poście 2) plik z kodem vba, nazwany plikRoboczy.xls - też go dołączyłem Patrząc na strukturę pliku txt mam wrażenie, że szybciej/lepiej/wygodniej...
A może by tak makrem kasować? Jakby go zapuścić w pętli, to może jeszcze by procesora wystarczyło na wpisywanie jakichś wartości do tych pozostałych komórek? :)
Dziala pieknie , wielkie dzieki Moze jeszcze jakis pomysl, zeby pozbyc sie tych "kropeczek" , gdyz nawet jesli skasuje wszystkie wiersze , kropeczka zostanie a chcialbym móc przygotowac sie do nowego liczenia ( znów od makro 1 ) bez kasowania calego skoroszytu. Pozdrawiam Piotrek
Witam Chodzi o to podam przykład działania makra Z Arkusza kraje1 program kopiuje nazwę jednego kraju z listy- pierwszego i wstawia nazwę tego kraju w komórkę J1 w arkuszu Dane1, następnie kopiuje dane do 2 arkuszy , następnie przechodzi do następnego kraju z listy drugiego i wstawia nazwę w komórkę J1 (kasując poprzednia) dane się przeliczają dla drugiego...
No niestety nie działa tak, albo nie zrozumiałem; Załóżmy że rekordem z którego kopiuje się do arkusza baza jest zakres A1:C1 A jeśli mam formatkę A5 B6 C7 -tak na ukos? Jak to przenieść do wiersza A1:C1 ? Zwykłe wpisanie formuły =cośtam jest automatyczne kasowane po przekopiowaniu, ale w A5 B6 C7 wpis zostanie...
Cierpliwości kolego, wszystko wymaga czasu. Więc tak, doszedłem do wniosku ze caly problem nalezy rozwiazac od poczatku. Ruszyc baniakiem, wypic pare piw ( o papieroskach nie wspomne ), jak w kartach, dym piwo i przekleństwo:D. Efekt tej walki przedstawiam ponizej, a w zalaczniku przykladzik. Sposob edycji wynikow moze sie wydawac troche dziwny, ale...
Dobre macro tylko co zmienić by nie kasowało tabeli bo mam odpowiednio komórki scalone i przeniosło dokładnie zawartość wraz z taka samą tabelka ? Z góry dziękuje za odpowiedź. Wiele jest tematów na temat kopiowania danych z arkusza do arkusza lecz nie mogę wykombinować jak 1.Skopiować tabelkę z zawartością zachowując format czcionkę etc. 2.W tabeli...
Mam tabelę (kilka tysięcy wierszy) , w której po posortowaniu mam mnóstwo powtarzających się pozycji z pięciu różnych źródeł. Zaznaczyłem je "x" w dodatkowej kolumnie. Chciałbym uzyskać końcowy efekt w postaci unikalnych pozycji, w których źródła w postaci skopiowanych "x" pojawiły się w kolejnych 5 kolumnach, tak jak na obrazku. I oczywiście żeby te...
Hej. Jak dla mnie widzę tu tylko makro w Excelu. Niestety programista ze mnie kiepski, więc coś tam próbowałem wymyślić, jednak nie gwarantuję, że będzie działać idealnie. [syntax=vb]Sub Makro1() Const MaxR = 20 ' maksymalna ilość powtórzeń If ((Selection.Rows.Count < 2) Or (Selection.Columns.Count < 2)) Then MsgBox "Zaznacz obszar, na którym...
Nie wiem dlaczego upierasz się aby zapisywać kolejne wiersze Excela w osobnych plikach, masz je przecież w pliku głównym ! Ja sie na niczym nie upieram. Tak sobie to wymyslilem i wedlug mnie sprawdzalo sie. po co osobne pliki? Gdyż z reki dopisuje co przekazano. jak cos sie zmieni lub pomyle sie moge zawszwe zmodyfikowac. Po wydaniu sprzetu kasuje...
Uzupełnię do (at)prot Objętość nie jest jedynym problemem Excela. Drugim jest konglomerat dane+widok+kod, coś co zawsze się rozdziela w tworzeniu oprogramowania, inaczej problemy się kumulują do niebosiężnych rozmiarów. Obowiązuje stara zasada: dziel i rządź. Excel to łączy, owszem to jest przyjazne gdy sekretarka na kolanie ma zrobić śliczne zestawienie,...
Witam. Potrzebuję makro, które usunie mi cały wiersz z pliku na podstawie danych zawartych w innym pliku. Oto mały opis jak wygląda sytuacja: W pliku nr 1 mam trzy kolumny z danymi A, B, C. Potrzebuję, żeby makro na podstawie wartości z kolumny C przeszukiwało kolumnę C w pliku nr 2 i jeżeli danej wartości nie znajdzie, w pliku nr 2 kasowało wiersz...
Próbowałem makrem, ale nie wiem jak zrobić, aby przeskakiwał mi do kolejnego wiersza w drugim arkuszu, nie kasując pierwszego podczas robienia np. drugiej oferty. Ponadto zdarzyło mi się, iż marko kasowało mi nowe dane, więc wolałbym zobaczyć jakiś przykład, ponieważ swoje się wstydzę... Pozdrawiam i jeszcze raz dziękuję DD
Dziękuję ale to mi nie zadziałało; Gdzieś w necie znalazłem taki sposób, który zadziałał tak jak chciałem; [syntax=vbnet]Sub kopiuj() Dim komorki As Range 'komórka docelowa - wystarczy lewy górny róg zakresu' Set komorki = Worksheets("BAZA").Cells(Rows.Count, "B").End(xlUp).Offset(1, 0) Range("WprowDane!O1:AE1").Copy 'kopiuj' komorki.PasteSpecial xlPasteValues...
Plik jest przykładowy. Plik właściwy służy do importowania danych i doklejania ich do istniejącego już arkusza z danymi poprzednich importów. Importowane są różne ilości danych -wierszy. Od jednego do 60. Dlatego plik przygotowany jest na import maksymalnej ilości danych, a jak jest ich mniej, to puste komentarze są kasowane. Niestety moja znajomość...
witam, otrzymuje plik prawie codziennie (w załaczniku) w kolumnie A niektóre numery się powtarzają i potrzebowałbym żeby przy takiej pozycji kasowało wiersz zdublowany i dodawało wartości dla kolumn B, C i D (sumowało) niestety czasami wierszy jest więcej 6-7 które się powtarzają wtedy potrzebuje dla tego sume B, C i D ze wszystkich ma ktoś może pomysł...
super! dodałem i wszystko działa jak należy!! Miałem tylko problem z usuwaniem pustych wierszy... napisalem makro kasujące gdy jakieś pole jest puste... działa ale bardzo długo przelicza.... Poniżej makro: Sub Kasuj() For i = Cells(65536, "A").End(xlUp).Row To 3 Step -1 If Cells(i, "B").Value = "" Then Rows(i).Delete shift:=x1Up End If Next End Sub...
Nie jestem guru od makr w VBA, ale coś takiego powinno zadziałać (zrobiłem testy na prostym arkuszu wklepanym z palca). [syntax=vb] Sub Makro1() Dim xo As Integer xo = 2 Columns("A:B").Select Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") _ , Order2:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False _ , Orientation:=xlTopToBottom,...
A jak to ma działać. Czy w tabeli mają się pojawiać kolejne wiersze po każdym wpisaniu danych do UserForm, czy też mają się kasować wpisy i pojawiać nowe w tym samym miejscu. Będzie mi wygodniej dokonać korekt jeżeli zamieścisz plik Excelowski ze wspomnianym UserForm i Makrem jako załącznik i zaznaczysz że za ściągnięcie nie pobierasz punktów.
Ponieważ w wierszu 26, w kolumnach OP istnieją takie dane. ;) Dodatkowo trzeba by ograniczyć że powinno pisać 1 tylko raz. Np. gdy w BCDEF występuje wiersz o danej nazwie i numerze DWA razy, a w OP tylko raz to powinna być dodana 1 tylko jeden raz ;) Jeśli się da to mógłby nawet kasować dany wiersz w OP po dodaniu "z niego" jedynki.
Kolejna prośba. Wiem, że dla Was będzie to sprawa prosta, ja się cały czas uczę i będzie mi potrzebna pomoc: W Arkuszu 1 wprowadzam dane w wierszu 1 Po naciśnięciu przycisku ZAPISZ (tutaj właśnie potrzebuję makra) kopiuje wpisane dane i wkleja w kolejny wolny wiersz w Arkuszu 2 (jednocześnie kasując wpisane dane w Arkuszu 1 i przygotowując go do dalszej...
Moje rozwiązanie wyglądałoby jakoś tak: [syntax=vb] Sub Makro1() ' ' Makro1 Makro ' Makro zarejestrowane 2013-05-12, autor Darek ' ' Const S1 = 8 ' najmniejszy przedział Const S2 = 16 ' sredni przedzial Const S3 = 32 ' najwiekszy przedzial Const D1 = 3 ' tolerancja sredniej najmniejszego przedzialu Const D2 = 5 ' tolerancja sredniej sredniego przedzialu...
Posortuj tabelę względem zawartości kolumny A - komórki o tej samej zawartości będą jedna za drugą. Potem "jedziesz" makrem po kolumnie A sprawdzając, czy zawartość następnej komórki jest taka sama jak bieżącej. Jeśli nie jest, to przejście do następnej komórki; jeśli jest - kasowanie wiersza, kopiowanie zawartości do kolumny E. Oczywiście dodatkowo...
Jest kilka sposobów, których tu można użyć. Podam 2 warianty bez użycia makr. Jeśli problem występuje często, to można również użyć makra. Moja propozycja: 1) Zaznaczamy drugą kolumnę (kol.B) na wysokość danych. 2) Do komórki w pierwszym wierszu (B1) wpisujemy formułę: ="1|"&A1 3) Przytrzymując Ctrl naciskamy Enter. Wariant 1: 4) Kopiujemy kolumnę przez...
Ja widzę każdą zmianę kolor, mam monitor graficzny, ale nie w tym rzecz. Tutaj filmik z innym kolorem: https://www.dropbox.com/s/a63ox30nj10wca... jak widzisz nie jest to problem z kolorem. Być może mówimy o innym działaniu, bo u ciebie kasowało całe wypełnienie tabeli A powinno to działać w ten sposób: https://www.dropbox.com/s/nazbiwwll08uou...
Zaproponuję taki kod: [syntax=vb]Sub Wytnij() Sheets("Arkusz1").Select For x = 1 To Sheets("Arkusz1").Cells(Rows.Count, "C").End(xlUp).Row jest = Application.CountIf(Sheets("Arkusz2").Ra... Cells(x, 3)) If jest > 0 Then Rows(x).Delete: x = x - 1 Next End Sub [/syntax] Pomyliłem się. Autor chce, żeby kasował, gdy nie znajdzie, a więc: [syntax=vb]Sub...
Super! Wszystko działa! Tylko mam jeszcze dwa małe problemy. Pliki, na których pracuję są eksportowane ze strony, i mają pewne wady. W miejscu Rodzaj kontraktu zamiast pustego pola jest spacja. Kod: [syntax=vb]Sub koloruj() For i = Range("A65526").End(xlUp).Row To 2 Step -1 If Cells(i, 5) <> "" Then Rows(i).Interior.ColorIndex = 15 ElseIf Cells(i,...
a potem jak jest 2 maj to w wierszu 2 począwszy od komórki B3? Myślę, że "potem jak jest 2 maj to w wierszu 3 począwszy od komórki B3" Dodano po 39 Witaj, Monika. Myślę, że jakoś Edit: Popraw makro dla kasowania [syntax=vb] Sub ZapiszDoBazy() Dim r& If Application.CountA(Range("frm")) = 10 Then With Sheets("baza") r = Application.Match(Cells(2, 2),...
Normalnie w jednej kolumnie mam jakieś 60000 liczb Tylko makro w takim przypadku? A po co obciążać arkusz excel'a min. parudziesięcioma tysiącami wzorów ? Dodano po 5 chcę je podzielić na grupy po 180 i poprzenosić do sąsiednich kolumn Przychodzą mi do głowy 3 warianty: a) odkopiowywanie 'bezpośrednie' w pętli do ... while/until - wolne, zachowuje...
witam, mam pewien problem, w kolumnie G mam podaną firmę, w kolumnie K model, w kolumnie I kolor - mało istotne, w kolumnie J - ilość sztuk chciałbym, żeby funkcja zliczała mi ilość sztuk produktu danej firmy i modelu, ignorując kolor, postawiając zapis jako jeden wiersz (usuwa wszystkie wiersze z kolorami) nie mam pomysłu na funkcję sumowania ilości...
Witam. błąd to: Run-time error'13': Type mismatch i zaznacza linie If .Column = 12 And Target.Value = "x" Then w momencie kasowania hurtowo wypełnionych testowych komórek. Jeszcze to może pomóc: w wierszu w którym usuwam dane wstawia mi kilku krotnie login username i ja pomysłu nie mam co jest nie tak. A wracając do pierwszego posta tak kolumny to B,L,O,P,...
Teraz to nowe, inne (jakby) zadanie :) mam wykaz taki jak tu: http://images46.fotosik.pl/123/fd2b773c6... Chciałbym napisać makro, żeby jeśli numer_ewidencyjny jest taki sam, dodaje do siebie kolumny od A do H dla tego człowieka. Wpisuje dane do pierwszego wiersza i kasuje drugi wiersz (suma jest w pierwszym). I tak sprawdza do końca. Chcę...
witam serdecznie! mam duzy problem z excelem, bardzo prosze o pomoc. szczegoly: posiadam duza baze danych w formacie xls do przetworzenia. sklada sie ona wlasciwie z 2 kolumn: data i wartosc. w polu data znajduja sie tylko dni robocze; weekendy i dni wolne sa pominiete. i teraz tak, potrzebuje obliczyc procentowe zmiany wartosci z miesiaca na miesiac....
Dzień dobry, Rozumiem, że oczekuje Pan makra w Visual Basicu, bo w samym Excelu byłoby to dość trudno zrobić. W załączniku ma Pan propozycję rozwiązania w postaci makra uruchamianego przyciskiem z arkusza ALL. Przyjąłem następujące założenia: 1. Plik zawiera tylko arkusze z danymi i jako ostatni arkusz podsumowania (nazwy arkuszy są nieistotne). 2....
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...
markonedj w odpowiedzi na Twoje pytanie ze kasowanego postu z tego tematu. Cytat: "P.S. Czemu do operacji na bazie nie korzystasz z "using" ? " Początek każdej mojej "Form" w projekcie zawiera :[syntax=csharp]using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using...
Witam wszystkich użytkowników, mam sprawę która sprawia mi problem, chodzi o kopiowanie przy pomocy makra danych z kolejnych plików. Chodzi o to że do pliku ZBIORCZY.XLSX kopiujemy wiersz A2 z plików 1_19, 2_19, 3_19, ..., n_19. Pliki o nazwach 1_19, 2_19, 3_19, ..., n_19 umieszczane są w folderze TEST. Pliki te będą tworzone i umieszczane w katalogu...
Cześć Próbuje od jakiegoś czasu rozgryźć mój problem. i jak na nowicjusza słabo to idzie - trochę poszukałem i próbuje dostosować do swoich potrzeb pomysły innych z podobnym do mojego problemu. A wiec: mam dwa pliki - jeden bazowy (u mnie nazwany "baza.xlsx" - znajduje się w innej lokalizacji) oraz drugi Main.xlsx Oba plik mają ten sam układ - 20 kolumn....
Mam stworzony plik excel. Założenie jest jego takie: W arkuszu zrodlo jest baza osób które mogą lub już/jeszcze nie mogą mieć wykonane badanie. Makro, które mam w pliku kopiuje mi wiersze posiadające informację zaproszenie do arkusza korespondencja . Na podstawie danych z tego arkusza powstanie korespondencja seryjna i zostaną rozesłane zaproszenia....
Sory że tyle pytań ale łatwiej od razu wiedzieć o co chodzi niż napisać kod a potem go przerabiać "paręnaście" razy bo autorowi nie o to chodziło. Jeszcze "jedno" pytanie: Czy pod przyciskiem aktualizuj plik ma tworzyć/sprawdzać od początku wszystkie umowy w arkuszu ogólnym i ewentualnie korygować je w poszczególnych arkuszach? Czy tylko ma złapać ostatni...
Tomuś_P tak to jest także makro do scalania, które między innymi też przeglądałem, tylko tyle, że ja potrzebuję dodatkowe funkcje, które wyszczególniłem w pierwszym poście, a których żaden gotowiec nie ma. JRV, jeżeli chodzi o wpisywanie od pierwszego wiersza, to dzięki pomocy kolegów z innego forum, już mam to rozwiązane, co do zakresu danych, to zakres...
Moje makro uruchomione na Twoich danych daje taki wynik: Jan Kowalski2013-04-031/1 Pawel Nowak2012-06-051/1 -> 1/2 Z czego linia druga jest czerwona. Makro pozostawia wpis z najświeższą datą oraz wstawia wcześniejszy wymiar zatrudnienia (gdzie aktualny zostaje najbardziej z prawej strony). W taki sposób można łatwo odfiltrować sobie jednych (np w...
Witam Mam za zadanie napisać kod do automatycznego tworzenia tabeli przestawne w VBA. To udało się bardzo łatwo... Jednak problem pojawił się w momencie dodania opcji uzupełnienia tabeli źródłowej o dane z innego arkusza. W momencie tworzenia tabeli wyskakuje błąd VBA6.dll dla office'a 2007. bez tego kod kompiluje się normalnie PT.AddFields RowFields:=Array("Użytkownik"),...
W załączeniu Twój plik przerobiony. Jak chcesz go użyć jak jest to wklej twoje dane do arkusza dane i syntetyka. Odpalenie makra Ctrl + Shift + t. Albo wejdź do VBA (lewy Alt + F11) i Pierwsze makro. Kod powinien się wykonać szybko. Można z powodzeniem użyć do naprawdę dużych ilości wierszy w tabelach źródłowych. Kod: (nazwy modułów kodu arkuszy zmienione...
Witam, mam problem z programem napisanym w Excelu 2003, sprawa wygląda tak: mam jeden arkusz z danymi zaprojektowany w ten sposób że każda kolumna zawiera dane jednej grupy produktów w początkowych wierszach następnie jest jeden wiersz z typem danej grupy produktów a następnie znajdują się kody poszczególnych produktów każdy w osobnym wierszu (jeden...
1. Pomocniczu kolumnę =MOD(WIERSZ();6)=1 2. Filter po niej = PRAWDA 3. Wprowadź żądaną formułę i przeciągnij w dół 4. Kasuj filter 5. Kasuj Pomocniczu kolumnę.
No to musiałem zebrać siły i samemu poradzić z problemem. Chyba wszystko wyszło tak jak chciałem. Pewnie makro nie jest sformułowane wg prawidłowej struktury, ale działa wg moich założeń. Więc: zakres wierszy zmienia się dynamicznie, w zależności od ilości dodanych pozycji przyciskiem 'Dodaj'. Ale zawsze będzie się zaczynał od 21. W załączonym pliku...
Kurcze, jeżeli chodzi o VBA to jestem zaczynającym samoukiem. Nie znam reguł stosowania wszystkich funkcji. Mogę prosić Cię o rzucenie okiem na mój kod i poradzenie w jaki sposób użyć Twojej funkcji? [syntax=vbscript] Private a As Integer 'zmienna globalna Private haslo As String Sub MsgBox_error1() 'wyświetla omunikat o błedzie MsgBox "Wypełnij wszystkie...
Cześć, Poniżej napisałem kod odnośnie kasowania całego wiersza w Excelu za pomocą przycisku. Nie wiem dlaczego, ale wartości wprowadzone po przez user form do różnych komórek w wierszu pozostają w tych komórkach, mimo że kod powinien wyczyścić wszystkie komórki. Czy ktoś może mi napisać jak zmodyfikować ten kod, aby na pewno wyczyścił cały wiersz? [syntax=vb]Private...
ok ale coś robie nie tak jeszcze.... zdefiniowałem zmienną i przypisałem do kodu, więc nie działa ciągle dane się kasują [syntax=vbscript] wiersz2 = wsWyn.Range("A1048576").End(xlUp).Row + 1 'ostatnia wolna komórka w tym pliku For i = wiersz2 To FinalRow wsWyn.Cells(wiersz2, kol1) = wsSrc.Cells(wiersz2, kol) wiersz2 = wiersz2 + 1 Next[/syntax]
Nie dokładnie mi o to chodziło, ale to sporo pomoże na przyszłość - rozwiązanie mojego problemu była formuła: =jeżeli(czy.pusta(.cells(wie... Rozwiązałem to trochę na około dodając pętlę for z vba w której umieściłem warunek...
Przyznam że jak dla mnie to nie do końca zrozumiale napisane. Spróbuj usiąść i na spokojnie opisać co ma się "dziać". Ty wiesz o co chodzi ale my nie do końca (nie wszystko jest jednoznaczne). Po pierwsze "arkusz posortowany wg nr zamówień" czyli wg jakiej kolumny? Z tego co zrozumiałem makro powinno sprawdzać order-id i client i jeżeli zauważy że kolejny...
Witam, mam ogromną prośbę o pomoc w napisaniu makra w VB, które mógłbym stosować w Wordzie lub Excelu. W Wordzie dysponowałbym listą, np: Arisaema yunnanense Buchet, Notul. Syst. (Paris) 1: 367 (1911). Arisaema zanlanscianense Pamp., Nuovo Giorn. Bot. Ital., n.s., 22: 262 (1915). Arisaema zebrinum G.Nicholson, Ill. Dict. Gard. 1: 112 (1884). Arisaema...
witam, proszę o pomoc, moja cała znajomość programowania ogranicza się do znajdowania i dostosywania formuł - kiedyś znalazłem i dostosowałem do swoich potrzeb makro do wprowadzania danych w arkusz za pomocą userform z przyciskami do przechodzenia między wierszami, wstawiania i kasowania wierszy - ogólnie bardzo fajny programik. niestety po skopiowaniu...
Dzień dobry, Robię kalkulator kosztów. Mam 4 arkusze: - start (z info o firmie) - elementy (wykaz elementów gdzie uzupełniamy ilość a następnie nam wylicza sumę za każdy element) - wykonawstwo (wykaz prac jakie są prowadzone również z ilością) - podsumowanie Chodzi mi o to aby gdy w arkuszu "elementy" ilość jest większa od 0 wtedy cały wiersz jest kopiowany...
Wrzucam plik. Chciałbym zeby działały nadal te makra wstaw i usuń oraz zeby z kolumny "F" wpisywały sie dynamicznie te nazwy do kolumny "A" tak jak wpliku to zaznaczyłem. Jak wykonuje "zapisz" to modyfikują mi sie dopiero tak jak mam byc ale caly czas po kazdej operacji jak wpisuje czy kasuj cos w kolumnie "F" dopiero po wykonaniu "zapisz" modyfikuje...
Modyfikacji chronionych komórek dokonuje osoba która wie co i jak ma działać niestety czasem przez nieuwagę zostawi plik nie chroniony, y a kolejny użytkownik (z bardzo mała wiedzą) kasuje jakieś wartości przy okazji kasując formule w komórkach które powinny być chronione przed możliwością modyfikacji... Albo wstawi cały wiersz nie "rozciagajac" formuł...
Zmienilem troche koncpecjie i teraz dane z kilku plików wrzucam do jednego. Chciałbym wyszukiwać kilka wartości jednocześnie i usunąć cały wiersz jeżeli w komórce znajduje sie ta wartość. tych wartości na razie jest okolo 25 tysiecy, także przeszukiwanie dlugo trwa. Co byście zmienili? [syntax=vb] Sub kasowanie() Dim i, k Application.ScreenUpdating...
Szukam pomocy: Bardzo słabo znam Excela a programowanie w VBA to już prawie w ogóle nic. Mam taki kod do kopiowania z arkusza do arkusza, troszkę go zmodyfikowałem, zmieniłem zakres kopiowania, zmieniłem kolumnę z kryterium i wstawiłem formaty dat w trzech kolumnach. Okazało się że kopiuje mi bardzo ładnie z dwoma wyjątkami, z kolumny A kopiuje po wpisaniu...
można na przykład tak: Arkusz 1 komórka a1 z formułą np =DZIŚ() komórka b1 to cena komórka c1 to ilość komórka d1 formuła =b1*c1 komórka e1 wstawiamy button (makro do buttona poniżej opiszę) Arkusz 2 wiersz 1 kolumny A,B,C,D opisane jak w arkuszu 1 komórka e1 formuła =ile.niepustych(a:a)+1 Teraz będzie makro do butona: [syntax=vb] sub arhiwum() Range("A1:D1").Select...
Ten fragment nie ma znaczenia - to mi działa. Chodzi mi o to aby w nowym wydzielonym tym makrem pliku arkusz wyglądała tak samo (szerokość kolumn, wielkość czcionki. Teraz jak tworzy mi nowy plik z fragmentem danych który wydzieliłam makrem to są stałe szerokości kolumn i wielkość czcionki taka jakbym po prostu otworzyła nowego excela i wkleiła tam...
Pisałem w trzecim wierszu. Ochrona arkusza jest bez hasła więc w każdej chwili możesz ją zdjąć. Zakładka "Recenzje" przycisk "Nie chroń arkusza" i znów możesz robić wszystko. Lecz dodam nieśmiało że w arkuszu Wydruk i w zielonych polach rejestru są funkcje. Więc jeżeli chcesz coś zmienić stając na daną komórkę spójrz wcześniej na tzw. "pasek formuły"...
Witam, Uprzejmie proszę o pomoc / podpowiedź. W załączonym przykładzie jest makro, które tworzy dziewięć wykresów w oparciu o dostępne dane. Mam cztery pytania i prośby o pomoc: 1.Potrafię napisać makro które usunie wszystkie wykresy (i takie jest w przykładzie - i działa) – ale nie wiem jak napisać makro które usunie wybranie wykresy: np.: jak...
OK w takim ja razie ja brutalnie wykorzystam Twoją chęć pomocy :) a tak poważnie to byłbym bardzo wdzięczny gdybyś pomógł znaleźć jakieś rozwiązanie (chodzi o to że ja wogóle nie za bardzo mam pomysł czy coś takiego da się wogóle zrobić...) na czerwono zaznaczyłem problemy z którymi się borykam Chodzi o to, że jak są różne numery faktur (np. MASARNIA-FAKTURA...
Moim zdaniem, całkowicie subiektywnym, najlepiej byłoby stworzyć gotowy plik raportu i tylko edytować dane (kasować stare i zapisywać aktualne). Pomyśl, że przecież trzeba ten plik "ładnie" opakować: jakieś nagłówki, opisy, wielkość czcionki czy inne kolory... Dlatego zrobiłbym to raz. Na ten pomysł także wpadłem ale sobie już <chyba> poradzę...
Witam, zaczynam zabawę z VBA w excelu dopiero i mam problem, chciałem napisać samo generowanie plansz sudoku i zapożyczyłem algorytm losowania z jednego forum, potem napisałem prostą funkcje która kasuję pewną ilość elementów w planszy, teraz chciałbym sprawdzać każdą kolumnę czy nie powtarza się jakaś cyfra, a jeśli się powtórzy to ją skasować i z...
Chyba jednak się nie zrozumieliśmy... Załączam zrobiony na szybko załącznik ilustrujący ideę. Zależy mi na pominięciu okienka wyszukaj/zamień. Bo w tej chwili żeby powyższy sposób zadziałał muszę na dzień dobry wywołać okno wyszukiwania czyli ctrl+f, Nigdzie nie pisałem o tym okienku. Nie musisz go wywoływać. Wyszukujesz za pomocą funkcji wyszukaj.pionowo....
Witam, Kiedyś miałem podobny problem i już mi raz pomógł jeden z użytkowników, ale teraz gdy zrobiłem całkiem nowy skoroszyt, nie mogę połapać się z Makrem. Potrzebuję podpiąć Makro do przycisku w arkuszu "Baza ofert", tak aby jego naciśnięcie powodowało aktualizację bazy o ofertę z arkusza "Oferta". Za każdym razem kolejna oferta musi być dopisywana...
Dzień dobry Wszystkim, Chcę poprosic Was o pomoc. Chciałbym wysyłać maile z załącznikami (pojedyncze zakładki) oraz okresloną treścią z poziomu EXCELA na podstawie danych z tabeli przestawnej. Moja tabela wyglada mniej więcej tak: http://obrazki.elektroda.pl/1253251300_1... Po podwójnym kliknięciu na komórkę C6 Excel tworzy nową zakładke...
Mam coś takiego: Sheets("Arkusz1").Sele... On Error Resume Next wrs = Columns(8).Find(What:=Ra... LookAt:=xlWhole).Row Rows(wrs).ClearContents If Err <> 0 Then UserForm1.Show Chciałbym żeby makro wyszukało w ósmej kolumnie ("H") to co jest w komórce D1 i wykasowało mi tą...
excel usuwanie wierszy wstawianie wierszy excel ukrywanie wierszy excel
lodówka rozszczelnienie ściany głośnik samochodowy odseparować bezprzewodowy odkurzacz
krzywe ściany polecane lutownice
Bosch HBG636NS1 – naprawa modułu sterującego, typowe usterki, wymiana PCB Polsat Box w Niemczech – odbiór dekodera, licencje, Polsat Box Go Polonia, antena 80-90 cm
