Przepraszam, faktycznie podałem mało informacji, ale pisząc post zakładałem, że problem jest już rozwiązany, nie szukałem pomocy, chciałem osobom, którym Excel sprawi podobne kłopoty zasugerować, co może pomóc. A to ma sens na dużym poziomie ogólności, wątpię, żeby kod tu wiele pomógł, zwłaszcza mało zaawansowanym użytkownikom makr, takim jak ja. Do...
Cześć, Dziękuję za szybką pomoc. Jestem pod wrażeniem, dokładnie o to mi chodziło, makro ma szukać fragmentu tekstu i na tej podstawie zaznaczać wiersz w którym występuje szukana fraza. Sprawdziłem u siebie i fajnie śmiga. Zauważyłem jedną różnicę, gdy wpisuje szukaną frazę tak jak jest wpisana w tabeli, np. UTR z dużych liter to makro szuka i koloruje...
Witam, - w czasie epidemii koronawirusa, w czasie robienia zapasów artykułów spożywczych, pomyślałem, że dla zinwentaryzowania tego co w lodówce, na regale w spiżarni i wszystkiego co może się zmarnować - bo mija data przydatności do spożycia, napiszę żonie makro. Myślę, że może się przydać, tym bardziej, że zauważyłem, iż ludzie z braku tego po co...
Czy do takiego checkBox'a potrzebujemy jakąś komendę do odświeżania danych po jej użyciu? Nie odświeżają mi się wartości z sumy częściowej po odkryciu i zakryciu wierszy? Przycisk działa tylko na pierwszą kolumnę (która sumuje częściowo), w pozostałych kolumnach sumowanie nie działa ?? Dodam, że funkcja agreguj działa tak samo jak suma częściowa, czyli...
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...
Rzeczywiście, do końca to "w = w+2" nie działa, Sprawdza się gdy pierwszy wiersz to liczba nieparzysta a następny parzysta, Jak odwrotnie to już nie. Ale gdyby wstawić na górze arkusza jeden wiersz to pary parzysta, nieparzysta zamienią się i makro zadziała a potem 1 wiersz usunąć Wiem, że jest to nieeleganckie rozwiązanie, ale na ten moment nie widzę...
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...
SUPER! Właśnie o to mi chodziło, ale mam jeszcze pytanko: czy można byłoby zrobić jeszcze coś takiego, że po dodaniu wiersza nazwa zostałaby tylko w tym dodanym wierszu /zeszyt4 - tylko pogrubione komórki/ - to chyba musi być osobne makro? jeszcze raz dzięki :D
Racje, może nie do końca jasno opisałem o co mi chodzi. -------| A | B | C 1 2------- 5 3--------2 4--------3 ... ... 1000 ---7 Mam Arkusz w którym tabela zajmuje dla przykładu 1000 wierszy (nie uzupełniam kolumny B, C itd. ponieważ do opisu nie jest mi to potrzebne). Chciałbym, aby makro podliczało mi liczbę wierszy w których znajdują się jakiekolwiek...
Witam, jestem tutaj nowy. W Excelu poruszam się biegle, ale mam problem z Makrami i VB. Mam dwa pliki. Plan produkcji.xls w nim arkusz Produkcja i tam ma różne dane. Drugi plik to Zrobione.xls i arkusz zrobione. Chciałbym, aby w pliku zrobione po uruchomieniu Makra wypisało mi wszystkie arkusze ze statusem GOT. który jest w kolumnie N pliku Plan produkcji....
Cześć wszystkim, mam 2 małe problemy makrem do zaznaczania wierszy. 1. Pierwsze makro dodaje mi obramowanie do zaznaczonego wiersza - w tym kodzie chciałbym dodać zakres w jakim ma ono działać (tylko w obrębie tabeli) Od wiersza 42 do 305. If w > 0 Then With Rows(w) .Borders(xlEdgeBottom).LineStyle = xlNone End With End If With Target(1).EntireRow...
No jakoś mi nie wychodzi. Nagrałem makro, które wyszukuje dany "text", ale jak zapuszczam je to owszem znajduje ten tekst, ale nie przechodzi do tego miejsca focus. I jak dodam : Selection.Rows.Delete to nie usuwa tego wiersza, w którym jest ten tekst. Jak dodałem twój skrypt, to on cofa do pierwszego wiersza tabeli i zaznacza kilka wierszy. Mi chodzi...
Witam, chciałabym stworzyć makro porównujace dwa wskazane przeze mnie pliki. Układ obu plików jest taki sam. Na kilkaset wierszy czasami zostanie zmieniony tekst/kwota lub całkiem usunięty/dodany nowy wiersz. Widziałabym to tak że wskazuje konkretne dwa pliki, a makro porównując je usuwa powtarzające się wiersze (sprawdzając zarówno tekst jak i kwoty)....
Witam Prosiła bym o edycje kodu napisanego przez kolegę Prot, któremu jestem bardzo wdzięczna za okazaną pomoc. Poniżej makro:[syntax=vbnet]Sub UpdateBase2() Dim D As Worksheet: Set D = Worksheets("Dane") Dim B As Worksheet: Set B = Worksheets("baza") Dim v4 As Variant, v5 As Variant Dim Dw&, Bw1&, Bw3&, Bw5&, i& Dw = D.Cells(Rows.Count, 3).End(xlUp).Row...
Mam prośbę do ludzi zajmujących się #programowanie #vba o małe makro do Word-a. Pewnie sam bym je wymęczył, ale z moja nikłą wiedza trwało by to długo. Natomiast dla zawodowca to pewnie chwila. Makro ma wstawić zakładkę w miejscu kursora czy aktualnego zaznaczenia, a nazwa zakładki ma być wzięta z aktualnie zaznaczonego tekstu (o ile coś jest zaznaczone)...
Po pierwsze ilość kolumn w oryginale jest inna niż w Twojej wersji (10 i 14) trzeba to ujednolicić. Po drugie ustawiłbym kolumny w oryginale w kolejności takiej jak potrzebujesz. Po trzecie posortowałbym wiersze wg Product hierarchy 1 + Product hierarchy 2 + Product hierarchy 3. Wszystkie te czynności można łatwo zrobić nagrywając makro (dodanie i przeniesienie...
Puki co sprawdziłem pod Excel 2003 i z drobnymi poprawkami działa. Później sprawdzę pod Excel 2007 Tu musiałem poprawić [syntax=vb] Dim i, wiersz As Long ' dodałem zmienną wiersz = 2 ' wartośc początkowa zmiennej fold = Range("B4") ' komórka w której znajduje się ścieżka dostępu do głównego folderu myvar = FileList(fold & "\" & dato) 'TU zmiana 'wywołanie...
Witam Proszę o pomoc przy makrze zliczającym ilość wierszy od 1 do wystąpienia określonej wartości komórki np. do komórki zawierającej słowo Andrzej Dodano po 1 Problem już rozwiązałem w poniższy sposób Dim komorka As Range Dim i As Long Columns("A:A").Select For Each komorka In Selection If komorka.Value Like "Andrzej" Then GoTo koniec Else i = i +...
Cześć, Chciałbym się przywitać jako nowy użytkownik bo zapomniałem starego loginu i hasła :) Mam problem z tabelką. Otóż chcę w arkuszu zrobić kilka list rozwijanych. Chciałbym, aby po każdym dodaniu kategorii w liście, wstawiał się pod spodem nowy wiersz w tabelce. Wiem, że teraz mogę rozszerzyć tabelkę ale wtedy "zje" mi wiersze poniżej. Innym rozwiązaniem...
Dziala :) wielkie dzieki za pomoc Dodano po 2 Jeszcze jedno pytanie :) Czy jest mozliwosc aby edytowac makro usuwajace wybrane wiersze aby usuwalo rowniez te same wiersze tylko w drugim arkuszu tego pliku tzn. teraz usuwa w aktualnie otwartym Arkuszu 1 i chcialbym zebym usuwalo jednoczesnie to samo w Arkuszu 2 i zeby nie przenosilo mnie do Arkusza 2
Potrzeba jest następująca dla Excela 2003, bo taki mam w pracy. W kolumnie A jest nazwisko W kolumnie B jest czas wyjścia W kolumnie C jest czas powrotu W kolumnie D jest liczba przedmiotów do przyniesienia W kolumnie E jest kod produktu, który nigdy się nie powtarza W kolumnie F jest wydajność pracownika Arkuszy jest 5 bo jest 5 dni roboczych (pon-pt)....
Witam Mam pytanie czy jest mozliwosc zaktualizowania makra? Posiadam Makro ktore wkleja jakies formuly w obszarze 100 kolumn i 100 wiersz, potrzebuje teraz wstawic dodatkowa kolumne mniej wiecej w polowie zakresu, Iteraz co zrobic aby zapisy makra rowniez sie przesunely o ta jedna kolumne, jest taka mozliwosc????
Witam ponownie Bardzo proszę o pomoc. Chciałbym przenieść dane z pliku excela AA do pliku excela BB. W pliku AA dane mogą być wprowadzone wyłącznie przez dodanie nowego wiersza Dane wprowadza się w dwie komórki a1 nazwa przedmiotu i a2 nazwa klienta. Plik BB ma taką liczbę arkuszy ile jest klientów. Chciałbym by nowo wprowadzane dane z Pliku AA przechodziły...
Alleluja Mistrzu. Jeszcze jedna drobnostka. Co dodać, żeby pomiędzy "zestawami danych" nie dawał pustego wiersza? I czy da się też tak kopiować te dane, żeby obramowanie zostawało ? :)
Tu znalazłem problem bo to dwóch różnych ludzi (nie uwzględniając ich adresu połączy ich makro w jeden wiersz połączy nr_dz,kw,Jed.Rej) a nie powinno. Dodano po 7 tu jest problem jeśli mieliby te same daty i godziny złączyło by ich do jednego wiersza to makro
Macieju , dokładnie oto mi chodziło. Pomogłeś mi, masz ode mnie punkty. Wiedział byś może jak poprawić kod żeby zakres komórek, które mają zostać aktywne, działał automatycznie w dół oraz w bok? Chodzi mi oto że gdy wstawię lub usunę nowy wiersz lub kolumnę do tabeli, nowe komórki będą od razu aktywne, czyli wyróżniane kolorem. Obecnie, gdy dodam nowe...
Napisałem makro Nie jest on prostym. Myślałem, że nie byłoby problemu napisać anulowanie. Jeśli chcesz gotowe następnie to powiedz. Dodano po 18 Zamiast If Not (rn Is Nothing) Then rn.EntireRow.Copy Rows(rn.Row).Offset(1).I... Shift:=xlDown Application.CutCopyMode = False End If Wpisz If Not (rn Is Nothing) Then...
Chcesz aby przy kopiowaniu pomijal wiersze, gdzie juz wpisano recznie w kolumnie X? Nie dokładnie o to mi chodziło, ale już znalazłem swój błąd w rozumowaniu. Szukałem makra aktualizującego, a to już dużo roboty, bo opórcz jednej kolumny identyfikującej dane reszta jest specyficzna i unikalna. Dokładnie chodziło mi o to żeby makro sprawdzało, które...
Udało mi się zrobić coś takiego i wstawia wiersz tak jak chcę. Zmieniłam jednak zakres n do 200, bo nie za bardzo wiem jak zrobić do pierwszej pustej :( Dodano po 5 Chyba się udało. Tak działa poprawnie [syntax=vbscript]Sub Wstaw_wiersz_jeśli_20() Dim p As Long Dim n As Long Windows("Truck.xls").Activate Sheets("AERO").Select p = 16 Suma = 0 Range("P1").Select...
Prawdopodobnie w arkuszu odłożone zostały jakieś znaczniki, które identyfikują dodane wiersze. Może np.: każdy wiersz tabeli wyjściowej jest w jakiejś kolumnie ponumerowany, wtedy dodanie nowego wiersza daje puste komórk lub w jakiś sposób oznaczone i wtedy bardzo łatwo to usunąć.
Gwoli wyjaśnienia, szukam pomocy w zapisie kodu.. Przy użyciu poniższego zapisu, usuwa się tylko jeden wiersz. Nie wiem w jaki sposób zapisać aby jednak usuwało wszystkie scalowane wiersze. Dodam, że nie ma stałej ilości scalowanych wierszy. [syntax=vbscript]Sub UsunKomorki() Dim bs As Range, r&, i& Set bs = Range("A:R") r = bs(Rows.Count, 13).End(xlUp).Row...
Witam! Mam problem z poprawnym działaniem makra. Makro które przerobiłem z innego pliku gdzie dane były przenoszone z pierwszego arkusza do arkuszy znajdujących się w tym samym pliku. Teraz potrzebuję aby przenosiło do innego pliku z innych komórek. Niby przerobiłem je na podobę tamtego odpowiednio zmieniając adresy komórek z których ma pobierać dane...
Witam! Proszę forumowiczów o pomoc. Jak przerobić następujące makro znajdujące się w załączonym pliku tak, żeby: 1) Przycisk [Dodaj] umieszczał w tabeli poniżej określoną w komórce M6 liczbę wierszy o treści wpisanej tak jak w komórkach B6:K6 2) Obecnie przy dodawaniu wpisów w kolumnach C oraz F makro wstawia puste pola, a ma wstawiać dane z wiersza...
Cześć, jest zupełnie początkująca. Potrzebuję makra, które doda mi wiersz w prawie każdej zakładce (zakładek mam 31). Mam przycisk, zarejestrowałam makro, ale jak wiadomo przycisk mi działa tylko do jednej zakładki. Sub Makro3() Makro3 Makro Rows("5:5").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove End Sub I w tej jednej...
Dziękuję bardzo. Na początku mi nie działało bo kolumna A była pusta, ale dodałam nr wiersza i teraz wszystko śmiga. Dziękuję! [syntax=text] Sub KasujWiersze() ow = Cells(Rows.Count, "A").End(xlUp).Row For i = ow To 1 Step -1 If Cells(i, 6) = 0 And Cells(i, 7) = 0 And Cells(i, 8) = 0 And Cells(i, 9) = 0 And Cells(i, 10) = 0 Then Rows(i).EntireRow.Delete...
Potrzebowałem makro, które wstawia w określonym miejscu (kolumna E) hiperłącze na podstawie listy plików (kolumna B) i przyjaznej nazwy (kolumna D). Bez problemu zrobiłem makro, które działa jak należy ale korzystając z odwołań do konkretnych kolumn: Range("E" & wiersz).Formula = "=HYPERLINK(""Faktury...
Hej, próbowałem znaleźć odpowiedź na moje pytanie i samemu coś sklecić, ale niestety nie umiem. Jest to moje pierwsze doświadczenie z VBA, więc proszę o wyrozumiałość. Potrzebuję makra, które po wybraniu z listy rozwijanej w jednej zakładce wykona operację usunięcia całego wiersza zgodnie z drugim warunkiem w innej zakładce. Obrazowo: 1-W zakładce 2...
Problem rozwiązany, proszę o usunięcie tematu. Dodano po 37 makro
Użytkownik dodaje / ukrywa wiersze przyciskami +/-. Arkusz jest chroniony i musi taki zostać dla użytkowników, znajdują się tam formuły, które nie mogą być modyfikowane. Jeśli jest opcja Nie chroń arkusza, to wiersze się dodają / ukrywają, po włączeniu ochrony pojawia się:...
Przerobiłem sobie Makro tak jak poniżej i teraz działa :) Jeszcze raz dziękuję Pozdrawiam Dodano po 4 Program działa poprawnie
W internecie są opisy jak znaleźć ostatni wiersz z danymi. Wpisz do do VBA dodaj 1 i powinno rozwiązać to sprawę.
Jesteś uparta i nie dajesz załącznika, więc masz poradę nieco bardziej szczegółową, ale zgodną z tym, co pisałem wcześniej. Szukasz nagłówka w drugim wierszu, potem ostatniego wypełnionego wiersza w kolumnie z tym nagłówkiem: [syntax=vbnet]Dim nag As Range, ostw As Long Set nag = Rows(2).Find("Nagłówek") ostw = nag.End(xlDown).Row[/syntax]nag oznacza...
Dzień dobry. Mam trochę dla mnie niezrozumiały problem i proszę o pomoc. Mam Arkusz z tabelą w układzie jak w załączniku. Po uruchomieniu makra dodaj wiersz w dziwny (może tylko dla mnie) sposób "rozjeżdżają" się wiersze znajdujące się poniżej. Proszę o pomoc oraz wskazówki dlaczego tak się dzieje.
Aha. Już ostatnie pytanie. Jak to wygląda jeśli dane w pliku txt są rozdzielone przy pomocy spacji albo przy pomocy tabulatora? Dziękuję Ci bardzo za pomoc. Dodano po 15 Już wiem jak to zrobić. Dziękuje serdecznie !
Proszę o pomoc w napisaniu makra, gdzie po wypełnieniu danych w formularzu dane zostaną przeniesione do Arkusza1 i przypisane do konkretnej daty w kolumnie „A”. Nie wiem jak rozwiązać problem z godzinami spotkań. W przykładzie do wyboru są godziny: 8:00 oraz 9:00, ale docelowo zakres ten będzie obejmował godziny 8:00 – 20:00. Czy dane...
Potrzebuję gotowego makra, które będzie dodawało mi nowe wiersze. Może ktoś da radę pomóc. Mamy przykładowo w kolumnie D takie wartości: 1 D 2 5 3 1 4 30 5 8 6 100 Makro miałoby teraz dodawać pod spodem tyle wierszy ile jest napisane w tej kolumnie - 1. Np. Mamy w komórce 2D wartość 5 to pod spodem trzeba dodać 4 puste wiersze. w komórce 3D mamy 1 to...
Można tak, jak niedawno zasugerował kolega Maciej: Wpisz w dowolną komórkę liczbę 160, skopiuj ją do schowka (ctrl+c), zaznacz zakres, wklej specjalnie (ctrl+alt+v) > dodaj Oczywiście, żeby to zadziałało musisz mieć w komórkach liczby (nie tekst), a zakres sformatować niestandardowo (typ "0000")
W wolnej chwili wyklikałem na klawiaturze kilka linijek. Wydaje mi się, że wygodniej będzie Ci przystosować mój krótki kod. [syntax=vb]Sub Podziel() Dim a As String, a1 As Worksheet Set a1 = Sheets("Arkusz1") ow = Cells(Rows.Count, "D").End(xlUp).Row f = True Sheets("Arkusz1").Select For x = 5 To ow a = a1.Cells(x, 16) If f Then y = x f = False End...
Tu jest kolejny niuans: Autor nie wskazuje, czy wszystkie wartości 0, lub minimum jeden, jak Twoj makra dzala Dodano po 1 uupss... makra zmyzla
Konkretniej prosze? Probowalem bez selektowania tez nie szlo Dodano po 1 probowalem tez tak: [syntax=vbscript]Dim MIP1, MIP2 Dim i As Long Dim k As Long i = 1 k = 1 Application.ScreenUpdating = False For i = 2 To 22 MIP1 = Worksheets("gesamt").Cells(i, 1).Value For k = 2 To 17286 MIP2 = Worksheets("calosc").Cells(k, 14).Value If MIP1 = MIP2 Then Worksheets("calosc").Range(Cells(k,...
jeden wiersz w nagłówku aby kopiował do arkuszy od 4 wiersza Jaky sens? Po ActiveSheet.Name = ark Dodaj xxx.Rows(1).Copy yyy.Rows( 1)
Witam, Proszę o pomoc w napisaniu makra, które będzie usuwało całe wiersze, w których data będzie starsza niż 2016-05-02 (kolumna z datą to kolumna B) we wszystkich arkuszach. Znalazłam na jakiejś stronie kod z pętlą, która przechodzi przez wszystkie arkusze, ale nie potrafię napisać kodu odpowiadającego za usuwanie wierszy. Proszę o pomoc :) Dodano...
Przetestuj załączone rozwiązanie. Przed uruchomieniem należy: - Plik csv nazwać: "dane.csv" - Załączony skoroszyt zapisać w folderze, w którym znajduje się plik "dane.csv" U mnie cała procedura wykonuje się ok. 1 min. pozdrawiam andie Dodano po 2 Dziękuję bardzo, plik działa znakomicie! :) Co do mojej nieobecności, byłam na urlopie. Pozdrawiam serdecznie...
Sheets(arkusz).Select Dodano po 12 w ogóle to mi dodaje linie zamiast usuwać...
Bardziej chodzi o schludno Dodano po 6 Bardziej chodzi o schludność, chce żeby ta opcja była widoczna tylko przy wyborze odpowiedniego zagadnienia. Nie chcial bym robic dodatkowych checkboxow etc. Mam juz podpięte właśnie formatowanie warunkowe. Wypełniane to jest przez kierowników, ciężko powiedzieć ze z duza wiedza i znajomoscia excela. Mylslaem o...
Cześć, Arkusz FGL_MBSA jest aktualizowany przez osobę A. Arkusz ddm_fgl jest przetwarzany przez osobę B. Czasem osoba A zapomina zaktualizować dla osoby B jego arkusz. Chciałem więc zrobić automatyczne aktualizowanie arkusza ddm_fgl za pomocą power query. Część zawartości z FGL_MBSA po odpowiednim formatowaniu pojawia się w arkuszu ddm_fgl lecz po dodaniu...
Jeszcze coś pokombinuje, ale i tak wielkie dzięki skróciłeś w tym momencie już moją prace i to znacznie, muszę jeszcze tego excela trochę rozbudować, ale to już sprawa na inny temat. Jeszcze raz wielkie dzięki. Temat zamykam. Dodano po 1 Problem rozwiązał Maciej Gonet, wielkie podziękowania.
Bardzo dziękuję za szybką odpowiedź - pomogła i wszystko pięknie działa. Dodałam jeszcze "else" i teraz po ponownym uruchomieniu makra odkrywają się wiersze, które w kolumnie A mają już inną wartość niż 0 (w tej kolumnie przepisują się dane z innego arkusza). [syntax=vb][/syntax] Sub ukryjWiersze() Dim i As Integer Dim selRange As String For i = 60...
[syntax=vbscript]Sub ListaTabel() Application.ScreenUpdating = False Dim xtable As ListObject Dim xsheet As Worksheet Dim I As Long I = -1 Sheets.Add.Name = "Table Name" For Each xsheet In Worksheets For Each xtable In xsheet.ListObjects I = I + 1 Sheets("Table Name").Range("A1").Offset(I).Value = xtable.Name Next xtable Next Application.ScreenUpdating...
Witam, Po kilku dniach męczarni nad makrem postanowiłem poprosić o pomoc. Mój problem dotyczy makra a konkretnie przycisku który ma przechodzić po widocznych wierszach. Activecell.offset(1,0).select działa ale przechodzi po kolejnych wierszach. W arkuszu założony jest filtr i nie mam pojęcia jak przejść do następnego WIDOCZNEGO wiersza. Jest to możliwe...
Witam, ten [url=]Link temat idealnie wpasowuje się w mój problem. Czy można przerobić makro z postu #11 [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next w = Target.Row k = Target.Column If k = 7 Then If Target.Value > 1 Then a = w + 1 b = a + Target.Value - 2 Rows(a & ":" & b).Select Selection.Insert Shift:=xlUp,...
Dzień dobry, chciałbym utworzyć makro, może być pod kliknięcie w specjalny przycisk.. A teraz co miałoby ono robić.. Posiadam generalny plik zbiorczy projektów przedstawiony za pomocą tabeli w excelu. Jeden wiersz w tabeli to z założenia jeden projekt, a kolumny opisują jego postępy. Dane podstawowe projektu jak nazwa itd., które wprowadza użytkownik...
Korzystając z ciekawostki kolegi PRL chciałbym przestawić rozwiązanie mojego problemu z kilku postów wyżej. Chodzi o to, że po usunięciu pozycji dwuklikiem móc cofnąć operację usunięcia wiersza. Makro poniżej sprawia, że po podwójnym kliknięciu w arkuszu "szablon" w pierwszej kolumnie w danym wierszu wiersz ten zostanie najpierw skopiowany do arkusza...
Witam potrzebuję pomocy z makrem, które bardzo ułatwi mi pewną pracę :) Mam dwa pliki excela, w jednym (nazwijmy go 1) jest jeden arkusz w którym zapisuje się wszystkie nowo przyjęte rzeczy (wpisuje się nazwę firmy, nazwę przedmiotu i jego nr np firma X przedmiot x nr 001). Drugi(nazwijmy go 2) ma kilka arkuszy z nazwami firm, w arkuszach tych są naturalnie...
Spoko, mogło by wyglądać tak: Sub Makro1() Dim temp As Variant Dim wiersz As Long wiersz = 1 Do While Cells(wiersz, 8) <> "" If Cells(wiersz, 8).Value = 0 Then Cells(wiersz, 10).Cut Destination:=Cells(wiersz, 15) wiersz = wiersz + 1 Loop End Sub Dodano po 2 jaszcze taka uwaga makro działa poprawnie do pierwszej pustej komórki w kolumnie przeszukiwanej
Kopiuj wklej nie wystarczy. Muszę to robić kilka razy w miesiącu i za każdym razem jeden arkusz muszę przerabiać kilka razy a mam kilka arkuszy. Więc na zwykłe kopiuj wklej to cały dzień roboty. Znalazłem różne informacje na forum, ale nie udało mi się tego uruchomić, żeby działało. Jak wspomniałem jestem zielony jeśli chodzi o makra. Wczoraj cały dzień...
Nie rozumem o co chodzi z tym leczeniem kanałowym i co to ma do dolnej kolumny... Ogólnie ciekawy pomysł... dolna kolumna... Biorąc kod marcimix wyszło takie coś: [syntax=vb]Type iCell Row As Integer Col As Integer End Type Sub ColorNext() Dim C As iCell Dim r As Range Dim tmp As Range Dim step As Integer C.Row = Excel.ActiveCell.Row C.Col = Excel.ActiveCell.Column...
Witam ponownie Zacznę od tego, że mam takie dane w excellu: 1293.2750.4324.1294.2750.3765. 0. 0. 0. 1. 1. 1. 1. 2. 3. 1. 2. 3. I teraz chciałabym napisać takie makro, które kopiuje mi komórki z pierwszego wiersza jeżeli w komórkach w wierszu poniżej wartości są takie same. Chciałabym, żeby te skopiowane wartości (tutaj akurat po 3) były kopiowane do...
Cześć, Piszę do Was, bo może ktoś miałby pomysł jak rozwiązać pewne kwestie, nad którą się zatrzymałem robiąc makro. Sprawa wygląda tak, że jest arkusz 'umowy', gdzie są umowy, etapy ich realizacji i inne dane. Na ich podstawie makro obrabia dane i wprowadza je do zakładki 'faktury' i pojawia się pierwszy problem: - chciałem zrobić przycisk, pod które...
Dzięki bardzo :) Działa. Dodano po 1 Działa w przypadku jednego zdania, jaki kod należy wpisać jeżeli jest więcej zdań i każde zaczyna się od nowego wiersza z wielkiej litery, a niektóre zdania zajmują dwa wiersze?
Ładny obrazek. To do testów w Paincie? Cześć, nie ma sensu pisać takich komentarzy, więc nie rób tego, jeżeli nie masz nic wartościowego do dodania. Dzięki. *Update* Dodaje załącznik oraz zdjęcie jak chciałbym aby to wyglądało po naciśnięciu "Copy" A jeżeli chodzi o przycisk "Clear" to ma on również swój kod, ale obawiam się, że skopiowany przycisk...
Cześć, potrzebuję pomocy. W załączonym pliku znajdziecie arkusze: - weryfikacja - firma 1 - firma 2 - kodowanie firma 1 - kodowanie firma 2 Przystępując do pracy: 1. Do arkusza "Firma 1" wklejam dane z innego pliku od kolumny E do AB 2. Uzupełniam formułę w kolumnie A 3. W kolumnę B wpisuje "F1" 4. Kopiuję kolumnę A i wklejam do arkusza "Kodowanie Firma...
1. Makro odpada ponieważ po każdej dodanej wartości wchodzącej w wynik komórek w kolumnach BW i BX musiałbym uruchamiać makro. 2. Podane przez Ciebie makro dalej uzależnione jest od kolumny bz, co mi przeszkadzało, więc wywaliłem pierwsze if, a kolumne w while wstawiłem BV (jeśli nie ma wartośći w BV, to nie ma co liczyć w BW i BX). 3. Nie potrzebuję...
Tak na szybko spróbuj : Sub Makro1() arkuszdane = InputBox("podaj nazwę arkusza z danymi") kol = CInt(InputBox("Podaj kolumne z danymi")) wier = CInt(InputBox("Podaj pierwszy wiersz z danymi")) ile = CInt(InputBox("Podaj ile jest wierszy z danymi"))...
No widzisz :) Pierwsze sprawdziłem- działa. TIMSK zaremowany, puste przerwanie też. TIFR |= (1 << TOV1); wstawiony do przerwania od ADC. Co prawda kod jest jeszcze bardziej niezrozumiały- ale działa. wystarczy dodać komentarz :P Co do reszty- inline jeszcze nie przerabiałem- link od Ciebie Avrlibc manual czytam codziennie i podręcznik do C też-...
=TRIM(LEFT(SUBSTITUTE(A2;" ";REPT(" ";100));200)) :p teżź nie działą ^_^ Dodano po 1 Przyznam, że nie ogarniam o jakie moduły chyodzi :P Mowa o kodzie VBS do makr?
Witajcie, Mam taki przykład. Handlowcy, region, punkty. Potrzebuję aby z arkusza "dane" kopiowały się wiersze w zależności od regionu. Tj wszyscy handlowcy z południa do arkusza "południe", ci we wschodu do "wschód" itd. Mam takie makro. Sub CopyWhenConditionMet() a = Worksheets("dane").Cells(Rows.Count, 6).End(xlUp).Row For i = 2 To a If Worksheets("dane").Cells(i,...
zmieniłem kod tak jak poradziłeś dodałem jeszcze zmienną LI która powoduje że makro nie mieli od początku ale od ostatniego wiersza. Jest poprawa ale nadal nie działa zbyt szybko. Teraz nie wiadomo w którym momencie jest. Ile zostało do końca Kod po modyfikacjach: [syntax=vb]Sub Przycisk1_Kliknięcie() With Application .ScreenUpdating = False .EnableEvents...
Witam Mam dość dziwny problem... Do sporego arkusza, który zawiera harmonogram prac (makro) postanowiłam dodać sobie kolumnę, która liczyła czas pracy (od daty realizacji odejmowałam datę złożenia zlecenia - wynik to suma dni potrzebnych na realizację zlecenia. Ponieważ zleceń jest dość dużo postanowiłam "rozmnożyć" odejmowanie do samego końca... i...
dane będą usuwane z pierwszej tabeli ; druga tabela służy jako informacja i ile wierszy danego kodu trzeba usunąć. filtrowanie odbywa się po kolumnie z kodem ( kolumna "C"). poniżej zarejestrowane makro. Range("C12").Select ' tabela 2 Selection.Copy ActiveSheet.Range("$A$1:$L$49").AutoFilt... Field:=3, Criteria1:="77099803" Rows("2:3").Select ' w tym...
Witam, mam problem z napisaniem makra VBA, które będzie wyszukiwało kolumnę z nagłówkiem OPIS i następnie zacznie działać funkcja if w tej kolumnie do ostatniego niepustego wiersza. Dodano po 1 [syntax=vbscript]Sub Sample() Dim ColumnIndex response = "cel" ColumnIndex = Cells.Find(What:=response, After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart,...
W jaki sposób makro ma wiedzieć, które miasto należy do danego województwa? Masz gdzieś tabelę miast/województw? W danych wejściowych w kolumnie A powinno być przypisane przy każdym mieście województwo, albo jeśli kolumna B jest pogrupowana już województwami (a w przykładzie jest) to musiałyby gdzieś być jakiekolwiek znaczniki, że już kolejne województwo...
W sumie racja, zapomniałem dodać co bym chciał. Wracając do tematu, właśnie nie za bardzo wiem jak zrobic zeby wykrywał mi A jako kolumne i zmienna jako numer wiersza.
Witam, Mam zarejestrowane takie oto makro: Sub Makro4() ' ' Makro4 Makro ' ' Columns("A:D").Select Application.CutCopyMode = False Selection.Delete Shift:=xlToLeft Columns("G:G").Select Selection.Delete Shift:=xlToLeft Range("A1").Select ActiveWorkbook.Worksheets("BI").Sort.Sor... ActiveWorkbook.Worksheets("BI").Sort.Sor... Key:=Range("A1"),...
Być może dałoby się. Jednak nie mam chyba dostatecznej wiedzy i znajomości VBA...Zadanie polega na wyznaczeniu wartosci parametrów (kolumna O i P) dla których formuła z kolumny U przyjmuje maksymalna wartość dla każdego wiersza. Przy założeniu, że wartości z kolumn O i P zawieraja sie w przedziale <0,180>. Dodano po 4
Po pierwsze dodaj ma_być.xls (ewentualnie ma_być.jpg) Po drugie podaj to w postaci xls
Witam Mamy pytanie odnoście usuwania makra przez inne makro. Od początku. Mam poniższy kod który oczywiście działa popranie i robi dokładnie to co ma robić, czyli: kod na początku filtruje i tworzy pewną ankietę w arkuszu. Następnie arkusz z ankietą zostaje skopiowany i wklejona do nowego pliku Excel, następnie zapisany pod konkretną nazwą we wskazanym...
Dodałem plik zawierający makro. Ja w tym pliku żadnego makra nie widzę :] Ani tabeli przestawnej która może się psuć... Natomiast widzę że jest to plik z rozszerzeniem .xls, który ma ograniczoną ilość wierszy do 65536. Może to jest przyczyną - jeżeli jakimś cudem możesz mu zapisać 130.000 wierszy, spróbuj użyć rozszerzenia .xlsx (lub .xlsm, jeżeli...
Mam takie proste makro do przenoszenia między arkuszami wartości. Potrzebuję do tego dorzucić sprawdzanie wartości w kolumnie E jeżeli większa niż zero to kopiuje jeżeli zero pomija kopiowanie z danego wiersza. Jakoś nie mogę tego ogarnąć proszę o pomoc. Sub A_Przenies_ok() Dim x As Double, ostatni_wiersz As Double ostatni_wiersz = Sheets("lista").Cells(Sheets("lista").Ro...
W dwóch zdaniach: chodzi o to by z arkusza baza pobrać pierwszy indeks "z" a do obliczeń w arkuszach 1-4 stosować indeks "na" wszędzie tam gdzie pojawi się ten oryginalny "z". Arkusz mam za zadanie dodawanie stanów, sprzedaży, itd. do indeksów w arkuszach 1-4 stosując zamienniki ("na") ale jednocześnie nie usuwając oryginalnych indeksów jakie tam są....
Witam, mam mały problem z rozgryzieniem makra. Docelowe działanie: Komórki B5 i B6 decydują o ilości produktów oraz ilości elementów z których się będzie składał każdy z elementów (w tej wersji każdy z produktów składa się z tej samej liczby elementów). Po wpisaniu odpowiednich wartości i nacisnięciu przycisku GENERUJ (jeszcze go nie ma) tworzony jest...
Witam, podczas tworzenia makra natrafiłem na problem z którym nie mogę sobie poradzić. Makro miałoby za zadanie z wszystkich arkuszy o nazwie "Protokół x" zrobić zestawienie w jednym arkuszu oraz z "delikatnymi" zmianami odnośnie rozmieszczenia w kolumnach. Na chwilę obecną nie idzie źle - mam problem ze zliczaniem wierszy z protokołów, żeby określić...
Witam, Mam problem z edycją Makra (poskładanego z kilku znalezionych, nieco edytowane). Makro tworzy już dodatkowe arkusze zmieniając ich nazwę. Wybiera i zapisuje dane od 2 wiersza w nowych arkuszach. Chciałbym jednak by zaciągał również pierwszy wiersz z arkusza "OPIS" jako nagłówek. Zależy mi również na tym, by automatycznie edytował również szerokość...
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...
Witam! Od czasu do czasu korzystam z VBA lub po prostu rejestruję proste makro, żeby ułatwić sobie pracę. Ostatnio natrafiłem na problem. Zarejestrowałem proste makro ułatwiające dodawanie kolejnych odczytów do tabeli w arkuszu, który jest częścią większego skoroszytu, ale innych makro w nim nie ma. Ku mojemu zdziwieniu okazało się, że makro czasem...
Witam! Mam skoroszyt o nazwie "skoroszyt A", z którego wybrane dane przenoszone są do innego skoroszytu "pliczek" znajdującego się w innej lokalizacji. Wszystko działa jak należy, jednak chciałabym dodać fragment kodu a nie bardzo wiem jak powinien wyglądać. Potrzebuję aby dla wierszy 9:47 jeżeli w którejkolwiek kolumnie w zakresie BG:BJ znajduje się...
do poprzedniego makra muszę dodać funkcję która wyszuka mi 3 najwyższe wyniki wśród kolumny,w której znajdują się puste komórki i komórki z wynikami np. komórki 1-6 pusto, komórka 7=56,5, komórki 8-9 pusto, komórka 10=43,2 itd. zrobiłem pseudokod, który wyszukuje niezerowe wiersze, a wśród nich najwyższy wynik, lecz nie wiem jak zrobić żeby wyszukiwał...
Może to Ci pomoże. Makro, dla podanej "szukana" przeszukuje każdy wiersz. Jeżeli znajdzie szukaną to kopiuje cały wiersz i przenosi do innego arkusza Dodano po 3 jeszcze raz bez zbędnych żeczy :) [syntax=vb]Sub Szukaj() Dim wiersz As Integer, kolumna As Byte, szukana As String, NumerWiersza As Integer Dim lastRow As Integer With ActiveSheet lastRow...
Chcę zrobić coś takiego: jestem w wierszu powiedzmy 4 obojętnie w której kolumnie i chcę po naciśnięciu przycisku aby kopiowało mi zawartość komórki o adresie kolumna F i zaznaczony wiersz ( w tym przypadku F4) do innej komórki. Dodano po 13 Dodano po 2 Błąd jest w tym zapisie Dodano po 40 [syntax=vbscript] Cells(ActiveCell.Row, 6).Select [/syntax]...
Witam! Mam plik raportu do którego przenoszę dane na zakończenie pracy z pliku „plik testowy” oba pliki znajdują się w różnych lokalizacjach – w załączniku oba pliki na wzór – ogólnie przenoszonych danych jest ok. 30 wierszy z różnej ilości kolumn dla maszyny 1 i maszyny 2, ale opiszę swój problem na zamieszczonych plikach przykładowych....