To nie ma związku z formułami. W wierszu oznaczonym poprzednio komentarzem 4) zamiast lw było wpisane 12, więc pętla w ogóle się nie wykonywała (od 13 do 12 nie ma żadnej wartości). Poza tym ponieważ lw szuka ostatniego zajętego wiersza w kolumnie A, a w tym ostatnim wierszu była teraz formuła zwracająca pusty tekst, więc dodałem jeszcze w pętli warunek...
Dzień dobry! Potrzebuje kod w makrze Założenia: Będzie powtarzał daną wartość np. 3000 lub tekst w danej kolumnie w askusz1 oraz powtarzał daną wartość np.0000 lub tekst 2 w arkuszu 2
Nie da się tego przedstawić w formule, ponieważ chodzi o to żeby makro WKLEJAŁO nowe komórki gdy znajdzie więcej niż jeden odpowiednik. Tak samo, żeby makro zliczało wszystkie powtarzające się wartości i do nich odpowiednio przypasowywało dane.
Super, dziękuję bardzo, działa :) Wracając do hulajnogi, to faktycznie tak jest — przemyślałem to i OK, spróbujmy to zoptymalizować. Mamy 1 plik o nazwie: Kalkulator - Koszty allegro v10f.xls w którym są 2 arkusze; ich nazwy to: Kalkulator Tablica wyników Kod to nagrane makro, które w kolejnych krokach wykonuje następujące ruchy: 1. Kopiuje z arkusza...
Moje rozwiązanie wyglądałoby jakoś tak: [syntax=vb] Sub Makro1() ' ' Makro1 Makro ' Makro zarejestrowane 2013-05-12, autor Darek ' ' Const S1 = 8 ' najmniejszy przedział Const S2 = 16 ' sredni przedzial Const S3 = 32 ' najwiekszy przedzial Const D1 = 3 ' tolerancja sredniej najmniejszego przedzialu Const D2 = 5 ' tolerancja sredniej sredniego przedzialu...
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...
Tam w tej komórce z FZ występuje numeracja pierwsze Fz to FZ1 ale nie wiem czy numer tutaj ma znaczenie. Ma o tyle, że do tej pory sprawdzałem, czy wartość komórki = FZ, teraz trzeba sprawdzić, czy w łańcuchu znaków, będącym wartością komórki, znajduje się fragment FZ. Dodatkowo w komórkach A pod fz znajdują się głównie cyfry bądź puste pole więc może...
to makro do "zabawy" Dodano po 2 jeszcze dwie wersje.... Pierwsza ile_wierszy, to może być niemal dowolna liczba sprawdzonych wierszy , można wpisać nawet tyle ile wierszy ma cała kolumna (zależy od wersji Excela) Chodzi o to by nie sprawdzać całej kolumny bo to może potrwać.... Skopiowane zostaną tylko niepuste komórki. [syntax=vba] Sub copy_cells()...
Witaj Jeśli w Arkusz1 jest pełny lub zmodyfikowany wszystkie 4 wartości(Kod, kolor, kod2, ilość) W kodzie Arkusz1 Dodano po 1 Range("myKod") jest komorka J5(Przypisz)
Tak, tak rozumiem tylko jak to sie mówi: " A u mnie to działa normalnie " ciekawe od czego to zależy... ?hmm Niestety Excel to wredny typ. Pusta komórka czasem nie jest pusta a tego nie widać i wiele innych podstępów Micro$hita ... potestuje u mnie jeszcze i dam Ci znać jak coś wyknuje jeszcze Pozdrawiam .... a rzeczywiście .... zwielokrotniłem twoje...
Witam! Jeśli praca będzie sie powtarzała dość często to może wartałoby napisać krótkie makro: OD początku zaznaczenia DO końca zaznaczenia rób { Jeżeli wartość komórki z zaznaczonego przedziału jest mniejsza od 0 to ukryj wiersz w którym znajduje się niechciana komórka (Selection.EntireRow.Hidden = True) } Mógłbym coś napisać ale teraz naprawdę nie...
Excel nie ma takiej wbudowanej funkcji kopiowania. Można to zrobić np. poprzez autofiltr który jednym kliknięciem eliminuje ci puste i możesz zaznaczyć to co widać i skopiuje się "po kolei" - bez pustych Można w 2007 i wyżej kombinować coś poprzez usuń duplikaty ale jak nazwa wskazuje usunie zarówno powtarzające się puste komórki jak i komórki o tej...
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ę...
skopiuj wartości z komórek od M do R i wklej do kolumny C :?: :cry: Jak to chcesz zrealizować ? Wklejanie pięciu wartości komórek do jednej :D i to do kolumny z loginami :?: Do czego Ci potrzebne wyszukiwanie pionowe ? Znasz ograniczenia tej funkcji ? W Twojej tabeli w kolumnie C na pewno nie powtarzają się loginy ? Zrób i pokaż przykładowy plik z...
W załączniku przesyłam plik, docelowo tak chciałbym, żeby to działało, ale szczerze się przyznam że nie wiem jak tego dokonać. W kolumnie, makro ma filtrować po wartości, następnie z kolumny b zaznaczać to co udało się wyfiltrować a w komórce C26, liczyć percentyl z tego zakresu. Następnie odfiltrowuje kolumnę a i powtarza tą samą czynność z wartością...
Witam Potrzebuje pomocy przy napisaniu makra excel W kolumnie M mam 10 typów wartości liczbowych powtarzających się, pomieszanych. Chciał bym aby makro znalozło wiersze w kolumnie M zaierające wartości 1224, 1228 i 1232 Po czym usunęło całe wiersze, czyli wszystkie dane we wszystkich kolumnach w tym wierszu który zawiera te liczby. Ale tak było nie...
Witam serdecznie. Szukam funkcji w vba, która weźmie wartość z jednej komórki i wyszuka ją w innej komórce. O ile jakąś sztywną wartość wiem jak wyszukać to jakiejś wartości komórki już nie. Np. w komórce A1 wpisane jest "N_123_123" a w komórce B5 jest "abcd N_123_123 abcd" i funkcja powinna mi znaleźć i zwrócić wartość z komórki B5. Następny problem...
... Co do pytania czy odnajduje sie w kodzie, to w końcu sam go napisałem i dla mnie jest czytelny, choć wygląda na zagmatwany przez ilośc zmiennych i funkcji if, to spełnia swoja rolę idealnie ... ... Program działa bez zarzutu, tak jak pisałem wcześniej ... Wybacz mój "sceptycyzm", ale wątpię. W kodzie, który zamieściłeś (Sub KCKW): 1. Brak jest...
Czy ktos mi pomoze wpisywac w excelu liczby np. 1 1 1 1 1 i tak samo z 2 zeby sie po piec razy powtarzały ? Witaj. Utwórz w rejestratorze makr makra, które będą to robić i przypisz im klawisze skrótu. Wtedy po naciśnięciu skrótu klawiszowego będzie się wykonywać to, co zostało nagrane. I jeszcze jedno pytanko czy istnieje jakies makro albo funkcja...
Dzień Dobry. Ponieważ moja wiedza na temat VBA kończy się na nagraniu prostego makra, mam prośbę o pomoc. W komórkach kolumny A znajdują się numery składające się z dwóch liter (zawsze tych samych) i czterech cyfr. Oprócz tych numerów mogą się tam znajdować inne wartości. Chciałbym kopiować tylko te komórki,które zawierają te numery i wklejać je w innym...
Makro jest proste i nie wymaga wiele pracy. W pierwszej kolejności sprawdzasz długość tabeli. Następnie w pętli powtarzanej tyle razy ile wynosi długość z pierwszej komórki pobierasz do zmiennej wartość do wyszukania w drugiej tabeli i kopiujesz resztę potrzebnych danych. Przechodzisz do tabeli z wynikiem, wyszukujesz wartość ze zmiennej w pierwszej...
Jeżeli jest to kontynuacja postu http://www.elektroda.pl/rtvforum/topic25... to przykładowa procedura może wyglądać następująco:[syntax=vb] Sub Przelicz() Dim ostatni_wiersz As Long For zapis = 1 To 160 For iteracja = 1 To 200 Calculate Next ostatni_wiersz = _ Worksheets("Arkusz2").UsedRange.SpecialC... Worksheets("Arkusz1").Range("L32:O39").C...
Witam :) Jestem początkujący. Excel świetnie sortuje komórki. Potrzebuję następujące funkcje (makra): 1. by posortował łańcuch znaków w komórce rosnąco i/lub malejąco, niezależnie od polskich lub obcych ogonków 2. wynik sortowania zapisał w innej komórce 3. wynik w postaci pojedynczych znaków zapisał w kolejnych komórkach 4. wyeliminował z łańcucha...
Ok dzięki :) Teraz coś trudniejszego: Mam dwa arkusze z danymi, w arkuszu 3 wpisałem formułę =JEŻELI(LICZ.JEŻELI(Arkusz1!$A$2:$A$10;A... czyli jeżeli (tutaj akurat nazwisko) powtarza się w arkuszu 1 i 2 to kopiujemy je do arkusza C. Później kopiuję resztę i poprzez wyciągnięcie niepustych komórek mam to co chciałem :) czy można...
Dzień dobry, Tak to jest jak się nie pisze dokładnie o co chodzi. Trzeba było napisać od razu, że chodzi o kopiowanie, a nie wpisywanie lub że o jedno lub drugie. Proszę wypróbować takie makro, reagujące na wprowadzanie danych w dowolny sposób (zdarzenie Change). Ma działać w kolumnach H, J i K (osobno). Można wprowadzać jedną komórkę na raz. Tym razem...
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...
Cześć Proszę o pomoc bo mi już czacha dymi i w kozi róg sam się zapędziłem, a wydaje mi się że rozwiązanie jest proste jak dziadowski bicz , tylko ja sam niepotrzebnie sobie wszystko komplikuję. Mam tabelę1 w Arkuszu 1. Kolumna pierwsza "lp" zawiera rekordy z wartościami od 1 do 10.Mogą się powtarzać. W kolumnie drugiej "tekst" są wartości typu tekst...
Witam, Mam następujący problem. Mam arkusz o zmiennej ilości wierszy. Wypełnione kolumny zawsze od A do J. W kolumnie A występują kody, kody mogą się powtarzać- dla ułatwienia jeśli się powtarzają są jedne pod drugim ale nie ma stałej określonej liczby powtórzeń. Chodzi mi o to by makro sprawdzało kod w kolumnie A - unikat kopiujemy do Arkusza 2 z wartościami...
Siema Na pierwszy ogień wziąłem makro zmieniające numery arkuszy wyszło mi coś takiego Private Sub Worksheet_Activate() 'Proc. wykonywana przy zmianie arkusza (Activate) Numery_Tygodni End Sub Private Sub Numery_Tygodni() Dim Nazwa_1 As Integer Dim Nazwa_2 As Integer Nazwa_1 = Sheets(1).Range("a1&quo...
Witam. Potrzebuję pomocy w napisaniu makra, które znacznie ułatwi mi pracę. Makro miałoby działać w ten sposób: W kolumnach A, B, C, D znajdują się dane zamówienia. Każde zamówienie jest zdefiniowane w innym wierszu. Algorytm szuka pierwszego zamówienia, które ma wartość "1" w kolumnie D i zapamiętuje jego dane kopiując je do komórek CN4 (wartość kolumny...
Witam potrzebuje napisać makro które będzie robić coś takiego: zaznaczy wszystkie liczby "powtarzające się w arkuszu na kolor zielony i wypisze te znaczenia w innym arkusz zrobiłem coś takiego [syntax=vb] Sub Zaznacznie_klorem() Dim ConstantCells As Range Dim cell As Range If TypeName(Selection) <> "Range" Then Exit Sub Application.ScreenUpdating...
Sub szukaj() Dim komorki As String For i = 1 To 5 For j = 1 To 5 If Cells(i, 1).Value + Cells(j, 1).Value = 500 Then komorki = komorki & i & " i " & j & "," End If Next j Next i Cells(1, 2).Value = komorki End Sub To wpisujesz do nowego modułu (alt+f11, insert, module). Potem w arkuszu dajesz przycisk...
Cześć, obecnie przygotowuję finalną wersję makro na potrzeby pracy, jednakże napotkałem pewien problem. Otóż potrzebuje aby dzięki VBA kolorowały się wiersze na podstawie dwóch komórek. Problem jest taki, iż ilość danych jest spora (różnorodność wierszy), zmienia się ilość wierszy oraz danych, a samo makro musi kolorować co drugi obszar (wierszami),...
Sprawdź czy dobrze - Bo nie wiem czy dobrze zrozumiałem. A poprawiałem kod "czysto" matematycznie bez większego rozumienia - minęło 3, roku Dane i przycisk dla "nowego" makra w Arkusz2 [syntax=vbnet]Sub Dostosuj2() Dim lista As Variant, ileWrs As Integer, idx As Integer Dim OstW As Long, tbl() As Variant, i As Long, j As Integer Dim Unikaty1 As New...
Otwierasz kolejne pliki w pętli, w której należy umieścić licznik numeru kolumny arkusza docelowego. Jeśli znasz nazwę lub indeks arkusza źródłowego (idealnie byłoby, żeby był identyczny w każdym pliku), to przepisujesz zakres, zamykasz plik i... to wszystko. Ewentualnie powtarzasz tę samą operację dla podfolderów, o czym pisałem wyżej. Jeśli nazwy...
Witajcie, mam taki problem. Mój arkusz składa się z dwóch kolumn (id obszaru, zagrożenia istniejące). Niestety id obszarów w pierwszej kolumnie się powtarzają :-( Sytuacja wygląda tak: obszar1 zagistn1 obszar1 zagistn2 obszar2 zagistn1 obszar2 zagistn2 obszar2 zagistn3 obszar2 zagistn4 Chcę, aby było tak: obszar 1 zagistn1 zagistn 2 obszar 1 zagistn1...
Skoro prościej nie można tak to zrobiłem ... ... Porównałem zawartość dwóch kolumn, w trzeciej kolumnie pojawia się napis np. USUN jeżeli komórka się powtarza ... :D ... jedni wolą funkcje, inni makra, a jeszcze inni 'wewnętrzne machanizmy excel'a" ... :D ... wszystko jest dobre i "proste", jak się sprawdza w rozwiązaniu naszego problemu. Faktem jest...
Ja też się zastanawiałem nad tą sumą. Czasem daje się to na zabezpieczenie przed tekstem lub pustym tekstem w komórce źródłowej, żeby zamienić to na zero. Podejrzewam, że przy tej liczbie plików raczej będą zamknięte, dlatego ja proponuję rozwiązanie nie tak proste, ale mam nadzieję skuteczne przy zamkniętych plikach. Najpierw trzeba utworzyć odpowiednie...
0 nigdy nie zostanie wylosowane (chyba, że tak wpiszesz w "liczbach do wylosowania") - kluczowe znaczenie ma tutaj kolumna "pozostało" - kod uwzględnia tylko tyle liczb z danego wiersza, ile jest wpisane w kolumnie "pozostało". Może wpisałeś za mało liczb, albo za małą wartość w kolumnie "pozostało"? Wtedy może Ci się "trafić" zero :) Excel nie jest...
Przepraszam, faktycznie podałem mało informacji, ale pisząc post zakładałem, że problem jest już rozwiązany, nie szukałem pomocy, chciałem osobom, którym Excel sprawi podobne kłopoty zasugerować, co może pomóc. A to ma sens na dużym poziomie ogólności, wątpię, żeby kod tu wiele pomógł, zwłaszcza mało zaawansowanym użytkownikom makr, takim jak ja. Do...
Może troche to pokrętnie opisałem. Ciężko mi cokolwiek z tego zrozumieć co napisałeś. VB chwytam w mocno okrojonym stopniu. Wrzuciłem do załącznika przykładowy plik. Arkusz Plan pokazuje jak wygląda przykładowy plan. Arkusz Raport to po prostu raport zwrotów wygenerowany z platformy internetowej. Arkusz Plan Wynik to to, co otrzymuję po wpisaniu zwrotów...
Chyba jednak się nie zrozumieliśmy... Załączam zrobiony na szybko załącznik ilustrujący ideę. Zależy mi na pominięciu okienka wyszukaj/zamień. Bo w tej chwili żeby powyższy sposób zadziałał muszę na dzień dobry wywołać okno wyszukiwania czyli ctrl+f, Nigdzie nie pisałem o tym okienku. Nie musisz go wywoływać. Wyszukujesz za pomocą funkcji wyszukaj.pionowo....
Oj, chłopie :D Kilka postów wcześniej sam rozdzieliłeś pionową kreską przykład tak, jakby te wartości miały być w jednej komórce... Akurat nie wiem jak by to można zrobić w jednym zapytaniu, więc rozbiłem je na dwa ;) 1. Zmień zapytanie SQL na: Sql = "SELECT [Activity], SUM([hours]) FROM [Dane$] as A GROUP BY [Activity]...
Witam. Potrzebuję pomocy z importem wielu plików txt do excela. Pliki txt mają podobne rozłożenie różnią się jedynie wartościami oraz liczbą wierszy. Potrafię stworzyć makro na kopiowanie z wybranego pliku txt określonych kolumn od np 20 wiersza. Dziś potrzebuję stworzyć makro do importowania wielu plików txt znajdujących się np: "c:/a/". Znalazłem...
Dzięki wielkie za naprowadzenie lanzul ;) Function Totalcost(zakres As Variant, rate As Variant) As Double Dim i, j As Integer For i = 1 To zakres.Rows.Count j = 1 Totalcost = Totalcost + ((zakres.Cells(i, j) + zakres.Cells(i, j + zakres.Columns.Count - 1)) * 1.5) * rate.Cells(i, 1) For j = 1 To zakres.Columns.Count...
W c ten program gdzies w internecie widziałem.. Bedzie wymagał być moze małego dostosowania. Mam go ale niestety w asm pod atmege 16. ; Programowalny pilot RC5, obsługa interfejsów optycznych i pamięci EEPROM ; Rafał Baranowski (C) 2004 .INCLUDE "m16def.inc" ; SEGMENT DEKLARACJI .EQU OSC_FREQ= 1000000; częstotliwość pracy w Hz .EQU...
http://obrazki.elektroda.pl/3025550100_1... Mając do dyspozycji jedną matrycę 8x8 czerwonych diod LED o boku 60,2mm oraz mikrokontroler ATtiny861 pozostałe po innych projektach postanowiłem zbudować to, co każdy elektronik chociaż raz w życiu zbudować musi: zegar ;). Ze względu na charakter wyświetlacza miał to być zegar binarny, ale...
Analiza trwa godzinę?? Na pewno kod można zoptymalizować, danych nie ma aż tak dużo. Jak dla mnie kilka minut to już by było za dużo. Tak na szybko (bo kod za długi żeby cały analizować ;P) parę uwag: - w przycisku ANALIZUJ znowu zgubiłeś Application.ScreenUpdating =... i Application.Calculation = ... Przez to na pewno wolniej działa. Wyrób sobie dobry...
Wprowadziłem Proponowaną przez Pana zmianę. Program w dalszym ciągu pozwala na wpisanie nieskończoną ilość razy już wprowadzonej pary. adres data Jarosławska 1 m 1 -2010-03-17 Jarosławska 1 m 2 -2010-03-18 Jarosławska 1 m 3 - 2010-03-19 Jarosławska 1 m 4 -2010-03-17 Jarosławska 1 m 5 -2010-03-22 Jarosławska 1 m 6 - 2010-04-01 Jarosławska 3 m 3 -2010-04-12...
Witam, mam problem z programem w języku assembler. Oto jego treść: Program, który czyta z pliku tekstowego dane i wyświetla co M-ty znak z co N-tej linii. Nazwa pliku, M, N (1 lub 2 cyfrowe) są podawane w linii komend jako parametry wywołania programu. Pisząc program nie używać IO.MAC program ten ma działać na procesorach 32bit i kompilować się w NASM...
zmiana wartości komórki uruchamia makro wyświetlanie wartości komórki zmiana wartości komórki
pralka rozkładanie honda klucz wieże philips
Manta 50LUN120D – brak ekranu startowego, jest dźwięk, podejrzenie uszkodzenia podświetlenia LED Direct3D 11 Feature Level 11.0, Shader Model 5.0 Required: NVIDIA, AMD, Intel GPU Compatibility and Driver Fixes