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.
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,...
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]
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,...
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...
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
O rety, ale mam zaskok :) W załączniku rozwiązanie z kolumną pomocniczą.
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.
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ół.
U mnie działa...
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...
Dodano po 19 Excel / VBA / wstawianie i kopiowanie wierszy z rozdzieleniem wartości
[syntax=vbscript]For y = 1 To ile - 1[/syntax]
To naprawdę prosta sprawa. Przeanalizuj dostosuj do własnych potrzeb.
Zmienit 'For i = 0 To nrep - 1' na 'For i = 1 To nrep - 1'
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ć?
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,...
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...
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....
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?
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",...
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 ;)
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.
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"...
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)...
W załączniku.
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"...
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)
kopiuj prawy klawisz wklej specjalnie - wartości
Tylko już .xlsm
Analizowałeś to makro? Przyjrzyj się co przypisujesz do zmiennej "multi" i to przed otwarciem pliku źródłowego. Nie powinno być With DoSkop.Worksheets("AKKO"&#... Set reg1 = .Range("a2:a41000")... itd Jeśli filtrujesz, to ustal maskę: fileFilter:="Pliki Excel (*.xl*),*.*," Po mojemu: Albo zostaw to (poprawione) kopiowanie...
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...
Jest w Excelu dodatek darmowy Power Query do wersji 2010 i 2013 a od wersji 2016 jest wbydowany który potrafi to zrobić bez VBA Tu masz link jak to zrobić Pozdrawiam. https://www.youtube.com/watch?v=oAOXgHq0...
Samo przepisywanie jest załączniku, ale nie wiem na ile to się przyda w tym co chcesz osiągnąć... Każdorazowo obszar do którego dane są kopiowane jest czyszczony i są one dodawana od początku.
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...
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.
Wpisujesz formułę w C1, zatwierdzasz w/w kombinacją klawiszy i kopiujesz w dół. Ot i cała filozofia :)
Jeśli masz jakieś przeciwskazania co do zastosowania makr :cry: to w Twoim układzie danych najprościej moim zdaniem wykorzystać "wewnętrzny import" danych z Bazy przy użyciu Microsoft Query :D W kwerendach zmieniasz tylko kryterium filtrowania i po każdej zmianie Bazy możesz odświeżyć i zaktualizować wszystkie arkusze asortymentowe :spoko: 899914
[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]
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?
Dlaczego zmienna 'l' jest nadawana z wartości ostatniego wiersza (+1) z pliku 'b', a nie z 'a'?[/quote]
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ć....
Witam Jestem zupełnie zielony jeśli chodzi o makra i potrzebuję pomocy szanownych kolegów. Mam w arkuszu dane, dużo kolumn i dużo wierszy. Prosiłbym o pomoc w napisaniu makra, które sprawdza wartości w jednej z kolumn np BT i jeśli w aktualnie sprawdzanej komórce występuje jakaś wartość (komórka nie jest pusta) kopiuje cały wiersz do innego arkusza,...
[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]
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?
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
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.
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, 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....
Namęczyłeś się z nagraniem tego makra :D, ale czy mógłbyś dla ułatwienia wrzucić przykładowy plik z dokładniejszym opisem co, skąd i dokąd ma być kopiowane? A tak na przyszłość prośba. Używaj polskich literek i ubieraj kod w znaczniki Code . Trochę ułatwia czytanie. :D
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...
dziekuje bardzo... a czy makro mogloby wklejać ten zakres jako wartości??
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...
Dobry wieczór, Jeżeli makro działa poprawnie i jedynym problemem jest kopiowanie wartości, to powinno wystarczyć dopisanie w linijce po słowie PasteSpecial i spacji (pod koniec kodu) frazy [syntax=vb]Paste:=xlPasteValues[/syntax] Powodzenia.
dane po określonej dacie Tak, jak napisałeś w warunku godziny, tak dodaj do niego datę i wartość C.
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, 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!
Wyszukaj.pionowo u mnie to też nie działało w podobnej sytuacji, dlatego proponuje inne rozwiązanie, zobacz w pliku. W razie pytań czy wyjaśnień daj znać to powiem co i jak, ale myślę, że przy pomocy F1 excela dasz sobie radę.
1. Nie rozumiem, po co VBA? 2. Nagraj sobie makro ;) Potem podmienisz tylko wartości...
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że przykładowy plik trochę rozjaśni sytuację Z podkreśleniem tego trochę :D Jeśli w arkuszu CT umieścisz makro typu: 1022670 Zwracam uwagę na zmienne l i kol, których wartość została przyjęta dla Twojego xxxx - owego przykładu :cry: i które muszą być dostosowane do wartości rzeczywistych w pliku roboczym.
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, 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.
A jakie to formuły w kopiowanych komórkach?
Interesują mnie wartości z dwóch wierszy- drugiego i czwartego. (...) Chciałbym użyć makra do wyszukania tych wierszy z pierwszego arkusza, gdzie występują wartości szukane w drugim arkuszu i przekopiowanie wszystkich tych wierszy do np. 3 arkusza. Z tego wynika, że szukasz duplikatów wierszy 1 i 4 z arkusza Nr1 w arkuszu Nr2. Zdaje się, że coś pominąłeś/pomyliłeś,...
Może, tylko pisał o kopiowaniu wartości, wymienił kolumnę B, a nie A i nie napisał, czy dane we wszystkich kolumnach sięgają jednakowo daleko.
Jaką regułę zastosować, żeby w programie Excel dane z jednego arkusza kopiowały się do drugiego arkusza automatycznie. Dodano po 3 (at)ElektrodaBot Jaką regułę zastosować, żeby w programie Excel dane z jednego arkusza kopiowały się do drugiego arkusza automatycznie ?
Funkcja jeżeli, jeżeli pole obok nie jest puste wypełnij wartością zgodnie z uznaniem.
Temat zamykam. Wykorzystałam kod luzika z postu Excel Vba - Kopiowanie kolumn po nagłówkach z filtrowanych danych Działa :) Dodano po 1 Excel Vba - Kopiowanie kolumn po nagłówkach z filtrowanych danych
Działa. PO zapisaniu pliku i ponownym otwarciu problem chwilowo zniknął. Czy istnieje jakaś kombinacja klawiszy, która ustawia ctrl-c w tryb: kopiuj, kopiuj tylko wartości, kopiuj, kopiuj tylko wartości .... ?? Bo tak mi to właśnie naprzemiennie działało i nie wiem co przypadkowo wcisnąłem.
Witam, Nagłówek nie jest kopiowany, jedynie dane. Najlepiej w kodzie po utworzeniu nowego arkusza przekopiuj go tak: wsSheet.Range("A1:C1"&... Destination:=wbBook.Sheets(CStr&... a żeby nie kopiować danych od pierwszego wiersza, zmień w kodzie wartość początkową zmiennej wiersz...
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ę...
Np For i = pierwszyWiersz To ostatniWiersz If ThisWorkbook.ActiveSheet.Range("... & i) <> 0 Then plik.Sheets("Arkusz1")... = ThisWorkbook.ActiveSheet.Range("... & i) ThisWorkbook.ActiveSheet.Range("... & i) = plik.Sheets("Arkusz1")...
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.
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" ;)
Ok, czyli przeciągając formule w dół, wyszuka mi nazwy towaru z kolumny 1 i przyporzadkuje odpowiednie wartości z arkusza "BAZA"?
Koledzy dobrze radzą, ale to trzeba wdrażać od początku projektu. Więc na przyszłość trzeba to zaplanować inaczej. Tymczasem jednak potrzebne jest rozwiązanie doraźne, polegające na kopiowaniu tego co jest. Na razie to jest ilość danych, z którą Excel sobie poradzi, ale jak danych będzie przybywać, to kopiowanie będzie trwało coraz dłużej. Ponieważ...
Witam, Mam zakres danych a1:l52, interesowało by mnie jakiego użyć kodu ażeby kopiowało mi wiersze gdzie w kolumnach od b do l są dane. ważne żeby przy kopiowaniu wiersza do nowego arkusza kopiowało również wartość z kolumny a
A filtr oraz kopiuj - wklej specjalnie nie wystarczy?
Witajcie, Czy ktoś pomoże mi stworzyć makro, które wyszukuje wszystkie listy rozwijane w pliku Excel (wszystkie arkusze) a następnie kopiuje do nowej zakładki każdą wartość z "listy" oraz dodaje nazwę range. Przykład w załączeniu... Dzięki.
Pytanie podstawowe: czy potrzebujesz kopiować tylko wartości, czy też formaty? Bo w tej chwili to, co robi to makro, to kopiuje wartości "aa" z kolumny A do C, co jest raczej średnio przydatne - równie dobrze można tą wartość tam wpisywać...
witam jestem zielony w te sprawy, wiec proszę o pomoc: kolumna A kolumna B maluch 120 fiat 10 bmw 50 maluch 200 polonez 30 fiat 40 nissan 50 Jakby wyglądało makro które by sprawdzało kolumnę A i jeżeli to fiat to kopiuje wartość 10 do kolumny C2, jeżeli to bmw to kopiuje wartość 50 do kolumny C3 itd. [/code]
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.
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...
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...
1. Napisać makro. 2. Kopiowanie wartości: Ctrl+c Ctrl+Alt+v opcja>wartości 3. Odwołanie: = > klik w scalony zakres > Enter
"=RC Tak Nie wiem jeszcze czy okaże się szybsze, ale warto spróbować. Jeżeli podłączysz makro pod skrót klawiszowy (obsługiwany jedną ręką), np w stylu CTRL+D to wbrew pozorom będzie to szybsze niż to co teraz robisz. A szybciej nie osiągniesz nic więcej bo przecież też żeby wkleić wciskasz ctrl+v. Po prostu stajesz myszką na danej komórce, wciskasz...
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.
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...
Dzień dobry, W takiej sytuacji zawsze lepiej dać załącznik z przykładowymi danymi, bo po co tracić czas na kopiowanie z tekstu. Próbka danych jest mała, ale sądzę, że wystarczy zwykłe WYSZUKAJ.PIONOWO zabezpieczone funkcją JEŻELI.BŁĄD przed komunikatem o braku danych. Zakładam, że Excel w wersji >=2007. Załączony plik .xls proszę wczytać do Excela i...
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
Dziękuję ! Miałeś rację z tą funkcją wyszukaj pionowo, źle wpisałem wartości i dlatego nie działało poprawnie. Pozdrawiam
Niestety nadal nie kopiuje wartości No i nie będzie value = value lub instrukcja If Cells(x, "P") = "Tak" masz np. tak
Zamiast tego można wykorzystać właściwość ThisCell obiektu Application Słuszna uwaga. Brakowało mi tej właściwości :) Witam. Zastosowałem tą funkcję w swoim pliku, działa dobrze do pierwszego przeliczenia (np F2) i wyrzuca błąd wartości. Excel 2013.
Odnośnie pytania o szczegóły, to czy: 1. dla danej firmy zamienniki mogą występować więcej niż raz, czy jeden zamiennik odpowiada tylko jednemu indeksowi? 2. indeks, który chcesz dopasować, chcesz dopasować po wszystkich (3 jak w przykładzie) zamiennikach, czy wystarczy po jednym? PS. Najpierw dopasuj dane tak, żeby w kolumnach A i D nie było pustych...
Witam, mam pytanie chciałbym napisać makro albo zrobić pole w którym po wpisaniu danej wartości, excel szukał by "kolumnie A" wpisanej wartości np 23. Następnie kopiował dane z kolumny B,C,D znajdujące się obok wartości 23 w inne miejsce
excel kopiowanie wartości komórki warunkowe kopiowanie wartości excel excel kopiowanie ostatniej wartości
kasowanie pamięci eeprom atmega8 router huawei multiroom dimmer schemat
OpenBeken RC-6 Mode 6A (110) IR Decoding: OEM Frame Structure, Timing, and Payload Kontrolka Anti-Calc świeci po odkamienieniu stacji parowej Tefal
