wpisywane "ręcznie", a nie poprzez formuły - jak ogarnąć drugą część mojego problemu? Żeby wykorzystać makro zdarzeniowe :D to proponuję wykorzystać jednak inną kolumnę np. wolną obecnie kolumnę A :spoko: . W załączonym pliku proponuje w przedostatniej komórce kolumny A wprowadzić wartość 1 , a wówczas cały ten wiersz (od B do AH) zostanie wstawiony...
Sprawdź teraz Ostatni wiersz trzeba było lekko zmodyfikować A jak to liczy? To jest nasza słodka tajemnica :) Sprawdź w pomocy i na spokojnie przeanalizuj.
Tak, tak rozumiem tylko jak to sie mówi: " A u mnie to działa normalnie " ciekawe od czego to zależy... ?hmm Niestety Excel to wredny typ. Pusta komórka czasem nie jest pusta a tego nie widać i wiele innych podstępów Micro$hita ... potestuje u mnie jeszcze i dam Ci znać jak coś wyknuje jeszcze Pozdrawiam .... a rzeczywiście .... zwielokrotniłem twoje...
Otwórz w Access tabele do której chcesz wkleić dane, ctrl +a, ctrl+c, otwórz excel nowy arkusz ctrl+v, wytnij wszystkie wiersze oprócz nagłówków kolumn (pierwszy wiersz) , edytuj dane dodawaj, zmieniaj co chcesz, kolumnę id pozostaw pusta. Gdy skończysz zaznacz i skopiuj arkusz, w Access zaznacz ostatni wiersz w tabeli i ctrl+v, jeśli typy danych itd...
Jaki jest cel tego zapisu? [syntax=vbscript]For s = 0 To t + krok Step krok[/syntax]Ile punktów ma być obliczonych? t/krok+1 czy t/krok+2 ? Generalnie takich zapisów należy unikać jeśli krok nie jest liczbą całkowitą, bo nigdy nie wiadomo, ile punktów zostanie uwzględnionych. Jeśli parametry pętli są liczbami całkowitymi to można liczyć, że wartość...
Kolego, przerabialiśmy to wczoraj, adams_nt w #5 o tym pisał dzisiaj i znowu ten sam problem?? Rozwiązanie to samo: ustalasz ostatni wiersz w kolumnie E, która jest pusta: [syntax=vb]ost = Range("E10000").End(xlUp).Row + 2[/syntax] (nie wiem czemu dodajesz 2 nie 1...). Użyj G albo H.
Hmmm... Kilka uwag na początek: Po pierwsze primo: jeżeli chcesz uniezależnić program od nazw arkuszy, wystarczy zamiast: kolejnym wierszu.
Range("G6:G89").Select Jak go zmienić, żeby zakres brał pod uwagę wszystkie niepuste komórki w tej kolumnie? Więc tak, jeżeli chcesz, żeby z całej kolumny zaznaczył zakres składający się z niepustych komórek to będzie takie makro: Sub proba() Dim x As Double Dim zakres As String For x = 1 To ActiveSheet.Cells(ActiveSheet.Rows.C... "G").End(xlUp).Row...
Mam problem z dopisaniem do Arkusza1 (WuZetka) do komórki E9 kontrahenta wybranego z Comboboxa. Pewnie dlatego, że pod przyciskiem WSTAW nie masz żadnego kodu... ;) Wstaw go - kod będzie podobny do tego, który podałem jako ostatni, a nawet prostszy, bo znasz adres komórki, do której chcesz wstawiać. Dlaczego lista kontrahentów jest inna niż towarów....
Zacznij od wyszukania ciągu i przypisania Nr wiersza: [syntax=vb]wrs = Columns(1).find(what:="OVERALL RESULT", lookat:=xlwhole).Row[/syntax]Jeśli to jest ostatni wiersz zakresu, to już z górki. Np [syntax=vb]Cells(wrs, "E").Formula = "=SUMIF(D:D,""aa"",E:E)"[/syntax] Bez VBA 1. W F1 wpisuję: =SUMA.JEŻELI(d:d;"aa";e:e) 2. W E1: =JEŻELI(A1="OVERALL RESULT";F$1;C1-B1)...
Witam. Czy jest możliwość w Excelu aby wyznaczył ostatni wpis po dacie w danym miesiącu. Mam w kolumnie A daty w B kwoty C dostawcy chcę aby Excel zaznaczył na kolorowo wiersz w którym jest ostatni wpis z danego miesiąca. Udało się zrobić aby sumował każdy miesiąc osobno. Tylko chcę aby było widoczne kiedy kończą się wpisy z jednego miesiąca a kiedy...
W internecie są opisy jak znaleźć ostatni wiersz z danymi. Wpisz do do VBA dodaj 1 i powinno rozwiązać to sprawę.
1b. Kod ma kopiować wszystkie na prawo arkusze z tego samego pliku i wszystko wrzucać do arkusza zbiorczo z ostatnim wierszem. Może opisze od początku moje działania: Mam plik XXX, w którym jest jeden arkusz o nazwie Panel. W nim mam różne porobione przyciski z makrami. Pierwszy przycisk pozwala mi na kopiowanie do mojego XXX danych z innych plików...
Rzeczywiście autor nie ma talentu do przekazywania informacji. Wydaje mi się że o to mu chodziło (załącznik). Do autora topiku: Nie da się funkcjami wydrukować tylko wybranych stron. Można ukrywać widoczność ale wtedy ostatecznie będą białe/czyste strony drukowane. Pozostaje makro - w sumie proste ale ... w makrach położenie poszczególnych komórek jest...
To ja mam pytanie w trochę podobnym zakresie. Czy da się zrobić takie makro, które będzie formatowało wszystkie tabele w Wordzie. Chodzi o to, aby tabele były dopasowane do okna oraz obramowane linią o grubości 1 pkt. w szarym kolorze. Wiem, że można zrobić formatowanie tabeli w stylach, ale jak usunę ostatni wiersz z tabeli to wówczas obramowanie na...
Witam, Arkusz to baza pojazdów w mojej firmie. Arkusz ogólnie robi wiele innych rzeczy ale obecnie utknąłem na zapisie dotyczącym paliwa a dokładnie wyliczaniu pokonanego dystansu od jednego tankowania do drugiego by na bieżąco wyliczać średnie zużycie paliwa. Kombinuje z tym by po uzupełnieniu ostatniego wolnego wiersza - dane beda wpisywane w wyswietlane...
Ja zrozumiałem, że autorowi wątku chodzi o odpowiednie sformatowanie dowolnie zaznaczanego obszaru, czyli coś takiego: [syntax=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range) With Target 'formatowanie pierwszego wiersza zaznaczonego obszaru Range(Cells(.Row, .Column), Cells(.Row, .Column + .Columns.Count - 1)).Font.Bold = True Range(Cells(.Row,...
Teraz kolego to ładnie kopiuje wszystkie wystąpienia. Bardzo Ci dziękuję za Twą pomoc. Próbuję jeszcze zmienić coś w kodzie ponieważ po zakończeniu instrukcji w arkusz1 zostaje tylko jeden wiersz ( ostatni ) a reszta jest ukrywana. Może mi się uda doczytać jak to zmienić. tak to wygląda : https://obrazki.elektroda.pl/2877661100_...
Witam. Muszę we wpisanym pliku excel'a odnaleźć ostatni niezapisany wiersz i tam umieścić kursor. Zawsze kolumna B. Ponieważ operatorzy zapisują od początku czyli B1. VBA odpada ponieważ w Excel 2016 mi nie działa, a w 2010 jest z nimi ok. Działają formuły, których mam już trochę, ale nie w kolumnie B. Da się to zrobić przy ich pomocy w wersji 2016?
W udostępnianiu plików Excel w jaki sposób poradziliście sobie z dopisywaniem wierszy. Jeżeli zmieniam komórkę A5 to w tym samy momencie ktoś może również w tym samy momencie zmienić komórkę A5 ale po odświeżeniu zobaczymy zmianę i zostanie podświetlona komórka. co jedna się dziej jak dodam nowy dane do nowego wiersza np. ostatni wpis wiersz 10. Patrzę...
Jak uzależnić zakres do skopiowania w zależności od ilosci wprowadzonych pozycji? Ująć w kodzie ostatni wiersz źródła danych w postaci [syntax=vbscript]OstatniWiersz = Cells(Rows.Count, "A").End(xlUp).Row[/syntax] To tylko przykad.
Tak. Przykład jest wycinkiem tego co potrzebuję. Pozostałe rzeczy ogarnę sobie (znajdź ostatni zapisany wiersz w arkuszu do którego chcę wkleić, skopiuj i wklej). Problem polega na tym, że potrzebuję właściwie wskazać zakres do skopiowania i tutaj moje pytanie.
W tym miejscu usunąłem jeszcze '+1' Oznacza to, że był pusty arkusz. W przeciwnym razie ostatni wiersz będzie zastąpiony przez nowy.
U mnie ten kod dokładnie taki jak wkleiłeś działa i kopiuje... Wejdź do kodu i wciskając F8 prześledź krok po kroku, czy kod wykonuje się tak, jak trzeba... A, jedna uwaga - w tej chwili kopiujesz wszystko do tej samej komórki, bo zmienna ost_w nie jest zwiększana. Przerób na: [syntax=vb]wiersz = wswyn.Range("B65536").End(xlUp).Row + 1 For i = 19 To...
Bo "coś" masz w wierszu 3 i 4, być może śmieci z poprzednich prób. Jak je usuniesz to powinno śmigać. Swoją drogą, niepotrzebnie 7x ustalasz ostatni wiersz, wystarczy to zrobić raz na początku, a potem wykorzystać: [syntax=vb]Private Sub CommandButton1_Click() wiersz = Range("A" & Rows.Count).End(xlUp).Row + 1 Range("A" & wiersz).Value = marka Range("B"...
Witam Bardzo słabo znam VBA, nieraz „pomagałem sobie” plikami z elektrody, tym razem nie mam pomysłu jak zacząć. Jeśli ktoś mógłby pochylić się nad moim problemem będę wdzięczny. Wyjaśniam o co chodzi: Mam przygotowywać harmonogramy produkcji różnych elementów. W załączniku przesyłam szkic tabel jak to ma wyglądać. Jako przykład są to słupy....
Sprawdzasz ostatni wiersz w arkuszu. np tak: ostatni = Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row Robisz pętle FOR od numeru wiersza nagłówka np 3 do ostatniego wiersza arkusza, czyli np tak: FOR x=3 to ostatni ... NEXT x w środku pętli warunek IF że jak komórka kolumny P równa jest "Delete" to ją usunąć, czyli np tak: IF cells(x, 16) = "DELETE"...
Czy ja mógłbym odświeżyć lekko temat i zapytać czy jest szansa żeby ktoś edytował ostatni plik który wstawił (at)marek003 bo interesuje mnie tylko jeden wiersz tej całej funkcji a mianowicie wiersz numer 3, gdzie mam godziny pracy, a widzę że w komórce E3 jest funkcja takiej długości że mi ręce opadły jak ty to w ogóle ogarnąłeś :D SZANUJE Chciałbym...
No właśnie muszę zrobić tak, żeby nagłówek i stopka tabeli (czyli pierwszy i ostatni wiersz w arkuszu) przy przewijaniu były zawsze widoczne. Meczę się z tym już kilka godzin i nie potrafie nic takiego wymyślić. Za wszystkie sugestie bardzo dziękuję pozdro
Ok zmiana w B2 Ale nie "idz" od razu na koniec "zabrakło tabeli na 30/06/2013 ( CO) więc ją skopiowałem od poprzedzającej w prawo mam nadzieję, że zasadnie? " No nie do końca bo kwiecień/ maj ma błąd a co za tym idzie ostatnia kolumna czerwca też jest błędna. Po kolei jeszcze raz: zmieniasz B2 idziesz do końca 1 miesiąca i sprawdzasz ostatni dzień i...
Po mojemu: musi być to samo, tylko w poprzek ;) Wszystko zaczyna się od C3, więc =ORAZ(NR.KOLUMNY()=KOMÓRKA("kolumna");KO... Gdzie zakres "dotyczy", to nasz wiersz nagłówkowy: http://obrazki.elektroda.pl/6512436400_1... http://obrazki.elektroda.pl/3894260900_1... Edit: poprawiłem. Ostatni argument, to "wiersz"...
Suma warunków tu się nie sprawdzi bo każda pozycja jest inna. Sprawdzanie poprawności wskazać listę i zaznaczyć kolumnę A:A W komórce poniżej indeks() z całą tabelą a jako wiersz podaj.pozycję() gdzie argumentem jest wybrana lokalizacja i zero jako ostatni parametr. dodane po chwili --------------------------------------- Poniżej przykład mojej propozycji...
Musisz określić ostatni zapisany wiersz w danej kolumnie, np. poprzez (dla kolumny A): [syntax=vb]Dim lOstRw& lOstRw = Cells(Rows.Count, 1).End(xlUp).Row[/syntax] Później w komórce poniżej ostatniej zapisanej wpisujesz formułę sumowania dla zakresu od wiersza 1 do ostatniego zapisanego wiersza w danej kolumnie (dla kolumny A): [syntax=vb]Cells(lOstRw,...
Próbowałem już przenieść bazę do MS Access niestety nie pasowało w obrabianiu i wyświetlaniu danych :/ A raczej czasu zabrakło. Minusem był brak wstawiania wierszy w tabelę a często sprzęt jest np. przenoszony i wiersz z nim nie może znajdować się na końcu tabeli :(
Do While Worksheets(1).Cells(Wiersz, kolumna).Value <> "" 'Tu rób co do ciebie należy lub nie rób nic Wiersz = Wiersz + 1 Loop W zmiennej "Wiersz" będziesz ostatnią sprawdzaną pustą komórkę. Zmienna "kolumna" <- tu podaj którą kolumnę będziesz sprawdzał To rozwiązanie mimo że zadziała, nie jest dobrym sposobem z dwóch powodów: 1. jest czasochłonne...
Witam Potrzebuje aby makro, ktore kopiuje mi wiersze pokazywało mi ostrzeżenie jeżeli liczba wierszy kopiowanych jest mniejsza niz 24 Chyba wiem jak uzyskać liczbę wierszy ale nie wiem jak zrobić aby msgbox pokazywał sie tylko przy warunku ostatni wiersz jest różny od liczby 24 a jeśli jest spełniony to ma lecieć dalej ostatniwiersz = ActiveSheet.UsedRange.Rows.Count...
może źle się wyraziłem chodzi mi o obszar roboczy widocznych będzie tylko część wierszy po odfiltrowaniu reszta jest ukryta jak w nowym załączniku czy da się coś takiego zrobić podejrzewam że będzie potrzebne makro, ale pewności nie mam. nowy załącznik raz jeszcze nie chce w filtrze odznaczać pozycji których ma nie wyświetlać bo musiałbym "odptaszkować"...
ostatni wiersz ostatni = ActiveSheet.UsedRange.Rows.Count a potem już z górki for wiersz = początkowy to ostani ... róbta co chceta ( zakładajcie arkusze itp ) ... next wiersz i tyle na zdrowie :D
Dzięki za wędkę ale przydałby się jeszcze robak :) Powalczę w wolnej chwili z kodem. Dodano po 3 No dobra znalazłem i robaka Działa tylko dla kolumny A zgodnie z moimi założeniami Private Sub Worksheet_Change(ByVal Target As Range) If Target.Value = "" And ActiveCell.Column = 1 Then Application.EnableEvents = False Target.Offset(,...
To może tak: - w ListoBoxie którego używasz nie można zastosować siatki, - siatkę można zastosować w komponencie ListView, który jest inną kontrolką niż ListBox (ma inne właściwości i inaczej się do niego ładuje dane). Mam nadzieję że wstawiłeś ListView tak jak pisałem w poprzednim poście, a nie tylko zmieniłeś nazwy ListBoxów?? - ten kod który Ci podałem...
Dopisać zmienną, odszukać ostatni wiersz w arkuszu wsWyn, przypisać do zmiennej (podobnie jak robiłeś z 'FinalRow') i w pętli zamiast "i" używać tej zmiennej wsWyn.Cells( i , kol1) = wsSrc.Cells(i, kol) zwiększając jej wartość przy każdym przebiegu (zmienna=zmienna+1)
Witam, mam taki problem z dopisywaniem poszczególnych konfiguracji w tabeli arkusza Excel z poziomu SolidWorks. Chciałbym, żeby makro dopisywało wiersz z konfiguracją o jeden większą niż poprzednia, interesują mnie tylko trzy ostatnie znaki, np. 099, lub 078, lub 088. Problem pojawia się przy dojściu do liczby 100, bo wtedy makro dopisuje mi zamiast...
Rada: Określ ostatni wiersz kolumny C (najlepiej przypisz to do jakiejś zmiennej np. OstWrsC) Następnie zamiast "300" w linii z AutoFill wstaw określoną wcześniej liczbę ostatniego wiersza kolumny C (czyli OstWrsC) Oczywiście zachowaj zasady łączenia ciągów tekstowych ze zmienną (znak & ) Wystarczy, czy gotowe rozwiązanie? Na marginesie: Jeżeli uważasz...
Chciałbym, żeby to makro wyszukiwało mi ostatni wolny wiersz i tam wklejało dane z plików, czyli: [syntax=vb]wiersz = Sheets("dArk").Range("C65536").End(xlUp)... + 1[/syntax] Niestety moja znajomość VBA jest na razie (mam nadzieje :D ) na niskim poziomie i dołączenie tej części kodu wywala mi błąd. Druga rzecz. Pobierane dane nie zawsze są tej samej...
No właśnie o tym zapomniałem , a jest to bardzo ważne tzn. kolumna A - NR.budowy jest zależna od kolumny N która jest okresem pobytu pracownika na wybranej budowie tzn. pracownik o ID 01072 przebywał na dwóch budowach 348,339 w okresie 17-29 na 348 i 1-16 na 339 i teraz przy składaniu ręcznym lista płac jest przypisana do ostatniego dnia na budowie...
W zmienny.xls w kolumnie 1 jest 17 wierszy. Wtedy r = Cells(Rows.Count, 1).End(xlUp).Row tz. jak z komorki A65536(Rows.Count=65536, kolumna=1) kliknieme Ctrl+ strzałka w górę, to kursor stane w ostatni wiersz z dane. hmm... a je to A17, wiersz r=17 Dodano po 5 np. "KWZE/MCPKLU6/0001/07/15" jest w obu plikach w kolumnie A? Dodano po 1 Cells(x, y) jest...
Otwieram Twoj plik i jest ok, jak dodam jeden wiersz juz się kopie. Skopiuj w Arkuszu 1, ostatni wiersz i wklej go niżej. Albo wpisz kolejna datę i obok w kolumnie D literkę: C U mnie po takiej operacji wszytko wyświetla z błędami. Jak wpiszę zakres od 1 do 35536 to działa... Chyba zostane przy tym rozwiązaniu. Nie chciałbym żeby się to kiedyś samo...
Dziękuję za ostatni kod bardzo mi pomógł. Mam jeszcze jedną pewnie ostatnią prośbę. Chciałbym że dla każdego pliku w katalogu po operacji zapisania pliku, excel sprawdził jedną kolumnę w której raz na jakiś czas pojawi się "+" i jeśli się pojawi to żeby nazwa pliku została zapisana do worda. (Tak żebym miał w wordzie na koniec listę plików w których...
Generalnie to działa :) Jestem wdzięczny. Jedyny problem to taki, że kod nie kończy tam, gdzie chcę. Dajmy na to ostatni wiersz ma nr 4021 i jest pusty w kolumnie A. Rozumiem, że końcówka kodu będzie wyglądała tak?: Dodano po 25 Nie, to bez sensu. Przecież formuła nie zakończy się, dopóki nie zatrzymamy tradycyjną metodą "zamknij program". Nie mam pomysłu...
Kolego. A co ja Ci wysłałem? Mam pytanie korzystam z bardzo podobnego kodu poniżej, ale pojawił się problem po skopiowaniu np 10 wierszy z arkusza 1 i następnie kopiowaniu kolejnych linii z arkusza 2, linie z arkusza 2 nie wklejają się w pierwszy wolny wiersz pod tymi 10-cioma z arkusza 1 tylko nadpisują się na 10-tym, kasują ostatni wiersz. Czy w...
ostatni wiersz wyszukać ostatni wiersz wyszukiwać ostatni wiersz
tania kopiarka zakłócenia kablowy elektryczny naprawa maszyna
samsung ue46d5500 restart suszarka grundig
Joystick jako potencjometr i przełącznik soft Kenwood TH-G71 - Polska instrukcja obsługi
