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...
Cóż, być może w ten sposób Edit: nowy plik
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)...
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...
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.
Ś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...
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...
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ł.
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ć...
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.
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?
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
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 liczyć na pomoc, nie na gotowca, no chyba że ktoś nie wytrzyma i sam napisze. :) Zacznijmy od początku: co już umiesz zrobić? Umiesz kopiować pliki makrem? W tym co napisałeś widzę jeden błąd: miejsce przeznaczenia zależy od kawałka nazwy pliku, więc trzeba zrobić tablicę przekierowań plików według tego kawałka a nie pełnej nazwy pliku. Na początek...
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]
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,...
Odwołujesz się podobnie jak w Excelu, musisz znać jedynie indeks tabeli i wyciąć 2 znaki specjalne komórki. Np [syntax=vb]pdfFileName = Left(Tables(1).Cell(1, 2).Range.Text, Len(Tables(1).Cell(2, 2).Range.Text) - 2) _ & "_" & Left(Tables(1).Cell(1, 2).Range.Text, Len(Tables(1).Cell(3, 2).Range.Text) - 2) & ".pdf"[/syntax]
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
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ą...
Proponuję zmienić na początku kodu - dodać drugą pętle, która sprawdzi drugą komórkę i wyczyści "częściowy wpis" z pierwszej - zasada "jak zapomniałeś jednej to wpisuj ponownie obie" (jak nie pasuje taka zasada to wystarczy wyciąć te dwie linijki czyszczące) :D [syntax=vbscript]With ActiveSheet If .Range("C2") = "" Then MsgBox " Proszę wpisac datę i...
Właśnie wróciłem z ogrodu (burza), przyjrzałem się formułom i usunąłem mój załącznik. Najlepiej zostać jednak przy polach wyboru. Możesz zrobić tabelkę od nowa w nowym arkuszu lub próbować usunąć nadmiar checkbox'ów makrem Sub wywal() On Error Resume Next For i = Sheets("Arkusz1").Shap... To 100 Step -1 Shapes(i).Delete...
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?
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.
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ę,...
[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
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ć....
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...
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.
(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ć.
Co do twojego kodu, .Range/.Cells - odwołuje się do aktywnego arkusza? Chodzi mi o te kropki na początku. Nie, odwołuje się do obiektu - w tym wypadku arkusza - użytego w otaczającej klauzuli With... To taki skrótowiec, którzy przed kropką wstawia to, co jest w With, czyli zamiast powtarzać: Przy próbie tworzenia kolejnego arkusza wywala błąd 1004...
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...
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...
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...
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. 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....
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...
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...
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...
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ę...
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...
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...
Ale on tu widzi zwykły błąd składni, a przecież jest ok. Błąd jest (tzn. widzi go, bo może błędu nie ma) na pewno w tej linni, bo po jej wycięciu błędu nie ma. Musi być zdefiniowane, bo inaczej zgłasza błąd undefined reference to `assert_param' przy kazdej próbie wywołania funkcji bibliotecznych (np. z GPIO).
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...
Mam pytanie do szanownej braci znawców Excela i VBA. Oczywiście kodu w finalnym pliku jest duuużo więcej. Wyciąłem tylko to co powoduje problem, z którym nie wiem jak sobie poradzić (to znaczy jak zrobić to inaczej - z tym nie ma problemu, chodzi raczej o zrozumienie dlaczego tak to działa, a raczej nie działa). Ale do rzeczy: Plik ma kilka arkuszy,...
Na zachodzie europy koszty ogrzewania mają dużo mniejsze znaczenie bo tam jest po prostu dużo łagodniejszy klimat. Dużo więcej energii tam pochłaniają klimatyzatory ,ale łatwiej jest je zbilansować PV. W naszym klimacie te źródła są po prostu za drogie. 1kW PV daje rocznie w Polsce trochę więcej jak 1Mwh i to głównie w lecie. W najlepszym wypadku w...
Robiłem kiedyś dokładnie taki plik jak piszesz - nie ma potrzeby nawet stosować makr. Skaner konfigurujesz tak, żeby po sczytaniu kodu wysyłał znak ENTER - co w Excelu powoduje przejście do kolejnej komórki - to w kolumnie A. W kolumnie B funkcją WYSZUKAJ.PIONOWO wyszukujesz po kodzie dane w arkuszu-bazie i zwracasz potrzebną kolumnę. Oczywiście kod...
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...
usuń wytnij blokada wytnij excel wytnij
skacząca wskazówka renault przekaźnik kierunkowskazy hyundai izolacja temperaturę
moduł gorenje piekarnik moduł gorenje piekarnik
Bateria Sparta: Rowery, Hulajnogi, Telefony - Specyfikacja i Problemy Czy kondensatory w MDS432 wymagają wygrzewania?