Dwie rzeczy: 1. [syntax=vb]Application.ScreenUpdating = False[/syntax]na początku makra i[syntax=vb]Application.ScreenUpdating = True[/syntax]na końcu. 2. Zamiast 100 razy pisać: [syntax=vb]wscel.Cells(wstaw, 2) = wsbaza.Range("B" & c.Row) wscel.Cells(wstaw, 3) = wsbaza.Range("C" & c.Row) ...[/syntax](swoją drogą: że też Ci się chciało...) zrób: [syntax=vb]wscel.Range("B"...
https://obrazki.elektroda.pl/9847851500_... Witajcie moi drodzy Przedstawię tutaj szczegółowy opis wykonania bezgłośnego, energooszczędnego serwera plików opartego na Banana PI M1+ i dysku SSD podłączonego poprzez SATA. Pokazany tutaj serwer w finalnej wersji (480GB+60GB na SD) zrobiłem kosztem około 500 zł (200 zł Banana Pi + 270...
Witam, proszę o podpowiedź czy można stworzyć pętlę na znakach będących treścią 1 komórki w Excelu? Chciałabym wyszukiwać i kopiować fragmenty tekstu, tak jak w załączonym przykładzie, ale za pomocą kodu VBA, a nie funkcji =fragment.tekstu.
otworzyć, czytać, interpretować i dopiero będzie lista w Excelu, a zdaje się że o to (między innymi) chodziło Szczerze "pisząc", to po przeczytaniu wstępniaka autora mam niejasne wrażenie, że pisał to w przypływie burzy myśli - tak w sumie, ja, nie za bardzo wiem o co autorowi " całościowo " chodzi ... mamy bowiem takie główne jego wątki: 1. Temat...
Sposobów na rozwiązanie tego problemu jest kilka - tylko te bardziej wydajne mogą być trudniejsze do zrozumienia / zapamiętania dla kogoś początkującego. Dlatego poniżej najprostszy przykład, z pętlą (w zasadzie dwoma): najprostszy, ale i najmniej wydajny... Dla małej ilości danych powinien działać OK. Pytaj, gdyby coś było niejasne. [syntax=vb]Private...
[syntax=vbscript]Sub MW() Sheets("Arkuszgłówny").Select ow = Cells(Rows.Count, "F").End(xlUp).Row For x = 16 To ow a = Cells(x, "F") Select Case a Case "M" m = m + 1 Range(Cells(x, "H"), Cells(x, "I")).Copy Sheets("Tylko M").Cells(m, 1) Case "W" w = w + 1 Range(Cells(x, "H"), Cells(x, "I")).Copy Sheets("Tylko W").Cells(w, 1) End Select Next End Sub...
Witam, A czy ktoś może mi pomóc w kodzie w załączeniu. Jest to wyszukiwarka jak wyżej i przy zaznaczeniu optionbutton Oraz albo Lub będzie odpowiednio wyszukiwać wartości i kopiować do nowego pliku. Chodzi o to aby po wyborze odpowiednio guzika wyszukiwało i pokazywało odpowiednie wiersze dla Oraz wartości(max 4) znajdują się w jednym wierszu, a dla...
Jak masz tak ładnie popisane "stare:xxxxxxx" i "nowe:yyyyyy" we wszystkich wierszach to nawet nie musisz sięgać ani do wyrażeń regularnych, ani do VBA :please: Wystarczy zrobić odpowiednią formułę (na bazie fragment.tekstu) w kolumnach C i D i przeciągnąć ją na dół kolumny :idea: :idea:
Witam. Chciałbym prosić o pomoc w stworzeniu formuły, która będzie kopiowała wiersze z arkusza bazy do innych arkuszy. Kryterium kopiowania musi byc wartość w kolumnie A (gniazdo główne). Czyli jeżeli w kolumnie A jest Flowpack 1 to kopiuj wszystkie wiersze Flowpack 1 do Arkusza Flowpack 1. Jeżeli w kolumnie A jest Flowpack 2 to kopiuj wszystkie wiersze...
Zamiast If Left(LTrim(.Cells(i, 11)), 4) = tekst Then podstaw If InStr(.Cells(i, 11), tekst) > 0 Then i analogicznie w drugim przypadku. p.s. Zdaje się, że w pliku nie postawiłem kropek przed przed Cells. Z drugiej strony aktywnym jest arkusz ostatnio otwarty, ale dla porządku...
Wstawiam plik z rozwiązaniem problemu, tak jak ja go zrozumiałem. W kodzie makra nie wstawiałem objaśnień, bo zmienne nazwałem aż naddto opisowo. Jeśli czegoś nie rozumiesz z procedury, korzystaj z F1 ustawiając kursor na nieznanym Ci "słowie". Aha, nie zapomnij włączyć makr w Excelu, najlepiej na stale. Dostęp do edytora VBA to chyba wiesz: Alt + F11...
Odszukaj ten fragment i dodaj ostatnią linijkę: 'kopiuj wartości wscel.Cells(wstaw, 3) = wsbaza.Range("B" & i) wscel.Cells(wstaw, 4) = wsbaza.Range("C" & i) wscel.Range("B" & wstaw) = szukaneTabl(r, 2)
Ktoś tu wyraźnie zaoszczędził na komputeryzacji firmy i to chyba raczej nie ty. :-) Chętnie zadałbym mu pytanie jaka jest wartość biznesowa przetrzymywania tylu zmultiplikowanych danych w postaci plików. Znam wielu "oszczędnych" przedsiębiorców (np 500zł to za dużo na sieć łączącą 3 kompy+soft do obslugi firmy), ale czegoś takiego jeszcze nie widziałem,...
Aby skopiować sterownik z komputera A na komputer B, musiał byś kolejno: 1. skopiować cały katalog C:\WINDOWS\inf z komputera A na dysk komputera B, np do katalogu C:\pliki 2. Podłączyć kamerę do komputera B, tak aby wyskoczyło okienko instalacji sterowników i jako obszar szukania sterownika wskazać owy folder z plikami "inf". 3.Klikać "dalej" aż system...
A czy jest możliwość sprawdzenia numeru seryjnego dysku z pod windowsa bez uzywania zewnętrznych aplikacji ? Tak, można. I w dodatku można tak sprawdzić dowolny dysk (nie tylko Samsung, ale również Maxtor, Seagate itd.), bo w/w sytuacja tyczy się prawie wszystkich dysków twardych, które były wykryte i pracowały pod kontrolą Windows. Jako przykład posłużą...
To naprawdę prosta sprawa. Przeanalizuj dostosuj do własnych potrzeb.
Witam, nie bardzo nadazam za twoim rozumowaniem: - masz tablice z praypadkowymi wartosciami - znajdujesz minimum w tej tablicy i co ? ->"Teraz potrzebuję te minimum wpisać do drugiej tablicy(wskaźników) tyle razy(bez powtarzania sie wartosci), aby ona była posortowana od najmniejszego do największego." - co chcesz z tym zrobic ? Czy minimum to najmniejsza...
total commanderem da rade bez problemu
Witaj Funkcja WYSZUKAJ.PIONOWO
Następnym razem jako przykład załącz skoroszyty Excela a nie zrzuty ekranu. Przetestuj kod: [syntax=vbscript]Option Base 1 Sub podziel_autorow() Dim tblTmp() As String Dim lLstRw& Dim i&: i = 1 Application.ScreenUpdating = False lLstRw = Cells(Rows.Count, 1).End(xlUp).Row Columns(3).EntireColumn.Insert Cells(1, 2).Value = "autorzy" Cells(1, 3).Value...
sprawdź załącznik
Faktycznie, chińczyk coś pomieszał przy kopiowaniu rysunku 😅 Dzięki za dostrzeżenie tego.
No, no jesteśmy na dobrej drodze :) . Wszystko ładnie, z tym że po zmianie daty powinny być kopiowane następne wiersze. W załączniku przykład To proponuję wpierw określić, co się chce osiągnąć całościowo, a nie stopniować sobie na zasadzie 'jak już mam to, to może i coś innego też ... ' :D Do tej pory była mowa tylko o kopiowaniu 3 wierszy, nawet na...
Zamień w odpowiednim miejscu kod na poniższy: [syntax=vb] If b Like "[ ][ ]333" Then p4 = InStr(a, " 4") p7 = InStr(a, " 7") If p4 > 0 Then x4 = Mid(a, p4 + 1, 5) Else x4 = "" If p7 > 0 Then x7 = Mid(a, p7 + 1, 5) Else x7 = "" t = t & x4 & ";" & x7 & vbNewLine End If [/syntax] Wynikiem jest: 11406;42005;70005 11414;42005;79999 11423;44013;70001 11433;;70000...
Za slaby opis... napisz co to makro ma dokladnie robic a kto wie... moze ktos Ci pomoze. A pisze sie to tak ze: masz zakres komorek A1:A10 do sprawdzenia i np najwieksza liczba ma byc wpisana w akrusz2 w pole A1 <- to jest jasny opis
pojemność dysku zmniejszyła się do ok 30GB, ale uznałem, ze jest to do naprawy Część dysku została nadpisana przez pliki instalatora. Część danych jest bezpowrotnie zniszczona. Nie można przywrócić stanu sprzed awarii. pokazuje praktycznie wszystkie pliki jakie znajdowały się na dysku Pozostaje wyszukiwanie po sygnaturach i kopiowanie danych na inny...
Witaj. Nie widać tu pytania, ale pewnie brzmi ono, jak to zrobić. W takim dość niezbyt skomplikowanym przypadku można to zrobić korzystając z tandemu funkcji INDEKS oraz PODAJ.POZYCJĘ - bez zbytniego komplikowania tematu. Przykład w załączniku, formuły dopisane w J3, K3, L3.
Bo jesli dodasz dwie kolumny do każdego działu, to w makrze Kopiuj() musisz poprawić krok wyszukiwania z 4 na 6: [syntax=vb]For kol = 1 To 255 Step 6[/syntax] i, ewentualnie, tam gdzie teraz kopiujesz komórki od C do E zwiększyć od C do G i kol+5: [syntax=vb]Worksheets("Arkusz1").Range("... & Selection.Row & ":G" & Selection.Row).Copy .Range(.Cells(wiersz,...
Próbuje napisać makro, ale z uwagi na brak wiedzy odnośnie najprostszych poleceń nie umiem sobie poradzić. Wydaje się, że makro jest dosyć proste. Mianowicie: 1.Istnieje ciąg wyrazów w arkuszu A (CEL) 2.Po tych wyrazach przeszukuje arkusz B (BAZA) 3.Gdy znajduje to kopiuje wartość stojącą przy wyrazie w arkuszu B. 4.Wstawia ten skopiowany wyraz w kolumnie...
Witam. Jak stworzyć makro, które w Arkuszu1 we wszystkich wierszach w kolumnie A wyszuka komórki w których znajduje się wartość np "b2" (wartość b2 jest częścią ciągu jakiś znaków w danej komórce np. takb2abc) a następnie wklei wszystkie znalezione komórki ( z całą zawartością ) do kolumny B w Arkuszu3?
Kopiuje wszystkie malinowe wiersze. Ma być inaczej?
komunikacja_xt schemat mam identyczny z tym w karcie katalogowej, wiec chyba nie ma co tego kopiowac. Dokumentację wyszukuję na nieocenionej http://www.elenota.pl/ lub oczywiście na stronach producenta. Jeżeli chodzi o sterowanie to na razie mam do procesora podlaczony odbiornik podczerwieni i linię i2c (więc też nie za bardzo jest co rysować :) ) i...
Czy ktoś mógłby mi pomóc , poradzić jak się za to zabrać? Jeśli wszystko umieścisz w jednym skoroszycie, a następnie będziesz posługiwał się tylko "identyfikatorami", a nie gołymi nazwami miejscowości - to możesz rozwiązać swoje zadanie poprzez proste funkcje i dynamiczne nazwy zakresów wyszukiwania :spoko: - tak jak to widać na załączonym zrzucie...
Funkcja wyszukaj.pionowo działa wyszukując (szukanej wartości :!: ) jedynie w jednej - pierwszej kolumnie z tabeli wyszukiwania :idea: i na dodatek taki wektor przeszukiwanych wartości (przeszukiwana kolumna) nie może zawierać zdublowanych wartości. :cry:
Witam, Dziekuje za podpowiedzi. Znalazlem juz blad w funkcji i wszystko dziala. Jednak korzystajac z okazji znasz moze rozwiazanie jak moge zablokowac komorki w arkuszu w ktorym dzialaja kody VBA? Na chwile obecna w tej wyszukiwarce jak "odblokowuje" pola ktore beda edytowane a blokuje cala reszte, przestaje dzialac kod wyszukiwania.
Potrzebuję makro, które pomogło by Jeśli chcesz gotowy, staraj się nie powodować niepotrzebnych prac, temu kto by mogł pomoc. Które naprawdę powinny być format pole 'numer artykułu ' bo na jednej stronie to tekst(arkusz1) na inny numer(arkusz2)?
A nie wystarczy zastosowanie filtrów w "Zeszyt1.xls"? W załączniku rozwiązanie z funkcjami wyszukiwania i kolumnami pomocniczymi. Przy otwarciu kliknij 'Edytuj łącza' i wskaż właściwy plik.
Ta wiedza jest mi znana, niepotrzebnie trudziłeś się z wyszukiwaniem tych informacji i kopiowaniem. Pisałem o pomiarze prądu pod obciążeniem , a później można dopiero myśleć o doborze wyłacznika silnikowego, Można to zrobić inaczej. np. udając się do z-du naprawiającego silniki- rzut oka i spec rozpozna silnik, lub kupując dwa wyłączniki silnikowe...
Najszybciej zrobisz to bez excela ;) 1. Zainstaluj sobie Notepad++ (Freeware) 2. Skopiuj do niego zawartość arkusza. Lub zapisz arkusz jako csv i otwórz w Notepad++ 3. W Notepad++ zamień znak tabulatora "\t" (jesli kopiowałeś) lub średnik ze spacją "; " (jeśli zapisywałeś csv) na znak nowej linii ("\n"). Musisz użyć wyszukiwania rozszerzonego 4. Wynik...
Nie mam cierpliwości do skorzystania z opcji odtworzenia zgubionego hasła ( a tak naprawdę , to brak mi wiedzy ). Podajemy nazwę adresu mailowego na który wysłali do nas z serwisu link aktywacyjny a który podaliśmy przy zakładaniu tam konta. Zostanie przesłany link resetujący ustawienia danych do hasła itd. Klikamy na owy link w naszej poczcie i przeglądarka...
witam, przeszukałem trochę postów ale nie mogłem znaleźć rozwiązania na mój problem. Napisałem makro wyszukujące i kopiujące dany zakres jaki będzie wyszukiwany automatycznie. A teraz: Mam teraz stałą ilość nazw WW1A, WW1B itp. teraz chciałbym aby te nazwy powieliły się tyle razy - zapisały pod sobą - ile jest wierszy nie pustych ze skopiowanego zakresu....
W tym przykładowym pliku są tylko same dane, nie ma żadnych formuł, ani żadnego wyjaśnienia, gdzie i czego chcesz szukać i gdzie umieścić wynik. Obawiam się, że nikt tu nie jest jasnowidzem.
No, ale tak zaprogramowałeś (polecenie GoTo) ;) Powinno być (schemat) wewnątrz pętli -wyłączenie obsługi błędów (on error resume next) - przy każdym kroku -wyszukiwanie -sprawdzenie stanu i warunkowe kopiowanie (If err=0 then ... ) Włączenie za pętlą (On error goto 0) lub (książkowo) [syntax=vb]Sub Porownaj() Sheets("Arkusz2").Select ow = Cells(Rows.Count,...
Sorry, nie mogę się powstrzymać :please: a czym się różnią usługi nr 4, że różnicujesz VAT :D jedna z materiałem własnym, a druga z powierzonym :?: :D A tak na poważnie to jak duży jest ten "cennik" i czy nie wystarczy tu wyposażyć arkusz "kosztorys" w proste funkcje wyszukiwania ???
Tak, widze. Tylko troche tego jest, jestem w stanie wykupić pełną wersję gdyby była możliwość przywrócenia partycji do stanu z przed sformatowania na macbooku, czy jest taka możliwość w tym programie, czy pozostaje wyszukiwanie katalogów i kopiowanie danych?
Dobry wieczór, Czy koniecznie musi być makro? Nie wystarczy filtr zaawansowany Excela? Moim zdaniem dobrze się do tego nadaje, chyba że fraz do wyszukania jest bardzo dużo. Procedura postępowania: 1. Nad kolumną z danymi umieścić nagłówek np. Lista. 2. Określić szukaną frazę i umieścić ją w wybranej komórce. 3. Utworzyć kryterium, które w przypadku...
Sprawdź czy o to chodziło. Jeśli faktycznie druga procedura ma kopiować "wiersze powyżej", to oczywiście nie zawsze będzie ich 15, bo wyszukiwana wartość może zostać odnaleziona w wierszu, powyżej którego nie ma 15 wierszy. Załączona procedura w takich przypadkach kopiuje wartości począwszy od wiersza nr 3 do wiersza wyszukanego. [syntax=vbscript] Option...
Podbijam, Mam też podobny problem. Chciałbym by makro porównywało wartości dla danego produktu z dwóch plików, jeżeli się rożnią to by wstawił obok np. do kolumny C A to nazwa produktu B to ilość W dwóch plikach taki sam układ. W kolumnie A i B mogą być puste wiersze. Poratuje ktoś ? :) Pozdrawiam Paweł Dodano po 1 Cześć, Dziękuję, Ale mam jeszcze jeden...
Próbuję stosować formułę wyszukaj pionowo I to jest błąd bo ta formuła wyszukuje tylko pierwsze wystąpienie wartości szukanej :-( Pokaż przykładowy plik i wyjaśnij jaką wersję Excela używasz.
Kopiuj na raty i usuwaj na raty, jakiś problem? Total Commander potrafi dosyć szybko wyszukiwać pliki i można pod nim odznaczyć wybrane pliki aby nie kopiował w aktualnie kopiowanym podkatalogu, lub zaznaczyć i zapamiętać... Kto wie, jak się pobawisz nim to i zaznacz grupę/definiuj czy pamiętaj zaznaczenie oraz odwróć zaznaczenie przypuszczam, że spełni...
szybka wyszukiwać delphi wyszukiwać wyszukiwać stacja
kyocera drukować darmowe aplikacje telefon usztywnienie drzwi
Wyłącznik różnicowoprądowy 30mA – podłączenie w nowej instalacji, typ A, dedykowana listwa N Odbiór darmowych kanałów FTA z Hot Bird 13E bez karty – sprzęt, ustawienia, tuner DVB-S2/HEVC
