Nie wiem jakiego masz Excela. W wersji 97 klikasz prawym w obrębie tabeli przestawnej i wywołujesz kreatora. Powinien otworzyć się na 3-cim kroku tzn. wyborze pól. Cofasz się o jeden krok i ustalasz zakres danych. Potem klikasz zakończ i zrobione. A na przyszłość: Jeżeli często dodajesz wiersze ustal...
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...
troszkę nie kminię pomysłu , daj przykład paru komórek jak powinny wyglądać Przecież autor załączył fotkę Proponuje wpisać w A1 1 i w A2 1 zaznaczyć A1 i A2 złapać z róg i skopiować w dół do A32 A33 wpisać =A1+1 i skopiować w dół do A64 Zaznaczyć komórki od A33 do A64 złapać za prawy dolny...
Akurat robiłem coś takiego do swojego projektu i mam kod pod ręką. Wklejasz go do arkusza, który ma obsługiwać "kolorowanie wiersza" po wpisaniu wybranego znaku (w moim wypadku: litery x do kolumny 1). Kod został rozbudowany o "dynamiczne" ustalanie zakresu kolumn do zaznaczenia (ost_col - ostatnia...
Witam, ja mam nieco inny problem, mianowicie w obszarze arkusza o nazwie "LISTA" w ostatniej kolumnie "AO" wpisuję "X" jako pozycja zrealizowana. Chciałbym aby przy ponownym odświeżeniu pliku, bądź też otwarciu, wszystkie pozycje odznaczone w tej kolumnie "X" em były usunięte bez problemu dla...
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
Aby nie otwierać nowych wątków, napiszę tutaj. Mam problem z formatem daty w 2'iej kolumnie. Wygląda tak D/M/RRRR, a chciałbym coś takiego DD-MM-RRRR. Coś tam wypociłem, ale sypało sie po sortowaniu i wracało do starego formatu. Podobnie wygląda to z godziną, wyświetla sie w postaci ułamka. Mam nadzieje,...
Z tą formułą jest ok jak wypełniam pola od początku kolumny, problem pojawia się gdy kolumnę zaczynam wypełniać począwszy od jej połowy np od 5 wiersza. w rocznym sprawozdaniu zakładamy że jakieś czynności robię od czerwca, do tego czasu niema danych, aby formuła poprawnie działała muszę od stycznia...
Ok poszło. A jeszcze jedno. Jak już mam tą komórkę pod ustatnim wierszem kolumny N i chciałabym żeby tam się generowała zawartość z komórki D4 z drugiego arkusza to jak to zapisać
Witam.Proszę o pomoc w napisaniu kodu makra dotyczy: kod makro do excela działanie: skoczyć do ostatniego wiersza arkuasz1,zaznacz ostatnie 2000 wierszy, kopiuj i wklej do arkusz2. problem:arkusz1 powiększa się o kolejne wiersze Za rozwiązanie z góry dziękuję
iersz, który zamykam Co oznacza zamknięcie wiersza? to w sumie oznacza umowne w tym przypadku zamknięcie sprawy - najpewniej wpis w komórce np z datą zamknięcia sprawy. Zamiarem jest, że przy zmianie w tej komórce uruchomi się makro które poda monit, czy przenieść wiersz do pliku docelowego. Również...
Są różne sposoby na znajdowanie ostatniego pustego wiersza, mój ulubiony jest taki: widoczną komórkę w kolumnie B wypełnioną tekstem, idąc od ostatniego wiersza w górę. Liczba 1048576 to ostatni wiersz excela 2007, dla kompatybilności z 2003 należało by użyć 65536. Przed wykonaniem sprawdzania...
Próba odpowiedzi na problem Pana okondy. Ponieważ napisał Pan, że słabo zna Excela starałem się opisać wszystko dość dokładnie. Niestety, nie napisał Pan, której wersji Excela Pan używa, ale ponieważ załączony przykład jest w formacie .xls , więc przyjąłem, że jest to wersja 2003 i moje wyjaśnienia...
Witam! Od jakiegoś czasu poszukuję bezowocnie rozwiązania do następującego problemu: Buduję arkusz do rozliczeń i podliczeń różnych rzeczy dla pracowników mojego znajomego, ponieważ jednym z założeń jest prostota obsługi, próbowałem dokopać sie do funkcji lub makra automatycznie powiększającego...
Dobrze by było podać wersję Excela i załączyć problematyczny plik (lub jego fragment). Przypuszczalnie lista wybieralna została stworzona przez Menu Dane -> Poprawność danych. Samo skopiowanie wierszy poniżej istniejących danych nie spowoduje ustawienia tam wcześniej zdefiniowanej listy wybieralnej. Jest...
[syntax=vbscript] Sub FZ() r = 1 'kolejny sprawdzany wiersz (row) rstart = 0 'numer pierwszego w serii wiersza do którego wklejam wartości, jednocześnie numer wiersza kopiowanego rend = 0 'numer ostatniego w serii wiersza, do którego wklejam wartości c_from_start = 1 'początek zakresu (nr kolumny)...
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...
Po kilkudniowych męczarniach wpadłem na pewien pomysł z wykorzystaniem szablonu "makememos" z książki "Excel 2003 Programowanie w VBA Vademecum profesjonalisty". Sens jest taki że program ma tworzyć plik w wordzie gdzie kopiuje tekst z komórek , potem zaznacza cały tekst w wordzie i go kopiuje :). Jest...
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...
To akurat udało mi się rozgryźć.Chodzi mi tylko o to że jak wkleję jedną pod drugą to w drugiej jest inna szerokość kolumn.Nie wiem jak to obejść. Robisz dwie kolumny jedna o szerokości tej prawidłowej krótszej a druga obok o takiej szerokości by wspólnie z pierwszą kolumną tworzyły tworzyły tą szerszą...
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...
Najprawdopodobniej co jest możliwe, aby to zrobić za pomocą formuły tablicowej. Ale po prostu zrobić, ich funkcja lub makro do rozwiązania. Jak już powiedziałem, specjalista w dziedzinie funkcji tablicowych, a następnie Maciej Gonet. Ja również jestem samoukiem i lubię makra. Specjalne literatury...
Dzień dobry, Wydaje mi się, że sprawę załatwi nadanie zakresowi roboczemu nazwy, pod warunkiem, że nie będzie się usuwać ostatniego wiersza ani ostatniej kolumny, a dodawać nowe również przed ostatnim wierszem i przed ostatnią kolumną, a nie za nimi. Poza tym nagłówki kolumn też trzeba aktualizować...
Jedna z metod na ustalenie ostatniego wiersza, którą ja stosuję: [syntax=vb]If FilterMode Then ShowAllData ost_w = Cells(Rows.Count, "A").End(xlUp).Row[/syntax] W tym wypadku - ustala wiersz z ostatnią komórką w kolumnie A. W zmiennej ost_w masz wtedy numer wiersza, który znaczkiem & możesz dokleić...
Dokładniej mówiąc to w arkuszu1 kolumnę I czyli "reakcje" wynik ma być w komórce obok napisu suma. Chodzi mi o to jeśli wstawię wierszy między ostatni wiersz z danymi a komórkę razem to wstawiony wiersz nie będzie się zliczał. Chciałbym żeby w komórce obok sumy zliczały się dane od 9 wiersza w kolumnie...
Witam, tym razem mam taki problem. Istnieje w formularzu tabelka. Zawiera w sobie powiedzmy ok. 20 wierszy z danymi. Mój problem polega na tym czy możliwe jest: 1. automatyczne dodawanie wierszy wraz z formułami przez formularz kiedy osiągniemy ostatnią pozycję. 2. czy można to zrobić automatycznie...
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...
Dzięki pomocy wszystko gra i buczy - DZIĘKI brakowało tam tylko "=" przy wykonywaniu spełnionego warunku w sensie "b<=w" bo jak było samo "<" to nie brało pod uwagę ostatniego wiersza Pozwolę sobie opisać całość żeby kolejni studenci szybciej załapali.
Dzień dobry, mam taki problem. Zrobiłam w Excelu przycisk, do którego przypisane jest makro kopiujące i wklejające 3 ostatnie wiersze. W jednej kolumnie są scalone 3 wiersze do jednej komórki i jest w niej lista rozwijana. Gdy włączę ochronę arkusza (na wybrane komórki, nie na tę z listą rozwijaną)...
Zastosuj pętlę For. Sprawa jest dość prosta: 1. Znajdź Nr wiersza ostatniej niepustej w kolumnie A 2. Podziel (zaokrąglając w górę) liczbę z pkt.1 przez ilość kolumn wynikowych, a otrzymasz liczbę wierszy do skopiowania na jeden przebieg. Lub przez liczbę wierszy, żeby otrzymać ilość kolumn (dla...
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ć...
Witam serdecznie, Potrzebuje napisać makro, które znacząco przyspieszy mi prace. Chodzi o to by dzieliło gotowy raport na części i każdą z nich zapisywało w oddzielnym pliku pod nazwą taką jak wartość w kolumnie. Dla ułatwienia (w celach poglądowych) stworzyłem mocno uproszczoną wersję tego raportu. Chodzi...
Mam w sumie blaha sprawe ale nie mam pojecia jak to zrobic. Nie wiem tez czy jest to w ogole w Excelu mozliwe, chociaz wydaje sie to byc bardzo prosta rzecza... Tak wiec... mam komorke w Excelu zawierajaca mnostwo linijek, tak ze zawartosc komorki nie miesci sie w calosci na ekranie (dostepne jest...
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...
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
Jeżeli zamiast przycisków ActiveX mogą być zwykłe Excelowe, to możesz tak przerobić makro, które Ci podałem w poprzednim poście: 1. Przerób usuwanie obrazków na obrazki i przyciski: [syntax=vb]For Each s In wsdest.Shapes If s.Type = msoPicture Or s.Type = msoFormControl Then s.Delete ...
Weż dla pustego arkusza zastosuj: Dodano po 6 Reusso: Kolega sugerował użycie innej nazwy dla zmiennej, która przechowuje pierwszy wolny wiersz. Jeśli skasowałeś +1 to kolejne kopiowania będą nadpisywać ostatni wiersz. Nieprawda. Sugerowałem inny sposób znajdowania indeksu ostatniego...
Hmmm... Kilka uwag na początek: Po pierwsze primo: jeżeli chcesz uniezależnić program od nazw arkuszy, wystarczy zamiast: kolejnym wierszu.
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...
Witam Mam plik o nazwie zeszyt1 na dysku C z danymi w tabeli. Mam drugi plik o nazwie zeszyt 2 na dysku I. Chcę ażeby dane z zeszytu 2 aktualizowały zeszyt1 arkusz 2 czyli były kopiowane do kolejnych wierszy zeszytu1. Kopiowane mają być całe wiersze, a warunkiem do aktualizacji ma być kolumna A w obu...
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...
Rzeczywiście - nie tu deklaracja początkowych zmiennych a i b Tak powinno być [syntax=vb]Sub trzeci() Dim a As Double Dim b As Double Dim c As Double 'Worksheets("dane").Select 'Start przeszukiwanych kolumn c = 1 While Len(Cells(1, c).Value) > 0 'Jeżeli nagłówek...
Witam Widzę że jest zainteresowanie więc na szybko opis. Gdyby pojawiło się hasło do otwarica pliku to : marcin W załączniku plik na którym pracuje. Postaram się opisać o co konkretnie mi chodzi. W arkuszu „Słupy” mam trzy tabele: – Tabela Nr1 (zakres KOLUMN A:Z) - Tabela Nr2...
Właśnie to pozwoliłem sobie zmienić w przesłanym przykładzie w makrze kolegi adamas_nt Wpisz zamiast ostatniWiersz = 100 to ostatniWiersz = Sheets("Arkusz1").Cell... 1).End(xlDown).Row Wtedy makro samo policzy ile jest wierszy i będzie się...
Coś nie mogę sobie z tym poradzić. Wygląda to tak na tą chwilę: Zapisują się dane w arkuszu "Historie" z arkusza "Wydawanie" kolumna C (C4:C14), ale za drugim razem i jak mam inne dane w arkuszu "Wydawanie" przekopiuje znów do arkusza "Historie" w następny wolny wiersz ale przy okazji zmienia wszystkie...
Witam, Proszę o pomoc w napisaniu makra - wydaje się być proste, ale nie mogę znaleźć sposobu na jego rozwiązanie. Chcę zrobić formularz do wpisywania przepisów i umieszczania ich w bazie (jeden wiersz = jeden przepis. Każdy produkt to kolejna kolumna) Utknąłem na pkt 4 - Wyszukaniu produktu (Input...
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...
Tu nie widać prawidłowości więc RegExpy na nic. Jak dla mnie to pole do ręcznej roboty. Jeśli to dane z jakiejś kartoteki i nazwa danej miejscowości jest w każdym wystąpieniu taka sama to jest szansa na zrobienie tego w jakimś realnym czasie. Oddzielenie ulicy i numeru domu jest nierealne. Tak jak...
W pierwszej komórce poza obszarem danych (albo drugiej żeby był odstęp) wpisać formułę konwertującą lewą-górną komórkę danych. Zaznaczyć wiersz komórek począwszy od tej właśnie wypełnionej formułą w prawo 10 komórek, potem ctrl-R. Zaznaczyć obszar od pierwszego, właśnie wypełnionego wiersza do ostatniego...
Witam, mam pytanie dotyczące makra vba w excelu. W jaki sposób można znaleźć wartość ostatniego wiersza i dopisać wartość o 1 większą w pierwszym pustym wierszu, czyli np. komórki A5(ostatnia pełna) i A6(pierwsza wolna). Czy da się tak zrobić dla jednego wiersza piątego, ale w kilku kolumnach jednocześnie?...
Zakres to dosyć szerokie słowo... Może to być zmienna ilość wierszy, kolumn, jednego i drugiego, początkowego wiersza, początkowej kolumny bądź kombinacja powyższych. Przypuszczam że chodzi Ci o najprostszą formę ze zmienną ilością wierszy, wtedy możesz użyć coś takiego do ustalenia ostatniego wiersza,...
Witam! Mam makro, które mi obrabia dane z tabeli przestawnej i wyświetla je jako kolumny i wiersze (przyrost danych jest jako kolejny wiersz). Pytanie brzmi. Jak napisać makro, które zmieni mi zakres danych wykresu kołowego na jeden wiersz w dół? Np. Dziś jest tak: ActiveChart.PlotArea.Select ActiveCha...
Do szczęścia brakuje mi tylko żeby nie wyskakiwało pytanie o przechowywanie danych w schowku i zapisywanie zmian w plikach ze wzgledu na różnicę wersji offica. 1. Application.CutCopyMode = False po linii z Paste 2. Nagraj makro zapisywania pliku w odp. wersji i wyciągnij z niego argument FileFormat:=xlCoś....
Na formułach można spróbować to zrobić tak Zakładając, że mamy zajęte kolumny A oraz B - wstawić pusty wiersz pustą kolumnę między nie (w ten sposób kolumna B przejdzie do C). Zakładam, że dane są od pierwszego wiersza. kolumna B1 będzie zawierać formułę =C1 Kolumna B2 będzie zawierać formułę...
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,...
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...
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"...
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...
Witajcie szukam odpowiedzi do funkcji w Excelu. Tabela składa się z trzech wierszy: 1. analizowany tydzień 2. to ilość paczek wysłana w danym tygodniu 3. to czas dostawy 4. to ilość paczek jaka przyjedzie. Szukam funkcji w Excelu które pozwoliłoby mi wyliczyć ile danym tygodniu przyjedzie...
Skoro branża oznaczona jest numerycznie (tak wnioskuję) i liczba stanowisk to też liczby, to dlaczego nie? Za pomocą funkcji: SUMA.JEŻELI policzymy wszystko w wierszu. Kolega gryzzly wcześniej pisał o formatowaniu warunkowym. Należałoby to przemyśleć w przeciwnym wypadku gdzie umieścić wyniki? W osobnym...
1)Prawie super tylko nie wiem dlaczego nie bierze pod uwagę ostatniego wiersza bez względu na liczbe w danym arkuszu?? 2)Jeszcze mam jedno pytanko w sprawie kasowania.Chciałbym usunąć wiersze zawierające konkretny tekst próbowałem użyć formuły do usuwania pustych wierszy ale nie wiedzieć czemy po...
Ponieważ miałem chwilkę czasu to pozwoliłem sobie pobawić się z rozwiązaniem. i proponuje np tak: [syntax=vb]Sub przestaw() 'czyszczenie Sheets("Tabe... Shift:=xlUp 'Obliczenia graniczne ost_wiersz = Sheets("Dane_wyjściowe").UsedRange.Rows.... = Sheets("Dane_wyjściowe").UsedRange.Colum...
To makro będzie w miarę proste, wystarczy w pętli sprawdzać kolejne komórki w pogrupowanej kolumnie, a jak dwie kolejne się różnią - skopiować zakres od...do: [syntax=vb]Private Sub CommandButton1_Click() On Error GoTo myErr Application.ScreenUpdating = False Set wsdane = ThisWorkbook.Worksheets("dane")...
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 =...
Chodzi o to aby uzupełniało te komórki w których wpisy są na czerwono, i jeszcze jeden problem: patrz dwa ostatnie wiersze(żółte), są to wiersze, które występują w zestawieniu jeden pod drugim i w tym drugim wierszu coś źle liczy.
Hej, Mam prośbę o pomoc. Mam plik z makrem, który wskazuje folder, w którym znajdują się wszystkie dokumenty z których musze pobrac dane. Wszystkie dokumenty są zaszyfrowane z tym samym hasłem "1111". Dane muszę pobrac z zakładki, która jest veryhiden "do exportu" zakres komórek od j3 do...
Hej. W zasadzie czytałem Twój kod, ale jak spojrzałem na te dane w arkuszach to stwierdziłem, że nie będę tego rzeźbić, bo łatwiej by było od nowa napisać. Ale pokieruję Cię trochę. 1. To, że jak przeklejasz wartości i np wskakuje Ci 1luty to łatwo możesz obejść zamieniając format na tekstowy, najlepiej...
Ten skrypt nie kopiuje dokładnie - nadpisuje ostatni wiersz, bo nie przesuwasz zmiennej NextRow na kolejny wiersz. Kod po poprawkach: [syntax=vbscript]Private Sub CommandButton1_Click() Dim FolderName As String, fileName As String Dim NextRow As Long Dim ws As Worksheet Application.ScreenUpdating....
Wielu skrótów tak szybko nie ogarnie, oprócz ctrl+c; ctrl+v, musi użyć alt+tab, przejść do ostatniego wiersza ... Dla kogoś wprawionego wydaje się to śmieszne, bo robi się to "małpimi ruchami". Dla początkującego, a jeszcze w momencie, kiedy ma mnóstwo innych spraw do ogarnięcia, nie jest to już takie...
Pliku xlsm nie mogę załączyć Zawsze możesz załączyć plik w formacie .xls albo skompresować swój plik np. do .zip i w tej postaci załączyć. Plik tekstowy też jest OK, ale nie można go uruchomić bez danych, więc można coś przeoczyć. Nie wiadomo z którego arkusza uruchamiasz makro. Zaraz na początku...
W internecie są opisy jak znaleźć ostatni wiersz z danymi. Wpisz do do VBA dodaj 1 i powinno rozwiązać to sprawę.
i nie ma prawa ( choćby ze względu na średnik ) poprawione odnośnie ostatniego wiersza Sub Makro1() kolumna = 1 ostatni = ActiveSheet.UsedRange.Rows.Count For i = 1 To ostatni Cells(i, kolumna).Select If ActiveCell.Value <> ActiveCell.Offset(1, 0).Value...
Np można przeszukać kolumnę od dołu Też racja. Ale znowu może wystąpić problemik (nie żebym się czepiał :) ) jeżeli ostatni wiersz jest z asortymentem bez kodu lub w komórce w kolumnie w której znajdują się kody towarowe poniżej tabeli jest jakiś inny wpis np. jakaś suma albo "podpis". Wtedy zapewne...
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...
:arrow: tagy Słuszna koncepcja. Ale jeśli "dziura" jest wewnątrz (dalsze wiersze zawierają już coś), to wartość wpisana zostanie w ostatnim wierszu. Sprawdzałbym raczej od góry Cells(Cells(3, 3).End(xlDown).Row + 1, 3) = InputBox("Podaj cos")
...Sprawdzić można nadając pętli następujące wartości argumentów For x = 59 To 206 lub tak jak napisałem wcześniej ...A "błąd" jest w tym że cały "Komunikat" ma łącznie 224145 znaki i w oknie fizycznie nie pokazuje ci wszystkiego. Wrzuć wyniki do komórek a zobaczysz że dubli będziesz miał ok...
Nie rozumiem czemu ma to służyć. Masz 5 komórek do wypełnienia zarówno po lewej, jak i po prawej stronie rysunku, Zablokuj pierwszy wiersz arkusza "BAZA" i wpisuj bezpośrednio w nim. Prosto i bez problemów. Jeśli jednak wolisz coś ambitniejszego, to poszukaj na forum. Potrzebujesz znaleźć Nr ostatniego...
witam, mam problem z makrem. Męczę się meczę i nic :/// Chcę, żeby makro zaznaczało kolumnę, sortowało ją rosnąco Np: a a a b b b b c c ... a następnie podawało mi zapisywało mi zmienne w ten sposób, żeby każda ze zmiennych definiowała pierwszy wiersz, w którym jest "wartość", a następnie...
Dokładnie tak jak cbrman napisał. Chodzi mi o formatowanie dowolnie zaznaczonego obszaru ale zawsze w ten sam sposób tzn. pierwszy i ostatni wiersz pogrubiony i z kolorowym tłem. Miałem właśnie problem z poruszaniem się po zaznaczonym obszarze (nie wiedziałem jak wybrać pierwszy i ostatni wiersz z zaznaczonego...
Po naciśnięciu na przycisk commandbutton, otwiera się "Wstawianie hiperłącza", po wybraniu pliku, dodaje adres do następnej wolnej komórki w wybranej kolumnie. Wprawdzie makro nie działa poprzez okno "Wstawianie hiperłącza", ale wstawia łacza, podepnij je sobie pod przycisk. [syntax=vb]Sub Dodaj_Hiperlacze() Dim...
Cześć, Mam problem z comboboxem, w którym potrzebuję ograniczyć możliwość wpisywania do wartości z klawiatury. Wiem, że można zupełnie zablokować możliwość wpisywania w comboboxie ale ze względu na długie listy nie chciałbym tego robić. Jak można ograniczyć możliwość wpisywanie wartości dla comboboxa...
jakby wyglądał kod ten co wyżej bez powiadamiania o błędzie (to niestety przeszkadza) z czyszczeniem pola tekstowego (po wstawieniu przeze mnie czyszczenia niestety całość się zapętla i wychodzi zupełnie coś innego niż powinno) Nie do końca wiem o jaki komunikat ci chodzi. Czy o ten: "Brak danej...
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...
Witam Potrzebuje zaimportować dane z excela od wiersza 6 do ostatniego zapisanego, do stworzonej już wcześniej tabeli w access. Zrobiłem taki kodzik, który mi otwiera excela ale nie chce skopiować danych potrzebuje taką tablice skopiować lastRow:e6 [syntax=vbscript] Sub ImportExcel() Dim...
ylo zaznaczone tylko 6 bo tyle jest par Prawdopodobnie chodzi o coś takiego: [syntax=vb]Sub FindUniq() Dim a, b As Byte Dim r As Range Dim re As Range Dim maxIndexA, maxIndexB, aa, bb, bc As Integer a = 2 'kolumna do zakolorowania b = 40 'kolumna śmieciowa ...
I tu się mylisz, niestety ale TAK Czy to "TAK" dotyczy pierwszego, czy ostatniego wiersza z mojego cytatu? Skłaniam się ku temu, że jednak chodzi o ostatni. Natomiast niema żadnego błedu Na pewno? A Twoim zdaniem co to za dziwadło? A powstało tu: A wiesz dla czego nie działa? Próbowałeś...
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ć. ...
Próbowałem już różnych pomysłów, niestety nie znalazłem żadnego rozwiązania. Generalnie jest możliwość połączenia Excela z Zebrą, ale ani razu nie udało mi się tego zrobić tak, jak chciałbym żeby działało. Dużym utrudnieniem jest również, że robię to na zasadzie prób i błędów ;) Sprawa wygląda tak,...
Jeżeli chodzi o arkusz źródłowy to wstaw w pętle przepisująca dane np to: [syntax=vbnet]If Worksheets(zrodlo).Cells(pr_wrs + x, 8) = "OW1" Or Worksheets(zrodlo).Cells(pr_wrs + x, 8) = "OW2" Then Worksheets(zrodlo).Cells(pr_wrs + x, 33) = 1[/syntax] Czyli: [syntax=vbnet]Su... Przeksztalc() Dim...
Cześć, mam plik w którym znajduje się lista kodów pocztowych miast. chce napisać makro które po zliczeniu do ostatniego wiersza ile jest kodów stworzyłoby mi nowe pliki excel o nazwach z kolumny kod niestety to co mam obecnie tworzy mi tylko jeden taki plik i wyrzuca błąd: [syntax=vbscript]Columns("A:A")...
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.
Witam, Mam taki problem - chciałbym zrobić listę, w którym ostatni wiersz byłby linkiem do zdjęcia. Wszystko działa na moim komputerze, ale jak przerzucam na inny to linki są bezużyteczne - c:/cośtam/user/desktop/excel/zdjecie1.jp... Próbowałem wrzucić zdjęcia i plik do jednego foldera (tak aby inny...
Niech zgadnę - ten kod z dodatkowym kopiowaniem 7 komórek w każdym wierszu działa strasznie wolno i chcesz zrobić to na raty? Tak czy inaczej: na końcu makra trzeba przechować numer ostatniego wiersza z pliku źródłowego, a skoro i tak coś jest przechowywane, to można też zapamietać numer ostatnio...
1. Jeśli połączysz imię i nazwisko w kolumnie pomocniczej (=A2&" "&B2), to będzie już możliwe uzyskanie unikatów (osób/pracowników). Jeśli tabela przestawna nie zwraca Ci oczekiwanych rezultatów, pozostaje wykorzystanie funkcji wyszukiwania. W kolejnej kolumnie pomocniczej indeksy (kilka tematów niżej...
Jeśli chcesz wstawić formułę do komórki, to coś takiego: [syntax=vb]Range("A1").Formula = "=SUMIF(K:K,""" & ComboBox1.Value & """,AH:AH)"[/syntax] Jeżli chcesz użyć tej funkcji w VBA, to w ten sposób: [syntax=vb]suma = WorksheetFunction.SumIf(Range("K:K"), ComboBox1.Value, Range("AH:AH"))[/syntax] (chyba...
Witam, Mam podobny problem. Chciałbym, aby arkusz liczył mi automatycznie sumę z komórek od B4:B44, po wpisaniu daty w komórce H1. Próbowałem zastosować tę metodę, ale nie wychodzi. Po prostu chciałbym, aby arkusz mi zliczał wszystkie kwoty dla danego dnia, np. w tym przypadku 2012-02-05 => 4283,50...
Jeżeli jednak chcesz wpisać do aktywnej komórki formułę łączącą dane z arkusza wsh, z ostatniego wiersza i kolumny 9 to należy to zapisać następująco:[syntax=vb] Row_komorki = ActiveCell.Row Column_komorki = ActiveCell.Column ActiveCell.FormulaR1C... = "='" & wsh.Name & _ "'!R[" & ost_w - Row_komorki...
Jak pliki są w tym samym katalogu: [syntax=vb]Sub Przypisz() Dim i As Double, ostWrs As Double Dim a As String, nazwa As String nazwa = ThisWorkbook.Name 'otwarcie pliku Locator ChDir (ThisWorkbook.Path) Workbooks.Open "Locator.xlsx" With Workbooks(nazwa).Sheets(1) 'ostatni wiersz w pliku...
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.
OK, faktycznie działa. Skoro więc zarzucamy temat makra, i korzystamy z konsoli to jeszcze jedna sprawa: czy jest szansa żeby w składni polecenia łączącego pliki w całość zawrzeć warunek, który będzie pomijał ostatni wiersz każdego pliku CSV. W plikach źródłowych ostatni wiersz jest podsumowaniem, które...
Deklarację zmiennej wrs umieść w nagłówku i dodaj usuwanie... Coś w ten deseń [syntax=vb]Dim wrs As Long Private Sub EMAILONE_Click() 'MsgBox "i tu przepisujesz odwrotnie niż wczytanie przy Initialize" & vbNewLine _ & "czyli najpierw Find w razie poprawki a jeśli Err>0 to do ostatniego...
W tym miejscu usunąłem jeszcze '+1' Oznacza to, że był pusty arkusz. W przeciwnym razie ostatni wiersz będzie zastąpiony przez nowy.
Witam, ListBox ma być wypełniany danymi z tablicy, spełniającymi warunek (porównanie tekstu z TextBoxa i komórek arkusza). Procedura działa ale tylko przy pominięciu słowa "Preserve" przed Redim - w ListBoxie wyświetla wtedy oczywiście tylko ostatni wiersz spełniający warunek. Po dodaniu "Preserve",...
Zdaje się, że mój błąd... P.S. Wymusiłem wpisanie Imię i Nazwisko, bo po czymś trzeba określić ten nasz ostatni wiersz. Tzn któraś kolumna musi być bez "dziur". Przeniosłem też wypełnienie listy Combo do 'Initialize" + domyślna liczba początkowa.
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...
Dlaczego zmienna 'l' jest nadawana z wartości ostatniego wiersza (+1) z pliku 'b', a nie z 'a'?[/quote]
A jednak nie załatwia sprawy. Właśnie zauważyłam, że dane z ostatnim wierszu są zawsze uzupełnione. Po prostu są dane z ostatniego miesiąca, ale wszystkich tabel mnie mogę oddzielnie aktualizować.
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]OstatniWiers... = Cells(Rows.Count, "A").End(xlUp).Row[/syntax] To tylko przykad.
mam w jednej kolumnie numer faktury a w drugiej nip Pragne zastosować operator & by połaczyć nip z numerem faktury Wszystko jest oklej do momentu aż nie natrafiam na fakturę która jest napisana w formacie daty. Bo jeżeli mamy date to po połączeniu wartości nie dostaje takiego samego zapisu...
Mnie też się nie podoba Twój projekt :cry: bo nie rozumiem na jakiej podstawie jakieś makro ma wstawiać te oznaczenia 1,2,3 , a potem i tak dla każdego wariantu drukowane są 2 strony z arkusza AAA i dwie strony z arkusza BBB :?: :D W jednym z moich roboczych plików (wykorzystywanym do dokumentowania...
Potrzebuję pomocy w Excelu. Muszę zrobić coś aby klikając przycisk "Display Photo" w jednym arkuszu excela zczytał on nazwy z wiersza obok "Suma z Quantity", a następnie w komórkach nad nimi wstawił odpowiednie zdjęcia. Były by one umieszczone w tym samym skoroszycie, w ostatnim arkuszu. I tu mogłyby...
Przepraszam będę dołączał. Niestety nie działa. Kiedy zaznaczam jakąś komórkę w zakresie Excel automatycznie zaznacza jak na rysunku cały zakres danych w kolumnie B, przy tworzeniu tabeli. Podobnie jest jak usuwam dane w A nie zmniejsza jej automatycznie. Według mnie on dotyczące tworzenia tabeli powinien...
Dziekuje za odpowiedz z kursu napewno skorzystam i wezme sie za prace... poszedlem troche na latwizne i udalo mi sie przerobic czyjes makro i smiga wysmienicie moze komus tez sie przyda pozdrawiam Sub OperacjeHurtowe() Dim wbkSkoroszyt As Workbook Dim i As Long, szukWiersz As Long, wiersz...
*Aldrin jezeli dobrze Cie rozumiem to dla kazdej kopiowanej komorki z pliku zleceniexxx mam zastosowac petle, ktora bedzie przenosic/kopiowac wartosci ze zleceniexxx do zestawienie_szef ?? Dodano po 14 wstepnie widze, ze ten skrypt bedzie mi pomocny :) Sub OperacjeHurtowe() Dim...
Jasne. Zrobiłem to sobie po swojemu oczywiście bo ze strony nic nie zrozumiałem :-) [syntax=vb] 'Połączenie idetyfikuje ostatni rekord rs.Open "SELECT (at)(at)identity AS NewID", connDB identity = rs.Fields("NewID") 'kod zwracający ostatni uzupełiony wiersz w excelu ...
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...
Wartość stała jest podana dla przykładu, na szybko napisałem stałą b. Chodzi mi o to żę gdy pętla uzupełni komórki do A10 (bo wpiszemy w inputbox 10) to żeby wykres obejmował do A10. Ale też że gdy wpiszemy w inputbox 3 to żeby wykres czerpał dane do A3 czyli ostatniego wiersza z liczbą. Wprowadzić...
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...
Sub sumki() Dim czas As Variant kolumna = 1 'dowolna ostatni = ActiveSheet.UsedRange.Rows.Count For wiersz = 1 To ostatni Cells(wiersz, kolumna).Select wzor = ActiveCell.Value czas = ActiveCell.Offset(0, 1).Value For wiersz2 = wiersz + 1 To ostatni ...
Witam. Dostało mi się w pracy dziwne zadanie... Na podstawie pewnych raportów przejazdów samochodów mam sprawdzać moment, w którym samochód dojechał do ostatniego punktu na zaplanowanej trasie. Tras jest aktualnie niewiele, ale w związku z dynamicznym rozwojem firmy i nowymi wymogami stawianymi przez...
Podaję przykładowy kod procedury sumującej wiersze zawierające takie same dane w kolumnie "A". Dane muszą być posortowane.[syntax=vb] Sub Sumuj_Wiersze() With ThisWorkbook.Worksheets("Arkusz1") ostatnia = WorksheetFunction.CountA(Columns(1)) + 1 For wiersz = ostatnia To 2 Step -1 If .Cells(wiersz,...
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)
W notatniku jak wstawie kursor na ostania "linie" danych wyświetla mi się ilość wierszy. Jest ich ponad 2 miliony. Potrzebuje wybrać z notatnika ok 100000 wierszy. Taka ilość mi się zmieści w arkuszu Excela. Tylko jak je mam wybrać? z Excela umiem wybrać interesujące dane. Z notatnika już nie umiem....
Witam, więc mam taki problem. Mam kilka arkuszy restauracyjnych w Excelu podobnych do tego: Teraz wprowadzam ilość porcji... Excel przelicza mi wartość itd...ale, jak mówiłem jest kilka arkuszy działających tak samo (Napoje, dodatki , desery), no i ostatni podsumowanie. No i właśnie w tym ostatnim...
Witam, mam makro do wgrywania danych. Proszę umieszczać kod w znacznikach syntax . Opcja Listing kodu . Proszę to poprawić. [syntax=vb][/syntax]
Cześć, mam napisane makro do wgrywanie danych z pliku typu .csv. Wszystko mi się przegrywa tak jak chce (jeżeli rozchodzi się o miejsca) Jednak zauważyłem jeden problem - polskie znaki znikają, a format godziny np. 00:10 zamienia mi się na dane np. 0.3456. Czy ktoś może wie czemu tak się dzieje i...
ok - bardzo ciekawa opcja jeżeli rozchodzi się o brak VBA. jednak jak by to wyglądało gdybym chciał to wmieszać w język VBA ? Ponieważ w przypadku dużej ilości danych wersja bez makra będzie powodowała dużą ilość formuł oraz zwiększanie się wielkości pliku excel. Przykład w załączniku zgrywania...
Witajcie, mam dość według mnie ciężki temat do zrobienia, częściowo poruszany w tym wątku. Chciałbym aby makro kopiowało dane uzupełnione przez pracowników z poszczególnych arkuszy do Arkusza PH1 i wklejało dane jedno pod drugim. Czyli sprawdzało który wiersz jest ostatnim w którym już są dane w PH1...
Jest Pan genialny, ja radzę sobie w prostych sprawach w excelu jednak to już dla mnie czarna magia a chciałam sobie ułatwić pracę bo liczenie tego na piechotę przy 200 pracownikach to koszmar i dzięki Panu się udało. Mam jeszcze jedno ostatnie pytanie ponieważ na obiektach potrafi być i 11 pracowników...
Dzień dobry, Oczywiście, najlepiej wprowadzać nowe komórki do środka zakresu i wtedy będzie się on poszerzać automatycznie. Ale nie zawsze tak jest wygodnie, bo dane mają określoną sekwencję i powinny być dopisywane na końcu. Tu problem jest większy, bo sumy są u góry zakresu. Gdyby były u dołu po...
Dzień dobry, Excel nie jest stworzony do obróbki tekstów, ma ograniczony zestaw funkcji tekstowych, więc tego typu zadania są dość trudne i rzadko daje się znaleźć rozwiązania uniwersalne. Dane wejściowe muszą być dokładnie zdefiniowane, bo trzeba określić jakieś zrozumiałe dla Excela kryteria wyszukiwania....
Podałem pomysł, a nie gotowe rozwiązanie, niemniej pasujący do obu. Jak *zlepić* komórki w jedno - zakałdając, że zaczynamy od pierwszego wiersza (oraz, że jakieś dane są już wpisane): dim max%, wiersz% max = Arkusz1.UsedRange.SpecialCells(xlCel... For wiersz=1...
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...
Spróbuję, w miarę dokładnie opisać mój problem Na początek, wyróżnienie aktywnego wiersza, które działa. Ale tylko z jedną tabelą w skoroszycie. Zaznaczyłem obszar tabeli i utworzyłem formatowanie warunkowe Następnie zdefiniowałem nazwę obszaru zaznaczonych komórek. Wszystko jak na screenach. ...
Dziękuję za uznanie. Bardzo lubię naprawdę dobre wina :) niemniej nie czuję, że takim drobiazgiem mógłbym no to zasłużyć. marek003 Kopiuje formułę ostatnia data i coś nie chce znaleźć Możesz wytłumaczyć na jakiej zasadzie działa Sama kopia formuły to za mało. Pisałem, że muszę się wspomagać...
Niestety chyba nie do końca sprecyzowałem ponieważ nie działa w taki sposób. Zamysł taki na przykładzie: Wpisuje jakąś wartość w wierszu 2 w obojętnie jakiej kolumnie od B do I bądź bądź każdej kolumnie w tym wierszu. W kolumnie J2 pokazuje się data i godzina ostatniego wpisu w tym wierszu. W...
Witam wszystkich, od jakiegoś czasu głowię się nad pewnym problemem. Mam nadzieje, ze rozwiazanie jest proste, a to ze na nie nie wpadlem wynika z mojej niewielkiej wiedzy o excelu :) Dlatego potrzebuje Waszej pomocy. Posiadam plik z danymi postaci: Plik aktualizuje sie kazdego dnia i dopisywane...
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...
Ogólnie tu jest kwestia poprawnego żonglowania Do while Cells(i,1) <> "" (czyli określenie ostatniego zapisanego wiersza) , warunku if i poprawności adresacji komórki przez liczbę( czyli dla celnego określenia użyj sformułowania Sheets(" [syntax=vbscript] Dim i, c, d As Integer Dim dzien...
Program masz "prawie" gotowy. Pomyśl, potrzebujesz odwołać się do Nr wiersza komórki spełniającej kryteria (tutaj zmienna "abc", zadeklarowana jako 'Range'). Będzie to wartość właściwości 'Row'. Następnie należy znaleźć lub określić Nr ostatniej w wierszu. Zadziałaj podobnie (metoda End), jak masz...
Najłatwiej liczyć to w arkuszu krok po kroku w tabelce z kolumnami: Data Operacja Saldo St. proc. Odsetki Pierwszą operacją jest wpłata kapitału, więc wpisujemy dane w 1. wierszu. Saldo będzie odwołaniem do kwoty operacji. Stopę procentową wpisujemy ze znakiem %, np. 1,5%. Jest to stopa...
Jak już chcesz usuwać wiersze z zakresu, to wykonaj pętlę od ostatniej zapisanej do pierwszej komórki - mniej problemów. Po drugie: te selecty to są zupełnie niepotrzebne. To makro może być w następującej postaci: [syntax=vb]Sub usun() Dim lLstRw As Long 'ustalenie ostatniej zapisanej komórki...
Dzień dobry. Googlowałem, googlowałem, szukałem na tym forum ale nie potrafię znaleźć odpowiedzi na podobny problem. Zrobiłem formularz w excelu, który ma za pomocą makra kilka zwijanych części. Dokładnie są to wiersze, które w zależności od wartości jednej komórki są widoczne lub nie. Problem w...
Witam. Napisałem makro (excel 2010) które kopiuje pewien zakres (od A8 do kolumny E ostani zajęty wiersz) do komórki w kolumnie A pierwszy wolny wiersz w arkuszu w innym skoroszycie, problem polega na tym że chciałbym skopiować kilka zakresów (np A8 do kolumny E ostani zajęty wiersz, O8 do kolumny AK...
Witam serdecznie, Próbuje sie uporać z pewnym problemem i nie mogę sobie dać rady, dlatego że nigdy wcześniej nie miałem styczności z MaKRAMI w Excelu ani językiem VBA. Problem jest następujący: Tygodniowo generuje raport z maszyny. Raport ma 27 kolumn (liczba niezmienna) z czego intersują...
Jakieś sugestie jak można to zrobić? Z pełnym szacunkiem dla założeń Twojego projektu, lecz pierwszy krok, który musisz zrobić to wszystko dokładnie przemyśleć :idea: . 1. Musisz znać precyzyjnie strukturę plików źródłowych i wynikowych; (nie może być tak, że szukasz w kolumnie A tekstowych...
Witam, mam problem z napisanie makra które chowałoby wiersze po kolei, tzn. jeden przycisk chowa 4 wiersz, po kliknięciu go ponownie chowa się także 5, po ponownym kliknięciu jeszcze 6 i tak dalej, drugi przycisk odrywa te wiersze od tyłu, czyli jeśli ostatni schowany wiersz to był wiersz nr 6 to go...
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...
Oczywiście, ale :) Excel lubi płatać figle. Zapisz jeden wiersz z CheckBoxem, skopiuj go 100 razy, po czym usuń przez zaznaczenie 80 wierszy. Ile jest CheckBoxów w arkuszu? I co będzie gdy uruchomisz powyższe makro? Raczej użyłbym czegoś w stylu For wiersz = 1 To Range("A65536").End...
Tak, trzeba tylko znaleźć ostatni niepusty wiersz ("dziurę"). W przykładzie sortowanie wg kolumny A zakresu "A2:Hw", gdzie "w" to ostatnia niepusta komórka w kolumnie A, "jadąc" od góry. w = Range("A2").End(xl... 1), Cells(w, 8)).Sort...