Najprościej (rozumiem, że kod nadal dotyczy procedury zdarzeniowej) to:[syntax=vb]If Target.Column = 2 Then Cells(Target.Row, 3).Select[/syntax]
z komórek A1:A100 do komórek Z3:Z103 Raczej do z3:z102(100-1=99; 102-3=99) Przed 'End Sub' [syntax=vb]ark2.Range("Z3:Z102") = ark1.Range("A1:A100").Value[/syntax]
Witam, Sprawdź, czy taka prosta pętla kopiująca załatwi sprawę. Nazwę dostawcy definiujesz w kodzie na górze. [syntax=vbscript]Private Sub CommandButton1_Click() On Error GoTo myErr Application.ScreenUpdating = False Const NAZWA_DOSTAWCY = "Dostawca B" Set wsDest = Worksheets("Dostawca B") ost_dest = 4 koniec_dest = wsDest.Cells(wsDest.Rows.Count, "H").End(xlUp).Row...
Widzę, że nie bardzo lubisz makra ;) a wystarczy: 1. makro z WorkbookOpen powtórzyć przy WorksheetActivate (aktualizacja listy Combobox''a). 2. Usunąć instrukcje warunkowe dot. producenta Listę kolorów modyfikujesz w arkuszu "Opcje". Musi być "ciurkiem" (bez dziur). Edit 20:17 - zmieniłem załącznik (Clear brakowało przy Activate)
Spróbuj z kopiowaniem w pętli. Przykład w załączniku. Edit: Zacznij od Range.Clear (po With), przeoczenie...
Moja propozycja - kod do umieszczenia w module arkusza: [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column > 2 Or Target.Value = "" Then Exit Sub Select Case Target.Column Case 1 Call UtworzFolder(Target.Value) Case 2 If Target.Offset(0, -1).Value <> "" Then Call PrzeniesFolder(Target.Offset(0, -1).Value)...
Jego przeznaczeniem jest użytkowanie przez bardzo amatorską osobę Już podpowiadam. Dla w/w osoby: "4D, 5D, 5N, 29N" ; "4d ,5d ,5n ,29n" ; "4D,5D,5N,29N" ; "4D. 5D. 5N .29N" w zasadzie wygląda tak samo. O pomyleniu literki, bo przecież można się pomylić, nawet nie wspomnę. Jeśli 15 razy dziennie nie chcesz słyszeć: "Panie kefler! Ten pana program znowu...
Wszystko działa prawidłowo tylko tych danych mam dość dużo bo około 90 komórek do przeniesienia do dwóch arkuszy. Jestem jeszcze na początkowym etapie a działanie makra zaczyna się dość mocno wydłużać. Excel nie jest i nigdy nie był uważany przez Microsoft za narzędzie do developmentu oprogramowania
Witam serdecznie, chciałbym napisać makro do excela, może ktoś mi pomoże z tematem A mianowicie: gotowy arkusz z uzupełnionymi danymi chciałbym zapisać w nowym pliku (sam chce wpisywać nazwę tego pliku. Nowy plik a arkuszem powinien wyglądać tak samo z tym, że kilka komórek ma być skopiowanych w inne miejsca a część usunięta do nowej edycji. Być może...
W takim razie musisz mieć poustawiane jakieś formatowanie niestandardowe, albo jakieś niedrukowane znaki w komórkach. Zrób jeszcze tak, ustaw się w komórce E8 (transfer) i np. J5 (inventory) i zrób zrzuty, tak żeby było widać wartości tych komórek na pasku formuły. Albo jeszcze inaczej skopiuj wartość z od J5 do E8 i wtedy Uruchom.
defincje wksz as worksheet oczywiście były, dużo wierszy to już ok 200 (jesli ogranicze pętle Do - do na przykład x=5 wtedy też jakby lepiej działa jak jest wiecej to nawet cały widok czasem sie nie odswieża - skopiowana tabela sie wogóle nie pokazuje, muszę kliknąc 2 razy (dokładnie 2 razy) na jakąś komórke i wtedy pokazują sie skopiowane wiersze -...
Witam, jestem kompletnie poczatkująca jeśli chodzi o tworzenie makr a chciałabym uprościć sobie pracę. W jednym arkuszu (Tab.2b) wpisuję dane w kolumnach odpowiednio: B- numer projektu C- numer raportu parasolowego G- wartość przekazanych refundacji H- data refundacji w drugim arkuszu (rejestr) mam inne dane dotyczące projektów wykazanych w kol.B arkuszu...
(...)prosiłbym aby ktoś bardzo łopatologicznie wyjaśnił mi co to jest impedancja? Czy jest jakaś różnica pomiędzy impedancją a impedancją falową? Wiem że chodzi tutaj mniej więcej o opór przy prądzie stałym. Próbowałem poczytać trochę o tym ale te regułki z podręczników jakoś do mnie nie trafiają. Ja tylko objaśnię czemu rezystor szeregowy pomaga w...
Witam. Bardzo proszę o pomoc w makrze, które przenosiłoby wartości z tych samych komórek w jednym pliku do takich samych komórek w innym pliku. Np z pliku 1.xls Arkusz1 do pliku 2.xls Arkusz2 komórek z zakresu B8:Z47; B53: Z92; B98:Z137. Nie chodzi mi o kopiuj/wklej lecz przeniesienie wartości.
Marku, masz rację, ale potrzebuję "czegoś" co po tym przesortowaniu scali mi komórki i przeniesie wartości np. z trzech komórek do jednej.
Witam. Chodzi mi o to, że mam dwie tabele z wynikami meczy i chcę przenieść wynik jednej tabeli do drugiej, ale tak żeby jak się zmieni w pierwszej to automatycznie też będzie się zmieniał w drugiej. Zrobiłem to przez scalenie dwóch komórek metodą kopiuj --> wklej łącze, ale jak pierwsza tabela (komórka) jest pusta to w drugiej wyskakuje mi zero, a...
tylko w jaki sposób ja to mogę powielić na 100 formularzy? odwołanie jest bezwzględne więc każdy kolejny będzie miał taki sam wynik. Przeciągnąć formuły nie jestem w stanie ponieważ część komórek jest scalonych.
[syntax=vbscript]Sub Niepuste() Sheets("Arkusz1").Select ow = Cells(Rows.Count, "A").End(xlUp).Row For x = 1 To ow If Left(Cells(x, 1), 13) = "Pomieszczenie" Or Cells(x, 1) <> "" And Cells(x, "F") > 0 Then y = y + 1 Rows(x).Copy Sheets("Arkusz2").Cells(y, 1) End If Next Sheets("Arkusz2").Select End Sub [/syntax] Masz błąd w nazwie pomieszczenia...
Moim zdaniem to tutaj występuje przenoszenie co drugiej z posortowanych komórek a nie samo sortowanie.
aby zniknęły te puste pola po słowie KONIEC dynamiczny zakres dodaj nazwe =PRZESUNIĘCIE(PODS.!B7;0;0;LICZ.JEŻELI(P... żeby ta lista była trochę dłuższa Mam wątpliwości
Nie sądzę ... podsumujmy zatem, na podstawie kodu, co mamy: 1. Arkusz zbiorczy nazywa się "Aktywność" 2. Tabela zbiorcza znajduje się w zakresie "B18:O2000" 3. Nagłówki tabeli zbiorczej znajdują się w zakresie "B18:O18" 4. Tabele źródłowe w plikach dawców znajdują się w arkuszach nazwanych "Aktywność" 5. Tabele źródłowe w plikach dawców mają nagłówek...
Ze względu na to, że nie znam Access, bardzo chciałbym pozostać przy Excelu - Jeśli uda się zaprogramować plik !wprowadzenie żeby przenosił dane do wszystkich plików raportów wtedy byłyby one używane tylko do odczytu wprowadzonych danych, bez ich dodatkowej modyfikacji. W pliku do wprowadzania cześć kolumn będzie docelowo ukryta a komórki z formulami...
Witam Mam mały problem z napisaniem Makra w Excelu: Potrzebuje takiego makra które z Textbox1 (który ma kilka wierszy) przypisze mi każdy pojedynczy wiersz w nowej komórce (A1, A2,....) A następnie potrzebuje żeby z Komórki B1, B2, pobierały się wartości tekstowe i wstawiały do Textbox2 i były rozdzielone spacjami (B1 B2 B3), a następnie pod nimi /dwa...
Czy rozwiązaniem jest tylko makra, czy jest możliwość zrobienia tego za pomocą funkcji?? Próbowałem z funkcją Wyszukaj, ale zostawało wtedy dużo wolnych pól gdyż każdy wiersz jest przeszukiwany dla każdego miasta, a właściwy rekord jest tylko dla jednego miejsca dostawy... Pewnie można ... :| ... Tylko wzory będą kosmiczne i będą zajmować dużą ilość...
Przenoszenie danych może zniszczyć wzajemne zależności. Jeśli jednak "wytniesz" zakres komórek i "wkleisz" je w inne miejsce, to formuły powinny się automatycznie zaktualizować. Jeśli w arkuszu działają makra, to trzeba uważać, bo one działają według wcześniej określonych reguł i odwołują się do konkretnych komórek - operacje kopiuj/wklej/wytnij nie...
Tak, zawsze wpisując do tych samych pól w arkuszu zostaje mi baza przyjęć towaru od klienta. Całość ma wyglądać w ten sposób mam pierwszą stronę w arkuszu wypełniam wyżej wymienione pola zawsze te same 1a 1b i 1c i klikam drukuj drukuje mi się potwierdzenie pobrania sprzętu do naprawy a wszystkie dane zostają zapisane w drugim arkuszu kolejno 1,2,3...
Więc same przenoszenie wierszy w odpowiednie miejsce zrealizuję ręcznie ponieważ odpowiedniego kodu kopiowania i przenoszenia nie potrafię napisać. Ale jak zmniejszyć kod z pierwszego mojego pytania żebym nie musiał w kodzie pisać 140 linijek ale podać powiedzmy na to zakres numerowania komórek biorąc pod uwagę że komórki są łączone po dwie?
Witam, będę wdzięczny za pomoc w napisaniu formuł lub makra. W pliku wklejane będą dane do arkusza Total dla trzech zmian I zmiana 6:00-13:00 II zmiana 14:00-21:00 III zmiana 22:00-05:00 Teraz chodzi o to, aby dane z tego arkusza automatycznie kopiowało do poszczególnych arkuszy w zależności od przypisanych godzin zmianowych tzn. aby np. do arkusza...
Najprościej rzecz ujmując [syntax=vbscript]licznik = 3 For i = 1 To 100 If Sheets("Arkusz1").Range("B" & i) = 1 Then Sheets("Arkusz1").Range("C" & i & ":S" & i).Copy Sheets("Arkusz2").Range("B" & licznik & ":R" & licznik) licznik = licznik + 1 End If Next[/syntax]
Dzięki za info. Spróbuję i pokarzę rezultat. Teraz klecę wcześniejsze etapy. Skończyłem 1. czyli przenoszenie danych. Teraz zaczynam 2 czyli układanie danych i usuwanie dubli, a łączenie tekstu będzie w 3 etapie Dodano po 5 Mam prośbę o krótki przykład. Nie dałem rady sam nic zdziałać. Dzięki.
nie potrafię sobie poradzić aby odpowiednio przekształcić zaproponowane rozwiązania na potrzeby mojego pliku To nie kwestia "nie potrafienia", to kwestia Microsoft'u. Chodzi o nazewnictwo zakładek. Nazwy zakładek do hiperłącza poprzez funkcję "HIPERŁĄCZE" nie mogą posiadać odstępów, ich nazwa musi być "jednociągowa", tzn. taka zakładka nie może się...
Czego to ludzie nie wymyślą? Jak to ma niby działać? Robię zdjęcie, powiedzmy 5Mpix, po kompresji do JPG zajmie to około 1MB. Nie ma Wi-Fi w zasięgu a ja chciałbym (gdybym miał) wysłać to na Fejsbuka. To co? HSPA? Trochę bez sensu ale operatorzy komórek się będą cieszyć! Ja nie wiem, ale chyba jednak wolę zwykły kabel USB2.0 i to "powolne" przenoszenie...
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...
Ta "pięciopunktowa" metoda wyznaczania mocy wyjściowej oraz znieksztalceń prądu a tym samym napięcia anodowego opierała się na założeniu że napięcie siatki będzie niezniekształcone. Tak jest tylko we wzmacniaczach pozbawionych USZ. Gdy USZ jest dostatecznie silne, sytuacja się odwraca: napięcie anodowe jest prawie nieznieksztalcone, za to silnie zniekształcone...
[syntax=vbscript]Sub Przenies() Sheets("Arkusz2").Select ow = Cells(Rows.Count, "D").End(xlUp).Row ow3 = Sheets("Arkusz3").Cells(Rows.Count, "A").End(xlUp).Row For x = 1 To ow If Cells(x, "D") <> "" Then Rows(x).Copy Sheets("Arkusz3").Cells(ow3, 1) ow3 = ow3 + 1 End If Next End Sub [/syntax]
Sprobuj takie makro [syntax=vb]Sub sortgodz() With ActiveSheet.UsedRange .Sort key1:=.Columns(4).Cells(1), header:=xlYes Set bt = .Find("Zast") r = Cells(Rows.Count, 4).End(xlUp).Row + 1 Rows(bt.Row).Cut Rows(r).Insert shift:=xlDown End With End Sub [/syntax]
[syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Column = 5 Then nw = Sheets("Logistyka").Cells(Rows.Count, "A").End(xlUp).Row + 1 If nw = 2 Then nw = 1 w = Target.Row Range(Cells(w, 1), Cells(w, 5)).Copy Sheets("Logistyka").Cells(nw, 1).PasteSpecial xlPasteValues End If End Sub [/syntax] Kod na tyle prosty,...
Temat do zamknięcia
O jaki czas Ci chodzi z zegara RTC czy z któregoś z Liczników/Timerów? Użyjesz funkcji porównania, w wyniku porównania otrzymasz wartości TRUE, ta funkcja uruchomi funkcję mov, copy (coś w tym rodzaju dokładnie odpowiem Ci jutro gdy sprawdzę) i przeniesie daną komórkę do innej. Z tego co pamiętam w PLC Modicon Telemeqanique funkcja ta by wyglądała:...
Nie, bezwzględnie musisz zrezygnować z układu wielowierszowego przenosząc te procenty do kolumn.
To są te kwadratowe pola, w których stawiasz lub zdejmujesz znacznik (krzyżyk albo taki nike). Funkcja [Wklej specjalnie] ma tych pól do zaznaczania kilka, m.in. [Transpozycja], ale popatrz też na inne. Za pomocą [Wklej specjalnie] możesz skopiować wszystko, albo same wartości, formuły, czy formaty komórek. Pomogłem? :-)
Nie można usuwać komórek do których odwołują się formuły bo właśnie wtedy pojawia się błąd odwołania. Odwołania również są usuwane. Jeżeli chcesz by odwołanie było cały czas "sprawne" kasuj dane a nie usuwasz wiersz. Jeżeli chcesz aby wybierać różne wiersze w arkuszu docelowym skorzystaj z formuły indeks() i poprzez dodatkową komórkę określającą nr...
Witam, Poszukuje pomocy, mianowicie próbuje znaleźć rozwiązanie, aby były wykonywane automatycznie następujące czynności: -przenoszenie podsumowań kolejnych dni z jednego arkusza do kolejnych pustych pól arkusza z danymi archiwalnymi. -czyszczenie pól w arkuszu z danymi i zmiana dat w nagłówkach na te z danego miesiąca -przenoszenie danych z konkretnych...
Dzień dobry, Niezbyt to jasne. Czym różnią się te 2 arkusze? Na jakiej zasadzie miałyby być uwzględniane te zmiany, czy chodzi o powiązanie funkcjami, czy o dosłowną kopię? Czy te arkusze są tam na stałe, czy są okresowo przenoszone gdzie indziej? Czy poszczególne wiersze (pracownicy) są zawsze w obu arkuszach w tym samym miejscu, czy mogą być w różnych...
[syntax=vbscript][/syntax] Cześć, Mam pytanie odnośnie zautomatyzowaniu pewnego procesu, dostaję co tydzień plik z excela w którym interesują mnie zawsze dwie komórki (C30,C46). Jeśli w danej komórce jest jakikolwiek tekst (komórka nie jest pusta) to żeby ta komórka została przeniesiona do innego pliku excela. Czy ktoś mógłby wspomóc kodem, gdyż nigdy...
Cześć, czy ktoś ma pomysł dlaczego zaznaczenie pomimo, iż jest ustawiona odpowiednia opcja, nie przenosi się wraz z komórką po jej rozszerzeniu.
Jeśli ładunek przenosi się między komórkami NAND flash to należy zrobić kopię dopóki nie jest za późno a pendrive wymienić.
[syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 3 And (Target.Column = 5 Or Target.Column = 6) Then ow = Cells(Rows.Count, "A").End(xlUp).Row Cells(ow, 1) = Cells(3, 5) Cells(ow, 2) = Cells(3, 6) End If End Sub [/syntax]
nie chciał bym bawić się w makro Czy w Excelu mogą migać komórki? Te dwie rzeczy nie są zgodne... ale mogą migać np. http://www.goldenline.pl/grupy/Zainteres...
Naprawdę nie chcesz pójść w tym kierunku? Zobacz w pliku - Arkusz1 komórka A2 - wybierasz użytkownika i resztę danych przenosi ci się samo. Szybko, prosto i bez makr.
makro przenoszenie komórek przenoszenie aplikacji przenoszenie basów
subiekt linux nikon obiektywu schemat przekaźnik światła
zestaw nagłośnieniowy gniazdo optyczne
Samsung RS-H1PTBP HERMES - Kody błędów i diagnostyka Schemat podłączenia czujnika przepływu spalin Golf 7
