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]
Witaj Odpal to makro [syntax=vb] Sub popraw() Dim bs As Range, r As Long Set bs = Sheets(1).Range("A:C").Cells r = 2 While bs(r, 1) <> Empty If (bs(r, 1) = bs(r + 1, 1)) And (Month(bs(r + 1, 2)) - Month(bs(r, 2)) > 1) Then bs.Rows(r).Copy bs.Rows(r + 1).Insert Application.CutCopyMode = False bs(r + 1, 2) = DateSerial(Year(bs(r, 1)), Month(bs(r,...
kopiuj prawy klawisz wklej specjalnie - wartości
Tylko już .xlsm
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
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
Ciezko sie trochu domyslec o co dokladnie pytasz, ale jesli dobrze zrozumialem to w arkuszu rok2005 w dowolnej komorce wstaw: =JEŻELI(Rok2000!AI3=1;Rok2000!AP3;"") i bedzie kopiowalo zawartosc AP3 pod warunkiem wartosci "1" w AI3, Prawie to samo co wyzej tyle ze nawiasy gdze indziej.
Sheets("DATA ENTRY " & s)
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]
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.
Yogi (przypominasz mi dzieciństwo) ;). Nie pamiętam, czy był to 'Zwierzyniec', czy też 'Ekran z bratkiem'. Ale autor napisał: potrzebuję makro A do Autora. Może ten kod będzie wygodniejszy (jest bez obsługi błędów, sam się pobaw): [syntax=vb]Sub Przenies() Dim d As Date, p As Date, k As Date ow = Cells(Rows.Count, "B").End(xlUp).Row y = Sheets("Arkusz2").Cells(Rows.Count,...
[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]
O rety, ale mam zaskok :) W załączniku rozwiązanie z kolumną pomocniczą.
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...
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.
Proponuję: 1) Zamiast formuły z funkcją JEŻELI zastosować formułę z funkcją MAX. Uniknie się w ten sposób dwukrotnego odwołania do tych samych danych. 2) Jeżeli będziesz przestrzegał zasady, że nowe arkusze są dodawane zawsze na początku (a nie na końcu, jak robi się zazwyczaj), to będziesz potrzebować zawsze odwołań do następnego arkusza w kolejności....
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...
Sprobuj takie makro - jest bardzo proste zaklada ze uruchamiasz je z arkusza Dane i ze tabelka w arkuszu Dane jest w tym samym miejscu co dales w przykladzie Sub test() Dim DaneX, DaneY, SpisX As Integer DaneX = 2 DaneY = 2 SpisX = 10 Do While Cells(DaneX, 1).Value <> "" Do While Cells(1, DaneY).Value <> "" If Val(Cells(DaneX, DaneY).Value)...
Już w poprzednim wątku zwracałem uwagę, że dane mają być reprezentatywne. Tam nie było nic o tym, że numery bloków mogą się powtarzać i wobec tego w kodzie była wykorzystana zmiana numeru bloku w stosunku do poprzedniej. Teraz przyjąłem, że jeśli blok jest złożony z kilku elementów, to numeracja po / zaczyna się od 1. Trzeba te bloki jakoś rozróżniać....
W zasadzie jeżeli(licz=licz;ok; nie ok), a dokładniej: [syntax=tex]=JEŻELI(LICZ.JEŻELI(baza!H:H... service")[/syntax]Wklej w F3 i przeciągnij w dół.
Uruchamia się poprzez wpisanie do arkusza Parametry w A1 wartości 1.
U mnie działa...
A co do tej pory znalazłeś (jeżeli chodzi o rozwiązanie)? Na samej "Szukaj" to nie wstyd.
Myślę, że to tak dobrze [syntax=vb]Sub copy_poz() Dim dst As Range, src As Range Dim rd&, rs&, rse& Set dst = Sheets(2).Range("A:D") Set src = Sheets(1).Range("A:D") rd = 2: r = 1 While src(r + 1, 1) <> Empty pcur = 0 While pcur <= src(r + 1, 1) r = r + 1 If src(r, 4) = "M" Then pcur = src(r, 1) rs = r While src(r + 1, 1) > pcur...
Zmienit 'For i = 0 To nrep - 1' na 'For i = 1 To nrep - 1'
Nie wiem czy dobrze cie rozumiem Zaznaczasz kolumny wciskasz kopiuj przechodzisz do nowego zeszytu (nie wiem jak jest w oo ) wciskasz prawy klawisz myszy wybierasz wklej specjalnie... zaznaczasz "wartości" ok i masz wklejone same cyfry.
Dodano po 19 Excel / VBA / wstawianie i kopiowanie wierszy z rozdzieleniem wartości
rzeczywiście materiał bardzo pomocny ale niestety mam dalszy problem. Ściśle określony wyraz, np. "MAGMA" musi zostać znaleziony w arkuszu i skopiowany w tej samej kolumnie poniżej tej wartości, aż do momentu napotkania w kolumnie obok słowa "SUMA".
Tabele przestawną udało się zrobić, jednak chodzi o bardziej rozwiązanie, które "jednym kliknięciem" sprawdzi około 10 tys, wierszy. i skopiuje te wiersze w których mimo takiej samej wartości w kolumnie A -wartości w kolumnie B są różne.
[syntax=vbscript]For y = 1 To ile - 1[/syntax]
Excel 2007 - działa i kopiuje wartości bezproblemowo - formuła =JEŻELI(A1;A1;B1) Czyżby błąd w MsOffice 2010? A może jakaś ukryta opcja?
Niestety Run-time error '1004': Metoda PasetSpecjal z klasy Range nie powiodła się.
załącznik ściągałem dokładnie robi to o co chodziło tylko kopiowało całe komórki a nie same wartości, ale już wszystko ok wielkie dziękuję za pomoc
Funkcja ADR.POŚR może służyć do odczytania danych z pliku otwartego w tej samej instancji Excela. W tym przypadku to się nie przyda. Bez VBA czy innych dodatkowych narzędzi nie da się tego zrobić w sposób trywialny. Istnieją sposoby "drogą okrężną". Najpierw trzeba przygotować teksty odwołań, potem zamienić formuły na wartości i wreszcie aktywować uzyskane...
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...
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",...
Może najpierw "wydłubać" ten fragment zwykłymi formułami i w następnej kolejności brać się za kopiowanie. A gdzie chcesz je (wartości) kopiować?
Witam. Chciałbym prosić o pomoc w stworzeniu formuły, która będzie kopiowała wiersze z arkusza bazy do innych arkuszy. Kryterium kopiowania musi byc wartość w kolumnie A (gniazdo główne). Czyli jeżeli w kolumnie A jest Flowpack 1 to kopiuj wszystkie wiersze Flowpack 1 do Arkusza Flowpack 1. Jeżeli w kolumnie A jest Flowpack 2 to kopiuj wszystkie wiersze...
Witam, tak jak napisałem w temacie piszę makro w celu umożliwienia sobie kopiowania warunkowo danych na przecięciu konkretnej kolumny z konkretnym wierszem, warunkiem jest to by na przecięciu wiersza i kolumny znajdowała się jakakolwiek wartość. Muszę tym samym sprawdzić wszystkie wiersze po kolei, w tym celu napisałem kod: wszystkie wartości z danych...
takie cuś Jedzie od końca listy w kolumnie C: [syntax=vbnet]Sub usun_nie() Dim LastRow As Integer ' long Dim FirstRow As Byte Dim i As Integer With Sheets("Arkusz1") LastRow = .Cells(.Rows.Count, "C").End(xlUp).Row FirstRow = 2 End With i = 1 For LR = LastRow To FirstRow Step -1 If LCase(Cells(LR, "C").Value) = "tak" Then Sheets("Arkusz1").Range("C"...
To naprawdę prosta sprawa. Przeanalizuj dostosuj do własnych potrzeb.
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.
Dzień dobry, proszę o pomoc w napisaniu makra (pod przycisk Kopiuj), które kopiowałoby wartości z z kolumn B , AD oraz AE od wiersza 4 poprzedniego (poprzedzającego) arkusza do takich samych kolumn aktywnego. Excelem zajmuję się od niedawna i wszelka pomoc mile widziana.
Czytać, szukać przykładów. Np [url=http://office.microsoft.com/pl-pl/e... i efekt (w tabelce-fule skopiowane formuły, wartości dla fuli kopiowane od dołu) + wskazanie zwycięzcy ;)
Tak to oczywiste, chodzi mi o to, aby dane w jednej kolumnie (w której w wierszach znajdują się formuły) były z automatu wyniki tych formuł (tylko same wartości jako tekst) "kopiowane" do drugiej osobnej kolumny..
Spróbuj np. tak - najpierw zaznaczasz dane w wybranej (pojedynczej) kolumnie, potem wykonujesz makro. [syntax=vb]Application.ScreenUpdating = False For w = Selection.Row To Selection.Row + Selection.Count - 1 Step 2 Cells(w + 1, Selection.Column).Value = Cells(w, Selection.Column).Value Next w Application.ScreenUpdating = True[/syntax] PS. Takie rzeczy...
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)
Czekamy aż zrezygnujesz z prowizji...
czy da się za pomocą jakiegoś makra pobierając dane tak jak teraz kopiować pliki o takich nazwach jak wartości z tabeli? Raczej tak. Chodzi o skopiowanie arkusza do pliku o nazwie wpisywanej do komórki na samej górze (Np "P3.xls")? Nagraj rejestratorem. Ale jeśli już makro, to "przy okazji" zamiast formuł w komórkach (łącz w nowym pliku), lepiej przypisać...
Nie wiem dlaczego pojawiło się to "n", ale mniejsza o to. Wszystko bardzo ładnie działa! Dostosowałem tylko, aby nie kopiował formuł, które zostały dodane, a same wyliczone wartości. Jeszcze raz bardzo dziękuję!
chcę to zmienić na przycisk To proponuję wykorzystanie kodu typu :spoko: : [syntax=vbscript]Public Sub Powiel() i = 2 Do Until IsEmpty(Cells(i, 7)) If Cells(i, 7).Value > 1 Then a = i + 1 b = a + Cells(i, 7).Value - 2 Range("A" & i & ":K" & i).Select Selection.Copy Range("A" & a & ":A" & b).Select Selection.Insert Shift:=xlDown Range("G" & i & ":G"...
Te dane są eksportowane z programu, żadne sortowanie ani filtrowanie nie działa, dlatego jest problem. Zastosowałem metodę kopiowania samych wartości do nowego arkusza, a później w tym arkuszu usuwanie od dołu pustych wierszy. Nie jest to najszybsza metoda, ale nie znalazłem lepszego sposobu na to.
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...
A czy dane z wierszy w sekcji "Zakup paliwa" są powiązane jakoś z danymi w wierszach "Zużycie paliwa"? Masz tam kolumny stan pocz./kon. licznika, których brak w zakładce "Razem dział", co z nimi?? Last but not least : czemu po prostu nie dodawać wierszy z datą tylko wtedy, kiedy rzeczywiście jest jakiś zakup robiony? Bo co tak komplikować plik tyloma...
Excel nie ma takiej wbudowanej funkcji kopiowania. Można to zrobić np. poprzez autofiltr który jednym kliknięciem eliminuje ci puste i możesz zaznaczyć to co widać i skopiuje się "po kolei" - bez pustych Można w 2007 i wyżej kombinować coś poprzez usuń duplikaty ale jak nazwa wskazuje usunie zarówno powtarzające się puste komórki jak i komórki o tej...
Dzień dobry, Jeśli rozwiązanie ma być w Excelu to należy użyć funkcji JEŻELI np. =JEŻELI(A1>151;150;A1). Formułę można potem skopiować, aby objąć wynikami cały zakres. Można też najpierw zaznaczyć zakres, wprowadzić formułę i nacisnąć Ctrl+Enter, nie trzeba już będzie kopiować. Wyniki można zamienić na stałe, jesli to konieczne. Skopiować Ctrl+C, potem...
Witam Mam poważny problem, który wymaga szybkiego rozwiązania dlatego bardzo proszę o pomoc Chciałbym napisać pętlę która kopiowałaby wiersz do nowego arkusza ale wstawiała tylko wybrane komórki. np kolumne 1,2,3,4,12 i 15 z tego samego wiersza Waunkiem kopiowania wiersza jest wartość np "x" w kolumnie 12 Naprawdę potrzebna pomoc dlatego z góry dzięki...
Wiem ;) ale nie widzę związku za bardzo. Nigdzie dolarów nie mam, a nawet jeśli, to jak miałyby wpłynąć na procedurę kopiowania?
[syntax=vbnet]Sub Makro1() Set toskopiowac = Selection.EntireRow Range(toskopiowac.Offset(1, 0), toskopiowac.Offset(Selection.Value - 1, 0)).EntireRow.Select Selection.Insert Selection.EntireRow = toskopiowac.Value End Sub[/syntax]
próbowałem najpierw wkleić kod Gdzie próbowałeś wkleić kod? Zobacz w projekcie makra, że kod jest "bezpośrednio" w arkuszu a nie w module. U mnie działa: Nowy arkusz, wstawiam wykres, kopiuje kod makra do arkusza (nie do modułu) i zmieniam wartość w tabeli ... tatam. Na marginesie jeżeli już masz "coś" w tym arkuszu w którym chcesz ten kod wykorzystać:...
Ale że nie makro czy nie taka formuła?
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...
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.
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....
W załączniku.
Witam, jestem tutaj nowy. W Excelu poruszam się biegle, ale mam problem z Makrami i VB. Mam dwa pliki. Plan produkcji.xls w nim arkusz Produkcja i tam ma różne dane. Drugi plik to Zrobione.xls i arkusz zrobione. Chciałbym, aby w pliku zrobione po uruchomieniu Makra wypisało mi wszystkie arkusze ze statusem GOT. który jest w kolumnie N pliku Plan produkcji....
W arkuszu jest 5 kolumn. W 5 są dane typu prawda, fałsz, które są powiązane są z odpowiednimi komórkami w kolumnie 1 i 2 (te same wiersze). Plik zmienia się więc za każdym razem inne wiersze są FAŁSZ. Jak stworzyć makro, które kopuje komórki z kolumny 1 i 2 mające w kolumnie 5 FAŁSZ do nowego arkusza?
Witam, Stworzyłem plik generujący raporty z tabel przestawnych. Chciałbym teraz pierwsze kilka arkuszy (pierwsze arkusze to raporty, reszta to dane i tabele przestawne) skopiować do nowego pliku. Chciałbym także zachować formatowanie arkuszy ale przenieść jedynie wartości (zamiast formuł). Pomoże ktoś w stworzeniu takiego makra? :) Z góry dzięki!
Witam Czy jest możliwość ustawienia w excelu tak formuły, by przeciąganiu jej w bok (poziomo) excel zapamiętał daną komórkę, a narastająco kopiował wiersz. Np. mamy taki arkusz1: A1 - 10, B1 - 50 A2 - 20, B2 - 60 A3 - 30, B3 - 70 A4 - 40, B4 - 80 w następnym arkuszu2 chciałbym żeby excel powtórzył, dane z arkusza1, czyli np.: =arkusz1!A1 jak przeciągnę...
Wpisujesz formułę w C1, zatwierdzasz w/w kombinacją klawiszy i kopiujesz w dół. Ot i cała filozofia :)
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...
U mnie ten kod dokładnie taki jak wkleiłeś działa i kopiuje... Wejdź do kodu i wciskając F8 prześledź krok po kroku, czy kod wykonuje się tak, jak trzeba... A, jedna uwaga - w tej chwili kopiujesz wszystko do tej samej komórki, bo zmienna ost_w nie jest zwiększana. Przerób na: [syntax=vb]wiersz = wswyn.Range("B65536").End(xlUp).Row + 1 For i = 19 To...
Posortuj tabelę względem zawartości kolumny A - komórki o tej samej zawartości będą jedna za drugą. Potem "jedziesz" makrem po kolumnie A sprawdzając, czy zawartość następnej komórki jest taka sama jak bieżącej. Jeśli nie jest, to przejście do następnej komórki; jeśli jest - kasowanie wiersza, kopiowanie zawartości do kolumny E. Oczywiście dodatkowo...
Witam Poszperałem forum ale odpowiedzi nie znalazłem.. W nagłośnieniu chętnie pomogę ale na tym sie nie znam .. ) mam nadzieje ze Szanowni Koledzy pomogą Mam dwa arkusze X i Y po dwie kolumny każdym z nich Arkusz X Dynia |15 Marchew|6 Burak | 7 Arbuz |19 Arkusz Y Dynia |17 Jabłko | 6 Marchew |9 Majonez | 2 Jajka |29 Burak |5 Rzerzucha |2 Arbuz |3 Do...
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ć...
Dziękuje za pomoc. Mam jeszcze pytanie - czy istnieje możliwość pomijania kopiowania, gdy w danej komórce dodatkowej nie ma żadnej wartości / danych?
Pewnie można, ale to już dłuższa historia... :) Najprościej - jeżeli plik-źródło jest w tej samej lokacji - wstawić kwerendę wybierającą dane (Dane->Importuj dane zewnętrzne->Nowa kwerenda bazy danych, wybrać Excel Files * i OK, wskazać plik-źródło (można zaznaczyć "Tylko do odczytu"), a dalej z kreatora" wybrać zakładkę, rozwinąć ją krzyżykiem, wybrać...
To nie taki hop-siup: w VBA masz trochę ograniczoną liczbę obiektów którymi by można to wykonać w miarę prostu, więc trzeba samemu napisać dwa fragmenty kodu: jeden odpowiedzialny za wyłuskanie niepowtarzających się wartości z podanego zakresu i drugi, który je posortuje rosnąco (zakładając, że te dane mają być posortowane). Można by do tego wykorzystać...
A jakie to formuły w kopiowanych komórkach?
Mam trzy pliki Excel. W pliku Dane1 i dane Dane2 znajdują się dane liczbowe. Na końcu ciągu znajduję się "X" które może zmieniać swoje położenie w górę lub w dół. W trzecim pliku "razem" chciałbym, żeby znajdowały się tylko te wiersze, które mają "X" na końcu. Czy jest możliwość, aby w przypadku gdy wierszy z "X" na końcu będzie więcej, Excel dodawał...
Makro jest proste i nie wymaga wiele pracy. W pierwszej kolejności sprawdzasz długość tabeli. Następnie w pętli powtarzanej tyle razy ile wynosi długość z pierwszej komórki pobierasz do zmiennej wartość do wyszukania w drugiej tabeli i kopiujesz resztę potrzebnych danych. Przechodzisz do tabeli z wynikiem, wyszukujesz wartość ze zmiennej w pierwszej...
Witam, mam następujący problem. Mam arkusz Zakupy Vat. Do niego dodałem kolumnę z wartościami (in jak inwestycje itd). Zastanawiam się czy za pomocą funkcji wyszukaj pionowo uda mi się rozpoznać komórkę z wartością in i skopiować cały wiersz do kolejnego arkuszu o nazwie Inwestycje. Czy to już trzeba będzie pisać makro? Najłatwiej będzie mi opisać mój...
Jeżeli chodzi o dynamiczną zmianę samego arkusza nie było by problemu ale tobie chodzi o zmianie ścieżki a właściwie nazwy pliku. Właściwie nie ma formuły excelowskiej by to uzyskać. ADR.POŚR() sobie z tym nie poradzi. A właściwie innej wbudowanej funkcji nie ma. Pozostaje tylko makro lub .... inne "pobranie" danych Jeżeli zdecydujesz się na makro to...
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...
Pierwsze pobranie powinno nastąpić w pętli Numerować powinieneś na podstawie licznika pętli w , jest to bardziej logiczne. Jeśli ustaliłeś w=3 (wiersz 3), to wartość komórki A w tym wierszu powinna być ustawiona z warunkowym wykonaniem jako [syntax=vb]If a<>0 Then Cells(w, 1).Value = w-2 [/syntax] w momencie pobrania zerowej wartości, nie nastąpi...
Pierwszy kod od PRL zapisuje do pliku z rozszerzeniem .csv , ale kopiuje wszystko do tych samych komórek usuwając formatowanie komórek. Mój kod wartości z komórek z jednego wiersza zapisuje do A1 , A2 itd. rozdzielając wartości z komórek przecinkiem, tak jak przy kopiowaniu książki adresowej z telefonu do .csv . Drugi kod próbuję zmodyfikować, bo po...
Witam, mam pytanie czy istnieje sposób na przenienie danych z excel do innego programu, w którym muszą one być pojedyńczo potwierdzane enterem. Automat miał by wyglądać tak kopiuj wartość excel -> wklej do innego programu -> potwierdź (enter) i ta czynność miała by być powtarzana np. 1000x Z góry dzięki za pomoc
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ą...
Witam Mam nietypowy problem z excelem. Mam plik, w którym na bieżąco rejestrowane sa ręcznie rezerwacje. Chciałbym wymyślić coś takiego, aby excel sam kopiował odpowiednie wiersze do arkuszy a takiej nawie jak zawartość w kolumnie "I". Przykładowo: jeżeli w kolumnie i wpiszę april to chciałbym aby cały wiersz był dopisany do arkusza april. Oczywiście...
No szkoda że przy opcji kopiuj nie działa, ponieważ głównie tak będę wprowadzał dane z jednego arkuszu do drugiego. Macie może inne pomysły jak uniknąc wpisania (w moim przypadku skopiowania) dwa razy tego samego numeru w jednej kolumnie. ;/ ? Niby takie proste ale... cóż zdarza się. :/
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ę...
czołem, sprawę rozwiązałem zupełnie inaczej. Skorzystałem z makra które kopiuje wszystkie wartości do innego arkusza ( same czyste dane ) a później z nich za pomocą tego co napisałem wcześniej. Plik zmnieszył swoją wagę i działa całość o wiele szybciej :)
Witam, Jak w temacie potrzebuje pomocy z kodem vba który będzie zapisywał / kopiował arkusz ( same wartości bez funkcji ) do nowego pliku w danej lokalizacji. doszłem do takiego kodu lecz kopiuje wszystko wraz z formułami. ThisWorkbook.Sheets("typ").Copy Range("a1").Select ActiveWorkbook.SaveAs "C:\" & ActiveCell.Value & " .xlsx", FileFormat:=51 a potrzebuje...
dane po określonej dacie Tak, jak napisałeś w warunku godziny, tak dodaj do niego datę i wartość C.
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...
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...
Witam, przygotowuję makro, które kopiuje określone wiersze z wielu plików xls i zapisuje je do jednego arkusza tworząc swojego rodzaju bazę. Niestety nie jestem zbyt zaawansowana jeśli chodzi o VBA, wiec moja metoda jest dość chałupnicza:( najpierw podaję nazwę pliku Excel go otwiera ale problem polega na tym, że kopiując wartości z pliku źródłowego...
Witajcie! Mam następujący problem - zaznaczam pierwszą komórkę w wierszu (A1) i przeszukuje go do momentu, gdy któraś komórka będzie mieć wartość "XYZ". W tym momencie chciałbym, aby ta komórka została zaznaczona, bo 10 wierszy poniżej względem niej, chciałbym skopiować zakres ("zak") z innej części arkusza. Wymyśliłem coś takiego [syntax=vb]Sub KopiujZakres()...
Witam, proszę o pomoc szanowne grono kolegów, ponieważ siedzię już parę dni nad aplikacją i absolutnie sobie nie radzę. A wszystko wskazuje na to, że rozwiązanie jest proste, tylko ja szukam po omacku. Mam dane zaimportowane z Access do arkusza roboczego w Excelu w postaci 3 kolumn zawierających wartości w każdej z kolumn. Kolumna A zawiera numer seryjny,...
excel kopiowanie wartości komórki warunkowe kopiowanie wartości excel excel kopiowanie ostatniej wartości
bridge vectra manometry klimatyzacji podłączyć prąd zgrzewarka
podajnik bizhub suszarka bosch inwerter
Zasilacz 6-pin PCIe a płyta główna ATX 24-pin – czy Gigabyte, Asus, MSI uruchomią się? Zasilacz 12-pin a płyta główna ATX 24-pin – kompatybilność, ATX12VO, Dell, HP, adaptery