Zmienit 'For i = 0 To nrep - 1' na 'For i = 1 To nrep - 1'
Dlaczego zmienna 'l' jest nadawana z wartości ostatniego wiersza (+1) z pliku 'b', a nie z 'a'?[/quote]
Filtruj wg kolumny z wynikami LICZ.JEŻELI http://obrazki.elektroda.pl/7228439700_1... i ostatnia czynność: kopiuj > wklej specjalnie/wartości - w z góry upatrzony arkusz. Przy odrobinie wprawy wszystko "idzie piorunem" ;)
Teraz wszystko jasne. [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then Application.ScreenUpdating = False Plik = "C:\PlikiSpraw\" & Range("A" & Target.Row) & ".xlsx" If Dir(Plik) <> "" Then Rows(Target.Row).Copy Set s = Workbooks.Open(Plik) nw = s.Sheets(1).Cells(Rows.Count, "A").End(xlUp).Row...
Zobacz, czy o to chodziło. Makro do kopiowania: [syntax=vbscript]Sub Kopiuj() Dim b As Worksheet Dim ow As Long Set b = Sheets(ActiveSheet.Index - 1) ow = b.Cells(Rows.Count, "A").End(xlUp).Row - 1 Dim CopyRng As Range, PasteRng As Range b.Range("A4:B" & ow).Copy ActiveSheet.Range("A4").PasteSpecial Paste:=xlPasteValues b.Range("N4:O" & ow).Copy ActiveSheet.Range("N4").PasteSpecial...
Można formułą wyodrębnić ostatni "wyraz" (kolumna D), pomnożyć przez 1 i jeśli jest liczbą porównać z B1. Wyniki (kolumna C) przez kopiuj/wklej specjalnie/wartości skopiować do jeszcze jednej i usunąć pomocnicze... http://obrazki.elektroda.net/98_12837945... Jeśli nie występuje coś w rodzaju 1/2 (A5 na rysunku) to powinno być OK.
wpisywane "ręcznie", a nie poprzez formuły - jak ogarnąć drugą część mojego problemu? Żeby wykorzystać makro zdarzeniowe :D to proponuję wykorzystać jednak inną kolumnę np. wolną obecnie kolumnę A :spoko: . W załączonym pliku proponuje w przedostatniej komórce kolumny A wprowadzić wartość 1 , a wówczas cały ten wiersz (od B do AH) zostanie wstawiony...
Przeanalizuj sobie jakich formuł zastosowałem, możesz je sobie połączyć. Kolumna z datą dodatkowo jest w Excelu ustawiona jako format wyświetlania daty. Również dodałem ostatni wiersz, aby zademonstrować, że Excel jest na tyle mądry, że potrafi wygenerować datę cofając się o miesiąc, jeżeli ma przejście z 1 na 31. PS Ale nie kopiuj jak małpa, tylko...
czyli np.: =arkusz1!A1 jak przeciągnę tą formułę w bok (poziomo), to excel automatycznie w następnej komórce skopiuje dane z komórki B1, czyli =arkusz1!B1, a chciałbym żeby w następnej komórce była wartość z komórki A2, czyli =arkusz1!A2 Hmm, to jeszcze byłoby wykonalne. Jeśli kolumny po kolei w jednym wierszu, to skąd wiadomo gdzie ostatnia komórka...
Na początku musisz ustalić długość kolumny, którą będziesz przeszukiwać tzn. ostatnią niepustą komórkę. Możliwe jest to za pomocą: Application.WorksheetFunction.CountA(... Do wyszukania wartości użyć można: Selection.Find() Cały wiersz zaznaczasz za pomocą: Rows().Select Zaznaczony wiersz kopiujesz: Selection.Copy Wklejasz: Range().Select...
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...
Suma warunków tu się nie sprawdzi bo każda pozycja jest inna. Sprawdzanie poprawności wskazać listę i zaznaczyć kolumnę A:A W komórce poniżej indeks() z całą tabelą a jako wiersz podaj.pozycję() gdzie argumentem jest wybrana lokalizacja i zero jako ostatni parametr. dodane po chwili --------------------------------------- Poniżej przykład mojej propozycji...
Dzień dobry, To można rozwiązać różnymi sposobami, zależy do czego te liczby mają dalej służyć - czy mają tylko tak wyglądać, czy mają stanowić dane do dalszych obliczeń. Standardowo przy wypełnianiu komórek zmienia się ostatnia liczba, więc efekt jest taki jak Pan obserwuje. Jeżeli liczby te mają tylko tak wyglądać można zastosować format niestandardowy...
ok ale coś robie nie tak jeszcze.... zdefiniowałem zmienną i przypisałem do kodu, więc nie działa ciągle dane się kasują [syntax=vbscript] wiersz2 = wsWyn.Range("A1048576").End(xlUp).Row + 1 'ostatnia wolna komórka w tym pliku For i = wiersz2 To FinalRow wsWyn.Cells(wiersz2, kol1) = wsSrc.Cells(wiersz2, kol) wiersz2 = wiersz2 + 1 Next[/syntax]
Dzięki za wskazówki :) Korzystając z Twoich rad wklepałem kod ale niestety jak wgrywam plik nic się nie dzieje, tj nie są przepisywane żadne wartości i nie mam pojęcia gdzie leży błąd. Przypuszczam, że diabeł jak zwykle tkwi w szczegółach... Po pierwsze: zrób przypisanie do arkusza tak, jak Ci proponowałem, nie MsgBox (Dane.Name) ) Po drugie, przy...
A możesz raz jeszcze napisać w jednym zdaniu, co ma kod robić? Tak będzie najprościej. Jak znajdzie wartości z lewej w prawej( login i typ ) to kopiuj jak nie to szukaj dalej, niech kopiuje tylko kolumnę D i E. Będzie szybciej. Tylko w tym co Ty napisałeś pojawił się jakiś dziwny błąd że wkleja w kolumnie CH wartości nie wiem dlaczego. EDIT Ostatnie...
A co z ilościami, ceną i wartością? Która ilość ma znaleźć się na PZ? Sucha się "sama" liczy, czy wpisujesz ręcznie? Czy kopiowanie danych z aktywnego wiersza, czy z ostatniego. Które dane są wymagane, a które można pominąć (PZ tworzona jest mimo niewypełnionych komórek wiersza)?
Czy jest to operacja powtarzalna, to znaczy będziesz w przyszłości ponownie zrzucać tych 25 arkuszy do jednego arkusza? Bo jeśli nie, to, moim zdaniem lepiej to zrobić na piechotę, kopiując dane z poszczególnych skoroszytów do jednego. Można wcześniej np. ustawić różne kolory tła dla poszczególnych arkuszy, jak również ponazywać zakresy komórek obejmujących...
Witam, w ostatnim czasie chciałem utworzyć userform, w którym dokonywane będą skany kodów kreskowych (długość 14 znaków). Poniżej poszczególne etapy pracy formularza: 1)Skan kodu kreskowego w textbox, 2)Kopiowanie wartości text box (automatycznie/ textbox change() do akrusza karkulacyjnego, 3)Wyczyszczenie pola textbox oraz kolejne skany w kolejnej...
Usiadłem (wreszcie) nad tym i tak sobie myślę: Jeśli pierwszy dzień miesiąca wypada w środę, to w systemie 5/1 dzień wolny ma brygada, która pracowała w ostatni czwartek poprzedniego miesiąca. Nie ma tu stałych, więc po czym w takim razie biedny Excel ma się orientować? Systemu 6/2 nawet nie próbuję analizować :) Należałoby mu jakoś (InputBox, wartość...
Format ogólny. Faktycznie to ostatnie działa dla 2003, dzięki Dodano po 1 Wiadomość dot. rozwiązania problemu, bo chyba to obowiązkowe: skrót CTRL+" faktycznie kopiuje mi wartość komórki wyżej, a przy dacie od 1900 do dziś zamienia na cyfrę.
Ale jakich makr nie umiesz stworzyć? Ja tego nie zrozumiałem. To po kolei: 1. Do arkusza "Firma 1" wklejam dane z innego pliku od kolumny E do AB - mniej ważne gdzie to wklejasz, ważniejsze co dokładnie. Czy umiesz określić zakres do kopiowania? np. A5:Z123, albo kolumny A do Z od wiersza 5 do ostatniej wartości w kolumnie C (nie może być w tej kolumnie...
Jedyne operacje jakie są planowane na tym pliku to: - dodawanie usuwanie i ukrywanie odkrywanie wierszy - kopiowanie wierszy poprzez zaznaczenie całego i wklejanie w ten sam sposób wartości do nowego dodanego wiersza (tutaj wiem już że skopiowane wartości z zaznaczonego całego wiersza i wklejenie ich do nowo utworzonego nie są zapisywane w historii...
Chciałem utworzyć makro, które będzie: 1 Filtrowało po "Wiązka" (kolumna B) - wiązki mają różne nazwy, dlatego też pytanie - jak zrobić aby filtrowało od pierwszej wiązki do ostatniej (żeby nie było trzeba wpisywać za każdym razem H_M+ROMcA_001_001_A, ponieważ w tym miejscu może być inna nazwa np. H_M+ROMcC_001_001_A) 2. Tworzenie nowego arkusza i nazwanie...
Witam! Potrzebuję pomocy z poprawnym wstawieniem lub modyfikacją obecnego makra. Aktualne makro po aktywowaniu kopiuje wybrane wartości z kilku różnych kart w kolejności alfabetycznej kart, jeśli w kolumnie C jest konkretny dostawca. Teraz w załączonym pliku potrzebuję w ostatniej karcie "podział na kolory" wstawić (lub przekształcić obecne) makro,...
Niech zgadnę - ten kod z dodatkowym kopiowaniem 7 komórek w każdym wierszu działa strasznie wolno i chcesz zrobić to na raty? Tak czy inaczej: na końcu makra trzeba przechować numer ostatniego wiersza z pliku źródłowego, a skoro i tak coś jest przechowywane, to można też zapamietać numer ostatnio wpisywanego wiersza w pliku docelowym. Wartości te można...
Cześć, szukam pomysłu jak zrobić aby ukryć wiersze np od 3 do ostatniego ale żeby przy automatycznym uzupełnieniu danych wartości zapisywały się w ukrytych komórkach. Generalnie chodzi o to ,że jeżeli będzie rząd powiedzmy 10 tys to cała procedura będzie bardzo wolno trwała. Z uwagi na poprawność danych w A1 wpisujemy przykładowo 1-2-3 przenosi to do...
Wystarczy ustalić, który wiersz jest ostatnim w obu arkuszach. Popularny sposób w VBA na tą operację to: [syntax=vb]ost_src = Worksheets("Arkusz1").Cells(Rows.Count, 1).End(xlUp).Row ost_dest = Worksheets("Arkusz2").Cells(Rows.Count, 1).End(xlUp).Row[/syntax] a mając te dane - kopiujesz zakresy, w zależności czy chcesz je kopiować ze wszystkim czy tylko...
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...
Na żółto zaznaczyłem obszar w którym w arkuszach znajdują się dane. Znaczy, chcesz kopiować (niepotrzebne skreślić): - "żółte zakresy" bez względu na to, czy są w nich dane, czy nie - tylko wypełnione wiersze obszarów od C3:J3 w dół - całe, tylko wypełnione wiersze od 3-go w dół (najprościej) Dla dwóch ostatnich przypadków określ kolumnę, w której...
Witam Czy ktoś miałby chwilkę i mógłby mi pomóc? (może być makro lub jeśli się da to funkcje z arkuszem pomocniczym). Mam problem z kopiowaniem wierszy i ich dublowaniem do gotowego arkusza. Mam skoroszyt, który zawiera 3 arkusze robocze: "Re_1", "Re_2" , "Re_3" oraz arkusz wynikowy "Wynik". Do "Re_1", "Re_2" , "Re_3" dopisywane są nowe wartości. Potrzebuje...
W "Arkusz1" w kolumnie A i B wstawiłem przykładowe dane. Kolumna C służy jako pomocnicza. Główna funkcja to ZNAJDŹ, opis w pomocy, użycie b.proste. Funkcja MAX zwraca najwyższą wartość zakresu. Dodając jeden dla wartości spełniających warunek (ZNAJDŹ) tworzę Nr kolejny dla funkcji INDEKS znajdującej się w "Arkusz2". Osobiście wolę gdy generowany jest...
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...
Życie przyniosło jeszcze jedno pytanie. Czy w tej ostatniej wersji kodu, dla przypomnienia: [syntax=vb]Sub doAnalizy() Dim pth As String Dim bs As Workbook, bd As Workbook Dim num As Range, c& Set num = ThisWorkbook.Sheets(1).Rows(1).Cells pth = ThisWorkbook.Path ChDrive pth ChDir pth c = 1 While num(c) <> Empty plik = Dir("*.xlsx") Do While...
Zachęcony pomocą , jaką otrzymałem ostatnio, zwracam się ponownie do szanownej społeczności ekspertów. Potrzebuję utworzyć makro , które wyciągnie nazwiska z kolumny A na podstawie wartości w kolumnie B. Tzn, jeżeli Jurek Mazurek ma liczbę "1" w kolumnie B, to chciałbym, żeby makro wyciągało to nazwisko w tabelę z kolumną "1"; ogółem mam grupy zaszeregowania...
Wydzielono z [url=https://www.elektroda.pl/rtvforum/v... - adamas.nt Witam. Trochę minęło czasu od ostatniej odpowiedzi. Mam podobny krótki temat do rozwiązania. mam dwa pliki: plik1.xlsx plik2.xlsx W pliku2 w kolumnie A mam ciąg danych liczb rozmieszczonych losowo wraz z pustymi komórkami po kolumnie. W kolumnie B są...
To pewnie będzie trzeba zmienić podejście. Masz dane z ostatniego miesiąca (ile wierszy?) i potrafisz go przekonwertować do wymaganej postaci, masz z poprzednich miesięcy (znowu ile?) i to wszystko potem musisz złączyć (czy tu nie wejdziemy w ograniczenie Excela?) i przetwarzać? Dobrze to rozumiem? Jeżeli potrafisz przekonwertować plik w rozsądnym czasie...
To nie idąc na łatwiznę, w ramach nauki, algorytm powinien wyglądać następująco: • ustalasz ilość wierszy do wyszukiwania na podstawie ostatniej nie pustej komórki w kolumnie E • w pętli przechodzisz poszczególne wiersze w kolumnie E porównując czy wartość w komórce jest zgodna z szukanym wzorcem np. "WSTRZYMANY" • jeżeli nie jest...
W załączniku plik. Generalnie trochę udało mi się skrócić kod, ale nadal nie jest on zautomatyzowany i wymaga powielania tej samej treści, aczkolwiek robi to co zamierzałem. Kod jest przypisany do Buttona i działa tylko dla komórek na czerwono i wkleja odpowiednie wartości w tym samym arkuszu począwszy od kolumny L (to tak dla testów, docelowo chcę...
tak do ostatniego pełnego wiersza, przynajmniej tak mi sie wydaje Dodano po 17 co do daty to zrobiłem taki motyw ze w kolumnie F dałem odwołanie do E3 aby do każdej pozycji przypisało datę tylko że poskopiowaniu dostałem w kolumnie F =#ADR!. co zrobić aby kopiowało mi wartości a nie formuły? Dodano po 1 dzięki juz sobie poradziłem jakoś
Cześć. Jako typowy human mam niestety problem z elementarnymi rzeczami informatycznymi. Ostatnio sen z powiek spędza mi import danych z wybranych kolumn. Wstyd przyznać, ale na razie robię to na zasadzie kopiowania pojedynczych kolumn i wklejania do nowego arkusza. I tak dwa razy w tygodniu. Sposób jest bardzo skuteczny ;-) ale zapewne można go znacząco...
Niestety w Accesie pracowałam ostatnio w czasach liceum i niewiele na ten temat pamiętam... To się robi z głównego menu, dosłownie kilka intuicyjnych kroków. Jest Internet, kursy na Youtube - wpisz tylko: access import excel file i swójnumer wersji accesa. a jeśli chodzi o funkcję WYSZUKAJ.PIONOWO, to nie usunie mi ona wierszy, które nie występują...
Dziękuję, ale wydawało mi się to podobne, a miałem wrażenie, że mnie "pojechałeś" od razu. Jest to mi potrzebne, dlaczego. Otrzymuję co roku inny cennik. Za każdym razem są, tzw. wymieniane artykuły. Niektóre znikają, a niektóre są nowe. Cennik ten przychodzi w języku niemieckim lub angielskim i to jeszcze ubogi (bez dokładnych opisów artykułów). Ja...
Witam! Jestem nowiutkim użytkownikiem tego forum, dlatego jeśli coś zrobię nie tak to proszę o wyrozumiałość. Moja znajomość obsługi Excela nie jest wielce zaawansowana, dlatego bardzo potrzebuje pomocy, bo nie mam pomysłu jak się za to zabrać dalej. W skoroszycie "Lista plików", w arkuszu "podsumowanie" za pomocą Power Query mam w kolumnie A listę...
Witam! Mam w pliku Excel arkusz dla każdego tygodnia roku kalendarzowego o nazwach T-01, T-33, T-43 itd. W arkuszu posiadam makro do szybkiego tworzenia nowego arkusza przenoszące układ i formatowanie obecnego arkusza i dodatkowo przenoszące do nowo tworzonego arkusza wiersze dla których wartość w kolumnie J jest większa od zera. Plik służy mi do cotygodniowego...
Nie ma najmniejszego powodu stosowania w procedurach które dotyczą kopiowania czy też czyszczenia zakresów, metody Select . Mimo, iż procedury są w miarę poprawne, można z dużym prawdopodobieństwem powiedzieć, że używanie Select , znacznie je spowalnia. .. Witam Serdecznie dziękuję za udzielone rady - są bardzo cenne. Jak pewnie zauważyłeś nie skupiałem...
Przyczyn może być kilka. Formuła powinna wyglądać tak: =WYSZUKAJ.PIONOWO($A7;Arkusz3!B1:D163;1;... 0 na końcu jest jednoznaczne z fałsz. Jeżeli formuła, jako ostatni argument dostanie coś innego niż fałsz (lub 0) to jako wynik zwróci pierwszy "najbardziej zbliżony” wynik na jaki napotka przy przeszukiwaniu kolumny, przy czym funkcja przyjmuje ze...
Moim skromnym zdaniem niepotrzebnie aktywujesz kolejne obiekty. -szukanie pierwsze pustej najlepiej zrealizować przez skok z ostatniej komórki kolumny: end(xlUp).row +1 (nagraj Ctrl+strzałka w górę). Szkoda czasu na pętlę. -arkusz można sortować odwołując się do nazwy/indeksu (nie musi być aktywny) Najwięcej czasu pochłania zapewne kopiowanie i tu nic...
Wiesz co wziąłeś się za makro nie do końca chyba rozumiejąc zasady. Pierwsza część: Po co to, jak jeszcze nie wprowadziłeś żadnych danych do tablicy: AA = tablica(a, f) BB = tablica(b, f) CC = tablica(c, f) DD = tablica(d, f) EE = tablica(e, f) Wszystkie wartości tych zmiennych (AA BB itd.) będą puste. Druga rzecz Wydaje mi się że nie te pętle zastosowałeś...
Witam, mam makro do wgrywania danych. Proszę umieszczać kod w znacznikach syntax . Opcja Listing kodu . Proszę to poprawić. [syntax=vb][/syntax]
Mam podobny problem, troszkę bardziej złożony- a przynajmniej tak mi się wydaje. Potrzebuję makra które ze sporej bazy danych wycinać będzie sekcje komórek i wklejać je jedne pod/obok drugich w kolejnym arkuszu. Część o którą mi chodzi zawsze jest tej samej długości i zawsze poprzedza je komórka o konkretnej zawartości, po czym następuje sekwencja komórek...
ok - bardzo ciekawa opcja jeżeli rozchodzi się o brak VBA. jednak jak by to wyglądało gdybym chciał to wmieszać w język VBA ? Ponieważ w przypadku dużej ilości danych wersja bez makra będzie powodowała dużą ilość formuł oraz zwiększanie się wielkości pliku excel. Przykład w załączniku zgrywania danych gdy mamy dwie wartości podane - czy da się ten kod...
Korzystam z formuły sumującej dane dla konkretnego miesiąca czyli w arkuszu "lipiec - suma" (arkusz podsumowujący) mam formułę: suma('lipiec - suma :lipiec (1)'!H1), która sumuje mi wszystkie dane z pól H1 z zakresu wszystkich arkuszy pomiędzy "lipiec - suma" i "lipiec (1)". Ponieważ tworzę arkusz "lipiec-suma" na samym początku miesiąca (potrzebuję...
Jakieś sugestie jak można to zrobić? Z pełnym szacunkiem dla założeń Twojego projektu, lecz pierwszy krok, który musisz zrobić to wszystko dokładnie przemyśleć :idea: . 1. Musisz znać precyzyjnie strukturę plików źródłowych i wynikowych; (nie może być tak, że szukasz w kolumnie A tekstowych nazw produktów - typu "żżżż " i jednocześnie w tej samej kolumnie...
*Aldrin jezeli dobrze Cie rozumiem to dla kazdej kopiowanej komorki z pliku zleceniexxx mam zastosowac petle, ktora bedzie przenosic/kopiowac wartosci ze zleceniexxx do zestawienie_szef ?? Dodano po 14 wstepnie widze, ze ten skrypt bedzie mi pomocny :) Sub OperacjeHurtowe() Dim wbkSkoroszyt As Workbook Dim i As Long, szukWiersz As Long, wiersz...
W załączniku są pliki końcowe, które bedą używane i teraz fajnie by było, gdyby znalazły się jeszcze następujące rozwiązania: 1. W pliku czerwony1 , jeśli dodatkowo wartości w kolumnach M i U zostaną zmienione na kolor czerwony , to nie zważając na to, czy w kolumach odpowiednio AM i AQ są wpisane godziny , kopiowałoby te wartości razem z wartością...
Funkcje i procedury znajdują się w module VB. Skopiuj moją funkcję do schowka, a potem, to już z górki, bo: Alt+F11, Alt+I, M, Ctrl+V, Alt+F4. W arkuszu w komórce B1: =Zlozonosc(A1) Kolego jestem jednak za mały w uszach abym to ogarnął. Kopiuje i nic. Zapewne chodzi o podstawienie odpowiedniego wiersza i kolumny. W miejsce Wartość wpisałem F6 (interesująca...
Cześć, mam napisane makro do wgrywanie danych z pliku typu .csv. Wszystko mi się przegrywa tak jak chce (jeżeli rozchodzi się o miejsca) Jednak zauważyłem jeden problem - polskie znaki znikają, a format godziny np. 00:10 zamienia mi się na dane np. 0.3456. Czy ktoś może wie czemu tak się dzieje i jak to rozwiązać?? [syntax=vb]Sub Przycisk1_Kliknięcie()...
Dzień dobry, Dziękuję za wyjaśnienie w kwestii sumy liczb nieujemnych. Tak jak myślałem, chodzi o to, żeby co najmniej jedna wartość była niezerowa, więc jeśli liczby są nieujemne, właściwym kryterium jest suma. Formuły z ostatniego postu znowu nie rozumiem, bo w tej wersji, którą Pan załączył w komórkach B166 i C166 nie ma żadnych liczb. Ale zostawmy...
Wielkie dzięki za pomoc! Zmieniłem trochę twój kod do moich celów. W twoim kodzie makro kończyło pracę gdy w pierwszej kolumnie napotkało pierwsza pustą komórkę. Potrzebowałem mieć pewność, że wszystkie dane zostaną skopiowane. Dlatego też zmieniłem pętle DO WHILE na pętle FOR i użyłem funkcji adamas_nt . [syntax=vb] Sub Copy() Dim myPath As String...
sprawdziłem i działa! Dziękuje Mam już chyba ostatnie pytanie... najprościej ujmując po wykonaniu wyszukiwania zgodnie z ID dane przerzuca mi do arkusza wyszukiwanie... chciałbym następnie dane z tego arkusza skopiować do dwóch innych np do "arkusz1" oraz "arkusz2" zgodnie z kryterium: jeżeli w komórce F wpiszę "ok" to przerzuca mi dane dla tego wiersza...
Cześć, Makro jest OK właśnie sprawdzam jego działanie ale nie jest to dokładnie to co potrzebuje bo zwraca całość, z stworzonych danych, a u mnie ma dopasować te dane . Myślałem nad czymś takim : Dodano po 1 Cześć, Chyba to mam, ale może jakaś optymalizacja kodu ? lub lepsze rozwiązanie tego problemu ? [syntax=vbscript]Sub Dopasuj_do_zawartosci() Columns("B").Select...
Witam Dopiero zaczynam z Vba Exel i mam problem z przyśpieszeniem swojej pracy. Mam 2 arkusze. W pierwszym uzupełniam wiersze od (a2:h22) oraz komórkę "k1". Po włączeniu makra chcę by komórki z podanego przed chwilą zakresu dopisywały się w drugim arkuszu od "a2:h" a komórka "k1" żeby skopiowała się tyle razy ile dopisało się wierszy i to do ostatniej...
Cześć, Jestem totalnym laikiem jeśli chodzi o makra, dlatego chciałbym się dowiedzieć jak zrobić takie makro w Excelu, które umożliwiłoby tworzenie listy osób dzwoniących w danym dniu. W tym celu stworzyłem w Excelu dokument z 3 zakładkami. W pierwszej zakładce "Input" chciałbym wprowadzać unikalny kod przypisany danej osobie, który w zakładce "Search"...
Witam, Mam następujący problem w Excelu: w arkuszu "Basic" mam dane w dwóch kolumnach - A i B. Od A2 i od B2 (wyżej tytuły). W kolumnie A mam kolejno daty (codzienne) od najnowszej do najstarszej (lata 2002-2010). W kolumnie B odpowiadające datom wartości zmiennej. Chcę skopiować dane z kolumny B do innego arkusza "Divided" w następujący sposób: w kolumnie...
Witam, Mam problem z edycją Makra (poskładanego z kilku znalezionych, nieco edytowane). Makro tworzy już dodatkowe arkusze zmieniając ich nazwę. Wybiera i zapisuje dane od 2 wiersza w nowych arkuszach. Chciałbym jednak by zaciągał również pierwszy wiersz z arkusza "OPIS" jako nagłówek. Zależy mi również na tym, by automatycznie edytował również szerokość...
Witam, Myślę że po dwóch latach trochę bym inaczej ten kod dzisiaj napisał (czytaj: uprościł), mianowicie: n , domyślnie równą Nothing .
To już wystarczyło zmienić numery wierszy w adresach. Natomiast ważne, aby nie kopiować formuł tablicowych do scalonych komórek. Generalnie to ze scalonymi komórkami same kłopoty. Scalanie komórek - jeśli jest konieczne - powinno być ostatnią czynnością w arkuszu, po umieszczeniu wszystkich danych i formuł. Pozdrowienia
Teraz jest ok. Scieżka nie jest wymagana więc uruchomienie makra na komputerze przy innej sciezce pliku nie jest tez problemem. Co mi jednak wyskoczylo jeszcze to dwie rzeczy. Plik lista.xls zmodyfikowalem tak, aby dostosować go do własnych potrzeb. Przykładowy plik wrzuciłem w załącznik. Powstają dwa problemy: Pierwszy to fakt, że raport zwrotu pobierany...
DZIĘKUJE BARDZO, BEZ POMOCY NIE UDAŁO BY MI SIĘ WYKONAĆ TEGO ZADANIA. W projekcie pozostało mi jeszcze kilka spraw tzw. kosmetycznych. Choć jak dla mnie nie do ogarnięcia I tak: Arkusz rozszerzyłam i ma teraz 18 kolumn (A:S) ---> kolumny automatycznie się dostosowywały do zawartości (tutaj chyba użyteczna będzie Columns ("1:18").AutoFit);...
Próba odpowiedzi na problem Pana okondy. Ponieważ napisał Pan, że słabo zna Excela starałem się opisać wszystko dość dokładnie. Niestety, nie napisał Pan, której wersji Excela Pan używa, ale ponieważ załączony przykład jest w formacie .xls , więc przyjąłem, że jest to wersja 2003 i moje wyjaśnienia odnoszą się do tej wersji. W innych wersjach szczegóły...
W dalszym ciągu nie jest do końca czytelne, bo nie widzę jeszcze powodu, by nie można było zastosować zwykłego kopiowania. Ale zakładając, że droga od danej do wyniku jest wieloetapowa i nie da się jej zapisać w jednej linijce arkusza, to istnieje jeszcze procedura, zwana Tabela danych , która działa właśnie w ten sposób, że podstawia kolejne wartości...
Za dużo kombinujesz ;) Wszystko można zmieścić w takim oto kodzie, komentarze - bez zbędnych dywagacji - w kodzie :) Mam nadzieję że zasadza działania jest jasna? W zasadzie to tylko pętla po wierszach i kolumnach + parę if'ów tłumaczących format excela na worda. "Sekret mnicha" tkwi w tym, żeby ustawić format paragrafu w Wordzie przed wypisaniem tekstu,...
Opisz dokładniej okoliczności powstania błędu, żebyśmy mogli to odtworzyć. Najlepiej załącz plik. Załączam plik. Usunięta została tylko procedura sheet change zgodnie z Twoją sugestią. Skopiowanie jakiegokolwiek tekstu/wartości z przeglądarki i wklejenie go do komórki A2 nie powoduje żadnych problemów. Formatowanie zostaje ciągle takie samo. Podczas...
O takie makro mi chodzilo. W moim arkuszu mam dwie zakladki o identycznym ukladzie wierszy i kolumn. Chcialbym aby makro dzialalo niezaleznie na obu. I jeszcze jedno pytanie. Moj oryginalny arkusz jest dosc odszerny w ilosci danych tak wiec po uruchomieniu zajmuje to odrobine czasu. Czy istnieje sposob aby przyspieszyc makro/otwieranie pliku np. przez...
Witam, potrzebuję makro do Excela w VBA. 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 ciężki temat, gdyż jestem nowy w programowaniu i tak jakbym potrafił napisać na kopiowanie komórek makro tak w tym wypadku jest to troche trudniejsze i nie potrafie...
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...
Witam, staram się napisać mój pierwszy program w VBA. Ma on za zadanie automatyzację ewidencji sprawozdań. Jedną z cech tego programu, musi być zdolność do kopiowania zawartości określonych komórek z każdego arkusza dokumentu i wklejanie ich kolejno do oddzielnego pliku. Żeby nauczyć się samej pętli napisałem coś takiego: [syntax=vb] Sub dzialanie_na_wielu_arkuszach()...
Witajcie, Napisałem makro kopiujące cały wiersz. Problem mam z tym, ze jak bierze już dany wiersz do kopiowania w którym są checkboxy i kazdy z nich ma jakieś odwołanie, to wkleja wiersz ponizej już z tym odwołaniem. Nie wiem jak zrobić aby odwołanie się nie kopiowało, a checkbox tak. Poniżej wklejam kod: [syntax=vb]Sub WstawPo(SearchedRn As Excel.Range,...
Witam ekspertów excela :-) Panowie i Panie mam gorącą prośbę zrobienia makra do pliku Chciałam ułatwić sobie pobieranie danych w pracy, jednak nie mamy specjalisty, który umiałby stworzyć odpowiednie makro, dlatego przychodzę z prośbą, gdyż dla Was nie jest to pewnie w ogóle skomplikowane :) i jedynie potrzeba trochę czasu Obecnie muszę wszystko cały...
warunkowe kopiowanie wartości excel excel kopiowanie wartości komórki excel kopiowanie samej wartości
kupić układ scalony renault słabo kręci iskra komputer
Podłączenie magnetowidu Panasonic NV-HD635 do telewizora Samsung DV3 HD SRS Jak zmienić język w drukarce HP PSC 2210?