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...
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
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...
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...
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ą...
(at)dt1 Jak dla mnie to porady na forum ELEKTRODA odnośnie Excela VBA nie powinny mieć miejsca. Jest to w pewny sposób wykorzystywanie umiejętności informatycznych ludzi, którzy kiedyś musieli nauczyć się od zera VBA, a teraz maja podawać kawę na ławę zatrudnionym pseudo informatykom pracującym w biurze i przeważnie na posadach państwowych lub w dużych...
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ę...
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...
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...
Wszystko ok tylko potrzebuję jeszcze taki moduł gdzie będzie kopiowało tylko wartości komórek a nie formuły i przy wkopiowaniu w oddzielny arkusz będzie sprawdzać który wiersz jest pierwszy wolny i zapisywać pod pierwszym wolnym. Dodano po 3 Mam takie makro to prawie wykonuje to co bym chciał ale kopiuje całe formuły a nie same wartości komórek, jak...
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...
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...
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ół.
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?
Czyli chodzi o dołączenie listy. Przebiegasz pętlą po wierszach dołączanej listy i jeżeli jest już nazwisko to ... no właśnie, co robisz? Jeżeli nie ma to dopisujesz wiersz. Jeżeli masz niewiele pozycji to spokojnie wystarczy taki algorytm, jeżeli będzie zbyt wolne to trzeba pokombinować.
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?
W piątym wierszu masz daty, a nie same numery dni. Formuła FW traktowała ten piąty wiersz jak numery dni.
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...
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...
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...
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...
W zasadzie ładnie algorytm już opisałeś, pozostaje tylko poszukać odpowiednich funkcji. Wg mnie, jeżeli nazwy w kolumnie A nie będą się powtarzały, to o wiele prostsza w użyciu będzie funkcja .match , np. [syntax=vb] Szukana_nazwa = Worksheets("Arkusz1").Cells(ActiveCell.R... 1).Value 'Wiersz aktywnej komórki, kolumna A czyli 1 Nr_wiersza = Application.WorksheetFunction.Match(Szuk...
Cześć, od kilku dni próbuję zaktualizować kod VBA tak aby dane z zakładki KWERENDA (tylko z kolumn od A do H) wklejały się do zakładki REJESTR PROTOKOŁÓW w pierwszy wolny wiersz w kolumnach A:H . Dodatkowo przed kopiowaniem nakładam filtr tak aby skopiowały się tylko konkretne wiersze. Jak w zakres destynacji wprowadzam np Range("A1", "H1") to kopiuje...
Funkcja 'Find' jest tak samo szybka/wolna jak pętla. Dlatego najprościej [syntax=vbscript]b = 2 w = Cells(Rows.Count, 4).End(xlUp).Row Do While b <= w If Cells(b, 4) = kierowca And Cells(b, 6) = "NIE" Then Exit Do b = b + 1 Loop If b < w Then MsgBox "znaleziono w wierszu " & b Else MsgBox "nie znaleziono" End If[/syntax]
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 poleceniem ShowAllData próbuje się zdjąć kryteria autofiltra...
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?
Dobrze by było jak te formuły miały charakter stały, uwzględniając np. zmianę dnia w tygodniu (ponieważ inaczej rozlicza się godziny w dzień roboczy, a inaczej w święto). Zrób dodatkową kolumnę, którą będziesz wyróżniał dzień wolny/sobota-niedziela/święto od normalnego dnia pracy. Wtedy wartość z tej kolumny ta może posłużyć za warunek do zmiany sposobu...
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, 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...
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ę...
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...
Fajna funkcja. Łatwo można ją przerobić na funkcję która po podwójnym kliknięciu usuwa wiersz. Dziękuje. Przyda mi się.
Najprościej byłoby zastosować jakąś pętlę w VBA, ale można próbować po "excelowskiemu". Np dołożyć jeden arkusz roboczy, w którym tworzymy tabelę i szukamy wyniku, a w głównym dać tylko odwołanie... Całość oparta jest o funkcję ZNAJDŹ i jeśli nie ma tekstu z kolumny A w dowolnym wierszu kolumny B, to funkcja zwróci #ND! Na podanych przez Ciebie danych...
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?
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...
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...
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...
Witam, mam plik ktory ma sluzyc do tworzenia w nim ofert i teraz mam problem z napisanie makra ktore wsatwialo by nowy wiersz w nastepny wolny pod wierszem 29 i kopiowalo do niego zawartosc wlasnie wiersza 29 tak aby kazdy uzytkownik mogl sobie wstawic tyle wierszy ( pozycji oferty) ile bedzie potrzebowal.
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...
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...
A coś takiego Ci pomoże? =MODUŁ.LICZBY(SUMA.ILOCZYNÓW(-&#...
Jeśli wszystkie warunki były znane od początku, to być może byłoby oczekiwanych wyników. biorąc pod uwagę fakt, że Pan dwa razy więcej postów i są wystarczająco dużo punktów, myślałem, że to po prostu dać wskazówkę. Dlaczego wyszukiwanie w kolumnie I nie działa z poniższym kodem ).AutoFilter Field:=9: w tym przykładzie nie ma nic o kolumnie 9 przy pierwszym...
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,...
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...
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...
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...
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 danych gdy mamy dwie wartości podane - czy da się ten kod...
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 iCol% 'kolumna aktywnej komórki Dim...
Cześć, mam pewien problem odnośnie rozwiązania przypisania danej wartości w każdym wierszu gdzie następuje kopiowanie danych z jednego arkusza do drugiego. [syntax=vbscript] Private Sub CommandButton1_Click() CutCopyMode = False Dim strPlik As String Dim i, b, z As Integer Dim data As String Application.ScreenUpdating = False ' Kopiowanie danych do...
Jak napisać funkcję która podświetli wiersz komórek w której znajduje się komórka np zawierająca napis "zajęte" Chciałbym zrobić zestawienie domków np. kolumna a1 numer domku, kolumna b1 stan domku Przykładowo numer domku 5 , stan domku zajęty . I Jak teraz napisać funkcję która podświetli mi cały wers komórek (powiedzmy że między numerem domku a stanem...
pierwszy wolny wiersz excel pierwszy pusty wiersz excel usuwa wiersz wiersz
spotkać elektronik prądnice magnesami wiśniowski space
prowadnice liniowe prowadnice liniowe
Przerwa na świecy zapłonowej Junak 901RS: 0,6–0,7 mm Renault Ceres – brak świateł, diagnostyka, bezpieczniki, przekaźniki, manetka
