Zakładam, że w każdym wierszu będą dwie kontrolki zależne. W Excelu 365 na karcie Wstawianie znajduje się pole do wstawiania tych kontrolek. [syntax=text]Wstawianie > Kontrolki > Pole wyboru[/syntax] Aby wstawić kontrolkę należy zaznaczyć komórkę (lub komórki) i kliknąć przycisk. Standardowo kontrolka jest powiązana z komórką, a w tej komórce...
Co do daty, to rozumiem, bo tam elementem formuły jest DZIŚ(), które jutro będzie miało inną wartość, a Ty chcesz zachować zapis pierwotny. Natomiast w kolumnach A i C nie widzę takich elementów dynamicznych, więc nadal nie wiem po co te odwołania cykliczne. Zakładam, że nie są potrzebne. Działanie Excela nie zawsze jest przewidywalne. Dużo czasu zajęło...
Usuwam dla danego guzika konkretną kolumnę, potem zmieniam wartość w nawiasie (1) dla pierwszego guzika, potem dla drugiego zmieniam (2) itd. Czyli jak mam na razie te dwa przyciski to tak, żeby następny już wiedział, że ma kopiować dane do datachart ale o jedną kolumnę dalej niż poprzedni - robiłem to zmieniając wartość counter - kolejno 1 2 3 itd....
Dzień dobry, Chciałem się włączyć do dyskusji, chociaż trudno zaproponować szybkie rozwiązanie przy tak dużej liczbie danych. Nie chcę proponować VBA, są pewnie lepsi od tego specjaliści, natomiast formuły Excela można na pewno zoptymalizować. Ale najpierw pytanie, czy w przykładzie kolumna I w arkuszu "wynik" zawiera spodziewany wynik? Warunek jest...
w pierwszym wierszu dla kolumny jest słowo "Tak" Dla tego trzeba jedna linijka[syntax=vb] Sub kopia() If ActiveSheet.Range("A1") = "Tak" Then ActiveSheet.Copy End Sub[/syntax]
https://obrazki.elektroda.pl/9290552300_... Witajcie moi drodzy. Zapraszam na kolejną część mojego tutoriala PIC18F2550 i kompilatora SDCC . W tej części poznamy sterownik wyświetlacza LED MM5450, połączymy go z PIC18F2550 i napiszemy od 0 implementację ich komunikacji. Docelowo użyjemy MM5450 do wysterowania wyświetlacza LED 5 na...
Witam Dlaczego petla? :) [syntax=vb] m = Month(Date) Range(Cells(2, m), Cells(Cells(Rows.Count, m).End(xlUp).Row, m)).Copy Destination:=Range("N2") [/syntax]
Poprawiłem makra. Kod przycisku uprościłem dla jasności. Przeanalizuj zapis dot. co dokąd jest kopiowane, zawsze będziesz mógł sobie zmienić...
Zwrotnic to najmniej się obawiam - mam parę książek, jak i swoich projektów, które są w użyciu lub były. W sumie to, czytając forum, 18 rzeczywiście tylko do estrady. Poszukam czegoś innego, nie chcę kopiować zestawów; sam kiedyś wykonałem 4 i pół kompletu - połówka to 1 kolumna labiryntowa na głośnikach RFT (dawne DDR, jak dobrze pamiętam). Z 2 głośników...
Witam Czyli daje glosnik niskotonowy np 4ohm do zaciskow wzmacniacza i pod to samo wejscie od wysokotonowego 8ohm i bedzie i tak kolumna 4ohm?? Pozdrawiam
Zadanie polega na tym żeby skopiować z arkusza nr 1 (Data), tylko te kolumny z którymi pokrywają się nagłówki znajdujące się w arkuszu nr 2 Zadanie polega na tym czego nie dopowiedziałeś. Czy kopiowane mają być wszystkie, czy tylko wyfiltrowane wiersze, jak np. te według "Kolekcja/Seria", wyfiltrowane po "Casual" ? Wyfiltrowanych jest 4 062, a nie...
[syntax=vbscript]Sub Kolumny() y = 9 For x = 1 To Sheets.Count ow = Sheets(x).Cells(Rows.Count, "I").End(xlUp).Row If Sheets(x).Name <> "Oferta" Then Sheets(x).Range("I1:I" & ow).Copy Sheets("Oferta").Cells(1, y) Sheets(x).Range("J1:J" & ow).Copy Sheets("Oferta").Cells(1, y + 1) Sheets(x).Range("K1:K" & ow).Copy Sheets("Oferta").Cells(1,...
[syntax=vbscript]Sub DodajBudynek() ' ' DodajBudynek Makro ' ' Columns("D:E").Select Range("D5").Activate Selection.Copy Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column + 1).Select ActiveSheet.Paste End Sub [/syntax]
1. Załóż filtr w oryginalnej tabeli (niepuste) -> zaznacz całą tabelę i wtedy dopiero kopiuj dane . Może nawet lepiej wklejać "tylko wartości" niż dane z pełnym formatem każdej kopiowanej komórki. Zrobisz to w jednym ruchu zamiast korzystać z pętli (2000 razy). Po nagraniu makra można edytować zaznaczony zakres tak, żeby najlepiej nam odpowiadał. 2....
Może za mało RAMu? Restart kompa i sprobuj ponownie. :!: A jak nie to OpenOffice - w nim się nie powinno zawiesić.
https://obrazki.elektroda.pl/8499234700_... Witajcie moi drodzy Przetestuję tutaj siedmioportowy rozdzielacz USB 2.0 - sprawdzę jego działanie przy podłączeniu jednocześnie 7 różnego rodzaju nośników pamięci , a potem otworzę jego obudowę i przedstawię płytkę ze środka na wyraźnych zdjęciach wraz z moim komentarzem. Siedmioportowy...
[syntax=vbscript]Sub KopiujGLM() g = Cells(Rows.Count, "G").End(xlUp).Row Range("G1:G" & g).Copy Sheets("Arkusz2").Range("G1") Sheets("Arkusz2").Range("G" & g + 1).Formula = "=SUM(G1:G" & g & ")" l = Cells(Rows.Count, "L").End(xlUp).Row Range("L1:L" & l).Copy Sheets("Arkusz2").Range("L1") Sheets("Arkusz2").Range("L" & l + 1).Formula = "=SUM(L1:L" &...
zmień na [syntax=vb]Sheets("Filtr").Range("C" & x).PasteSpecial Paste:=xlPasteValues[/syntax]
Poprawiłem nieco makra, nie zrobiłem więcej bo działanie aplikacji jest dla nie niezrozumiałe. Proszę jeszcze raz dokładnie opisać co ma się wyświetlać w UserForm i co później ma się skopiować.
[syntax=vb]Sub kopie() zakrIn = Array("A:A", "E:E", "F:F", "H:H", "K:K", "P:P", "DK:DL", "EB:EB", "ED:ED") zakrOut = Array("A:A", "B:B", "C:C", "D:D", "E:E", "F:F", "G:H", "I:I", "J:J") Workbooks(plik).Activate For i = LBound(zakrIn) To UBound(zakrIn) Range(zakrIn(i)).Copy Workbooks(kpi).Sheets("dane").Range(zakr... Next End Sub [/syntax]
[syntax=vbscript]Sub NowaKolumna() nk = Cells(60, Columns.Count).End(xlToLeft).Column + 1 Range("H60:H80").Copy Cells(60, nk) Application.CutCopyMode = False End Sub [/syntax]
W makro otwieranie powtarzasz za każdym kopiowaniem. Zostaw tylko jedno na początku, a "Close" na samym końcu... i jak tak zmieniam: Sub OpenCloseWorkbook() Dim Dane As Variant Dim FileName As String Dim Rng As Range Dane = Application.GetOpenFilename( _ FileFilter:="Microsoft Excel Workbooks, *.xls; *.xlsx; *.xlsm", Title:="Wafel") Workbooks.Open...
Witam, pokrótce opisz mój problem na podstawie zamieszczonego poniżej pliku 'przykład1'. Makro które w nim utworzyłem ma za zadanie: kopiować z arkusza '3' wiersz z ciągiem 4 cyfr do arkusza '1'. Potem z tego arkusza kopiować kolumnę 'J' do arkusza '4'. W przypadku analizowanego przykładu, makro ma się zakończyć, gdy wszystkie wiersze (30) z arkusza...
Witam Ma spory problem-potrzebuję skopiwać z kilkunastu zakładek w pliku dwie kolumny i wkleić je do zakładki zbiorczej jedne obok drugich i nie mogę znaleźć kodu. Z góry dziękuję za pomoc
Przeszukałem już wszystko i naprawdę nie wiem jak zrobić. Mam 6 arkuszy na których powypisywane są dane w kolumnie A1. Chciałbym aby w ostatnim arkuszu excel wypisał mi wszystkie dane które są w kolumnie A1 w poprzednich 6 arkuszach. Z tym że te dane w niektórych arkuszach powtarzają się i nie chcę aby w ostatnim arkuszu wypisane były kilka razy tylko...
Witam, interesuje mnie kopiowanie duplikatów wartości z kolumny A (usunięcie tych wartości w kolumnie A) oraz przekopiowanie tylko wartości zdublowanych do kolumny E. Szczegóły w załączniku. Z góry dziękuję za pomoc.[/quote]
Witam, mam mały problem, może ktoś pomorze, mam funkcje w Excelu i porównanie dwóch kolumn i kopiowanie trzeciej, Jeżeli w kolumnie I znajdzie to samo co w kolumnie A to ma skopiować wartość z kolumny J, (załączam obrazek). http://obrazki.elektroda.pl/4282280100_1... pozdrawiam
Witam, Proszę o pomoc w napisaniu Makra. Informacje: Docelowy plik posiada 10 arkuszy z nazwami miast (załącznik4) Założenia: Makro powinno kopiować nazwiska z arkuszy z nazwami miast (kolumna H) wybierać unikaty, oraz kopiować je do co drugiej kolumny arkusza "Podsumowanie" począwszy od wiersza 9 (czyli pierwsza kolumna od A9, duga od C9 itd.) Przykładowy...
Witam, proszę o pomoc w makrze pobierającym dane, utknąłem w momencie, gdy chcę aby wyselekcjonowane dane wyrzuciło mi do Arkusza3, było wiele podobnych wątków ale z wierszami, a mi się rozchodzi o kolumne. Kombinuje 2gi dzień bez lepszego skutku, jedyne co udaje mi się osiągnąć to przekopiowanie komórek z kolumny w Arkuszu2 do Arkusza3, pętla wykonująca...
No ale to co przedstawiłeś ma błąd. Wg mnie nie do końca zrozumiałeś przykład przedstawiony przez kolegę adamas_nt . Zauważ że "druga linia"/drugi przypadek liczony jest błędnie (dla ilości 266 sztuk, danej paszy, pomijając jej typ, starczy do 2011-04-09 a nie do 06) gdyż w zamierzeniu kolegi adamas_nt nie było zwielokrotnienie wyników (Przykład był...
Dzień dobry, Można spróbować takie makro: [syntax=vb]Sub Uzupełnij() Dim wiersz As Long, wzor As String wzor = "" wiersz = 1 Do If Cells(wiersz, 1) <> "" Then wzor = Cells(wiersz, 1) Else: Cells(wiersz, 1) = wzor End If wiersz = wiersz + 1 Loop Until wzor = "koniec" End Sub[/syntax] Powinno spełniać założenia. Pozdrawiam.
Kolumna "A" nie pusta? nie rozumie dlaczego Criteria1:="" Logicznie jest Criteria1:="<>"
Witam. Mam ok 60 plików CSV (pliki tekstowe oddzielone przecinkami) znajdują się w jednym folderze. Pliki mają różne nazwy (przykładowo: 21172001 6.28.18 13.07.05) każdy plik ma tyle samo kolum (po przecinku) wiersz pierwszy: a,b,c,d,e,f,g,h,i, wiersz drugi: 1,1,1,0,0.00,0.00,N-m,0,0 wiersz trzeci: 1,1,1,0,0.00,0.00,N-m,0,0 Potrzebuję makro które: 1....
Suuuuper:) Wielkie dzięki, działa z tymi danymi:) Mam jeszcze pytanie. Ponieważ dane, które załączyłem nie są danymi rzeczywistymi trzeba by było przerobić podany przez Ciebie kod. W moim pliku rzeczywistym, którego niestety nie mogę załączyć, mam dane wypełnione w kolumnach od A do N. Kolumna A, C, D, E, F, I, J, K, L, M, N - dane nieistotne, ale konieczne...
heh.. no w zasadzie tak ;) Dodano po 4 edit: Tylko, że kwoty do KP to kolumna E a kwoty do KW to kolumna F Dodano po 6 A czy jest możliwość, aby Arkusz z drukami był od razu mieszany ? tzn KP i KW na jednym arkuszu w odpowiedniej kolejności? wzory KP i KW różni się nieco prawym dolnym rogiem ( z podpisami ) więc rozbiłem je na dwa arkusze i chciałem...
Dzień dobry, Na wstępie powiem że ze wszystkich sił starałam się nie fatygować nikogo by mi pomógł znaleźć rozwiązanie problemu, próbując sama zrozumieć dlaczego tak się dzieje. Jednak moja nieznajomość VBA wzięła górę i do co utknęłam w martwym punkcie (choć może nie do końca bo makro w sumie robi co chce). Makro które udało mi się stworzyć, przerabiając...
Zobacz w załączniku, czy ta propozycja spełnia Twoje oczekiwania. To jest makro zdarzeniowe, które reaguje na wpis dokonany ręcznie (nie przez makro), ale można kopiować z innej komórki. Wypełniać komórki można tylko pojedynczo. Jeśli chce się zmienić proporcje składnika, trzeba usunąć wpis istniejący (delete), a następnie wpisać nowy. Makro nie przelicza...
Witam, potrzebuję napisać makro, które będzie kopiować dane z wielu plików i wklejać je jako niesformatowane dane do jednego arkusza w oddzielnym skoroszycie. Problem polega na tym, że każda tabela z danymi ma inna liczbe wierszy. Zaczynają się zawsze w tym samym punkcie i liczba kolumna jest taka sama ale liczba wierszy zawsze inna. Różna jest także...
Wiesz, ja nadal nie jestem pewna, czy dobrze Cię rozumiem, ale wyszło mi coś takiego jak w załączniku. Po uruchomieniu makra pod przyciskiem - wstawia daty, uzupełniając puste komórki. Choć nie odmienia nazw miesięcy przez przypadki - czyli np. 2 wrzesień, a nie 2 września itd.
witam, w jednym arkuszu mam podstawową bazę danych typu: kolumna A-Nazwa firmy; B-adres; C-miejscowość itp. jest tych danych ok 8 kolumn. Jak zrobić by można był kopiować poszczególne dane danej firmy d inego pliku, w tórym wklejone te dane będą w odopowiednie rubryki. Dlateg ochce w odpowiednie rybryki, gdyż będą one wypełniać 4 następne arkusze które...
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...
Makro postepuje tak: Gdy wpisze coś w kolumnę I. I następnie użyje skrótu cltr + n to przesunie te wartości w prawo. Dodatkowo tworzy się kolumna jako bufor. Bo nie chce aby przesuwało się to co jest za datami. Najlepiej byłoby, gdyby po wpisaniu w kolumne I automatycznie wszystkie daty danego wiersza przesuneły się po prostu w prawo bez zmiany dalszych...
Witam, Mam pewien problem z Visualem pod Excelem z którym nie mogę sobie poradzić. Mam dwa pliki Excela 1.główny http://obrazki.elektroda.net/42_12893335... 2.baza http://obrazki.elektroda.net/57_12893335... W pliku „glowny” w kolumnie B mam wpisane pewne numery identyfikacyjne. Dla każdego z tych numerów w kolumnach od...
A co z nagłówkami, powtarzanymi wielokrotnie ? Ma być tylko jeden, czy ileś tam za każdym razem nowy i w wyniku nagłówkowy przekładaniec ? Edycja: Nie przyjrzałem się ... kopiujesz bez nagłówka ... Ale może przy pierwszym kopiowaniu powinien on być przenoszony jednorazowo ? Ręczie go wklepujesz/kopiujesz ? Edycja: Sprawdź: [syntax=vba] Option Explicit...
Odwołaj się w pętli do arkusza źródłowego/docelowego przez Worksheets("nazwa_arkusza"), a po kropce do konkretnej komórki: albo w postaci .Range("E" & i) albo w postaci .Cells(i, 5), gdzie i - nr wiersza źródła (ew. jeżeli zrobisz w pętli for each c in ...., to możęsz użyć c.Row). Do tego druga zmienna np. j dla wiersza arkusza-celu, czyli: j = 1 for...
Witam, pojawiły się kolejne problemy a mianowicie: mamy coś takiego http://obrazki.elektroda.pl/1436607500_1... gdzie zastosowałem dużo z powyższych rad i tak : kolumny R i S liczą się za pomocą makra: Private Sub CommandButton1_Click() Dim i As Integer Set kom = Worksheets("Grafik 2012").Range("D10:...
Może rzeczywiście za dużo jak na początek :) Chciałem zrobić automat by jedną komórkę można było przeciągać zarówno w wierszach jak i kolumnach, ale było juz późno i mając na uwadze to że przecież możesz mieć inaczej ustawione dane porzuciłem zamysł. Na chwilę obecną można to kopiować w dół i w bok łapiąc (zaznaczając) na raz i kopiując trzy komórki....
Witam! Chciałbym uprościć sobie codzienne wpisywanie danych na koniec zmiany roboczej, bo obecnie muszę codziennie wypełniać 5 różnych skoroszytów (plików raportu) stworzyłem plik o nazwie „!wpisywanie” który po uzupełnieniu zawiera wszelkie dane potrzebne do uzupełnienia każdego z pliku raportów i chciałbym go odpowiednio zaprogramować...
Moje rozwiązanie - nieco inne, aby wygenerować zawartość drugiego arkusza ("Zamowienie") trzeba uruchomić Makro. [syntax=vb]Sub Makro1() ' ' Const R1 = "A1" ' pierwsza komórka nagłówka tabeli Const W = 6 ' szerokość tabeli Const Q = 5 ' kolumna z ilością produktów Const FixLP = True ' ustawić False jeśli ma kopiować LP z produktu Dim OF As Integer OF...
Witam, Uprzejma prośba o pomoc / podpowiedź / wyjaśnienie (na wstępie nie jestem programistą …. niestety!). 1. Formatowanie kilku zakresów jednocześnie. Chce nadać (za pomocą makra w VBA Excel) kilku zakresom danych ten sam format. Zakresy tu np: (B15:B38) (B51:C62) (B98:D112) Format to: ###,00;[Czerwony] - ###,00;- Bez tła (przeźroczyste tło)...
Cześć! Na początku należy się przywitać! Ostatnio zbieram się do realizacji mojego marzenia sprzed paru lat- chcę zbudować własny zestaw kolumn głośnikowych. W chwili obecnej mam trochę czasu i środków i stwierdziłem, że będzie to doskonała okazja do ,,podłubania” w warsztacie. Co prawda nie mam dużego doświadczenia z akustyką, więc zaczerpnąłem...
Witam, Opcja "Zachowaj szerokości kolumn źródłowych" pozwala na ustalenie szerokości kolumny, do której dane zostały przekopiowane, takiej samej, jak ta, z której dane zostały zaznaczone do kopiowania. Przykładowo: masz w kolumnie A wpisane kilka osób z imieniem, nazwiskiem, PESELEM - czyli długi tekst dla każdej komórki. Kopiujesz, wklejasz w kolumnę...
W pierwszy poście było napisane, że formuła miała zwracać pierwszy dzień pracujący. Zauważyłem, że źle napisałem, bo zwracała bieżący dzień. Żeby oprócz bieżącego dnia pracy, zwracała kolejny pracujący (przy założeniu, że nie ma więcej niż dwa dni wolne w kolejności), to formuła powinna być na przykład następująca. =JEŻELI(TEKST(PRZESUNIĘCIE(D...
Witam raz jeszcze, Formuła jest tablicowa jednokomórkowa, tzn. trzeba ją zatwierdzać przez CTRL+Shift+Enter, ale tylko w jednej komórce. Potem taką formułę można kopiować w zwykły sposób. [syntax=text]=SUMA(JEŻELI.BŁĄD((spolka!$...
Jeżeli między znakami masz jedną kolumnę odstępu, to na pierwszej stronie będą dwie, a nie jedna kolumna z drugiego znaku, no ale to szczegół ;) Nie wiem, jak masz zapisaną "czcionkę". Jak na moje oko, to może być po bajcie na każdą linię i takich linii 7, jedna po drugiej, potem następny znak itd. Nieużywane bity (te z prawej, znaki wyrównane sa do...
excel kopiować kolumna kopiować kolumna makro kopiować kolumna excel
serwis posnet spawanie bojlera stalowego system alarmowy jednorodzinny
telewizor elektron telewizor elektron
Demontaż układu scalonego z płytki dwustronnej - techniki i narzędzia MAN TGX 480 2013 - Kod błędu 5018: Problemy z AdBlue