Kopiowanie komórek: [syntax=vb]Sub Kopiowanie() Linia = 2 Sheets("Sheet1").Select Range("C6:H45").Select Application.CutCopyMode = False Selection.Copy Sheets("PASS").Select While Range("A" & Linia).Value <> "" Linia = Linia + 1 Wend Range("A" & Linia).Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False,...
W komórkach J3:L3 wpisujesz wartości alternatywne, które zastąpią te z WYSZUKAJ.PIONOWO. Jeśli te komórki zostawisz puste lub będzie tam wartość nieliczbowa, to pozostaje wynik pierwotny z WYSZUKAJ.PIONOWO.
No to pewnie arkusz "XXX" & Cells(Y, "B") nie istnieje. Stojąc mniej więcej tam napisz w oknie poleceń (Immediate, jak nie mam to sobie włącz: View, Immediate Window) coś takiego: ? "XXX" & Cells(Y, "B") Napisałem, że muszą być przygotowane wszystkie potrzebne arkusze z nagłówkami, makro ich nie tworzy.
Ja bym tak to zrobil Dim Tekst As String For i = 2 To Worksheets.Count Tekst = Tekst & Worksheets(i).Cells(1, 1).Text Next i Worksheets(1).Cells(1, 1).Value = Tekst
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.
(Baza Zielone) 1 - nie do końca wiem czy o to Ci chodzi (próbowałem zrozumieć co chcesz osiągnąć - możliwe, że właśnie to co w załączonym pliku). Najprościej będzie posortować po pierwszej kolumnie tak aby puste wartości (matki) zostały na końcu i wówczas do kopiowania danych używasz formuły: 1060144 (Baza Niebieskie) 2 - już napisałem powyżej. Robisz...
W takim razie w komórce wynikowej można wpisać =PRZESUNIĘCIE(D4;0;PODAJ.POZYCJĘ(... oraz wyłączyć wartości zerowe w widoku arkusza. W różnych wersjach Office było różnie, więc np. Narzędzia>Opcje>Widok>Wartości zerowe albo Plik>Opcje>Zaawansowana>Opcje wyświetlania dla tego arkusza>Pokaż zero w komórkach...
Cóż, taka już natura Excela... Pewnie wklejają się wszystkie odfiltrowywane wiersze, tylko jeden pod drugim, począwszy od pierwszego widocznego. Jak po tej operacji zdejmiesz filtr, to wszystkie odfiltrowywane wartości z kolumny A powinny być w kolumnie C, tylko jedna pod drugą. Nic na to nie poradzisz, trzeba po prostu być ostrożnym przy używaniu filtra...
[syntax=vbscript]Sub ProceduraKopiowania() 'Pytanie_1 Worksheets("1").Range("j6").Copy Worksheets("2").Range("a" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues Worksheets("1").Range("r6").Copy Worksheets("2").Range("B" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues Worksheets("1").Range("AI6").Copy Worksheets("2").Range("c"...
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...
Dzień dobry, Opis dość nieprecyzyjny, nie wiadomo czy listy są tej samej długości, gdzie miałyby być kopiowane po wpisaniu nazwy, i gdzie ta nazwa ma być. Spróbuję coś napisać ogólnie. To rozwiązanie dotyczy Excela w którym pracuję na co dzień, myślę że w OpenOffice można stosować podobne rozwiązania. Jeśli kolumny mają nagłówki dogodnie byłoby nadać...
Jak miałoby to wyglądać? Od daty do daty? Wyłączając opłacone? Zgodnie z zasadami księgowości nota odsetkowa tyczy się faktur już zapłaconych, ale poza terminem. Czyli za czas spóźnienia. Może się tyczyć tych jeszcze nie opłaconych (na dzień sporządzenia noty) ale wtedy jest "kłopot" z wyliczeniem wartości odsetek za zwłokę bo dzień sporządzenia noty...
W załączniku.
Witaj [syntax=vbnet]Sub CellToComment() Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection For Each Rng In WorkRng koment = koment & Rng.Value & vbLf Next WorkRng(1).Offset(WorkRng.Count).NoteTex... Text:=koment End Sub [/syntax]
W załączniku.
Wszystko to chyba jest dość proste, tylko przedstawione w jakiś dziwnie zagmatwany sposób. Po pierwsze nadal nie jest jasne czy masz jeden plik czy dwa pliki. W pierwszym pliku jest Makro1. Wywołujesz to makro w kodzie, który nie ma nazwy, bo nie pokazałeś całego makra, tylko kawałki. I teraz czy ten kod bez nazwy jest w osobnym pliku, ale z takimi...
Jak masz już zapamiętany w zmiennej numer kolumny, to możesz odwołać się do komórki w trzecim wierszu przez [syntax=text]Cells(3, numer_kolumny)[/syntax] Jeśli potrzebujesz się odwoływać za każdym razem do innej kolumny, to: [syntax=text]Cells(3, ActiveCell.Column)[/syntax]
Sheets("DATA ENTRY " & s)
Jaką regułę zastosować, żeby w programie Excel dane z jednego arkusza kopiowały się do drugiego arkusza automatycznie ? Aby skopiować dane z jednego arkusza do drugiego w programie Excel w sposób automatyczny, możesz skorzystać z kilku różnych metod, w zależności od tego, jakiej funkcjonalności oczekujesz. Oto kilka przykładów: 1. Formuła odwołująca...
Witam, jestem nowa na forum, potrzebuje pomocy z excelem, jeśli to możliwe jak najszybciej, do rzeczy: Tworzę skoroszyt do dystrybutora paliwa, mam zakładki do każdych pojazdów oddzielnie, najważniejsza zakładka jest "dystrybutor", w tej zakładce jest "zużycie paliwa". Chciałabym, aby automatycznie z poprzednich arkuszy "Razem dział." przechodziły tylko...
Tylko już .xlsm
Ale po co kombinować z makrami tam, gdzie wystarczy wpisać raz formułę i skopiować ją do kolejnych komórek w kolumnie?
Witam, Czy jest sposób na kopiowanie tylko samych wartości komórek w excel-u (przez przeciąganie), tz. aby do komórki docelowej kopiowane była wartość z komórki kopiowanej ale formatowanie (kolor, obramowanie,itd.) pozostawało bez zmian w docelowej komórce ? pozdrawiam.
CTRL+SHIFT+" (CUDZYSŁÓW) Aby skopiować wartość z komórki nad aktywną komórką do komórki lub paska formuły CTRL+` (POJEDYNCZY CUDZYSŁÓW) Aby przełączać się między wyświetlaniem wartości komórek i formuł komórek Znalazłem tylko takie określenia. Sprawdź jaki format ma komórka po tej operacji. Przed użyciem tego skrótu za pewnie miałeś format komórki jako...
Witam wszystkich mam taki problem potrzebuje pomocy. W arkuszu1 nazwanym kreator w komórce c6 wpisuje dowolną liczbę w zakresie 10-30 . Twym samym arkuszu jest zaznaczonym obszar d6:e10 prostokąt 2kolumny na 5 wierszy. Obszar ten jest sformatowany i ma wpisane formuły. Nie potrafię napisać kodu który brał by dane z c6 i tą liczbę razy kopiowałby obszar...
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...
Witam, Od pewnego czasu próbuje znaleźć rozwiązanie do bardzo czasochłonnego procesu kopiowania.. Przejdę do rzeczy. Mam plik (Excel), w którym posiadam indeks kolumn, oraz wierszy, niech: A2: PH1, A3: PH2 . . itd aż do np. . A1013: PH1012 oraz (indeks wierszy) B1: c01 ; C1: c02 ... itd aż do... CZ: c... Adresy poszczególnych indeksów np. C14 jest równe...
Witam. Mam za zadanie napisać makro kopiujące wartości z jednego arkusza do drugiego. Jak dotąd nie było z tym problemu ale teraz są to dość obszerne arkusze więc nagranie makra trochę mija się z celem bo dużo wartości musi zostać skopiowane. Najbardziej zastanawia mnie dlaczego wartości z komórek AF54 i AG54 usuwają się za każdym razem jak odpalę to...
Niestety, nie bardzo mi oto chodziło. Otóż mam plik: Zeszyt2, w którym podaje się dane wejściowe w jednej komórce, następnie wykonywane jest w tym pliku skomplikowane działanie i wynik wyświetlany jest w drugiej komórce. Takich danych wejściowych mam dużo, ale wynik jest wykonywany tylko z danymi z jednej komórki i podawany też tylko w jednej. Działanie...
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...
witam, próbuję zrobić makro, które, kopiowałoby komórki z wartością >0 i wklejało wartość do tej samej komórki, ale w całkiem innym skoroszycie. Ścieżka do skoroszytu, w którym miałyby się znaleźć wklejane wartości byłaby zawsze ta sama. z góry dziękuję za pomoc
Wydaje mi się, że najlepszym rozwiązaniem w przypadku wartości stałych, wpisywanych z klawiatury jest stosowanie grupowania arkuszy. Wtedy w obu arkuszach jest dokładnie ta sama zawartość. Pozwala to również na formatowanie komórek, ukrywanie i odkrywanie wierszy, usuwanie i wstawianie wierszy. Trzeba tylko zadbać, żeby wiersze sobie odpowiadały. Poprawki...
Żeby od komórki z wartoscia="DANE TECHNICZNE" Kopiował wszystkie wartości komórek poniżej, aż do komórki , w której wartośc= "INNE WARIANTY" i wklejał do jednej komórki w arkuszu3 Oraz poza tym - chciałbym, aby w komórce zostawały tylko liczby - bez tekstu, (np. KOŁO CENA 391,00 C = 391,00) próbowałem w formatowaniu, ale nie dało rady, jest jakiś inny...
Dzień dobry, mam problem z wydaje się prostą "sprawą". W pliku excela mam ponad 200 arkuszy. Dane do tych arkuszy przenoszone są z arkusza z danymi - Arkusz1. I tak dane kolejnych wierszy kolumny A Arkusza1 mają być przenoszone do komórki np. A1 arkuszy 2,3,4, itd. Czyli np. wartość z komórki A1 Arkusza1 ma znaleźć się w komórce A1 Arkusza2; wartość...
witam wszystkich, Mam prawie skończoną część swojego projektu, jednak brakuje mi małej modyfikacji makra. Otóż makro nie do końca prawidłowo kopiuje zawartość bloku. Potrzeba mi, żeby po wypełnieniu całego pierwszego bloku danych, makro kopiowało poniżej następny blok, ale w skopiowanym bloku przenosiły się tylko wartości nagłówków oraz wartości z komórek...
To jest tylko około 2 000 rekordów. Ma kopiować dane ze wszystkich komórek z wiersza powyżej. Wstawianie nowego wiersza ma być tylko , jeżeli w kolumnie G w komórce jest liczba >1. Np. jezeli jest liczba 5, to ma dodać 4 wiersze, a w wierszu gdzie jest 5, to ma zamienić liczbę na cyfrę 1. Chcę aby to można było zrobić na dodany przycisk odśwież. (ma...
Witam, Szukam sposobu na rozwiązanie takie problemu: Mam plik, który zawiera kilka lub kilkanaście arkuszy. Liczba arkuszy jest zmieniana na bieżąco (zazwyczaj są dodawane) Chciałbym aby do jednego arkusza powiedzmy pierwszego były kopiowane wierszami wartości konkretnej komórki z każdego arkusza (oprócz tego, w którym jest raport). W każdym arkuszu...
Przenosić wartości komórek z wybranego pliku w zdefiniowane wcześniej komórki w pliku z aktywowanym makrem :) Przykład: Z pliku o nazwie 1234.xlsx (plik chce dowolnie wybrać Application.GetOpenFileName) przenieść wartość komórek "b2, b82, c41, e75" itd. do pliku 4321.xlsxm w którym aktywowałem makro do komórek o tym samym położeniu "b2, b82, c41, e75"....
Szkoda, że nie chcesz załączyć przykładowego pliku, bo w ten sposób zmniejszasz swoje szanse na uzyskanie optymalnej pomocy, a potencjalnych pomagających zmuszasz do wypytywania o wszystkie szczegóły. Z tego co teraz napisałeś zrozumiałem, że arkusz "Generator cen" zawiera jakieś formuły, które mają być użyte do przeliczenia danych z arkusza "301" i...
Witam. Mam może śmieszne pytanie, jednak dla mnie jest to wielką zagadką. Jeśli w Excelu włączę filtr je jakiejś kolumnie czy ukryje wiersze. Kopiuje wszystkie komórki z filtrowaną wartością, to czasem kopiują się tylko te wartości filtrowane, a czasem wszystkie, nawet te ukryte. Np: http://obrazki.elektroda.net/40_12706476... Jeśli skopiuje komórki...
Formuła działa idealnie. Dzięki I jeszcze jedno pytanie, czy da się za pomocą jakiegoś makra pobierając dane tak jak teraz kopiować pliki o takich nazwach jak wartości z tabeli?
Witam serdecznie. Jest to mój pierwszy post więc proszę o wyrozumiałość. Mam pewien problem a że VBA nie znam zbyt dobrze ( raczej jakieś podstawy) trochę mnie to przerasta. Szukałem coś nt. temat ale ciężko znaleźć jakiś podobny przykład. Do sedna: Dane: W pliku znajduje sie kilka arkuszy : arkusz1, arkusz2,arkusz3, arkusz4 itd. W 4 pierwszych arkuszach...
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...
Wszystko działa super - musiałem tylko rozciągnąć formuły bardziej w dół bo pokazywało tylko pierwszych 10 A mógłbyś pokazać rozwiązanie z zastosowaniem makra, tak aby jeszcze pogrubiało w wartościach "wkopiowanych" w komórki kolumny "I" wartości "wyciągnięte" z komórek C i E oraz nazwę dostawcy tak aby tekst w kolumnie I wizualnie wyglądał tak jak...
Witam. Domyślam się że to co potrzebuję jest bardzo proste. Mianowicie potrzebuję pomocy żeby stworzyć przycisk dzięki któremu będę mógł kopiować wartości z jednego arkusza do aktywnego arkusza (w którym znajduje się przycisk) do konkretnej kolumny z tym żeby jak będzie kopiować do kolejnego pustego wiersza. Czyli np. po naciśnięciu przycisku z arkusza...
Witam, formuła nie wystarczy gdyż arkusz "wydruk" jest generowany każdego dnia, a następnego czyszczony i generowany nowy, a formuła nie zapamiętuje wartości pobranych...
potrzebuję każdy wodomierz rozpisać oddzielnie i nie łączyć ciepłej wody w kuchni z ciepłej wody w łazience. Musi być każdy osobno. Kobitki, to takie marudy są odrobinę ... :| ... "Ułatwianie sobie życia" - dodać jedną kolumnę w arkuszu ''Arkusz1'' na "indeks" wylistowujący "adreso-wskazania" wodomierzy, np. w kolumnie ''E'' - i tak przecież są tam...
Witam, Mam problem z Excelem... Muszę zrobić "program" opierający się na excelu/VBA i mam problem. Ogólnie program ma pomagać w układaniu diet oraz ma służyć za "bazę danych" dietetyka. Już mówię z czym mam problem... w skoroszycie "baza produktów" mam produkty z zawartością wszystkich składników mineralnych itp. chcę, żeby po tym jak ktoś wybierze...
Dziękuję za uwagi. Muszę nieco doprecyzować: nie jest konieczne użycie formatowania specjalnego, przenosi się też formatowanie walutowe. Przy okazji, formatowanie specjalne nie zostaje zachowane w swojej oryginalnej wersji, tylko komórki docelowe zostają sformatowane formatem walutowym. Zapewne Excel uznał formatowanie specjalne użyte w moim pliku za...
PRL, dzięki za próbę pomocy, ale zdecydowanie to nie jest to na czym mi zależy Bardziej myślałam o tym, żeby uzależnić ilość kopiowanych komórek z pierwszego wiersza od ilości komórek w drugim wierszu, które mają te same wartości (dlatego, że ich ilość może się różnie zmieniać). W zasadzie to makro, które wkleiłam pierwsze prawie działa, dlatego raczej...
Jest super działa:) dziękuję:) a jak będę chciał zmienić, od którego wiersza i kolumny ma zacząć, to muszę zmienić wartości tych wyrażeń tak? wrs = 3 'pierwszy wiersz kolumny A kol = 3 'pierwsza kolumna z imionami
Witam Robię sobie taki arkusz i mam mały dylemat. Mam powiedzmy komórki A1 i A2. W komórce A3 sprawdzam zależność "jeżeli". Powiedzmy, że ma to być prawda to chcę żeby do komórki A4 została skopiowana zawartość komórki A5. A dokładniej chcę tak zrobić jeżeli będzie prawda to do komórek powiedzmy A5, A6, A7, A8 skopiować zawartość komórek B5, B6, B7,...
witam Was serdecznie ;) Mam problem ze zrealizowanej pewnego makra. Postaram sie opisać w jaki sposób program ma działać na bardzo uproszczonych danych. Poniżej zamieściłem również prezentacje graficzną tego co ma zrobić makro. Na wstępie jedno podstawowe pytanie: skąd Wy bierzecie różnego rodzaju wymyślne funkcje, z jakich materiałów korzystacie? ja...
Robisz pętlę po komórkach pierwszego arkusza i dla każdej wartości wyszukijesz w drugim produkty względem tej wartości. Wszystko co znajdziesz przepisujesz do 3 arkusza. Pozostaje zagregować dane w 3 arkuszu, bo produkt może wystąpić po kilka razy. Unikaj Select'ów, zamiast tego możesz odwoływać sie do komórek bezpośrednio poprzez Sheets(NazwaArkusza...
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...
Witam Jestem totalnie zielony w temacie, a potrzebuję stworzyć sobie makro, które pozwoli na kopiowanie komórek o odpowiednią ilość wierszy - otóż mam gotowy plik z dużą bazą danych, do której kilka razy w tygodniu doklejam kolejne wiersze. W osobnym arkuszu mam utworzoną, przygotowaną do druku kartę (2 kolumny po 19 wierszy), do której podczytane są...
Witam, mam problem gdy kopiuję tabelkę z formułami z jednego pliku i chcę wkleić do innego pliku pojawia się komunikat o błędzie i wklejają się tylko wartości. Adresy komórek nie są zabezpieczone, ale w każdym dokumencie są te same, wersje excela są te same, tryby chronione są wyłączone, nie za bardzo wiem co się dzieje.
witam Jak w temacie problem z kopiowaniem. Mam plik excela w którym gromadzę dane. Potrzebuję w jakiś sposób pobrać dane z innych plików excela, których nie chcę za każdym razem otwierać(gdyż będzie ich dużo). Np. w kolumnie A mamy nazwy plików i potrzebne jest aby w kolumnie B były wartości z określonych plików z kolumny A. Gdyby wszystko było w jednym...
Cześć, Mam pliki z raportami które nazwane są Raport I7 ). Np. dokonalismy importu z pliku raport 2019-12-04 to wpisują się wartości w tym właśnie wierszu w moim pliku - przykład poniżej: Przykładowy plik raportowy o nazwie Raport 2019-12-04 https://obrazki.elektroda.pl/2001598900_... Mój główny plik: https://obrazki.elektroda.pl/6931841800_...
On Error Resume Next w = Target.Row k = Target.Column If k = 10 Then If Target.Value > 1 Then a = w + 1 b = a + Target.Value - 2 Rows(a & ":" & b).Select Selection.Insert Shift:=xlUp, CopyOrigin:=xlFormatFromLeftOrAbove Rows(w & ":" & w).Select Selection.Copy Rows(a & ":" & b).Select ActiveSheet.Paste Application.CutCopyMode = False MsgBox "Uzupełnij...
...działa ale dość wolno. Muszę skopiować zakres danych ok. 2500 wierszy z 60 skoroszytów do jednego. Jak mogę podrasować to makro ? W pętli: [syntax=vbscript] While Plik <> "" ... Wend [/syntax] nie należy kopiować, tylko przenosić dane z komórek 'dawcy' do zmiennej tablicowej, a następnie z tej zmiennej oddawać wartości do obszaru zdawczego...
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...
Witam, proszę o pomoc w rozwiązaniu następującego problemu. Mam cztery kolumny, a i b w arkuszu 1 oraz c i d w arkuszu 2 które chce porównać ze sobą w następujący sposób. Dla komórki w kolumnie a arkusza 1 chcę znaleźć taką samą komórkę w kolumnie c arkusza 2. Jeżeli nie ma takich samych komórek to wynik = BRAK. Jeżeli znajdzie się odpowiednik to dla...
Witam, mam za zadanie jak najszybsze skopiowanie z kilkunastu arkuszy jednego pliku excela do jednego arkusza innego (nowo utworzonego) pliku excela. Używam metody Zrodla = Split("A1,A2,...,V2:W2", ",") Cele = Split("C9,C10,...,L103", ",") For i = LBound(Zrodla) To UBound(Zrodla) Workbooks(CurrentFile).Sheets(1).Range(Z... ThisWorkbook.Sheets("XXX").Range(Cele(i)...
Witam, bardzo serdecznie:) Makro wysypało mi się teraz trochę w innym miejscu. Niby prosta rzecz do zrobienia, tak mi się wydaje, skopiowanie zakresu pojedynczych komórek i wklejenie ich, żeby stały jedna obok drugiej w jednym wierszu zaczynając od komórki A1 (arkusz Excel). Makro w arkuszu Excel działa i wygląda mniej więcej tak: "Selection.PasteSpecial...
mam jeszcze jedno pytanie odnośnie tego kodu. gdybym chciał ograniczyć obszar poszukiwania tylko do kilku komórek to kod powinien być taki jak poniżej [syntax=vb] Sub Kopiuj() Dim kol As Integer, wrs As Long Sheets("Arkusz3").Range("B:B").ClearCont... With Sheets("Arkusz2").Range("A5:F5") kol = .Find(what:=Sheets("Arkusz1").Range("A3"... lookat:=xlWhole).Column...
Wklejam tekst w skoroszyt i excel automatycznie zmienia mi wartości na zgodne z formatem daty. Nie pomaga preformatowanie wszystkich komórek na tekstowe przed wklejaniem. Excel zmienia wtedy format z Tekstowe na Ogólne a w jednej kolumnie na Data. Kopiuję tabele ze strony www więc nie moge danych wcześniej preformatować (np. dodając apostrof). Kopiowanie...
Np. potrójnie zagnieżdżoną pętlą For wg.schematu: For pracownik = 1 To ilePracowników (tu przydałaby się rozpiska w osobnym arkuszu np. "Pracownicy", bo gdzieś trzeba ich policzyć) For miesiac = 1 To ilość miesięcy (tu LCase(nazwa arkusza) lub indeks daje nazwę m-ca) w tej pętli obliczasz bez zerowania również Nr wiersza wynikowego dla arkusza "Wynik"....
Bo Target.Address będzie równy zakresowi komórek tylko wtedy, kiedy dokonają się zmiany w całym tym zakresie, np. przy jednoczesnym wklejeniu w wiele komórek lub usunięciu ich wartości. Wstaw sobie w zdarzeniu Change [syntax=vb]MsgBox Target.Address[/syntax]i popatrz, jakie przyjmuje on wartości przy różnych zmianach. O warunku OR coś słyszałeś?? Skoro...
Udało mi się wybrnąć z poprzedniego tematu, ale pojawił się kolejny problem. Teraz kiedy mam już posortowane produkty po dostawcach potrzebuję dodać formułe, która w każdym Arkuszu będzie wykonywała kolejne czynności: 1. Sortuje wiersze po dacie zamówienia. 2. Sortuje wiersze po nazwie dostawcy. To już mam, macro teraz musi robić: 3. Dla wszystkich...
---> kolumny automatycznie się dostosowywały do zawartości (tutaj chyba użyteczna będzie Columns ("1:18").AutoFit); ---> włączenie opcji zawijania tekstu . ---> Każda komórka była obramowana jak w pliku źródłowym ---> kolumna R zsumowała wartości z kolumn L, N, O i była zapisana w formacie księgowym. Kolumna E i F – format daty (dd-mm-yy). Jak...
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...
W s7-200 zrobiłem sobie prosty generator liczb losowych(podprogram SBR0) oraz podprogram(SBR1) losujący kilka liczb z zakresów podanych na wejściu. W podprogramach używam tylko zmiennych lokalnych. I gdy jest jeden podprogram losujący(SBR1) w OB1 to działa poprawnie, w przypadku gdy wrzucam drugi podprogram (drugi egzemplarz SBR1 dla drugiego urządzenia)...
Dziękuję Panowie. Szczegółowe opisanie tego co chcę osiągnąć było by dość długie. W arkuszu pierwszym mam zaimportowane pewne dane z pliku csv. Dane te dotyczą różnych osób i tu nie ma reguły. Np dla Jana Kowalskiego mamy 3 wiersze danych, dla Marii Kowalskiej mamy 4 wiersze. Natomiast dla Stanisława Nowaka mamy też jakiś tam wiersz z informacją że...
Witam, Pierwsza sprawa - szybkość kodu... Ja stosuję dość uniwersalny trik z blokadą odświeżania zawartości na czas wykonania pętli, co znacznie przyspiesza szybkość działania każdego kodu. Przed pętlą wstawiasz: Application.Calculation = xlCalculationManual Application.ScreenUpdating = False Po pętli: Application.ScreenUpdating = True Application.Calculation...
Z VBA w Excelu mam do czynienia od niedawna i chciałbym prosić o pomoc z kodem jakim dysponuję. Powstał on poprzez rejestrację makra i skopiowanie pewnej części z sieci. Ta zarejestrowana część nie daje mi spokoju bo można to osiągnąć w bardziej uniwersalny sposób dla wszystkich arkuszy w pliku. Tak więc chciałbym aby zawartość komórek w zakresie od...
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
Mam jednak pytanie jak to się dzieje że wkleja to w odpowiednie miejsce? Cały mechanizm makra polega na przechodzeniu krokowym (założyłem wstępnie od wiersza 1 do 10 - ale to można odpowiednio dostosować do potrzeb) wzdłuż kolumn arkusza 1 i porównywaniu wartości z odpowiednimi komórkami arkusza 2 :D Jeśli makro napotka w którymś wierszu inne wartości...
Brak załącznika to poważny mankament! Nie wiadomo, jakie dane są w kolumnie "O". W kodzie PRL jest sprawdzany warunek: [syntax=vbscript]Sheets(x).Cells(y, "O") >= -30[/syntax]Otóż warunek ten spełniają nie tylko liczby >= -30, ale również puste komórki, dowolne teksty, w tym teksty puste, wartości logiczne. A jeśli w komórce jest wartość błędu, to program...
[syntax=vbscript]For y = 1 To ile - 1[/syntax]
Dziękujemy za pozdrowienia. Proszę załączyć plik z przykładowymi (fikcyjnymi) danymi. Pytania dotyczące zagadnień związanych z pakietem Office, Open Office i tym podobnych, w miarę możliwości, powinny być uzupełnione załącznikiem w postaci pliku, zawierającym układ i rodzaj danych, oraz własne próby rozwiązania.
Hmm, może dwie pętle? Jedna do określenia Nr wiersza, druga do wypełniania... [syntax=vb]wrs = 1 strS = "MAGMA" maks = 1000 'ustawienie maksimum, coby nie wpaść w nieskończoną Do While Cells(wrs, 6) <> strS If wrs = maks Then Exit Sub wrs = wrs + 1 Loop Do While Cells(wrs, 7) <> "SUMA" If wrs = maks Then Exit Sub wrs = wrs + 1 Cells(wrs,...
Makro poniżej przesuwa nazwiska w prawo o wartość numeru grupy+1, a następnie usuwa puste komórki w obszarze danych. Nazwiska nie są posortowane. Jeżeli jest potrzeba. sortowania to na początku makra dopisać sortowanie.[syntax=vbscript]Sub Przepisz_Nazwiska() Dim Tab_Opis As Variant With ActiveSheet Tab_Opis = Array("Grupa 1", "Grupa 2", "Grupa 3",...
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ąć...
Witam mam mały problem z makrem, a mianowicie chciałbym żeby to makro kopiowało tylko wartości komórek, a nie całe komórki nawet z ramką i kolorem czcionki, da się je jakoś przerobić.[syntax=vb]Option Explicit Sub CopyMultipleSelection() Dim SelAreas() As Range Dim PasteRange As Range Dim UpperLeft As Range Dim NumAreas As Integer, i As Integer Dim...
W miejsce 'Sheets("Sheet2").Select' umieść wstawianie arkusza (Sheets.Add) i nadanie nazwy (Activesheet.Name). Jeśli wartości w kopiowanych komórkach nie są unikatowe, musisz najpierw sprawdzić czy arkusz z taką nazwą istnieje.
sprawdź załącznik
Przy założeniach że w arkusz1 dane w kolumnie A rozpocząć 3 wiersz, tabela na arkusz2 rozpoczyna się w 2 wiersze =INDEKS(Arkusz1!A:A;(WIERSZ()-2)*45+3)
domyślnie kopiując zaznaczone komórki i wklejając do edytora tekstowego wartości odzielone są TABem :?: :not: Typowe ustawienia :idea: przy kopiowaniu komórek arkusza 965302 i wklejaniu do edytora tekstowego 965305 wartości rozdzielane są "powrotem karetki" CR i "przesunięciem linii" LF :D
Witam wszystkich Potrzebuję pomocy w stworzeniu makra działającego wg poniższego 1. w arkuszu "dane2" mamy cennik produktów 2. w kolumnie E są przyciski pod które muszę podpiąć makro; przycisk z E2 kopiuje wartość komórki C2 do arkusza "dane1"w pierwszą wolną komórkę z zakresu A3:A20; przycisk z E3 kopiuje wartość komórki C3 do arkusza "dane1"w pierwszą...
MOVX (at)R0,A ; Kopiuje zawartość akumaulatora do komórki pamięci zewnętrznej o adreści umieszczonmym w rejestrze R0. MOV A,#WOT ; Kopiuje do akumulatora wartość spod etykiety WOT, czyli 1101111B MOVX (at)R1,A ; Kopiuje zawartość akumaulatora do komórki pamięci zewnętrznej o adreści umieszczonmym w rejestrze R1.
Witam. Panowie mam takie makro jak niżej, które chciałbym aby od aktywnej komórki zaznaczyło 3 komórki w dół i skopiowało wartość aktywnej komórki również do tych 3 komórek poniżej - to tak najprościej opisane. To tak w skrócie, bo ilość komórek zaznaczanych w dół mam zmienną, bo zależy od "NrRow" który jest ilością pełnych komórek w innym arkuszu....
Załącz przykładowy plik, bo 1 plik jest lepszy od 1000 słów. To trzeba sprawdzić w działaniu. Prawdopodobnie potrzebna będzie jakaś procedura zdarzeniowa, ale trzeba zobaczyć jak ona będzie działać przy ukrytych kolumnach.
Gwoli ścisłości: sprawdzanie poprawności danych nie chroni przed kopiuj-wklej z innego arkusza (czytaj: robiąc kopiuj-wklej i tak możesz wkleić w komórki dowolną wartość). Ale, nie ma rozwiązania idealnego.
Witam Muszę skopiować część listy 100 wierszy z Arkusza1 do Arkusza2 w zależności od wartosci komórek np A5=1 i B5=46 wyznaczające ilość linii do skopiowania 46 lini zaczynając od linii 1 do linii 46. Wartość komórek A5 i B5 w takim razie muszą być zmiennymi w makrze. Z gory dziekuje i pozdrawiam.
Witam, Stworzyłem makro, które tworzy mi w odpowiednich komórkach butony w zależności od wartości innej komórki(jeżeli są jakieś dane, przycisk zostaje utworzony). Teraz chciałbym po kliknięciu danego buttona skopiować kilka komórek z zakresu, w którym znajduje się przycisk do innego pliku. Problem polega na tym, że butony są dynamiczne a ja chcę by...
Chyba łatwiej zrobić dwuklik na wierszu, z którego chcesz kopiować. Równocześnie uruchamiasz makro i wskazujesz wiersz. Możesz też się upewnić, czy to właściwy wiersz. Oczywiście można też wstawić tam InputBox, tylko wtedy jak chcesz uruchamiać to makro? Jeśli chodzi o moją propozycję, to komórki docelowe wypisujesz po kolei jako adresy obiektu Range:...
No i masz odpowiedź! Wywal dolary i będzie OK! Pierwszy $ ustala kolumnę, drugi wiersz. $X$Y to stały adres komórki, nie zmieni się przy kopiowaniu.
Cześć, mam taki problem. Chciałabym zarejestrować makro, które będzie kopiowało komórkę i przenosiło do innego arkusza. Jednak wartości tej komórki będą się zmieniać, a jak rejestruje zwyczajnie kopiując i wklejając, to potem makro wkleja mi tę wartość, którą skopiowałam przy rejestracji, zamiast nowej, która pojawiła się w tej komórce kopiowanej. Proszę...
Sortowanie w Excelu działa tak jak kopiowanie, a nie jak przesuwanie. W związku z tym odwołania z zewnątrz do obszaru sortowanego nie aktualizują się. W odwołaniach zewnętrznych trzeba się odnosić do stałych, a nie do adresów. Zaprezentowany problem można rozwiązać np. za pomocą funkcji WYSZUKAJ.PIONOWO.
kopiowanie komórek kopiowanie wartości porównanie wartości komórek
volvo silnika piecyk gazowy gaśnie junkers dwufunkcyjny ustawić
maszyny synchroniczne zasilacz regulowany schemat
Kod błędu F2305 w urządzeniach Stihl - przyczyny i diagnostyka Wymiana iskrownika w płycie gazowej Amica PG 7521
