Teraz jasne jest.
Zapisywać dane do bazy danych, przechowywać w pamięci RAM, serializowac do pliku binarnego, XML, tekstowego, innych formatów opcji jest kilka w zależności od potrzeb, lub nie zamykać form2? wtedy przypadkowe zamknięcie, zawieszenie programu powoduje utratę danych, o masakrowaniu pamięci już nie wspomnę.
Do tego nie jest Ci potrzebna żadna pętla. Najpierw musisz sobie określić pierwszy wolny wiersz w arkuszu [syntax=vb]a = Sheets("Arkusz1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row[/syntax] Później po wpisaniu do arkusza danych z pól tekstowych zostaje Ci jedynie zwiększyć wartość a o 1
Witam. Proszę o pomoc w sformułowaniu poprawnego wzorca. Chodzi o wzorce w kolumnie 'E'. Wzorzec ma pokazywać 0 lub 1 według których otwierają się i zamykają odpowiednie wiersze. Wzorce powiedzmy że działają poprawnie, ale nie do końca. Wzorce niezależnie od tego w jakim stanie jest zaznaczenie 'Pokaż wszystkie faktury' pierwszy wolny wiersz chcę żeby...
Wstaw moduł do pliku 'Aktywności NSM_glizda_TOTAL.xlsx' i wklej taki kod Update 22:25 Ups. miało być w pierwszy-wolny. Poprawiłem...
Niestety na służbowym kompie nie zobaczę Twojego pliku, więc tylko kilka wskazówek. 1. Proponuję przygotować szablon do kopiowania w oddzielnym arkuszu, nieużywanym przez kontrolerów. Można tam zapisać w razie potrzeby coś jeszcze, a docelowo można go będzie ukryć. 2. Żeby skopiować obszar (tabelkę), musisz wiedzieć gdzie to trzeba skopiować. Możesz...
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 używanego wiersza. A to, że się przyczepiłem, że LastRow + 1 jest...
Przed linią Target.ClearContents wstaw jeszcze Target.Select :spoko:
Przed 'Paste' wstaw linię wyszukującą pierwszy wolny wiersz. Przykładów ci u nas dostatek: [url=https://www.elektroda.pl/rtvforum/f... W ostateczności nagraj makro Ctrl+strzałka w dół.
Tak tez probowalem,ale Jak w komorce zaznacze archiwizuj wiersz i ten wiersz zaznaczam, wycinam, w drugim arkuszu znajduje pierwszy wolny wiersz i wklejam. Super tylko, ze jak zrobic ,by wycial ten z zaznaczona komorka i znalazl pierwszy wolny wiersz. W tym drugim arkuszu. By tam wkleic. Ok probowalem makro zrobic nawet na zasadzie, by w tym drugim...
Witam, Dzięki za pomoc, ale dzisiaj jak wprowadzałem w życie te formuły to trafiłem na ostatnią przeszkodę ( próbowałem ją pokonać sam ale nie udało mi się....). Mianowicie czy jest opcja że w raporcie 2 ( w przykładzie wiersz nr 5 ) gdzie kopiują się dane jest jakiś wiersz wypełniony ręcznie . I po wpisaniu słowa Wykonawstwo w raporcie 1 dane przenoszą...
Przetestuj ten kod dla zdarzenia Worksheet_Change arkusza Form2. W komórce B4 arkusza Form2 wpisujesz jedynie numer rekordu do skopiowania. [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) Dim lLstRw& 'pierwszy wolny wiersz w arkuszu "baaza" Dim lLstRwBs& 'ostatni zapisany wiersz w arkuszu "zbaza1" Dim lFndRec& 'numer wiersza ze znalezionym...
Cześć. Posiadam dwie takie same tabele w dwóch arkuszach (jeden dokument), w pierwszym ma tylko jeden wiersz w którym wpisuje dane np. data, imię, nazwisko. I potrzebuje aby kopiowało się w pierwszy wolny wiersz do drugiej tabeli. Taka baza danych, którą uzupełniam przez tabele w pierwszym arkuszu. Wydaje się łatwe, ale już trochę siedzę i nie potrafię...
1. W ten sposób znajdujesz pierwszy wolny wiersz, a nie ostatni wypełniony (+1) 2. Nie możesz (chyba) wpisywać wartości (.Value) z =, możesz do pola .Formula. 3. Wydaje się, że plik nie jest otwarty. Może dlatego jest błąd. 4. Nazwa jest z gatunku "pokrętne", ja takich unikam. Jedna rzecz to to co masz w narzędziu a inna to co prezentujesz użytkownikom....
Wyrzuć wszystko to, co związane jest z filedialog i podstaw ścieżkę do zmiennej 'xStrPath' Dla mnie nie jest jasne został zaimportowany do pliku excel do nowego wiersza. dodatkowo w nowym arkuszu żeby... Nowy arkusz, czy pierwszy wolny wiersz?
Nie wiem czemu nie mogę uruchomić makra z przycisku? Kurcze pierwsze chodziło od cjancik ale to ostatnie nie. Wyskakuje komunikat o ustawieniach osobistych, które mogą być usunięte. Czy to makro ustawia dane w pierwszy wolny wiersz?
Witam! Mam zagwostke - chciałabym uzyskać taki efekt: W kolumnie AG w wierszach od 7 do 27 mam wypisane wartości, które chciałabym aby po dwukrotnym kliknięciu przenosiły się w pierwszy wolny wiersz kolumny J w przedziale od 4 do 14. Czyli dla zobrazowania wciskam 2x wartość w AG8 i ta wartość powinna przenieść się do pierwszego wolnego wiersza czyli...
Cześć, Dzięki wielkie, formuła działa lecz chciałbym aby wstawiała skopiowany wiersz w pierwszy wolny wiersz w arkuszu2. Super byłoby gdyby jeszcze w kolejnej kolumnie dodawana była data skopiowania:) Pisząc XYZ chodziło mi o przykład wartosci wpisanej w B2 w Arkuszu3:P Tak więc nie skorzystam z "Kodu dla modułu 'Arkusz3'" bo bez tego i tak kopiowanie...
Witam Nie mogę sobie poradzić z kopiowaniem danych do innego skoroszytu. Posiadam główny skoroszyt o nazwie " Dane" do którego pobierane są różnego rodzaju dane. Chciał bym mieć możliwość kopiowania określonych danych ze skoroszytu "Dane" do innego skoroszytu GOW. Dane muszą zostać skopiowane " specjalnie" bez formuł. Utrudnieniem będzie kopiowanie...
W kolumnie D masz tekst. W związku z tym, przy porównywaniu ciągu, kolejność (w skrócie) będzie następująca: rosnąco- a1, a14, a19, a2, a3, itd. OK? Najprościej byłoby: -zapisać wszystkie wartości do tablicy -posortować tablicę w pętli /pozycje z tablicy/ -wyszukać wartość w arkuszu -sprawdzić ile zajmuje wierszy -skopiować poza tabelkę (pierwszy, wolny...
Masz bad sektory na dysku i to jest zapewne przyczyna twoich problemów,pierwszy podświetlony wiersz program Hd Tune kolumna data 193 bady
Witam, Proszę o pomoc, jestem bardzo początkujący i nie wiem czy w ogóle jest możliwe zrobienie czegoś takiego w MS Excel: Posiadam plik roboczy A zawierający listę z nazwami plików (XYZ) w innej lokalizacji (kilkaset plików). Plik A jest edytowany na bieżąco - dane zmieniają się w wierszach do momentu zamknięcia sprawy (jedna sprawa - jeden wiersz...
Witam. Tworzę w excelu tabelkę systematycznie się ona powiększa. W jednej z kolumn mam wpisywaną datę produkcji wyroby. Jak zrobić żeby po upływie 3 lat od daty produkcji, cały wiersz w którym jest umieszczona ta data kopiował się do pierwszego wolnego wiersza w innym arkuszu tego pliku?
Nie jest dla mnie to jasne. O ile kryteria stworzenia arkusza są jasne (bo jest on tworzony na podstawie formularza - i podejrzewam że arkuszy może być kilka) - to na jakiej podstawie ma być wybierany arkusz? Też na podstawie nazwy z formularza? W każdym razie FormulaR1C1 albo Value możesz zastosować do komórki w dowolnym arkuszu, nie tylko bieżącym:...
Potrzebujesz znać numer pierwszego wolnego wiersza, czyli: [syntax=vbscript]NW = Cells(Rows.Count, "A").End(xlUp).Row + 1[/syntax]
Wstaw w kod arkusza "Wydatki" i kliknij w "Zapisz" [syntax=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim ostWrs As Long 'warunkiem działania makra jest adres scalonej komórki (tej z tekstem "Zapisz") 'zwrócony przez zmienną Target If Target.Address(0, 0) = "E18:E19" Then 'sprawdzamy, czy wymagane pola są wypełnione /przy okazji...
Zdaje się, że lepszym rozwiązaniem byłoby przepisywanie w pętli... Najpierw oczywiście wyszukanie pierwszego wolnego wiersza w arkuszu "PASS".
Niestety nie mogę zobaczyć Twojego kodu (służbowy komputer - nie wolno nic pobierać), ale schemat na wyszukanie numeru pierwszego wolnego wiersza jest taki: [syntax=vbscript] Dim Y as Long Y = Cells(Rows.Count, "A").End(xlUp).Row+1 [/syntax] Jeżeli chodzi o sprawdzenie czy Range jest pusty to można użyć np. WorksheetFunction.CountA. Jest mnóstwo podpowiedzi...
Lub, jeśli masz wolny wiersz, wpisywać do niego formaty dla każdej kolumny i sformatować w petli. Lub, ponieważ formatuje kolejnym pusty wiersz((ostWrs + 1), użyć formatu z poprzedniego wiersza For c = 12 To 115 ark.Cells(ostWrs + 1, c).NumberFormat = ark.Cells(ostWrs , c).NumberFormat Next c
Niestandardowo do sprawy podchodzisz lub opisujesz. Zrozumiałem to tak: W arkuszu "Search" masz "bazę danych". Coś jak książka telefoniczna. W arkuszu "Input" chcesz wpisać kod i po kliknięciu przycisku ma powstać nowy wpis w arkuszu "Output". Jeśli wpiszesz kod do pierwszego, wolnego wiersza w "Output" i użyjesz funkcji wyszukujących, to nie wyjdzie...
Po złożeniu zamówienia w necie kumpel przepisuje teks na kartkę i mam zabawę wklepywania danych do excela. W excelu napisałbym mu makro ze skrótem klawiaturowym, ale z programowania jestem prawie zielony. Czy jest jakiś prosty sposób dodania do paska skrótów do aplikacji bądź skrótu klawiaturowego kopiującego zaznaczony tekst ze strony internetowej...
dobra udało mi sie to rozwiązać poprzez dodanie ActiveWorkbook.Sheets("Arkusz1").Activat... Ale mam inny problem. Jak juz mi znajdzie wartości spełniające warunek większe od 3000 i skopiuje mi te wiersze do Arkusza2 to chciałbym aby te wiersze które sa w tym arkuszu (a zakres tych wierszy jest zmienny i zawiera sie w kolumnach A:B) skopiował do innego...
Witam Stworzyłem programik, który importuje z folderów i podfolderów pliki *.dat do Excela. Pierwszy przycisk (makro) otwiera po kolei wszystkie pliki dat i zapisuje do jednego arkusza w pierwszy wolny wiersz. Drugi makro importuje konkretny plik z konkretnego folderu. W folderze dane znajdują się podfoldery np. 0112 , 0212, 0312 które oznaczają miesiąc...
dzięki śliczne za odpale jeszcze pytanko: gdzie to wstawić? do macro?i jak przypisać to odpowiedniej komórce( w moim przypadku w A1 rozdziela na 3 (dwa myślniki)a w D1 rozdziela następnie na 7 części(6 częci) i kopiuje do pierwszego wolnego wiersza ostatnie -można przypisać do tego jakąś wiadomość? np jeżeli nie a 2 myślników to wyskakuje okno alarm...
W załączeniu kod, który zapisuje dane, te które wprowadzamy wstawiane są do pierwszego wolnego wiersza, a te które chcemy zaktualizować zapisują się zmiany w tym wierszu o zadanym ID_wiersza. Kod jednak mi nie działa pojawia się komunikat, Else without If, ale nie mogę sobie z tym poradzić i znaleźć gdzie brakuje w kodzie If Z góry dziękuję za pomoc
Stworzyłam następującą tabelę: \begin{table}[ht] \caption{Harmonogram realizacji inwestycji} \centering \begin{tabular}{|p{5... \hline \begin{center} Lp. \end{center} &\begin{center} Rodzaj czynności \end{center} &...
Cześć, Potrzebuję waszej pomocy :( Przeszperałem już forum i widziałem, że pojawiło się już kilka pytań o kopiowanie warunkowe, niestety to dopiero początek mojej przygody z VBA i nie potrafię dostosować kodu do swoich potrzeb. Chciałbym, żeby po przyciśnięciu przycisku "Archive" makro przeszukało arkusz i wycięło te wiersze, które w kolumnie W mają...
Na chwilę obecną mam VBA, które działa w następujący sposób: Jeśli w kolumnie "6" w arkuszu1 zaznaczę "x" to kopiuje odpowiednie komórki do pierwszego wolnego wiersza w innym arkuszu. Aby odwrócić działanie tego makra, dobrze byłoby wiedzieć gdzie te "odpowiednie komórki" lądują w 2-gim arkuszu. No wiesz, żeby nie biegać i szukać po wszystkich szufladach......
Dziękuję. Niestety nie działa jeszcze tak jak potrzebuję ;/ Pozmieniałem trochę zakresy danych, ale jest kilka rzeczy do zrobienia. 1. Podczas kopiowania z "Spis końcówek lotów" do "Złomowanie" makro wkleja dane tak jak leci, a powinno wpisywać w pierwszy wolny wiersz od B3 do nieskończoności tak na prawdę tylko ZŁOM. W tej chwili usuwa mi również dane,...
Uzupełniłem kod ale nie działa mi IF i kopiowanie do komórki f9 w arkuszu oferta. Przesyłam w załączniku plik. Czy możesz mi napisać co tu jest nie tak? Ponadto zależy mi na tym aby dodać zależność taką: Jeśli w ofercie pierwsza pozycja jest pusta to program kopiuje do pierwszego pustego wiersza daną pozycję. Chodzi o to, że jak wybiorę coś z drugiego...
Witam. Proszę o pomoc. Kompletnie nie znam się na programowaniu w VBA, a bardzo by mi pomogło przy pewnej operacji, której z tego co się orientuję formuła w excelu nie załatwi. Operacja jest dość prosta i wygląda to mniej więcej tak: jeśli w arkuszu "kontrole" w kol. "O" którykolwiek wiersz = "TAK" to kopiuj komórki z tego wiersza z kol. "B","C","H"...
Cześć, nie jestem biegły w VBA i zwykle swoje makra tworzę przez nagrywanie. Potrzebuję makra, które będzie wyszukiwać pierwszy wolny wiersz, zaznaczy zakres kilku kolumn (np. od A do B) i będzie sumować wartości. Cały szkopuł jest w tym, że dane, które będą sumowane miewają różną liczbę wierszy. Dlatego nagranie sumy nie zdaje egzaminu, bo zawsze sumuje...
Witam, jako początkujący w VBA zaciąłem się nad zagadnieniem jak skopiować dane z kilku zakresów w jednym arkuszu do drugiego arkusza w momencie wyboru i wskazania konkretnej komórki. Mam arkusz formularza, z którego chcę uruchamiając makro, otworzyć arkusz rejestru i bez przeszukiwania pierwszego wolnego wiersza wskazać dowolną zaznaczoną przez siebie...
Ze względu na to, że nie znam Access, bardzo chciałbym pozostać przy Excelu - Jeśli uda się zaprogramować plik !wprowadzenie żeby przenosił dane do wszystkich plików raportów wtedy byłyby one używane tylko do odczytu wprowadzonych danych, bez ich dodatkowej modyfikacji. W pliku do wprowadzania cześć kolumn będzie docelowo ukryta a komórki z formulami...
Po pierwsze, nie sprawdzaj czy jest aktywna komórka w kolumnie "C" - jeśli ma być tam aktywna to ją uaktywnij bez sprawdzania, np. Application.WorksheetFunction.CountA(Col... , o ile kolumna jest ciągłą i nie zawiera przerw, to pierwszym wierszem z wolną komórką będzie o 1 większy niż zwróci to funkcja tzn. [syntax=vb]wiersz=Application.WorksheetF...
Witam Temat niestety oklepany - na swoje usprawiedliwienie powiem, że przeszukałam forum i usilnie staram się dopasować znalezione wskazówki i fragmenty makr do swoich potrzeb. W pewnym stopniu mi się udało, ale gdzieś jest błąd którego nie potrafię namierzyć. Zależy mi na tym, żeby wyszukiwana nazwa ulicy została znaleziona w Arkuszu "Baza" a następnie...
Witam, potrzebuje pomocy w napisaniu makra, które będzie działać jak w poniższym opisie: Mamy dwie takie same tabele w jednym arkuszu. Nie są to tabele przestawne. Mają po 26 wierszy oraz po 14 kolumn. Jedna mieści się w zakresie A14:N39 a druga poniżej, obejmuje zakres A42:N67. Do pierwszej wczytywane są dane z innego pliku o nazwie kalkulacja.xlsm,...
bardzo dziękuję. poniżej jeszcze kilka pytań. ' w komórce B1 - nazwę arkusza wejściowego, np. Arkusz1, -arkusze nazwane są raport sprzedaży 1234 (może jakoś zawęzić że jeśli nazwa arkusza zaczyna się od: raport sprzedaży to żeby z tego brał ' w komórce C1 - zakres do skopiowania, np. A1:B10, - ten zakres jest różny (może coś z : Range("A2:N").Select...
Cześć, posiadam codziennie jeden plik, który zawiera wiersze ze stanem naładowania baterii dla 12 urządzeń. Mniej więcej tak to wygląda: timestamp numberpointbatterypallet 2021-05-25 00:00259 2527FAŁSZ 2021-05-25 00:00568 2280FAŁSZ 2021-05-25 00:00260 2524FAŁSZ 2021-05-25 00:00799 2488FAŁSZ 2021-05-25 00:008107 2514FAŁSZ 2021-05-25 00:00571 2279FAŁSZ...
Data wpisu danych do arkusza nie jest automatycznie nigdzie zapisywana (chyba, że jest włączona opcja śledzenia zmian). Tak jak napisał JRV jeśli dane są wprowadzane do kolejnych wierszy (do pierwszego wolnego), to już są ułożone chronologicznie. Ale ta kolejność nie jest trwale pamiętana, jeśli ją zmienimy, można ewentualnie cofnąć zmiany, ale po dłuższym...
Witam serdecznie, Mam drobny problem (dla was drobny), chcę aby w moim zleceniu po zapełnieniu przez użytkownika wszystkich przygotowanych pozycji mógł on dodać kolejną odpowiednio skonfigurowaną. I tak nagrałem makro które kopiuje mi przygotowane pola, odnajduje w arkuszu pierwszy wolny wiersz i wkleja mi to co przygotowałem. Jest jeden problem chciałbym...
Witam Proszę o pomoc, nie potrafię zmienić tego makra tak by kopiowało tylko wartości z wiersza „A” a nie jak teraz wszystko wraz z formatowaniem. Dodam że VBA jest mi raczej obce a dołączony kod jest z innego postu po drobnej modyfikacji z mojej strony. Ogólnie potrzebuję chronić cały arkusz hasłem oprócz wiersza „A”. Po jego...
*adamas_nt dzieki, sprawdze co do pkt.2 cos mam, ale bede mial prosbe o weryfikacje oraz pomoc w dodaniu kilku rzeczy. mam takie makro: Sub Arkusz3_Przycisk1_Kliknięcie() Dim LastRow As Long Range("B2:AI2").Se... Selection.Copy 'Sheets("Arkusz3").Sel... If WorksheetFunction.CountA(Cells) >...
Ma ktoś może jakąś propozycję jak można wybrnąć z takiej sytuacji ? W ostateczności z problemu wybrnę wstawiając odwołania bezwzględne * przyjmę że maksymalnie z jednego stanowiska będzie jakieś 30 tys wierszy czyli zrobię alokację od wiersza 1 do 30 tys a drugie stanowisku zacznę alokować od wiersza 30 001. Wtedy zadziała ale będzie problem z nadwymiarowością...
(at)PRL już tłumaczę 1. W arkusz BAZA wklejam dane. 2. Uruchamiam makro 2.1 Makro ma zadanie sprawdzić kolejność liczb 2.2 Jeżeli znajdzie brakującą liczbę/liczby to wstawia w ten arkusz "BAZA" nowy wiersz/wiersze i w ten nowy wiersz/wiersze wstawia brakującą liczbę/liczby i zaznacza na kolor zielony 2.3 wstawione liczby przenosi do arkusza"brakujące"...
Witam! Potrzebuję makro, które w momencie gdy w pliku "plik w którym ma być makro do wstawiania" w kolumnie J (w przedziale J2:J23) znajdzie się wartość inna niż pusta komórka skopiuję dla "użytego" wiersza dane z zakresu kolumn K:Q do arkusza o nazwie identycznej z wartością w komórce J, do pierwszego wolnego wiersza w kolumnie B w pliku który ma stałą...
A czy zamiast ID nie wystarczą literki p i t, o których napisałem? Mam jeszcze jeden problem. Maksymalnie ma być 6 czujników (nadajników). Każdy jest rozpoznawany po literce (ID). Wyświetlacz ma mieć 6 wierszy w których będzie wpisywał od górnego wiersza. Np. Jeśli mam t1, t2 i p (dwa termometry i ciśnienie) to na wyświetlaczu ma się pojawić: [syntax=cpp]-------------...
Wykonaj Fixlist.txt dla FRST: Task: {3CAFB0B5-3958-4A76-AF13-62577A27E975} - System32\Tasks\ACC => C:\Program Files\DriverSetupUtility\FUB\FUB_Send.ba... <==== UWAGA 2016-10-11 21:58 - 2016-10-11 21:58 - 00000000 ____D C:\ProgramData\acer 2016-10-11 21:57 - 2016-10-12 16:07 - 00000000 ____D C:\ProgramData\updater2 2016-10-11 21:27 - 2016-10-11 21:27...
Twój opis niestety nie jest jednoznaczny. Tutaj duplikaty są grupowane po wartości z kolumny A, i dla każdego nowego wyrazu (z kol. A) wstawiany jest kolejny wiersz. Czy tak pogrupowane zestawy duplikatów, zamiast wstawiania do nowego wiersza, mają być kopiowane do kolejnej wolnej kolumny pierwszego wiersza? Załącz proszę przywołany plik z uzupełnionym...
Witam Poszukuje wsparcia w wyszukaniu, wyswietleniu i wybraniu arkusza z którego będę chciał skopiować dane do drugiego arkusza. Posiadam dwa skoroszyty. W pierwszym znajdują się dane w wielu arkuszach " około 25". Teraz w skoroszycie drugim po wybraniu opcji kopiuj chcę mieć możliwośc wybrania z którego arkusza ze skoroszytu pierwszego kopiuje ustalony...
Cześć. Na początku chciałbym poinformować,że nie dawno odkryłem VBA czy tow Excelu czy Wordzie. Tym samym jestem zielony w tym temacie. Pocieszam się tylko tym że nie na wszystkim muszę się znać. Jak domyślacie na VBA nie znam się w ogóle :cry: . W związku z powyższym do osób które znają w tym temacie mam gorącą prośbę. Potrzebuję makra,które będzie...
Witam! Kolejny raz potrzebuję wsparcia - bardzo proszę bardziej zaawansowanych użytkowników o pomoc. W Skoroszycie mam tylko 1 arkusz, w którym w polach od A1 do E25 posiadam wypisane dane (ciąg liczb pomieszanych z literami o długości od 10 do 16 znaków) które chciałabym aby po dwukrotnym kliknięciu przenosiły się do pierwszej pustej komórki w wierszu...
Witam Po raz kolejny zwracam się z prośbą. Potrzebuje zrobić makro które będzie mi kopiowało wartość komórki A35 z pierwszego arkusza o nazwie "Pierw" do pierwszego wolnego wiersza w arkuszu o nazwie "Po za" Jednocześnie potrzebuje też makro które będzie wyszukiwało komórkę w arkuszu "Po za"( i kasowało ją) o takiej samej zawartości jak komórka A35...
Witam, Z Toolbox/Controls wybrać UserView. Użytkownik z uprawnieniami administratora może dodawać i zmieniać użytkowników, klikając na odpowiednie pola tabelki. Dzięki. Tabelkę już zrobiłem wcześniej, ale nie przyszło mi "puknąć" w wolny wiersz :). Spodziewałem się, musze dodać jakić przycisk z funkcją AddUser czy coś.
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 ostani zajęty wiersz, AM8 do kolumny BC ostani zajęty...
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...
Pozostaw wolny wiersz nad danymi. Jeśli ten przykład jest reprezentatywny, powinna wystarczyć taka formuła (dla kolumny C): [syntax=text]=JEŻELI($A2<>$A1;1;C1...
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 poprzednie wiersze i wstawia takie same dane jak...
Cześć, tworzę wielozadaniowy UserForm (paczka załączona poniżej): https://obrazki.elektroda.pl/3523809100_... 1032673 Po pokonaniu początkowych trudności, nie mogę poradzić sobie z zadaniem ComboBoxowi wczytywania danych z zewnętrznego zamkniętego pliku, co jest kluczowym zagdnieniem. Tzw. "elegancja" rozwiązania tj. czy zewnętrzny...
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 As String i = 1 c = 1 d = 1 'określenie ilości komórek...
Potrzebuję wypełnić kolumnę wszystkimi możliwymi wariantami liczb i liter zaczynając od 1AA01 do 9ZZ99 w kolejności zaczynając od: 1AA01, 1AA02 (do 1AA99) kolejno 2AA01..2AA02 (do 2AA99), po każdym osiągnięciu w czwartej i piątej pozycji 99 ma zostać wolny wiersz. następnie 3AA01 (tak do 9AA99) następnie 1AB01 analogicznie jak wyżej wyczerpując 9AZ99,...
Pomijając to że autor pisze że jest zielony i ciekawe czy sobie poradzi :) z kodem ja zasugerował bym (jak i tak muszą być makra) dać przyciski (nie poprzez Worksheet_SelectionChange). Innymi słowy zablokować wszystkie komórki Przycisk "start" (odblokowujący pierwszy wiersz) ..... Przycisk "następna próba" (blokujący poprzedni wiersz a odblokowywujący...
Wydaje się zbyt trudne, aby sprawdzić numer faktury [syntax=vb] 'Sprawdzenie czy faktura o danym numerze już istnieje w rejestrze If Application.CountIf(.Range("A:A"), NrFaktury) > 0 Then 'analog LICZ.JEŻELI[/syntax] 'Znajdz_Pierwszy_Wolny wiersz = Cells(Rows.Count, 1).End(xlUp).Row +1
Witam z VBA spotkałam się 2 dni temu i mam rozkminkę jak zrobić pewny przycisk. Mianowicie chce zrobić przycisk który po kliknięciu będzie dodawał nowy rekord w kolumnie uzupełniony obecną datą Wiem jak dodać datę ale nie mogę poradzić sobie z tym żeby uzupełniał następny wolny wiersz...ktoś poratuje?
jak to jest technicznie zrobione? Do arkusza1 przypisane jest makro reagujące na zdarzenia zmiany :idea: (wprowadzenie nowej wartości) komórki I4. Jeśli takie zdarzenie wystąpi w pierwszym wolnym wierszu kolumny A wprowadzana jest aktualna data, a w kolumnie B nowa wprowadzona do I4 wartość. Na koniec czyszczona jest zawartość komórki I4 :spoko: w...
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...
1. Data nie jest datą w standardach Excela. Jeśli koniecznie musi tak być (z kropkami) proszę to potwierdzić. Ominięcie tego nie stanowi problemu, ale kłopot będzie jeśli sposób zapisu daty nie jest jednolity. 2. Widziałbym tu pętlę sczytującą kolejno dane z wierszy w Arkusz1 3. Przenoszenie musi być obwarowane na kilka sposobów. Określenie zakresu...
Lista kontrahentów w zasadzie jest stała, chociaż dobrze by było gdyby listę można było powiększyć w przyszłości, bo różnie to bywa. co do punktu pierwszego: w arkuszu NUMERY KONT BANKOWYCH: kontrahent to: MASARNIA. Ale z tej masarni w ciągu roku mam przykładowo 200 faktur gdzie w tytule przelewu wpisuję za każdym razem inny numer Cały problem polega...
Nagraj makro z Ctrl+F i zamiast .Select podstaw .Row. Będziesz miał już Nr wiersza. Nagraj drugie makro z kopiowaniem. I pod Range(cośtam) podstaw Rows(nasz Nr wiersza z pierwszego makra). Połącz wszystko w jednym makro i "prawie" gotowe. Wystarczy dołożyć wyszukiwanie wolnego wiersza, obsługę błędów (może nie znaleźć), etc.
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...
Na upartego można to zrobić bez VBA. Jeśli makro, to najpierw trzeba rozbić ciąg (Split) i dalej przypisywać warunkowo w "z góry upatrzone" miejsce w arkuszu. Najprościej byłoby dopisywać kolejne w ostatni wolny wiersz, a po znalezieniu dubla wstawiać nowy. W efekcie osiągnąłbyś coś takiego: http://obrazki.elektroda.pl/8687250500_1...
[syntax=vb] Sub Porzadkowanie() ww2 = Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row + 1 'wolny wiersz arkusz2 With Sheets("obroty") .Cells(1, 1).CurrentRegion.Sort key1:=.Range("a1"), key2:=.Range("e1"), Header:=xlYes ow = .Cells(Rows.Count, 1).End(xlUp).Row .Range("A2:H" & ow).Copy Sheets(2).Range("A" & ww2) End With Sheets(2).Activate With...
hehe tak jak z fizyką jądrową :p znalazłem taki kod który działa w moim przypadku prawie dobrze tylko próbuję go trochę zmodyfikować ale mi nie wychodzi. Trochę topornie ale działa:) Dim OutCel As Range Dim InpZbior As Workbook Dim OstatniWiersz On Error Resume Next ChDrive ThisWorkbook.Path ChDir ThisWorkbook.Path On Error GoTo 0 ListaZbiorow = Application.GetOpenFilename("ze...
Dzień dobry, Na wstępie powiem że ze wszystkich sił starałam się nie fatygować nikogo by mi pomógł znaleźć rozwiązanie problemu, próbując sama zrozumieć dlaczego tak się dzieje. Jednak moja nieznajomość VBA wzięła górę i do co utknęłam w martwym punkcie (choć może nie do końca bo makro w sumie robi co chce). Makro które udało mi się stworzyć, przerabiając...
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ę...
Proste Makro pięknie działa, ale po przypisaniu do wydarzenia arkusza,chyba się zapętla,(nie mogę dojść dlaczego?)Kombinowałem już na wiele sposobów [syntax=vbnet]Sub przeliczAZ() ' ' przeliczAZ Makro ' ' Application.ScreenUpdating = False Sheets("wplaty A-Z").Activate Sheets("wplaty A-Z").Range("A2:H6002").Select Selection.Clear Sheets("wpłatyH").Visible...
Tablica alokacji FAT jest takim jakby spisem treści dla plików znajdujących się na partycji. Informacja o pierwszym klastrze pliku znajduje się w rekordzie katalogu opisującym ten plik. Ponieważ pliki często zajmują więcej, niż jeden klaster, kolejne numery klastrów musisz odnaleźć na podstawie tablicy. Jeśli znasz numer pierwszego klastra, musisz znaleźć...
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...
Przy pomocy kodu zaczerpniętego z powyższego przykładu oraz wydatnej pomocy z [url=http://www.mielk.pl/pl/kursy/kurs_v... tej stronki. Zacząłem rozgryzać krok po kroku załączone makra jak się okazuje nie jest to super trudne tylko najtrudniej jes pojąć mechanizm ich działania :D Na chwilę...
Word traktuje puste miejsca tabeli jako coś wyższego/pierwszego zgodnie z alfabetem, dlatego umieszcza wolne miejsca tabeli wyżej. Wyjściem jest usunięcie niepotrzebnych wierszy. Jeżeli będzie potrzebny kolejny wiersz/słówko staje się na końcu tabeli i się wciska enter. Pojawi się wtedy kolejny wiersz. To takie wyjście jeżeli chodzi o word. W excelu...
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...
A zmienić tu[syntax=vb]wiersz = wswyn.Range("a1048576").End(xlUp).Row + 1 'ostatnia wolna komórka w tym pliku[/syntax]oraz tu[syntax=vb]wswyn.Range("A" & wiersz & ":S" & wiersz).Value = wsSrc.Range("A" & nnn & ":S" & nnn).Value[/syntax]nie wystarczy?
W załączeniu "przetranponowanie" tabel by nie było ukrytych kolumn i czerwone ostrzeżenie jezeli dwa rozpoczęcia będa wcześniej niż 24 godziny od siebie (tylko w marcu jeden przypadek - ale nie wiem czy sam go nie zrobiłem) Nie wiem czy ostrzeżenie o 24 godzinach dobrze działa kiedy będa kody "literowe". Sprawdź. Co do tych 7 dni i 36 godzin - cały...
Dziękuję Wam za chęć pomocy. Ja pracowałem z tablicami zarówno w ram, jak i flash, eeprom, ale nigdy nie miałem potrzeby takiej, jak w moim temacie. Również temat karty microSD dotknąłem po raz pierwszy i dla tego mam braki. Piszę okazjonalnie. Rozumiem, że są to podstawy... Dopytam jeszcze o szczegóły: 1. Jeśli chcę wyświetlić np. napis Ala na wyświetlaczu....
Hej! Mam problem: mam taka instrukcję, która według mnie powinna w wolny wiersz wpisywać kolejne wartości, ale tego nie robi, dlaczego ? Dim nastepny As Long nastepny = Application.WorksheetFunction.CountA(Ran... + 1 Worksheets("magazyn").Cells(nastepny, 3) = TextBox1.Text Worksheets("magazyn").Cells(nastepny, 4) = TextBox2.Text Worksheets("magazyn").Cells(nastepny,...
zaszyte mam gdzie makro ma zaczynać kopiowanie jest w wierszu odczytany.Worksheets("Dokument&... 1).CurrentRegion.Copy .Cells(ileA, "A") a kończy na pierwszy wolnym polu tu ileA = .Cells(.Rows.Count, "A").End(xlUp).Row + 2
To jest prawidłowe zachowanie w każdej chyba bazie danych i nie powinieneś tego zmieniać. W ten sposób baza danych potrafi sobie zbudować prawidłowe relacje, jeżeli są oparte o ten klucz. To że nieładnie wygląda to żaden argument ;) - sam to kiedyś przerabiałem, ale ilość PRZECIW zdecydowanie przeważyła nad ZA. Na randkę z tym nie idziesz, użytkownikowi...
Witam serdecznie, Problem niejednokrotnie występował ale nie mogę znaleźć nigdzie rozwiązania pasującego do moich potrzeb. Mianowicie, posiadam plik excel, w którym każdy wiersz przez 32 kolumny posiada wpisane dane tekstowe. Do każdego wiersza w tym pliku posiadam inny plik - txt rozdzielany średnikami, który w excelu ma od 2 do 20 wierszy ( zależnie...
Witam Proszę o pomoc w rozwiązaniu problemu. Kilka tabel jest utworzonych w wordzie. W Tabeli 2 pierwsza kolumna jest wypełniona liczbą porządkową. Pierwszy wiersz to nagłówki. Nagłówki w niektórych miejscach mają scalone komórki. chcę znaleźć pierwszą wolną komórkę w drugiej, trzeciej, czwartej, piątej i szóstej kolumnie oraz wstawić tam tekst "wykorzystany"....
W zalączniku wiersz poleceń.
excel pierwszy wolny wiersz excel pierwszy pusty wiersz pierwszy multimetr
pasek frania podłączyć kolumna amplituner onkyo generator alternator
Jak podłączyć tuner DVB-T do komputera - poradnik Regulacja gaźnika w pilarce Oleo-Mac 937 - jak ustawić?