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...
(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...
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ą...
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ć.
W piątym wierszu masz daty, a nie same numery dni. Formuła FW traktowała ten piąty wiersz jak numery dni.
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?
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...
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...
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...
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(-&#...
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...
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...
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...
Dodałem małe usprawnienie. W arkuszu jest kod paskowy. Po jego zeskanowaniu uaktywniana jest komórka A w pierwszym wolnym wierszu. Taki start.
Dziękuję bardzo za odpowiedź. Wszystko działa, ale tylko dla pierwszego rzędu dat. Wpisując w drugi rząd dat tą samą formułę, zmieniając komórkę z której pobiera się datę i zmiana wiersz()-5 na wiersz()-11 niestety nie działa. Mógłbyś rozpisać formułę i wytłumaczyć co gdzie zmienić, żebym mógł już sam edytować kolejne wiersze i arkusze? Działa to trochę...
Nie do końca zrozumiałeś mój poprzedni post. Trzeba arkusz zrobić na nowo albo mocno zmodyfikować ten istniejący. Dla każdego dnia - np 1 listopada musisz przeznaczyć dwie komórki - np D6 i E6. Formatujesz te komórki (prawy przycisk myszki - formatuj komórki - klikasz czas i wybierasz format np 13:30) W komórkę D6 wpisujesz godz. rozpoczęcia pracy np...
[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...
Witam, mam makro do wgrywania danych. Proszę umieszczać kod w znacznikach syntax . Opcja Listing kodu . Proszę to poprawić. [syntax=vb][/syntax]
Maciej Gonet Dziękuję za zainteresowanie i poświecony czas. W wolnej chwili sprawdzę Twoją pomoc i potwierdzę czy o to mi chodziło. Z góry jednak wiem z doświadczenia że dałeś radę,za co dziękuję. Dodano po 4 Maciej Gonet Sprawdziłem,jest OK. "formuły obliczeniowe miałeś bardzo pogmatwane i trudno było doszukać się ich logiki"-Tak wychodzi jak coś nie...
Witam! Jestem nowym użytkownikiem forum, dlatego proszę o wyrozumiałość. Szukam rozwiązania dla mojego tematu jednak nic nie potrafię znaleźć... Czy możliwe jest ustawienia hiperłącza w taki sposób aby przenosiło w pierwszy pusty wiersz we wskazanej kolumnie zamiast do na sztywno wybranego np. C3 itp.? Chodzi o to, że w karcie do której przenosi hiperłącze...
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...
Witam, tworzę plik excela do wydań produktów z magazynu do poszczególnych działów. W arkuszu 1 mam nazwy działów, w których każdy jest połączony hiperłączem do osobnego arkusza do ostatniego wolnego wiersza: =HIPERŁĄCZE("#magazyn1!A"&(MAX(JEŻELI.BŁ...
*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) >...
Nie rozumiem co masz na myśli pisząc pierwszy wolny wiersz, datagridview nie ma czegoś takiego jak wolny wiersz, tylko ma kolekcje rows, aby dodać wiersz używasz rows. Add i masz nowy wiersz. Masz błędne podejście do całości,. Net to nie vba, tylko język obiektowy, zacznij od jakiś tutoriali na yt, poczytaj jakieś książki na temat, a co do itetacji...
Witam, Ja znam i używam jednej z czterech metod wyszukiwania danych. 1. z wykorzystaniem funkcji FIND() 2. z wykorzystaniem pętli FOR 3. z wykorzystaniem pętli FOR EACH 4. (niezałączona) z wyszukiwaniem binarnym na posortowanych danych Trzy z nich załączam w pliku "testowym". Znajduje się w nim 10.000 losowych, nieposortowanych rekordów: firma, miasto,...
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 nie cieszył się, tylko F1 i analizy innych makr. W Twoim...
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 jak to rozwiązać?? [syntax=vb]Sub Przycisk1_Kliknięcie()...
Witam, Mam problem z makrem, które znalazłem na forum i które staram się przerobić pod moje potrzeby. Docelowo, makro ma sprawdzać czy w komórce w kolumnie F arkusza 1 jest wyraz "tak" i jeżeli to się potwierdzi to kopiować w pierwsze wolne miejsce w kolumnie D akrusza 2 zawartość komórki B arkusza 1. I jednocześnie usuwać ten wiersz z arkusza 1. Poniżej...
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...
Dziękuję - działa. 2. Aby przepisywać towar do textboxa (choć nie wiem po co to, skoro można od razu z comboboxa go brać...): Jak to zrobić - tak z ciekawości jeśli można. Dodano po 1 Jeszcze jedno pytanie. Chciałbym pod jednym przyciskiem WYCZYŚĆ dodać kod Kopiowania kolejno E4, F4, E9, G33, G34, G35 do arkusza ZapiszWZ w 2 wiersz a potem następny...
Przeanalizuje plik który mi posłałeś, jednak Ten wiersz pomalowany na szaro jest zupełnie niepotrzebny, on tylko rozdziela mi dozór od pracowników ale tego rozdziału nie musi być Dodano po 27 Niestety w żaden sposób nie mogę tego pojąć i zastosować to co mi podałeś. Nie chce to działać poprawnie. Muszę na samym dole listy zostawić wolny rządek bo formuła...
Maćku, Dzięki za głos, dostałem już odpowiedź z innego źródła ale przeklejam tutaj dla potomnych CYTAT: Przekopiuj kategorie do usunięcia do nowego arkusza w pliku z klientami (powiedzmy, że jest to Arkusz2 zakres A1:A300) W kolejnej wolnej kolumnie w bazie klientów powiedzmy, że jest to D w D1 wpisz "do usunięcia" Zakładam, że kolumna z kategorią to...
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...
Witam Chciałbym po wypełnieniu kolejnych wierszy w excelu, aby makro utworzyło mi katalogi we wskazanym miejscu z tym ze utworzone raz pozostają nietknięte. LP Sklep rodzaj utwórz katalog 1 Sklep odzieżowy 2 Sklep spożywczy 3 Sklep chemiczny 4 5 6 7 tzn. wypełniam pewnego razu wiesze z LP 1 wpisuje, sklep i rodzaj i w kolumnie utwórz katalog wciskam...
Chodzi o to by w kolumnie A wpisać automatyczną numerację, ale jeśli w kolumnie B mam datę z określonym miesiącem to numeracja dla danego miesiąca zaczyna się od 1. Rozwiązań jest około miliona ;) Dla wyboru w miarę najprostszego, musisz jeszcze napisać, czy dokonywanie wpisów odbywa się zawsze bez dodawania (wstawiania) wierszy miedzy już zapisane....
Witam Mam taki problem muszę w excelu napisać skrypt w Visual Basic lub nie jeśli się da który z jednej kolumny pobierze wartość do wyszukania następnie przejdzie na drugi arkusz i tam ją spróbuje wyszukać w tabeli. Jeśli znajdzie wartość w tabeli to wytnie ten wiersz w którym ją znalazł i wklei obok kolumny z wartościami do wyszukania w pierwszym arkuszu...
Wole żeby listy rozwijane zostały (dobrze byłoby jakbym mógł edytować je bo nie wiem czy coś nie przyjdzie mi do glowy jeszcze, ale na chwilę obecną żeby z listy wyboru żeby były takie rzeczy, 8, 10, u, ch, nn, ut, święto). Wole żeby były listy rozwijane żeby inne osoby które będą korzystać nie kombinowały i wybierały tylko to co jest do wyboru. Dodano...
Robię to w gnumericu więc nie wstawiam plików(a jeśli zapisuje to w formacie excelato musiałbym za dużo poprawiać żeby wam to udostępnić) http://obrazki.elektroda.pl/3875054000_1... Doszłem do czegoś takiego, wiem że jest to nakombinowane ale liczy (może jest możliwe coś łatwiejszego ?) Wyjaśniam o co chodzi: D103= =if(D8="NP";sum(0+0);if(D8="W";sum(0+0);...
Witam, proszę o pomoc w pisaniu kodu, który będzie co godzinę odświeżał tabelę przestawną, następnie kopiował jej widok Range("A4:G85") i później zapisywał w innym pliku w pierwszej wolnej kolumnie. Z poszukiwań w internecie udało mi się coś takiego sklecić ale nie działa:/ Będę zobowiązany za odpowiedzi. [syntax=vb]Option Explicit Dim bWylacz As Boolean...
(at)kinggustav Tak, to coś bardzo podobnego jak opisujesz, trochę jak aplikacja w VBA, tyle, że w pełni zautomatyzowana. Bez klikania przycisków (interfejsu) itd. Jestem już niedaleko ukończenia, ale utknąłem w martwym punkcie, stąd pytanie do Was - Expertów. Rysunki i arkusz wyżej wstawiłem w odchudzonej wersji, żeby łatwiej było się połapać o co chodzi....
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(,...
Kolega coś nie kuma z tymi liczbami porządkowymi. Dlaczego nie jest zadeklarowana zmienna 'a' , przecież ona przechowuje kolejny numer wiersza? Skoro kursor na starcie ustawia się w komórce F4 to dlaczego kolega nie liczy wierszy od tego kursora do miejsca wpisywania pierwszej danej? W moim przykładze było to a= b-2, gdzie: a - to wyliczony numer wiersza...
gdyż mam makro które tworzy mi CSV Napisałem na szybko takie coś: [syntax=vb] ''' <summary> ''' Zapisuje bierzący arkusz do pliku CSV ''' </summary> Sub SaveCSV() Dim R As Range Dim cmax As Integer Dim rmax As Integer Dim srow As String Dim fname As String cmax = Excel.ActiveSheet.UsedRange.Columns.Coun... rmax = Excel.ActiveSheet.UsedRange.Rows.Count.....
C = A złe oznaczenia w grafiku zagmatwać chyba tak ale to z racji złożoności problemu może tu jest pies pogrzebany. może spróbuję jeszcze raz od początku z podaniem tylko założeń jakie musi spełniać grafik z pominięciem nazewnictwa i mojej osobistej kombinatoryki więc tak co następuję aby nieco ułatwić i wykluczyć wpisywanie pewnych założeń do ewentualnego...
Chodzi o to że arkusz A1 zasysa dane z accessa nie mogę go dołączyć jako załącznik nie wiem czemu. dane z access są umieszczane w tym arkuszu to jest ok. Jednak jeśli dokonam zmiany rekordzie w access automatycznie zmiana ta powstanie w wierszu arkusza 1 , natomiast w aruszu3 chciałbym mieć wszystkie dane z arkusza1 przed dokonana zmianą + te wiersze...
stąd: ostWrs = .Cells(.Rows.Count, "B").End(xlUp).Row Wydaje mi się że nie to chcesz docelowo uzyskać. Myślę że chcesz określić do którego wiersza wpisać dane więc jak na sztywno wpiszesz że ostWrs = 8 to zacznie wpisywać od 9 ale ... dla zrozumienia i nauki: rozbijmy to : ostWrs = .Cells(.Rows.Count, "B").End(xlUp).Row Count to "liczba/ilość wszystkich/kiego"...
Z powodu że na razie nikt nie wie jak rozwiązać moje pytanie. Zapytam w prost tak żeby było to czytelne. Jak zapisać wartość z A1 w C2 podając w B1 (nr kolumny 2) a w B2 (nr wiersza 3) Następnie jeśli zmienię wartości w B1 na 3 a w B2 na 4 to zawartość C2 zostanie dalej taka jaka była a w D4 zapisze mi się wartość z A1. I czy to wykonalne. Jeśli nie...
...W pliku który mi przesłałeś nie wiem czemu ale nie ma żadnych przycisków do makr ... Bo i być nie powinno ... w zamyśle miało być menu " KOSZTORYS " i takie w tych " Dodatkach " widać - w teorii, jak się je kliknie, powinno pokazać coś takiego jak poniżej na drugim obrazku - wygląd w starym excelu: 838683 838684 ... Zauważyłem, że: 1. jak dodaje...
Witam Dopiero zaczynam z Vba Exel i mam problem z przyśpieszeniem swojej pracy. Mam 2 arkusze. W pierwszym uzupełniam wiersze od (a2:h22) oraz komórkę "k1". Po włączeniu makra chcę by komórki z podanego przed chwilą zakresu dopisywały się w drugim arkuszu od "a2:h" a komórka "k1" żeby skopiowała się tyle razy ile dopisało się wierszy i to do ostatniej...
Musisz napisać makro, które będzie wyszukiwało największą datę w powiedzmy arkuszu A ;) i zapisywało dane w pierwszym wolnym wierszu w innym arkuszu... Ewentualnie Ctrl+c, Ctrl+Alt+v -wartości
... Z racji niekiedy na pośpiech, brak czytania komunikatów bądź inne wymówki, komórki są nadpisywane, przez ostatnią osobę. Chciałbym wymusić,a by tylko jedna osoba w danym momencie mogła edytować dokument, reszta musi czekać aż poprzedni skończy wpisywanie. ... komunikat o konflikcie wyskakujący podczas drugiego zapisywania nie dział skutecznie,...
Dzień dobry. Na samym początku chciała bym zaznaczyć, że jestem nową uczestniczką tego forum i w dodatku, osobą która nie zna się na VBA Ecxel. Bardzo potrzebuje waszej pomocy z makrem. Mam plik csv. o nazwie "D420", taka sama nazwa arkusza, w którym znajdują się dane. Lokalizacja Pliku: C:\Users\wolszczak.joanna\Desktop\DANE Potrzebuję makra, które...
Dodaję załącznik z plikiem oczywiście dane zostały zmienione. Gdy wchodzi się do pliku pojawia się na start userform wybieramy pierwszą opcję dodawania do magazynu. Gdy już będzie widoczny arkusz do wprowadzania danych to wpisujemy datę, z listboxa wybieramy selekcję następnie wpisujemy ilość w zielony textbox (jeżeli chcemy coś dodać) lub czerwony...
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
dzięki za wszystkie odpowiedzi wracając do jednak do nich, chciałbym stworzyć grafik, który pokrótce załączam a w nim chciałbym wprowadzić kilka rozwiązań: troszkę sobie porobiłem manualnie by łatwiej było naświetlić o co mi chodzi i tak: 1. jak z sumować czas w jednej kratce od 06:00 do 14:30 to 8,5 h tak by nie wpisywać ciągle tegoż od 07:15 do 09:00...
Przejrzyj dobrze kod. Ostatnią funkcję masz "zaremowaną". [syntax=vb]'Call GetOnlyGoodValues(x1, x2, x3, x4, x5, x6, x7, x8, x9)[/syntax] Wewnątrz GetOnlyGoodValues wykonywane jest przeszukiwanie. Działa to dobrze bo sprawdzałem, ale generowanie czegokolwiek trwa baaaardzo długo. Zapis do komórek Excela mija się z celem o czym już pisałem. Właśnie dodałem...
Dziękuję Panowie. Szczegółowe opisanie tego co chcę osiągnąć było by dość długie. W arkuszu pierwszym mam zaimportowane pewne dane z pliku csv. Dane te dotyczą różnych osób i tu nie ma reguły. Np dla Jana Kowalskiego mamy 3 wiersze danych, dla Marii Kowalskiej mamy 4 wiersze. Natomiast dla Stanisława Nowaka mamy też jakiś tam wiersz z informacją że...
Witam! szukam pomocy :idea: potrzebuję stworzyć raport na temat sprzedaży sumujący automatycznie dane od początku roku. Chciałabym, żeby np. raport z lutego automatycznie kopiował dane ze skoroszytu styczeń i dopisywał je w pierwszym wolnym wierszu w lutym, a np. ten z lipca zawierał wszystkie dane od stycznia do lipca. Dane są potem prezentowane w...
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...
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...
OK, mój błąd. Filtr zawiera się w makrze z buttona 'Szukaj'. Jego zadaniem jest wyszukiwanie w A2 wpisanego numeru w liście poniżej i zostawianie jedynie linijki z wyszukanym artykułem. Następnie musi ustawić się w pierwszej wolnej komórce z ilością dla tego wiersza. Jeżeli chodzi o sendkeys to dałam go po to aby idąc te 4 wiersze w dół poprzez offset.(4,0)...
Mam dwa arkusze (planuje więcej) Dane jako baza do wszystkiego w niej są kolejne dni jako kolumny próbuje wstawić w makro w akruszu o nazwie "1" skrypt czytający nazwę aktualnego arkusza (1) i zakreślić zakres dajmy na to 1 odpowiadający c:c w arkuszu Dane. Coś nie bardzo mi to wychodzi... odpowiednio później 2 d:d, 3 e:e: 4 f:f: [syntax=vb]Set znaleziona...
Wklejam artykuł - ciekawostkę: "Jacek Karpiński, twórca pierwszego polskiego minikomputera, protoplasty peceta, żyje w biedzie i zapomnieniu. Pałac Kultury i Nauki. Muzeum Techniki. Cmentarzysko dawnych zaskoczeń. Na drugim piętrze, wśród przedmiotów dziwnych i z wyglądu nudnych, stoją trzy niepozorne maszyny. Na nich tajemnicze symbole: AAH, KAR-65....
pierwszy wolny wiersz excel pierwszy pusty wiersz excel usuwa wiersz wiersz
kabel żyłowy podłączenie falowanie wolnych obrotow bascom inkey
thomson dvbt2 instukcja serwisowa pixma
Denon U5 - Potencjometr głośności nie działa Denon U5: Szum i cichy dźwięk, potencjometr nie działa
