Coś takiego powinno zadziałać :-) [syntax=vbscript] Sub raport_pobrań () Dim fileName As Workbook Dim path As String Dim sheetName As String Worksheets("POBRANIA").Select path = "D:\rary\Raport POBR.xlsm" Set fileName = Workbooks.Open(path) ThisWorkbook.Activate For wiersz = 6 To 36 sheetName = Range("N" & wiersz) If sheetName <> "" Then With...
Sprawdź takie makro: Cells(CC, 3).Cut zastąp linijką Cells(CC, 3).Copy . Makro działa od pierwszego wiersza, jeśli pierwszy wiersz Twojej tabeli to nagłówek, początkowe parametry CA oraz CC zmień na numer wiersza, od którego zaczynają się faktyczne dane. Makro działa do momentu napotkania pierwszej pustej komórki w kolumnie C.
Witaj. Sprawdź załącznik. Checboxy zastąpione czymkolwiek w kolumnie (może być X, może być cokolwiek poza pustym polem). Poprawność stawiania xów czy innych jest sprawdzana na bieżąco, więc jeśli spróbujesz postawić iksy dla dwóch różnych zamówień to wyjdzie błąd już w momencie stawiania. Nie jestem pewien, po co numer wiersza, wystarczy że masz w tabeli...
Jeżeli dobrze wszystko rozumiem, to wszystko wydaje się być prostsze niż na początku to opisywałeś. Otóż w nowym module wklejasz to: Sub kopiuj() ActiveSheet.Range("E:E"... ActiveSheet.Range("G:G"... Paste:=xlPasteValues Application.CutCopyMode = False End Sub Skrót klawiszowy ustawisz...
Oto makro. Pan wymienić [syntax=vb]Sub wig() ' ' wig Makro ' Rozdziela spó³ki na wig 30 i przenosi do bazy danych ' ' Klawisz skrótu: Ctrl+q ' Dim bs As Range, dane As Range, lst As Range Dim r&, rd&, rb& Set bs = ThisWorkbook.Sheets("Baza Danych2").Cells rb = bs(Rows.Count, 1).End(xlUp).Row + 1 Set dane = ThisWorkbook.Sheets(1).Range("A:O") Set...
Może to Ci pomoże. Makro, dla podanej "szukana" przeszukuje każdy wiersz. Jeżeli znajdzie szukaną to kopiuje cały wiersz i przenosi do innego arkusza Dodano po 3 jeszcze raz bez zbędnych żeczy :) [syntax=vb]Sub Szukaj() Dim wiersz As Integer, kolumna As Byte, szukana As String, NumerWiersza As Integer Dim lastRow As Integer With ActiveSheet lastRow...
1. pobiera listę plików .xlsx w folderze 2. usuwa zakładki, tworzy nowe i orzenosi dane z pobranego pliku z folderu 3. przenosi dane z jednej zakładki do finalnej KOR 4. przenosi poszczególne wiersze z zakładki RAT do zakładki KOR do tego samego wiersza jako kolejne kolumny 5. tworzy nowy plik z danymi z zakladki KOR, zapisuje i przechodzi do pkt 1...
Teoretycznie można coś podobnego zrobić - choć w praktyce jest to bardzo złe rozwiązanie, a już zwłaszcza na plikach w pracy, gdzie istotne jest bezpieczeństwo i pewność danych... Może najpierw wykład, potem kod ;) Garść faktów: Excel nie nadaje się do pracy wielozadaniowej (czy równoległej, zwał jak zwał). Teoretycznie można w pliku włączyć jakiś tam...
Assert to coś w rodzaju testu jednostkowego :P Jeśli się chce tego używać to trzeba wiedzieć po co, i jeśli już to tylko w trybie Debug!
Chyba nie rozumiem, o co Ci chodzi? Biorąc pod uwagę, że nikt jeszcze nie odpowiedział, chyba nie jestem jedyna. Twoje makro jest mało sensowne, ale może działać. Wprawdzie nie wiem po co każdą komórkę osobno kopiujesz, skoro można zaznaczyć i skopiować cały zakres D1:D30 i wkleić do A1, ale co kto lubi. Inna sprawa, że w Twoim załączniku w kolumnie...
[syntax=vbscript]Sub Petla() y = 9 For x = 7 To 400 Step 6 Sheets("Arkusz1").Cells(y, 1) = Sheets("Arkusz2").Cells(x, "J") y = y + 2 Next End Sub [/syntax]
Mam Arkusz Google, w którym są dwie karty. Pierwsza karta zamówienia, druga karta zrealizowane. W pierwszej karcie zamówienia mam w jednej kolumnie listę rozwijaną (sprawdzanie poprawności danych) bądź pole wyboru. Chciałbym napisać makro, które będzie sprawdzać po kolei każdy wiersz i w momencie, kiedy natrafi na komórkę z wybranym polem "ZAKOŃCZONE"...
Zamiast przerabiać było napisać nowe makro, bo np. po co ci pętle. Najpierw musisz "pobrać" nazwę arkusza z A1 potem nr wiersza z B1 A potem wprowadzić dane w arkusz o nazwie zapisanej w zmiennej "nazwa" w wierszu zapisanym w zmiennej "wiersz". C1 w kolumnie 2 a D1 w kolumnie 3 Private Sub CommandButton1_Click() nazwa = Worksheets("Arkusz1")....
Jeśli uważasz, że budowanie żagla słabego konstrukcyjnie ma sens tylko dlatego, że statystycznie jest jak jest to jest to Twoja sprawa. Mnie podoba się takie jedno zdanie na temat statystyki: "Jeśli będziesz miał dwa wiadra z wodą gdzie w jednym będzie wrzątek a w drugim woda bliska zeru to jak do tych obydwu wiader włożysz równocześnie dłonie to statystycznie...
[syntax=vbscript]Sub Pobierz() Set w = ActiveWorkbook p = Application.GetOpenFilename("Pliki Excela,*.xls*", MultiSelect:=True) If UBound(p) = 2 Then Set a = Workbooks.Open(p(1)) a.Sheets(1).Range("B10:C23").Copy w.Sheets(1).Range("C10") a.Close False Set a = Workbooks.Open(p(2)) a.Sheets(1).Range("B10:C23").Copy w.Sheets(1).Range("E10") a.Close False...
Ok Działa, ale nie przenosi do innego arkusz. Ponadto kopiuje tylko wiersz A2 i to jest dziwne bo w kodzie jest umieszczony zakres od A2 do U3. Nie wiem czym to jest spowodowane. To może tak, zarejestrowałem nowe makro: Sub kopiowanie() ' ' kopiowanie Makro ' ' ActiveWindow.ScrollColumn = 2 ActiveWindow.ScrollColumn = 1 Range("A1:U2").Select Selection.Copy...
Witam, Czy istnieje możliwość napisania w MS Excel makra, które będzie działało zgodnie z poniższym schematem: 1. W skoroszycie istnieje arkusz Jacek oraz Placek 2. W arkuszu Placek w zakresie A1:K500 występują wartości całkowite, które mogą się powtarzać 3. W arkuszu Jacek w kolumnie "W" istnieją wartości całkowite unikatowe - nie powtarzające się...
Dziękuje bardzo za szybką odpowiedz :) Super makro przenosi i zmienia nazwę, czy jest możliwość aby makro zmieniło nazwę w wszystkich wierszach, a nie tylko w jednym.
Za pomocą makra mam umożliwić użytkownikowi wpisywanie do komórki a1 tylko daty , a gdy makro to wykona , ma za pomocą funkcji TEKSTOWEJ przenieść do osobnych kolumn dzień miesiąc oraz rok. Tyle ,że te daty się kodują na kod daty kiedy używam funkcji tekstowej i przenosi mi np w kolumnę dzień liczbę 46
Panowie jesteście cudotwórcami. To działa i rzeczywiście przenosi makro. Wielkie dzięki. Mam jeszcze tylko pytanie odnośnie tych zaufanych wydawców. Ponieważ plik byłby uruchamiany na innych komputerach to w jaki sposób można ustawić tych zaufanych wydawców i czy jest to możliwe z pozycji użytkownika a nie administratora?
makra, które będzie przenosić dane z jednego arkusza do innego Efekt taki możesz uzyskać np takim kodem: 968551
Witam. Prosiłbym o pomoc w edycji mojego kodu, który przenosi dane z jednego arkusza do drugiego. Potrzebuję przenosić wartości z wybranych kolumn G, L i M, dopóki są wypełnione danymi, do osobnego arkusza, a następnie sumować te wartości zaraz pod danymi. Sumowanie działa tak, jak trzeba, lecz chciałbym, aby makro wstawiało formułę, a nie gotowy wynik. Makro...
[syntax=vbscript]Sub przeniesienie() Application.ScreenUpdating = False Set wb = ActiveWorkbook.Sheets("Arkusz1") Path = "C:\Users\Martyna\Desktop\najnajnowsze\P... Set Filename = Workbooks.Open(Path) For wiersz = 2 To wb.Cells(Rows.Count, 13).End(xlUp).Row sheetName = wb.Range("M" & wiersz) If sheetName <> "" Then With Filename.Worksheets(sheetName)...
[syntax=vb]'1.xls Arkusz1 z wiersza 9 z kolumn E, H, L, O, R, U, W do pliku 2.xls Arkusz1 do tych samych kolumn w wierszu 6 'z wiersza 6 w pliku 2.xls z kolumn F, J, N P, T, V, X, Z do wiersza 9 w pliku 1.xls Arkusz1 Sub swap_walue() Dim ark1 As Worksheet Dim ark2 As Worksheet Set ark1 = Workbooks("1.xls").Sheets("Arkusz1") Set ark2 = Workbooks("2.xls").Sheets("Arkusz1")...
Najprościej rzecz ujmując [syntax=vbscript]licznik = 3 For i = 1 To 100 If Sheets("Arkusz1").Range("B" & i) = 1 Then Sheets("Arkusz1").Range("C" & i & ":S" & i).Copy Sheets("Arkusz2").Range("B" & licznik & ":R" & licznik) licznik = licznik + 1 End If Next[/syntax]
Troszkę mi się zeszło z odpowiedzią, ale chwilowo zająłem się innymi sprawami. Jak wcześniej wspomniałem moim założeniem jest stworzenie makra/funkcji która po kliknięciu na na pole obok "Współczynnik częstotliwości [FM]" przenosi nas do tabelki znajdującej się w arkuszu 2. Po kliknięciu na odpowiednią komórkę w tabeli danych makro/funkcja zwraca wartość...
ale ja nie widzę tutaj błędu Usuń kropkę :) [syntax=vbnet] Range("BZ3").End(xlDown).Address[/syntax...
zamieszczać oryginalnego pliku, bo w rzeczywistości te tabele są dużo większe (ok 90 wierszy i 40 kolumn) To na pewno ci się zmieni 'step' jak i ten drugi x+ :)
Chciałbym uściślić. Mam w skoroszycie bazowym (nazwę go DD) kilka tabelek w której formuły są typu B7=B5-B6, C7=C5-C6 itd. Zrobiłem makro, które przenosi dane z pierwszego skoroszytu z pozycji B6 na pozycję B5 w następnym skoroszycie i kopiuje skoroszyt. Przy pierwszym kopiowaniu (JA1) jest ok, ale jak próbuję skopiować JA1 do JA2 to nie przenosi mi...
No więc tak. Nagałam sobie makro, aby zobaczyć jak przeniść samą wartość. Sęk w tym, że na początku przenosiło wartości, tyle że do innej komórki. Potem się zorientowałam, że moją zmienną nie są kolumny, tylko wiersze. Po poprawieniu tego makro przenosi mnie do drugiego arkusza, ale nie wyrzuca wartości. Podsyłam plik.
Drukowanie ogarnąłem. Działa fajnie: Sheets("1").PrintOut Copies:=2, Collate:=True, _ IgnorePrintAreas:=False Dałbyś radę podesłać kod do BeforeDoubleClick dla komórki przykładowej B2. Po DoubleClicku komórki B2 przenosi mnie do Sheets("1"). I jeszcze taka prośba, do poniższego kodu chciałbym aby po klikneciu buttona jeszcze wyskoczył Msgbox "Czy na...
Witam kolegów i koleżanki. Zwracam z prośbą do was o pomoc, język VBA jest mi obcy. Wszystko dzieje w obrebie tego samego zeszytu o nazwie "Dane" W zeszycie "DANE", arkuszu " Baza" w kolumnie J od komórki 13 mam dwa słowa Auto i Ciągnik. Chciałbym aby w momencie jak pojawi się słowo " Auto" makro przenosiło dane do arkusza "Produkt". Arkusz "Baza" w...
Hej, Próbowałem nagrać makro ale po pierwsze trwa to bardzo długo a po drugie nie drukuje tylko przenosi do panelu wydruku. Wiktor
Dziękuje o właśnie takie makro mi chodziło, mam jeszcze jeśli mogę pytanie te makro przenosi do drugiego arkusza tego samego skoroszytu, co gdybym chciał przenieść z tego skoroszytu do całkiem innego skoroszytu np. o nazwie "Archiwum" , do "Arkusz1", który sobie stworze.
Hm... ;/ Rozumiem, że znajduje ZŁOM w danym zakresie i jeśli znajdzie to dany wiersz przenosi do arkusza "Zezłomowane". Tak też jest OK, ale dlaczego po uruchomieniu makra, w arkuszu "Spis końcówek lotów" widnieja tylko ZŁOM. Nie bardzo rozumiem co masz na myśli mówiąc "błędy w arkuszu".
(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! Zastanawiam się czy jest możliwe/ wykonalne stworzenie makra, które automatycznie zapisze plik pod nową nazwą (coś na podobę zapisz jako, pozostawiając oryginalną nazwę i dopisując przykładowo na końcu nazwy aktualną datę) zanim przeniesie do danego pliku dane? Dokładniej chodzi o to że mam plik A oraz plik B - w pliku A mam makro które po wybraniu...
Może jeszcze raz jaśniej opiszę temat. :crazyeyes: Nie wiem czy właściwie odczytałem tą Twoją kombinację warunków :?: ale efekt wielokrotnego kopiowania jednej tabeli jednowierszowej, oraz pojedynczego kopiowania tabeli wielowierszowej - można zrealizować tak jak na zrzucie 959003 poprzez kod VBA (makro) z wykorzystaniem zmiennych tablicowych jak w...
Witam, Potrzebuję makra które po wybraniu z listy rozwijanej (kolumna C) przeniesie cały wiersz z arkusza all do innego arkusza jednocześnie wykasowując ten wiersz a arkuszu all. Dobrze byłoby gdyby była zachowana możliwość przenoszenia później pomiędzy arkuszami. Przerobiłem makro znalezione w internecie, działa mniej więcej ale są problemy: - wiersz...
Cześć, Stworzyłem makro używając rejestratora makr, ręcznie stworzyłem jego wielokrotność do 60 pozycji zmieniając pogrubione wartości. Pytanie czy można poniższe makro napisać tak żeby robiło się np w zakresie zaznaczonych zmiennych komórek A i D 2-200 ? Makro nie jest skomplikowane, kopiuje jedną wartość A2 wklejając (B3) daną w innym arkuszu, następnie...
Sprawdziłem i wygląda na to że jest wszystko o co chodziło. Jesteś wielki. Mam jeszcze tylko pytanko czy jest możliwość aby po kliknięciu generuj PZ od razu się drukowało a nie przenosiło do innej zakładki i czy dało by rade zrobić takie makro dokladnie to samo do drugiego arkusza tego do skupu z usługa suszenia. Zeby też drukowało PZ. Jesteś wielki...
Witam, Próbuję zrobić makro, które znajdzie wszystkie wskazane wyrazy, a kiedy znajdzie usunie wiersz tabeli. Wyszukiwanie to nie problem, ale jak wykonam wyszukiwanie to fokus nie przenosi się na wiersz tabeli, w którym jest dany wyraz, więc usuwa się wiersz, w którym byłem przed wyszukiwaniem. Czy może ktoś mi podpowiedzieć jak to zrobić.
W skoroszycie znajduję się wiele arkuszy i z poziomu każdego z nich aktywuję arkusz "Menu" w ten sposób: [syntax=vbscript]Worksheets("Menu").Acti... I chciałbym w tym arkuszu mieć przycisk, który zareaguje tak jak opisałem powyżej, czyli: Mam już aktywny arkusz "Menu" klikam w przycisk, przenosi mnie do arkusza "A" wykonuje makro, przechodzi...
Tak. W kolumnie LP nie wpisujesz. Makro rekordy z pustym LP przenosi do zbiorczego i wypelni LP sam 'Data wpływu' - format daty
Witam, Potrzebuję pomocy. Mam zrobioną listę składającą się z wielu wierszy i kolumn w arkuszu. Za pomocą VBA ta lista wyświetlana jest w ListBoxie gdzie mam kilka textboxów i kontrolek do wprowadzania i sortowania wpisów w mojej liście. Sortowanie działa bez zarzutu, a także wyszukiwanie. Gdy wyszukuję wpisy powiedzmy po literze D, to wyskakują mi...
W zależności od tego który przycisk wybierzesz: - z formularzy: zmieniasz nazwę makro i/lub przenosisz je do oddzielnego modułu wstawiasz przycisk z menu kontekstowego wybierasz opcję "Przypisz makro..." wskazujesz makro, które chcesz przypisać przyciskowi finisz - z przybornika formantów: wstawiasz przycisk z menu kontekstowego wybierasz "Wyświetl...
Witam wszystkich mam poważny problem z dodawaniem nowego wiersza za pomocą przycisku. Stworzyłem tabelkę, która zawiera wiele list rozwijanych i funkcji jeżeli to coś tam. Przycisk z odwołaniem do Makra dodaje mi kolejny wiersz zachowuje listy rozwijane ale nie przenosi funkcji i pojawiają się puste komórki. Czy może ktoś wie jak powinno wyglądać prawidłowe...
Pokaże moment, który nie działa na przykładzie. Pomino tego, ze mam na liście słowo ZUS to nie przenosi mi tego wiersza. Wiesz co może być zle?
Sorki, że tak namieszałem, ale do końca nie wiedziałem jaki ma przybrać ostateczny kształt mój projekt. Dodatkowo problem polega na tym, że w domu operuję nowszą wersją excela i często coś co próbuję w domu nie zawsze wychodzi w pracy gdzie mam starszą wersję. Postaram się opisać jak wygląda mój problem. Chodzi o to, że w pracy dostaję codziennie spakowany...
tak powiązane. W arkuszu 4 dane ułożone w wierszu od kolumny A do D 0123456 011-6500-011-00001/11 011-6510-011-00001/11 011-6520-011-00001/11 urbanek Makro w arkuszu1 w kolumnie A (dane są jakieś) i szuka zawsze w kolumnie A w arkuszu 2 i kolumnie a arkuszu 3 i jeśli znajdzie dane to przenosi dane do arkusza 4 i wkleja w kolejności wartości przyporządkowane
makro przenosi wiersz excel makro przenosi przenosi makro excel
regulator obrotów silnika roweru odczyt przetwornik ciśnienie zasilanie bezprzerwowe
zawiercie kosztowy zawiercie kosztowy
Niedziałający przycisk "Coffee" w DeLonghi PrimaDonna Classic Parametr P04 w kotle Termet Silver Pro - jak ustawić?
