Szukam rozwiązania jak sobie z tym poradzić Na podstawie Twojego przykładowego pliku (tego drugiego :D z nagłówkami ) widzę, że we wszystkich wypadkach występowania błędu #N/D konieczne jest tylko zdublowanie pozycji z kontami "5". Jeśli to było by tylko tak - to można wykorzystać do korekty proste makro jak w załączonym pliku. Po uzupełnieniu pliku...
Jeśli dobrze rozumiem, to tak:
[syntax=vbscript]Sub DodajDoBazy() Warunek = 123 owv = Cells(Rows.Count, "V").End(xlUp).Row nwa = Cells(Rows.Count, "A").End(xlUp).Row + 1 For x = 1 To owv If Cells(x, 22) = Warunek Then Range(Cells(x, 22), Cells(x, 26)).Copy Range("A" & nwa) nwa = nwa + 1 End If Next End Sub [/syntax]
Witam jeśli poza zwartymi dwoma wejściami procesor "żyje" to można spróbować odczytać zawartość ... jeszcze tylko warunek że nie jest zabezpieczony przed kopiowaniem Pozdrawiam
Podmień linijkę wklejania. Podaję cały blok copy-paste dla porównania kolRight = Range("d2").End(xl... Range(Cells(wrsLeftTop, 4), Cells(wrsLeftTop + 1, kolRight)).Copy Range(Target.Address).Offset(... 1).Select Selection.PasteSpecial Paste:=xlPasteFormats Application.CutCopyMode...
[syntax=vb] Private Sub Worksheet_Change(ByVal Target As Range) Dim Komorka As Range For Each Komorka In Target.Cells Select Case Komorka.Value Case "D49", "D48", "D30", "D31", "D32", "D33", "D20", "D21", "D22", "D26", "D27", "D28", "D29" Komorka.Interior.Color = vbBlue Case "PL" Komorka.Interior.Color = vbYellow Case Else Komorka.Interior.Pattern =...
Dla mnie trochę przerost formy no ale każdy ma swój styl programowania. Zauważ że warunek w głównej procedurze wyjkonuje się jedynie gdy nie ma arkusza o danej nazwie. W przeciwnym wypadku nie robi nic. Proponuje dodać "w przeciwnym wypadku - gdy warunek jest niespełniony" czyli Else i ustawić temp na istniejący arkusz o danej nazwie. Z tym że wyjąć...
Bazy G2010 i G2015 Clipa nie maja i nigdy mieć nie będą!!!!!!!!!!!!!! Sprzętowo! Brakuje ukłądu do detekcji! Maja go wyłącznie G2011 i G2015Plus.( w wersji na Niemcy) NIc nie pomoże kopiowanie Epromu do G2010. i G2015. Kup G2011 i/lub G2015Plus. Słuchawki -każda z nich jeżeli otrzyma dane z bazy pokaże Clipa. Warunek -usluga musi byc wykupina u operatora....
Właśnie to pozwoliłem sobie zmienić w przesłanym przykładzie w makrze kolegi adamas_nt Wpisz zamiast ostatniWiersz = 100 to ostatniWiersz = Sheets("Arkusz1").Cell... 1).End(xlDown).Row Wtedy makro samo policzy ile jest wierszy i będzie się wykonywało tylko do ostatniego wiersza. Warunek dane w kolumnie...
Witam, Dobrze zacząłeś z tym wczytywaniem pliku, trzeba było to kontynuować. Proponuję wyszukiwanie załatwić kodem, np: If Right(t, 1) = ";" sprawdza czy w grupie znaleziono linię 333. Jeśli nie to po średniku będzie pusty ciąg.
Usuń duplikaty ani tabela przestawna tu się nie przyda bo dochodzi warunek że usuń gdy puste ale nie gdy puste w Re_3 Stworzyłem w sumie proste makro (ono tylko tak wygląda) Pierwsza część kodu przepisuje wszystkie linie mające to samo zlecenie. Później następuje sortowanie. Następnie warunek sprawdza czy (w moim przypadku coś1) się powtarza jeżeli...
Myślę że powinieneś zacząć od użycia narzędzia do sprawdzenia przepustowości sieci i dysków. Ja na Linuxie (a nie wiem co Qnap umożliwia) używam m.in. iptraf i iostat. Czy jak skopiujesz plik na urządzenie lokalne i z niego oglądasz, to nie skacze przy przesuwaniu linii czasu? Bo czasem same programy do oglądania wideo są marne. Cahce żeby działał,...
dziękuję za pomoc, ale nadal coś nie tak z if makro nic nie robi z danymi spełniającymi warunki "if" Dodano po 4 gdy wstrzymam warunek "and" doskonale działa i przenosi dane do "Załącznik_1" tak jak chciałam (dziękuję za ten układ makra - bardzo mi się podoba) może jakiś inny pomysł na rozwinięcie drugiego warunku?
Cześć, Dzięki wielkie, formuła działa lecz chciałbym aby wstawiała skopiowany wiersz w pierwszy wolny wiersz w arkuszu2. Super byłoby gdyby jeszcze w kolejnej kolumnie dodawana była data skopiowania:) Pisząc XYZ chodziło mi o przykład wartosci wpisanej w B2 w Arkuszu3:P Tak więc nie skorzystam z "Kodu dla modułu 'Arkusz3'" bo bez tego i tak kopiowanie...
Kopiowanie jest na raty bo tutaj zrobiłam przykładowy dokument a w moim oryginalnym pomiędzy są jeszcze kolumny których nie kopiuję. Jeśli chodzi o ten warunek to miał on na celu to, żeby przy kopiowaniu danej kolumny brało pod uwagę nie tylko pole "KLASA" ale pole klasa pod warunkiem, że jest konkretne ID. Czyli dla tych nazwisk gdzie ID wystąpiło...
Tauron kopiuje warunki przyłączenia i wszystkim wali w nich x5. Ale w odbiorach jeśli masz zaznaczone x4 to nic się nie czepiają ;)
Witam, Zapętliłem się do tego stopnia, że mając prostą pętlę czytającą wiersze między skoroszytami, ni w ząb nie potrafię jeszcze ugryźć jak sądzę funkcji IF - dla podanego na wstępie warunku sprawdzenia (tutaj w przykładzie "cyfry miesiąca") i przepisania wiersza jeśli ten warunek został spełniony - jeżeli nie, kod ma czytać dalej aż znajdzie i kolejny...
To nie to. Testuję na wyselekcjonowanej grupie, więc warunek jest zawsze spełniony To po co ten warunek?
Dziękuję bardzo za pomoc. Kod działa, ale nie robi tego czego oczekiwałem. Zdecydowanie to moja wina, bo rzeczywiście za mocno uprościłem swój wcześniejszy opis. Może rozwinę swoją prośbę o pomoc. W Arkuszu2 w kolumnie B (od komórki B7 w dół) znajdują się wyniki aktywnego wyszukiwania "wyszukaj.pionowo" z tabeli z arkusza1. Wyszukiwanie jest aktywne,...
Zerknij wpierw tutaj, czy cokolwiek by ci się nadało do adaptacji pod twoje potrzeby: https://www.elektroda.pl/rtvforum/topic3... https://www.elektroda.pl/rtvforum/topic3...
[syntax=vbscript]Sub Kopiuj() Set a = Sheets("Arkusz1") owa = a.Cells(Rows.Count, "B").End(xlUp).Row Sheets("Arkusz3").Select ow = Cells(Rows.Count, "B").End(xlUp).Row y = 2 For x = 2 To ow s = Application.Match(Cells(x, 2), a.Range("B1:B" & owa), 0) If Not IsError(s) Then a.Rows(s).Copy Sheets("Arkusz2").Range("A" & y) y = y + 1 End If Next End Sub...
Dzień Dobry, zakładam temat bo w sieci to co znalazłem nie potrafiłem wykorzystać. W załączniku plik. Piszę makro, które będzie kopiowało mi z Arkusz2 do Arkusz1 wtedy, gdy będzie spełniony warunek. W Arkusz1 mam nazwy kontrahentów według wykazu alfabetycznego, w Arkusz2 są kontrahenci w różnej kolejności. Pętlą For w Arkusz1 schodzę po wierszach w...
Załącz proszę zrzut ekranu pliku wejściowego, wynikowego i krótki opis działania. 1 warunek musi uwzglednic iz w jednej kolumnie szukamy slowo w roznej kombinacji np gggg_kolo, kolo_dsad, kolo Powyższy opis nic nie mówi...
Arkusz nie ma ograniczenia jeżeli chodzi o ilość działkowców. Skopiuj ostatni wiersz do kolejnych wierszy (lub przeciągnij zielone komórki w dół) by były poprawne funkcje i tyle. Najprawdopodobniej na liście w arkuszu Wydruk nie widzisz ostatnich wierszy. Jest jeden warunek (wspominałem o nim na początku). Lista nazwisk nie może mieś "dziur" czyli pustych...
A z czym konkretnie masz problem? Użyj np. pętli FOR EACH, dla każdego przebiego sprawdzaj warunek instrukcją IF...THEN..., i jeżeli jest spełniony - zaznacz wiersz i skopiuj poleceniem Selection.Copy ActiveSheet.Paste Destination:=Worksheets("Ar... 1)
Witam Mam problem potrzebuję kopiować wiersze z jednego arkusza do drugiego, niby proste bo wysarczyłoby właczyć auto filtrowanie i fitrować po jednej kolumne w moim przypadku 3 gdzie wartość jest "polecony" i ręcznie wkopiować do innego arkusza, ale sprawa jest bardziej skąplikowana i systematyczne dopisując dane w arkuszu wyjściowym trzeba by reczne...
Masz przeciez opcje eksportuj na SD i z niej musisz skorzystac. Warunek taki, ze trzeba miec wlozona karte pamieci do telefonu. Poza tym, generalnie zadaniem tej aplikacji jest kopiowanie danych z innego telefonu na ta Lumie, a nie odwrotnie.
Witam, Posiadam plik z ok 30 akruszami, w których dane posortowane są w identycznych kolumnach zaczynających się od komórki O12 we wszystkich arkuszach. Jedna z kolumn np. S12 sortuje dane w systemie 0-1. tzn 1 dane spełniają dany warunek, 0 dane nie spełnią warunku. Jak w łatwy sposób można doprowadzić do sytuacji w której dane z 30 arkuszy pojawiają...
Nie mam czasu testować ale pomyślał bym o poleceniu xcopy, całość w pliku bat, natomiast nie wiem jak zrobić warunek żeby to się odpalało po włączeniu Worda. Argument że to Twój komputer uzasadnia troskę ale kopiowanie czyjejś zawartosci bez jego wiedzy jest łamaniem prawa, dlatego jak ukryć, pisał nie będę. Ja bym albo się dogadał, albo spisał umowę...
Witam wszystkich Muszę umożliwić użytkownikowi Excel'a wykonanie zapytania do bazy Accessa. Warunek kwerendy zawarty jest w komórce arkusza a baza danych Access jest zabezpieczona hasłem. Zapytanie jest stałe a zmienny jest tylko warunek (chodzi o wybór rekordu/rekordów tabeli A względem jednego pola). Wynikiem może być pojedynczy rekord lub kilka rekordów...
Dzień Dobry, potrzebuję Państwa pomocy. Jestem początkującym użytkownikiem języka VBA. Ciągle czytam tutoriale, poradniki fora, a nawet filmiki na YT. W końcu przyszło mi się zmierzyć z Makrem trudniejszym. Przynajmniej tak mi się wydaje. Do rzeczy. Mamy tabelę o zawsze stałej szerokości i nieokreślonej ilości wierszy. Potrzebuję z nieokreślonej ilości...
Prawie dobrze. Sama pętla jest OK. Może źle liczysz kolumny (Offset). If kom2.Value <> "kk" And kom2.Offset(0, 13).Value = "tak" Then tu: warunkiem kopiowania jest dowolna wartość z wyjątkiem tekstu "kk" w kolumnie "I" oraz tekst: "tak" w kolumnie "V" (kol. "I"+13), wielkość liter ma znaczenie. Jeśli możliwe jest wpisanie...
Jednak przy ilosci ponad 300 sekcji zajmie mi to wieki :cunning: :?: Zupełnie nie wiem co Ty chcesz wyróżnić tym formatowaniem warunkowym :cry: Nic o tym nie pisałeś, nie było widać nic sensownego w Twoim pliku - więc w moim przykładzie pokazałem jak można cały zakres =$C$2:$CT$150 sformatować jedną formułą =ORAZ(C$1>$A$2;C$1<=$A$3) tzn. wyróżnić...
Sprobuj jesli Excel >=2007 Dodano po 33 Tylko dodaj jeszcze warunek - rok 2009
Witam Serdecznie forumowiczów, Jako, że najlepszy z Execela i VBA nie jestem to potrzebuję waszej pomocy. Jaki skrypt zrobiłem : W kolumnie "J" wyszukuje słowo "xyz", w przypadku gdy je znajdzie to kopiuje z wierszy gdzie występuje zadany warunek rekordy C,D,B,I,K do kolejnego arkusza w odpowiadające im komórki C,D,B,E,F, zaczynając od drugiego rzędu...
[syntax=vb] Sub SzukajCiagu() Dim x As Long, y As Long, z As Long, SzukaneSlowo As String x = 1 z = 1 Sheets("PrzeszukiwanyArkusz").Select While Cells(x, 1) <> "" y = 1 While Sheets("ListaSlow").Cells(y, 1) <> "" SzukaneSlowo = Sheets("ListaSlow").Cells(y, 1) If InStr(1, Cells(x, 5), SzukaneSlowo) > 0 Or InStr(1, Cells(x, 6), SzukaneSlowo)...
Ale jakbym już robił to nie po opcji "wstaw" tylko przycisk "Twórz notę" i sam program (makro) po porównaniu daty zapłaty i terminu zapłaty wystawia noty do wszystkich spełniających warunek faktur. Jak miałoby to wyglądać? Od daty do daty? Wyłączając opłacone? Jakieś makro dałoby się naskrobać, ale na jakich warunkach... Słownie dla Calc'a już było...
Dziękuję za odpowiedź jednak coś nie do końca mi działa.. wkleiłem ten kod w jeden warunek który mam stworzony i dodałem też zmienną Dim Ctrl As Control , jednak wartość wyrzuca mi błąd i podkreśla kod: "If TypeName(Ctrl) = "Textbox" And Ctrl.Value <> vbNullString Then" Nic nie kopiuje do komórki a (Ctrl) po najechaniu kursorem pokazuje wartość...
Jakoś trudno domyślić się sedna w powyższym kodzie. Sugeruję dopracować import danych z pliku txt. Brałeś pod uwagę wyciąganie z logów tylko danych spełniających warunek [url=http://dzono4.w.interia.pl/kurs/pls...
To ja też zmodyfikuję.;) [syntax=vbscript]Sub Makro1() ow = Cells(Rows.Count, "H").End(xlUp).Row For x = 1 To ow If Cells(x, 8) = 0 Then Cells(x, 10).Cut Cells(x, 15) Next End Sub[/syntax]
Target.Address musisz rozszerzyć na te 4 komórki które chcesz monitorować, albo użyć Intersect() do sprawdzenia przecięcia regionów.
Witam, mam następujący problem otóż (uprzedzę, ze to jest bardzo uproszczone): 1) Co miesiąc muszę pobierać dane liczbowe ( kolumna C), z zakresu komórek spełniających warunek (kolumna A). Warunek polega na tym, że wartość w komórce zaczynającego się zakresu to Waluta PL a kończy na Razem PLN ( przy czym mam jeszcze trzy inne waluty) Waluta PLN 0 403Prenumeraty...
dobra udało mi sie to rozwiązać poprzez dodanie ActiveWorkbook.Sheets("Arkusz1").Activat... Ale mam inny problem. Jak juz mi znajdzie wartości spełniające warunek większe od 3000 i skopiuje mi te wiersze do Arkusza2 to chciałbym aby te wiersze które sa w tym arkuszu (a zakres tych wierszy jest zmienny i zawiera sie w kolumnach A:B) skopiował do innego...
2) W dla kolejnego miesiąca należy sprawdzić warunek ile spółek z pierwszego miesiąca (tych 18) mieści się w pierwszej 40 spółek z listy arkusza "SIŁA". Jeśli warunek jest spełniony to listę spółek arkusza "PORTFEL" zapełniamy Spółkami które spełniają warunek. Do tego momentu jakoś sobie poradziłem i moje makro działa. OK, a gdzie to makro? Cała reszta...
MB20 będzie równy 10. Zwróć uwagę ze czas cyklu w OB1 może sie zmieniać za każdym razem. Ok tutaj Gafa. Jak cykl 10ms to przerwań może się wykonać 10 więc tak jak Pan pisze. Przerwanie jest niezależne od czasu cyklu. I tak i nie. Może się udać sprawdzić warunek lub przed sprawdzeniem MB20>50 i już nie wychwycisz tego. Sprawdzenie musi być w bloku przerwania...
Kryterium wyboru zawsze będzie takie jak jest - data od, data do i numer klienta. Chce aby ten arkusz drukował się jeszcze i zajmował jedną stronę drukowała się jeszcze i mieściła na jednej stronie. Czy może istnieje jeszcze możliwość zliczania ile razy dana opcja występowała np. kredki jak byśmy mieli taką listę powtarzalnych się rzeczy ?? Czyli doszedł...
Chodzi o to, aby zliczyło wszystkie wartości z kolumny H przypisane do poszczególnych danych z kolumny A- czyli dla danej "1" zliczyło wszystko z kolumny H ( cała wartość detaliczna dla "1" ) i przeniosło do drugiego pliku ( Arkusz1.xls) do odpowiadającej wartości z kol. A czyli w tym przypadku 1 do kolumny E. I to samo dla kolumny L z prowizją, żeby...
Jest błąd, kilka minut Dodano po 6 Przepraszam za pomyłkę. Stałe. Pan będzie zastąpić innym 'c.Column <> 12 Then flag ' na 'c.Column < 11 Then flag '
Witam, Mam dane w lewym górnym rogu i chcę by makro kopiowało mi tak dane jak te które są pośrodku arkusza (te na niebiesko). Czyli input=dane w lewym górnym rogu, output= dane na niebiesko. Ja to zrobiłem w 2 częściach (gdyż jest to urywek większego makro które chce stworzyć i robie je w kilku częściach by się nie pogubić:) ). Pierwsze makro sprawdza...
Jeśli sumujesz zakres, który zawiera błąd to wynikiem będzie błąd. Należałoby postawić warunek dla formuły, która błąd generuje. W Excelu wystarczy użyć CZY.BŁĄD Np =JEŻELI(CZY.BŁĄD(Twoja Formuła);0;Twoja Formuła) W wyniku czego wartość komórki przy błędzie będzie zerowa (akceptowalna jako składnik sumy).
Witam, mam do wykonania pewne zadanie, jednak nie bardzo wiem jak się do niego zabrać. Mam pewien skoroszyt który zawiera przykładowo 5 arkuszy (może ich być więcej) pierwszy arkusz jest to stan magazynowy, znajdują się w nim nast. dane: identyfikator | nazwa | cena netto | cena brutto | ilosc w magazynie 1234 | zupka chinska | 1.10zł | 1.20zł | 5 kolejne...
jak najprościej jak będzie to nie będzie źle wersja cyber zaawansowana gdyby robiła takie rzeczy jak : 1:za każdą nową linią w textowym w wklejało do nowej lini w exelu?? nie wiem jak masz np jakiś odstęp większy to żeby wklejało do kolejnej kolumny. Próbowałem z opcją u mnie(zapis krok po kroku) wyszło tak ze nie chodzi przy zmianie plików . 2:ciekawe...
1. Edit: Do otwarcia pliku za pomocą dialogu można użyć [syntax=vb]Plik = Application.GetOpenFilename(FileFilter, FilterIndex, Title, ButtonText, MultiSelect)[/syntax]
witam :) Próbuje napisać mały programik jednak cały czas mam jakieś błędy, a na niektóre rozwiązania brak mi pomysłów. To mój pierwszy program, dotychczasowe wypociny opieram na tym co wyczytałem w internecie. Chciałbym stworzyć makro w Excelu, miałby to być wykaz uwzględniający wszystkie informacje z pozostałych zakładek (które edytowane są ręcznie)....
Witam, Wiem że ten wątek się przewija co pewien czas, ale nie znalazłem tam potrzebnych mi informacji. Będę wdzięczny za jakieś podpowiedzi. Oto moje problemy: Tworzę coś w rodzaju raportu/ zestawienia podsumowującego kolejne miesiące. Aby to zrobić muszę to tego raportu zaciągnąć dane z pozamykanych plików (ok 30). Każdy z plików ma wiele pozycji (czasem...
Witam Nie wiedziałem gdzie umieścić temat bo za bardzo do SAT chyba nie pasuje. KARTA: Vision Plus (TwinHan) CHIPSET: Conexant Fusion 878A Problem polega na tym iż, nie chce ona współdziałać z ProgDVB nowszym niż 4.62 a mianowicie ustawiając przy instalacji w ProgDVB urządzenie kompatybilne z TwinHan, wyskakuje komunikat "urządzenie nie jest uruchomione"...
Hmm . Po co drugi komputer ? Przecież internet będzie mu działał nawet jak kilka razy przełączy się pod Windowsa żeby coś poczytać to pikuś w porównaniu z drugim kompem. Co do sprzętu to ubuntu i mandriva instalują prawie wszystko na starcie systemu. Jeżeli chodzi o czas i amozaparcie to trzeba je mieć w windowsie do walki z wirusami i bluesrceenami....
czy ta petala wpisuje w postaci listy "wynik" wiecej nizeli z jednego CheckBox'u Nie, bo napisałeś: aby sprawdzila czy jest zaznaczonay TYLKO jeden CheckBox Ta pętla jest rozbudową tej z początku wątku, tyle że na końcu doszedł potrójny warunek if. Po przeleceniu wszystkich checkboxów w zmiennej i masz ilość zaznaczonych przez użytkownika checkboxów,...
nagrałem dodawanie wiersza i wstawiłem w po else w miejsce exit sub ale tutaj zdaje się powinienem wstawić warunek sprawdzający tabelę z ofertą taki, że jeśli tabela nie ma pustych wierszy to wówczas na końcu dostawia nowy wiersz. Po nagraniu rejestratorem otrzymałem taki kod: Dodano po 8 Jeszcze pytanie: w kodzie, który mi podesłałeś miałem przypisane...
kopiowanie funkcji chodzi mi o przeniesienie do arkusza1 gotowego wzoru bedacego w komorce w arkuszu3, z tym ze, wzor liczy np. mnozac 4 komorki przez siebie w ustalony sposob - czyli wzor. Wzor moze ulec zmianie i zmieniam go w arkuszu3. Dlaczego ? Dlatego ze w arkuszu3 beda inne wartosci 4 kolejnych mnożonych komórek. W arkuszu3 wyliczam sobie współczynnik...
Ale gdzie jest błąd? Jeśli uruchomi się TIMER, trwa analiza danych, uruchomi się UART, UART się kończy, wraca do analizy danych, kończy się TIMER, wraca do programu głównego. Po to jest przecież stos. Zwróć też uwagę że w kodzie TIMERa analiza danych nie trwa na oryginalnych danych (notabene, które nie są modyfikowane, tylko raz zainicjowane, modyfikacje...
W zasadzie jedynie słuszne poziomy to 2, 3 i s. Jeżeli używasz funkcji _delay_ms() i _delay_us() to nie wolno Ci stosować poziomu optymalizacji mniejszego niż 2, w przeciwnym wypadku będziesz miał w 'ciasnych' pętlach opóźnienia obliczenia zmiennoprzecinkowe. Osobiście najczęściej stosuję optymalizacje ze względu na rozmiar kodu (s), która w większości...
Spróbuj to [syntax=vb] Sub Porzadkuj() x = InputBox("Podaj datu", "Data przyporziadkowania", Date) If Not IsDate(x) Then Exit Sub x = DateValue(x) Dim nazwy As Range, d As Range With Sheets("pivot") Set nazwy = .Rows(3) Set d = .Cells.Find(x, LookIn:=xlValues) If d Is Nothing Then Exit Sub Set d = d.EntireRow.Cells For Each sh In ThisWorkbook.Sheets...
[syntax=vbscript]Sub Kopiuj() Sheets("Arkusz1").Select ow = Cells(Rows.Count, "A").End(xlUp).Row y = 1 For x = 1 To ow If Cells(x, "C") > 30 Then Range("A" & x & ":D" & x).Copy Sheets("Arkusz2").Range("A" & y) y = y + 1 End If Next End Sub [/syntax]
od O2:O17 jest Gdańsk I ten zakres kopiujemy do L23, a co mamy zrobić z kolejnym miastem, zakres O18:30? Chcesz się poduczyć, czy oczekujesz gotowca? Jak to pierwsze, to lepiej na jakimś komunikatorze, a nie tutaj.
Pierwsza sprawa to na pewno wyrzuć funkcję Jeżeli() i pozostaw tylko warunki. Możesz zapisać go w jednej funkcji Oraz(). Druga sprawa to jak zostawisz wszędzie te $ to nie będziesz mógł łatwo kopiować formuły/warunku. Adres bezwzględny pozostaw tylko przy adresie S$4 =ORAZ(B3>5,0;B3<6,0;C3<S$4) Tak zapisany warunek wpisz do formatowania warunkowego...
Czy ma to znaczenie, że odpalam w LibreOffice? :cunning: No zasadnicze :idea: To tak jakbyś próbował czytać poezję w obcym języku (przy pomocy tłumacza z Google) :please: - VBA i Basic to dwa różne języki programistyczne i trzeba by makra odpowiednio skonwertować. Ani słowa nie było w pierwszym poście: z jakiego programu korzystasz ? :cry: jako załącznik...
Pozwala uzyskać kolejne liczby przy kopiowaniu formuły w dół. Tutaj jako argument funkcji DATA. W tym przypadku zmiana roku (w kolumnie A) zaktualizuje tabelkę. W Twoim arkuszu można jeszcze prościej. W pierwszej komórce wpisujesz datę (wg. ustawień systemowych): 1-1-2011, w drugiej: 1-2-2011, zaznaczasz obydwie i przeciągasz w dół...
Spróbuj [syntax=vb]For Each kom2 In Sheets("Arkusz2").Range("A1:A500") If kom2 <> Empty Then For Each kom1 In Sheets("Arkusz1").Range("A1:A500") If kom1.Value = kom2.Value Then kom2.Offset(0, 13) = kom1.Offset(0, 13) kom2.Offset(0, 14) = kom1.Offset(0, 14) Exit For End If Next End If Next[/syntax]
Namotałeś z tym kodem. Skąd dokąd i co chcesz kopiować?
coś poszło nie tak Jak widać na zrzutach :please: ja załączyłem i opisuje plik ProtUpBase.xls , a koleżanka otwiera jakiś plik (po nazwie sądzę, że też mój :D ) ProtTablica.xlsx , który żadnego makra rzeczywiście nie zawiera :cry:
Pewnie da się to zrobić, ja natomiast wpadłem na inny pomysł. A może zrobisz "specjalną" wersję aplikacji, coś w deseń wersji demo z ilością uruchomień bądź czasową ważnością programu? Wystarczy prosty warunek w Form1, sprawdzający choćby datę. Mam nadzieję, że coś pomogłem :)
Witam mam dwa arkusze - baza - są zawarte dane rozszerzone oraz PA- zbudowany na podstawie ark pierwszego z danymi uproszczonymi. i tak np. w arkuszu PA są w kolumnie B - nr boxów i należy skopiować z bazowego arkusza "service level" czyli albo INTP albo INTE. Czy jest jakaś formuła któraw pliku bazowym sprawdza jaki service level jest przy danym boxie...
Trzeba dopisać lub zmienić warunek... Makra, z wyjątkiem procedur zdarzeniowych, umieszcza się w modułach.
1) Spróbuj Nie za bardzo działa, wpisując datę wysłania w arkuszu korespondencja przy PESEL 1, ta data zostaje przypisana do wiersza w arkuszu zrodlo przy PESEL 2 (czyli: do następnego ze statusem zaproszenie). Pozostałe problemy pozostały tj. po usunięciu danych z arkusza korespondencja, pobraniu danych z arkusza zrodlo mających jeszcze status zaproszenie,...
Witam. Siedzę już dwie noce nad makrem i nie mogę go ruszyć. Temat: Arkusz z tabelą danych A12:I12 wielkość tablicy 30000. Mam Stworzyć drugi arkusz który by pobierał całe wiersze z pieszego. Ponadto , kolumnie In są warunki utworzenia nowych arkuszy. Reasumując tyle ile będzie różnych zmiennych w I tyle będzie nowych arkuszy. Reasumując Sortowanie....
O kurczę :) moj błąd !!!!! Chodziło o że jeśli są jakieś dane w A1, C1, D1 to je kopiuje do nowego arkusza plus E1:E4. i tak w pętli do następnych danych znalezionych w komórkach A,C,D + E cztery w dół
Witam! Jeżeli masz na obu komputerach Windows XP (legalne), zainteresuj się pakietem PowerToys Microsoftu - wśród kilku fajnych narzędzi znajdziesz SyncToy. Za pomocą tego programiku możesz ustalić różne warunki kopiowania plików - zmienione na kompie A, zmienione na B, na obu itd. itp. Adres strony masz [url=http://www.microsoft.com/windowsxp/...
Lepiej opisz konkretne zadanie które ma ten arkusz wykonywać bo może to się da załatwić lepiej. Chodzi o wybranie jakichś konkretnych danych spełniających określony warunek? To można zrobić np. przy pomocy tabeli przestawnej.
natomiast nie wiem jak dokonać pakowania dbu(pack) finalnego usuwania rekordu PACK czy jest jakieś polecenie kopiujące rekordy spełniające warunek for trim(opis)='POLAND' do nowego pliku. Copy To nowy_p For trim(opis)='POLAND' W wyniku w/w polecenia powstanie plik nowy_p.dbf Pozdrawiam JK
Jeżeli to operacja jednorazowa to: w excelu 2003 i niżej : Zaznacz kolumnę z danymi. Menu Dane - Filtr ... - Filtr zaawansowany. Zaznaczasz kopiuj w inne miejsce. Okienko z warunkiem zostawiasz puste. W okienku celu ("Kopiuj do:") zaznacz pierwszą komórkę gdzie ma być wklejona lista. zaznacz "Tylko unikatowe rekordy" i wciśnij ok. w excelu 2007 i wyżej...
I teraz zupełnie nie wiem co mam zrobić z makrem które zrobiłeś, za duże uproszczenie. Przepraszam.. Mam je trochę skomplikować?? ;) Wydaje mi się że tutaj powinnam wstawić fragmenty odpowiedzialne za kopiowanie: Napisałaś, że warunkiem kopiowania jest: Kopiuje wartości które spełnią warunek taki że kolumna "B" zawiera "tak" do ostatniego pełnego wiersza...
Bardzo pomocne będzie polecenie "Net use" Tu masz chyba wszystko co potrzeba: http://technet2.microsoft.com/windowsser... -- Z kopiowaniem to można rozwiązać inaczej. Każdy plik ma atrybut "Archiwalny" ustawiony albo zgaszony. Po utworzeniu lub modyfikacji dowolnego pliku, atrybut "Archiwalny"...
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...
Witaj Sub ddd() Dim OstW As Long Dim kom As Excel.Range Application.ScreenUpdating = False With Sheets("Arkusz1") OstW = .Cells(Rows.Count, "F").End(xlUp).Row For Each kom In .Range("F4:F" & OstW) If kom.Value = "tak" Then Range("B" & kom.Row).Copy...
gdy ilość znaków wynosi 14 Proponuje np. [syntax=vbscript]Private Sub TextBox1_Change() Lr = Range("A" & Rows.Count).End(xlUp).Row + 1 If Len(TextBox1.Value) = 14 Then Cells(Lr, "A") = TextBox1.Value End If End Sub[/syntax] Jeśli chcesz 14 znaków lub więcej to oczywiście zmień zapis warunku na => 14 :D
Po krótkich próbach potwierdzam że rzeczywiście trzeba to zrozumieć. Względność jest zachowana kiedy "kopiujesz" format za pomocą malarza formatów (pędzel) natomiast przy zwykłym kopiowaniu "wstawia" znaki bezwzględne (choć tego nie widać). Jednak jest jeszcze jeden "mankament" jest pamiętany pierwszy warunek jaki został przyporządkowany danej komórce....
Witam Was, napisałam takie makro: Sub copy() Dim r1 As Long, r2 As Long, r3 As Long, c1 As Long, licznik As Integer r1 = 2 r2 = 1 r3 = 12 c1 = 1 licznik = 1 Worksheets("Sheet2").Activate Do While Cells(r1, c1) <> "" If Cells(r1, c1) <> Cells(r1, c1 + 1) Then Range(Cells(r2, c1), Cells(r2, 1)).copy Range(Cells(12 + licznik, 1), Cells(13 +...
Kopiowanie gałek wymaga trochę praktyki, ale jeśli tylko jest oryginał to jest to zupełnie osiągalna technologia w warunkach amatorskich. Proszę wytężyć wzrok i wskazać oryginał. 1135006 Niedługo na [url=menuet-ukf.blogspot.com]blogu szczegółowy opis moich doświadczeń. Pozdrawiam, Wojciech
A co z tym Jak to co, warunek.
Tak, posektorowa kopia przywrócona na oryginalny dysk powinna go przywrócić do działania. Pod jednym jednak warunkiem - że nie została wykonana z poziomu systemu uruchomionego z kopiowanego dysku ;) Wiem że to żadna porada i jak najbardziej robiąc dla kogoś tak nie postępuję ale przy swoim sprzęcie robiłem tak i działało. Tu problem jest inny. Tylko...
Czyli odwrotnie (zmień operator w warunku pętli) niż [url=http://www.elektroda.pl/rtvforum/to... tym temacie
Coś pokręciłaś z tym hasłem. Odblokować trzeba ten arkusz, do którego dane będą kopiowane, czyli: [syntax=vbscript]Worksheets(2).Unprotect Password:="123"[/syntax]Potem analogicznie zablokować. Oczywiści można też z Activesheet pod warunkiem, że ten arkusz (docelowy) będzie aktywny. Arkusz źródłowy może być chroniony. Odblokowana musi być w nim tylko...
Zamiast tej linijki[syntax=vb]Wb.Sheets.Copy before:=ThisWorkbook.Sheets("makro")[/sy... pętlę For, z warunkowym kopiowaniem arkuszy. Warunkiem może być cells.find(what:="*") z wyłączoną obsługą błędów i jeśli Err=0, kopiujesz.
Witam, potrzebuję makro do Excela w VBA. Łamie sobie głowę, żeby to napisać i może ktoś umiałby to poskładać w sposób logiczny w makro. Z góry mówie, że to wygląda na dość obszerne makro ale myśle, że dla kogoś kto dobrze ogarnia VBA nie będzie z tym miał problemu. Dla mnie jest to troche ciężki temat :| Program ma kopiować komórki J2:J, K2:K, L2:L...
Wklej do modułu w przykładzie Sub kopiuj() koniec = Range("D1").End(xl... Range("D1:D" & koniec).AdvancedFilter Action:=xlFilterCopy, _ copytorange:=Columns("AA... Unique:=True Range("AA2:AA" & Range("AA1").End(x...
Można się posłużyć komórką pomocniczą i dodać warunek: [syntax=vbscript]Private Sub Workbook_Open() If [AA1] = "T" Then Call Odswiez End Sub [/syntax] Piszesz zdawkowo, więc zdawkowe propozycje Ci podaję.
Witam. Czy istnieje możliwość, w domowych warunkach, kopiowanie taśm magnetowidowych na komputer? Jeśli tak, to proszę o szczegółową instrukcję jak tego dokonać.
Wystarczy zwykła pętla z wieloma warunkami. Zobacz przykład (funkcja VBA) w [url=http://www.elektroda.pl/rtvforum/to... temacie.
Ale jaki są twoje potrzeby? Piszesz co ma robić makro, ale ten zamieszczony kawałek tego nie robi. Nie kopiuje kolumny E, sprawdza wartość ">)", a nie zero. Jeżeli chcesz pomocy w napisaniu makra to trzeba wyjść od wymagań, jeżeli chodzi o poprawienie, to nie bardzo wiadomo jak to poprawić. Osobiście lubię kopiowanie poprzez: Sheets("działki").Cells(j,...
warunek przyłączeniowy warunek informatyki warunek przedmiot
bosch mikroprzełącznik zmywarka regulator obrót silniczek schemat pralki siemens siwamat
philips 55pus6401 wypadanie zapłonu cylinder
Zmiana języka na polski w Peugeot 508 - instrukcja Skoda Superb Climatronic błąd B109E F0 – adaptacja sprężarki, czujnik G65, brak chłodzenia
