Cóż, być może w ten sposób Edit: nowy plik
aaa.. Formuła nie może działać w tej samej komórce Można podzielić 1 kolumne na inne dwie - przed 'w' i po 'w' zmienić jednu kolumnu tylko makrem [syntax=vb]Sub kokos() Dim c As Range Set c = Cells(1, 1) While c <> "" p = Application.WorksheetFunction.Search("w"... c) c.Offset(, 1) = Mid(c, p) c = Left(c, p - 1) Set c = c.Offset(1) Wend End Sub...
tak dobrze? Tak dobrze. :arrow: alexw200 Wytnij makro, wklej do nowego pliku, ew. dopisz wł/wył odświeżania - będzie ciut szybciej W innych wersjach językowych nie są wyświetlane nazwy kodowe arkuszy (cyrylica w oryginale, krzaczki m.in. w polskim). Stąd problemy.
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.
dla kazdej kopiowanej komorki z pliku zleceniexxx mam zastosowac petle, ktora bedzie przenosic/kopiowac wartosci ze zleceniexxx do zestawienie_szef ?? Można i tak. Skoro jednak ustaliliśmy, że kształt zakresów jest taki sam, to znacznie szybciej będzie zaznaczyć CAŁY zakres w zleceniu -> skopiować go -> wskazać u szefa komórkę "startową" (lewy górny...
No więc tak: 1. Są 3 wartości w tabelce: - B1 - pusta - B2 - data - B3 - wartość Makro miałoby wyciąć B2 i wkleić do B1, wyciąć B3 i wkleić do B2, i wtedy komórka B3 zostaje pusta, więc ją można usunąć. 2. Tam gdzie są 2 wartości makro nie ma nic do roboty, bo nie ma pustej komórki która mi przeszkadza 3. Analogicznie do 1 przykładu 4. Makro musi przewidzieć...
Poproszę o sugestie... Moim zdaniem taki kod przy 1 mln rekordów jest bardzo ryzykowny :!: Jeżeli wytniesz taką kolumnę i z jakichkolwiek względów makro się zatrzyma - to tracisz te dane :cry: Bezpieczniej by było skopiować cały arkusz do drugiego arkusza i dopiero tam wykonać to makro :idea: :D
Witaj. Może być. Nie do końca zobrazowałem sobie, jak Kolega dokładnie chce to robić, ale wydaje mi się, że odpowiednie makro powinno załatwić sprawę. Za pomocą makro możliwe jest śledzenie zmian w arkuszu, możliwe jest też wykonywanie dowolnych czynności (jak choćby kopiuj/wytnij/wklej/usuń) na wierszach.
Witam serdecznie. Potrzebuję stworzyć makro, które w przypadku gdy w kolumnie H będzie "0", wytnie z kolumny J wartość liczbową i wklei ją do kolumny O w tym samym wierszu. Próbowałem stworzyć takie makro, ale niestety bez rezultatu. [syntax=vbscript]Dim rng As Range Dim rngCell As Range Dim lngLstRow As Long lngLstRow = ActiveSheet.UsedRange.Rows.Count...
hej, makro, którego używam: działa poprawnie, ale tylko dla arkusza danego. Chodzi mi o makro, które będzie usuwać wszystkie wiersze w całym skoroszycie. [syntax=vb]Sub Wytnijnotfindinthismonth() Dim i& For i = Cells(Rows.Count, "B").End(xlUp).Row To 1 Step -1 If Cells(i, 2).Value = "Not find in this month" Then Rows(i).Delete Next i End Sub[/syntax]
Dzień dobry, Mam duży problem. W kolumnie A mam około 2000 nazw pełnych w kolumnie B mam nazwy skrócone około 1500 (przykładowa nazwa pełna: S.C. Bitpol Jerzy Kowalski nazwa skrócona: Bitpol). Potrzebne mi makro które by przyporządkowało w kolumnie C nazwę skróconą z kolumny B do nazwy pełnej z kolumny A. Czy jest takie makro, które pomogło by mi to...
Witam, mam następujący problem i byłbym bardzo wdzięczny za każdą okazaną pomoc. Plik z przykładem dodaję w załączniku. W arkuszu przechowuję dane o różnej wielkości. Raz 20 wierszy jak w przykładzie, a czasami mniejsza ilość. Chciałbym zrobić makro które przeszukuje zakres danych i jeżeli w kolumnie D (godzina) znajdzie pustą komórkę to wytnie cały...
Witam. Mam prośbę odnośnie stworzenia makro. W arkuszu "dane" potrzebuje wyszukać wartości powyżej 9 i poniżej -9 w kolumnie "cena". Tych kolumn "cena" jest kilka w arkuszu "dane". Gdy znajdzie takie wartości zaznaczy je kolorem na czerwono i wytnie cały wiersz i przeniesie na początek kolumny. Nie potrafię stworzyć makro z wyszukaniem takich wartości....
Ja bez problemu na 2003 otwieram z wyłączeniem makr. Ale przyznam, że nie wiem o co chodzi - kod wygląda ok. :| Masz w zał. z wyciętymi makrami. Którykolwiek moduł sie pozostawiło, to wieszał.
Wytnij kod od If do End If (resztę usuń) i wklej do modułu standardowego między znaczniki Sub/End Sub. Możesz wykorzystać skrót klawiaturowy, lub podpiąć do przycisku umieszczonego w arkuszu.
Zaproponuję taki kod: [syntax=vb]Sub Wytnij() Sheets("Arkusz1").Select For x = 1 To Sheets("Arkusz1").Cells(Rows.Count, "C").End(xlUp).Row jest = Application.CountIf(Sheets("Arkusz2").Ra... Cells(x, 3)) If jest > 0 Then Rows(x).Delete: x = x - 1 Next End Sub [/syntax] Pomyliłem się. Autor chce, żeby kasował, gdy nie znajdzie, a więc: [syntax=vb]Sub...
Dzień dobry potrzebuje takiego makra (3 pliki załączone) pewnie jakieś pętle będą potrzebne 1. kliknij w START w pliku Start.xlsm 2. Otwórz pliki Raport skrócony.xlsx i raport_roznic_vat_i_pogrupowan.xlsx 3. w pliku raport_roznic_vat_i_pogrupowan.xlsx od arkusza 3 w tym wypadku Immomok Sp. z o. o. do ostatniego arkusza (co miesiąc może być inna liczba)...
Świadomej złośliwości i wyłączenia opcji nie zakładam jeśli działanie po zmianach nie wpłynie bardzo na utrudnienie użytkowania pliku. Dlatego najlepszym w moim mniemaniu rozwiązaniem było by stałe przypisanie zamiast opcji wklej funki wklej jako wartości, a opcji wytnij jako kopiuj... - tylko nie wiem czy jest to realne i żeby wszystkie elementy miały...
kilka zapsiów VBA (prose nie skąplikowane bo jestm Trochę to zakręcone ;) VBA nie będzie tolerancyjny. Proponuję zrobić tak: 1. Zarejestruj w Excelu makro. Nadaj mu własną nazwę. 2. Obejrzyj kod tego makro, zwróć uwagę gdzie jest umieszczone. 3. Powtórz kroki 1 i 2 kilka razy, żeby mieć kilka makr. 4. Jeśli planujesz wykonać jakąś kilkuetapową operację,...
Witam, Posiadam w pracy pewien program zakładowy do którego muszę wklepywać numery zamówień. Jest to trochę męczące zajęcie, ponieważ na dzień mam 150 pozycji do wpisania a właściwie przepisania z arkusza w excelu. Każdy numer muszę przepisac lub wkleić osobno. Każdy numer zamówienia mam w osobnym wierszu, dlatego po kolei kopiuje sobie komórkę i wklejam...
możesz użyć sheets(25) w komórce ta nazwa jest dane(spacja)październik(spacja)2014 bo to jest ważne by wyciąć tekst
Przenoszenie danych może zniszczyć wzajemne zależności. Jeśli jednak "wytniesz" zakres komórek i "wkleisz" je w inne miejsce, to formuły powinny się automatycznie zaktualizować. Jeśli w arkuszu działają makra, to trzeba uważać, bo one działają według wcześniej określonych reguł i odwołują się do konkretnych komórek - operacje kopiuj/wklej/wytnij nie...
No mogę to zrobić na zasadzie "kopiuj wklej wytnij" Czy to wystarczy?
Skopiowany wykres Excela można wkleić do dokumentu Worda jako: - wykres Excela - obiekt, który można edytować jako arkusz - rysunek (metaplik) - który można rozgrupować i edytować jako rysunek z polami tekstowymi itd., - łącze do wykresu Excela - zmiany w arkuszu będą się przenosiły do dokumentu Worda Ponadto skopiowany z Worda obiekt/rysunek można...
Witam Potrzebuję pomocy w napisaniu makra. Mam w arkuszu1 dane w kolumnach od A5 do AB5000. W kolumnie G5 do G5000 znajduję się lista rozwijana z której użytkownik może wybrać kilka opcji. W przypadku kiedy użytkownik wybierze opcję "złomowe" chciałbym żeby makro przy użyciu przycisku przypisanego do tego makra wycięło wszystkie wiersze w których użytkownik...
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ą...
Nie, nie. Nie wszystko jest tak jak myślisz. Z datą Dżyszla podpowiedział Ci zgodnie z Twoim założeniem: jeśli wpiszę w określoną komórkę cyfrę "2" to chciałbym aby następnego dnia pokazała sie cyfra "3" Dokładasz tylko na końcu formułki liczącej ilość dni "+ 2" i liczy jak wyżej. Problem jest z: A w innym arkuszu zrobisz funkcję warunkową... i polega...
Mam pytanie, czy za pomocą makra mozna zmniejszyć ta etykieta do rozmiaru 13na 13cm. Oczywiście dane z tej etykiety musza byc czytelne. Jedna etykieta ma znajdować na 1 kartce worda,taka etykieta będzie do wycięcia. Jest taka możliwość by vba cos takiego zrobilo?
[syntax=vbnet]rd = Application.Match(Cells(r, "E"), Range("E" & r + 1 & ":E" & ow), 0) + r[/syntax] Makro zatrzymuje się w tym miejscu - Type mismatch.
Takie śrubokręty kupisz w np: makro zestaw z Topexu ( może niezbyt uważana marka , ale jest.... ) pozdro Slawek
Hmmm, Poradziłem sobie następująco, natomiast nie wychodzi mi zaszywanie dodatkowego warunku w tym kodzie. Obecnie makro przegląda arkusz źródłowy wyszukując jednego sprzedawcy (Agnieszka). Natomiast jak próbuję wcisnąć tam kolejną pętlę, aby wyszukał "Andrzej" i przeniósł wiersze do Arkusz3, "Basia" - do Arkusz4, "Iza" do Arkusz 5 itp, polecenie i...
Do kolegów i koleżanek zwracam z prośbą o pomoc. Exel 2010 jaki używam. Mam zeszyt o nazwie "Wzor program do składnic". W tym zeszycie są arkusze o następujących nazwach: "Informacja", "DANE", "ZASTĄP", "SCALANIE", "DATY_SKRAJNE", "SPIS". W tych arkuszach znajduje się wiele funkcji, które miały mi pomóc w uzyskaniu efektu jaki znajduje się w arkuszu...
Ale to nie ja sie go czepiałem - tylko mu je sprawdziłem :) Kierujesz pretensje do złej osoby. ... ciach Zbędne wyciąłem, bo zapytałeś w osobnym temacie.
To jest tylko wycięty kawałek moich pomiarów. Na potrzeby makro z tego poprzedniego tematu skopiowałem datę i czas w osobne kolumny, ustawiłem w jednej wyświetlanie jako datę, w drugiej jako czas bez sekund(makro nie działało poprawnie z sekundami), a następie skopiowałem do notatnika i wkleiłem jako zwykły tekst. Po tych operacjach makro zaczęło działać....
(at)speedy9 , w temacie napisano wyraźnie - makro. EDIT: W dalszej dyskusji podałem rozwiązania za pomocą formatowania warunkowego zaproponowanego przez (at)speedy9 ale z nieznanego mi powodu zostało to wycięte. Więc podaje tu: =ORAZ(CZY.PUSTA(1:1))... Ot tylko tyle dla wiersza 1, dalej można sobie formatowanie kopiować.
Jeżeli ma być szybko (szybko działać na dużych danych w Excelu) to proponuję taki schemat: 1. Jedną i drugą listę sortujesz 2. Wykonujesz pętlę podobną do tej: [syntax=vbscript] i = 2: Y = 2 Do While Cells(i, 1) <> "" Do While ((Sheets(2).Cells(Y, 1) <> "") And (Cells(i, 1) > Sheets(2).Cells(Y, ))) Y = Y + 1 Loop If Cells(i, 1) = Sheets(2).Cells(Y,...
te dane to straszny bałagan Dokładnie tak :cry: gdyby to było bardziej uporządkowane (np po wycięciu danych zagranicznych i wierszy niekompletnych, bądź ewidentnie błędnych :D ) można by te dane konwertować przy użyciu makra z wyrażeniami regularnymi np tak jak https://www.elektroda.pl/rtvforum/viewto... Dla zaprezentowanych...
U mnie nie działa :cry: cały czas wyrzuca ten run-time error (może mam coś nie włączone w ustawieniach MS Office), ale z drugiej strony jak puszczam to makro w wersji gdzie wskazuje dokładnie jak ma się nazywać plik, to wszystko chodzi? Dziwne. Na pewno ten obiekt 'ActiveDocument' jest w porządku w kodzie? Mam jeszcze pytanie, zostańmy przy tej wersji...
tak na wstępie - to teraz aż przyjemnie patrzy się na twój kod Dzięki mirekk36, staram się wcielać w życie dobre rady bardziej doświadczonych. Też myślałem, że problem polega równoczesnym zajściu dwóch przerwań, ale nie zależnie od tego jaki czas przerwania ustawie .MACRO Czas_licznika push acc ldi acc, INT(((at)0)*CZESTOTLIWOSC_uP...
Chodzi mi o takie makro które sprawdzi które wiersze mają w kolumnie A liczbę Do realizacji takich zadań możesz wykorzystać albo metodę filtrowania (jeśli da się wyciąć nagłówki i stopki :cry: ), albo metodę wyrażeń regularnych :idea: vide: https://www.elektroda.pl/rtvforum/viewto... Wszystko zależy od struktury tych danych...
Na pewno żadnych innych oznaczeń oprócz "NF838" tam nie było? Panowie TONI_2003 i trymer01 udało mi się oczyścić element z resztek masy zalewowej i okazało się, że to NF838 B20100G (20A, 100V SCHOTTKY BARRIER RECTIFIER). Wylutowanie na razie nie wchodzi w grę, bo od spodu jest radiator na całej powierzchni, mocowany wkrętami od góry i najpierw muszę...
Takie drugie z brzegu https://obrazki.elektroda.pl/7001028000_... Resize 50% z 24 Mpix. Obiektyw makro 1:1, 90 mm na APS-C, wiec ekwiwalent 135 mm na pełnej klatce. Lampa błyskowa zewnętrzna, systemowa. A tu fotodioda z boku, wycięty fragment ze środka kadru https://obrazki.elektroda.pl/8249742400_... Tutaj bez ściemniania...
Przepisałem wszystko to co jest na zdjęciu, chyba umiesz sobie wyciąć tylko te znaki, które są potrzebne ;) Wymyłem jeszcze raz porządnie i dalej nic nie widać przez lupę :( ale zrobiłem zdjęcie w trybie makro i pojawiły się ledwo widoczne znaki. Jak powiększyłem to wiedząc czego szukam znalazłem FAN7930B Zasilacz główny tak jakby miał ochotę ruszyć...
Cześć, Mam mały problem z napisaniem makra dla poniższego zadania: w zakładane analityka znajdują się dane które powinny zostać do przeniesione do odpowiedzialnej zakładka (wycięte). na odstawienie poniższego schematu : Waluta EUR (Zakłada Analityka) do zakładnik EUR dla regionu POL (zakładka Analityka) do ostatniej wolnej komórki w zakładce EUR do...
ma Pan trochę praktyki z makr? Jeśli tak, to w VBA będzie dodać moduł. w niego wstaw procedura npr. "Sub Aktual". Przypisać przycisk na arkuszu do procedury. z "Private Sub Workbook_Open" wyciąć środek i zainwestuje w "Aktual". w "Private Sub Workbook_Open –" zamiast cięcia vpiše "Aktual". Dodano po 8 o Libre. Po 2 dniach wychodzi do pracy(gdzie...
Witam, Stoję prze kolejnym problemem, a mianowicie zastanawiam się czy za pomocą kodu makra możliwe jest stworzenie UserForm, który będzie zawierał Checkboxy? Cała sprawa wygląda tak, że mam pliki z różną ilością arkuszy. Codziennie w ramach tych plików potrzebuję wyciąć poszczególne arkusze (za każdym razem inne), zapisać je pod konkretną nazwą i wykorzystuje...
1. potrzebuje pomysłu jak zabrać sie za makro... formatowanie danych wejsciowych ... i sprawdanie poprawności danych. Obawiam się kolego, że takie dane nie nadają się do automatyzacji obróbki przy użyciu VBA. W mojej ocenie pochodzą one z niezbyt precyzyjnego oprogramowania OCR i dlatego nawet po ewidentnie ręcznej obróbce w arkuszu AFTER mają dziesiątki...
Dyfuzor makro z butelki 5l po płynie do spryskiwaczy. Do wykonania użyłem: markera, ostrego nożyka, nożyc do blachy i mlecznej butelki 5l. Z butelki wyciąłem płaski prostokąt i odznaczyłem markerem okrąg jaki był mi potrzebny pasujący do obiektywu. Następnie wyciąłem okrąg nożykiem i wymodelowałem kształt dyfuzora nożycami. Raczej jest to zbyteczne,...
Kiedyś pisaliśmy programy tylko w assemblerze Dzięki czemu podglądając .lss czy .lst nie patrzymy jak na chińskie znaczki tylko widzimy jak to jest przetłumaczone i czy czasem coś nie jest wycięte co powinno być, a inne rozdmuchane tak jak nie powinno być ;) Kiedyś producenci nie dawali gotowych bibliotek i devboard-ów Pamiętam te porobione makra w...
Właśnie... Po pierwsze: Dodanie R1C1 aby skorzystać z opcji .formulaR1C1 przynosi taki sam efekt. Nawet trick z FormulaR1C1local też się nie przydaje do niczego. Po drugie , pętlę ogranicza warunek: Po trzecie i najważniejsze : Właśnie mam z tym makrem kłopot, ponieważ nie mogę odwołać się do wartości komórki, tylko muszę wstawiać formuły z poziomu...
Bardzo dziękuję wszystkim za zainteresowanie tematem. Być może, ale to tylko spekulacja, ponieważ w momencie zakończenia procedury arkusz z którego była wywoływana jest już ukryty, to program może mieć problem z zakończeniem procedury. No właśnie jest dokładnie na odwrót. Przy odkrytych arkuszach widać, że coś jest nie tak Można spróbować wykonywać...
http://obrazki.elektroda.pl/3136371000_1... Prezentuję projekt stacji lutowniczej na gorące powietrze mojego autorstwa zbudowana została w czasach kiedy stacje byly bardzo drogie. Nie zmienia to faktu że stację z powodzeniem można zbudować w dzisiejszych czasach. Prezentowana stacja lutownicza, jest samodzielnym projektem, opartym na...
Witam wszystkich forumowiczów! Jestem absolutnie początkujący jeśli chodzi o programowanie w VBA w Excelu, a potrzebne mi jest makro, które (po jego aktywowaniu np. kombinacją klawiszy) wytnie jeden wiersz z jednego arkusza i wstawi go do drugiego, w pierwsze wolne miejsce. Skoroszyt będzie się składać z 3 Arkuszy. Chciałbym, aby była możliwość przenoszenia...
blokada wytnij usuń wytnij excel wytnij
narzędzie naprawy automatyczne windows napełnianie kartridży canon whirlpool kondensator
konfiguracja punktu dostpu zasilacz samsung bezpiecznik
Akai VS-X2000 czy VS-G855 – porównanie magnetowidów, digitalizacja VHS, 6 vs 4 głowice Grzałka z termostatem do bojlera CWU grzeje do 80°C zamiast 60°C – Termostat, kamień, ustawienia