A jeśli bym chciał na odwrót?? żeby to z kolumny C przekopiowało się do kolumny A, z której wyszukuje tekst "aa" i zastąpiło ten tekst czymkolwiek co jest w kolumnie C, a C kolumnę pozostawiło pustą??? [syntax=vb]Sub Makro1() With Sheets("Arkusz1") For Each c In .Range("A1:A5") if c.Value = "aa" Then c.Value = .Range("C" & c.Row) .Range("C" & c.Row)...
Tam w tej komórce z FZ występuje numeracja pierwsze Fz to FZ1 ale nie wiem czy numer tutaj ma znaczenie. Ma o tyle, że do tej pory sprawdzałem, czy wartość komórki = FZ, teraz trzeba sprawdzić, czy w łańcuchu znaków, będącym wartością komórki, znajduje się fragment FZ. Dodatkowo w komórkach A pod fz znajdują się głównie cyfry bądź puste pole więc może...
Cześć, mam problem. Potrzebuję wiedzieć jak zrobić makro, które polega na ściąganiu danych z innego pliku. Ma wejść w inny plik, znaleźć konkretne słowo, przejść 5 komórek w prawo, skopiować wartość i wkleić w konkretne miejsce, potem przejść z tej piątej komórki na siódmą komórkę od tej znalezionej i skopiować ja w konkretne miejsce. Makro ma działać...
Wklej w kod arkusza "druk" [syntax=vb]Private Sub Worksheet_Activate() Range("A19:H46").ClearContents With Sheets("zamowienie") ostWrs = .Range("A" & Rows.Count).End(xlUp).Row wrsDst = 19 For i = 3 To ostWrs If .Cells(i, 3) = True Then Cells(wrsDst, 1) = .Cells(i, 1) 'Cells(wrsDst, 5) = .Cells(i, ?) 'Cells(wrsDst, 7) = .Cells(i, ?) wrsDst = wrsDst +...
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",...
Formułami możesz to zrobić np. tak: [syntax=text]=JEŻELI.BŁĄD(INDEKS($A$1:$D... jest formuła tablicowa do komórki A11. Kopiujesz ją w dół jak długo będą wyniki. Szukany tekst jest w A10. Zwróć uwagę na sposób zapisu...
Musiałbym wtedy kopiować tekst do innego edytora, tam usuwać entery i wrzucać przecinki, a później w Excela. Problem polega na tym, że chcę tego uniknąć, bo niektóre opisy są obszerne, a produktów 24.000 i do każdego opis jest inny. Może ktoś zna jakieś makro na pomijanie styli tekstu przez Excela? Dodano po 34 Temat rozwiązany. Sposób miałem prosto...
23 Cze 2012 15:56 podałem plik "Kwota na tekst.xls" - wystarczy żeby używać Arkusz bazowy i kopiować formułę. Jeśli nie o to chodzi, najlepiej prześlij jakiś plik z przykładem i opisem jak ma działać.
Sposób reakcji Excela i VBA na różne sytuacje nietypowe różni się w szczegółach, wynika to częściowo z innych koncepcji, częściowo z tego, że VBA operuje na wersji angielskiej, a użytkownikowi ma wyświetlać wersję zlokalizowaną (narodową). Niestety to przechodzenie między wersjami nie zawsze jest do końca dopracowane. Poza tym twórcy Excela mają manierę...
Witam serdecznie, Potrzebuje pomocy w napisaniu marka, poniewaz sam nie potrafię. Tabela: W kolumnie T w kolejnych wierszach są wpisane jako tekst ścieżki na dysku. Czasem jest to jedna ścieżka, a czasem dwie lub trzy oddzielone ";" (średnikiem). Czyli ścieżki to takie główne wartości oddzielone ";" średnikami. Makro: Makro ma przeszukiwać tekst (wartości)...
O rety, zmień na [syntax=vb]MsgBox Range("wartosc").Cells(1)[/syntax]Wstaw 16 kolumn i 32 wiersze i naciśnij przycisk ponownie. Przecież to MergedArea. Jak chcesz to odczytać inaczej? Dla pewności zerknij na tekst komunikatów[syntax=vb]MsgBox Range("wartosc").Columns.Count MsgBox Range("wartosc").Rows.Count[/syntax]i będziesz "w domu" ;)
Mam następujący problem: Stworzyłem makro jak było opisane powyżej, ale jest problem z rekordami pustymi. Wszystko jest ok jak tekst się zaczyna od początku komórki - jeśli nie trzeba wpisać w filtrze wyszukiwania "*". Chciałbym żeby wpisywać tekst w innej komórce i kopiować filtr wyszukujący do innej która dostawia "*" po obu stronach tekstu. Próbowałem...
Proszę o pomoc, jestem początkujący (bardzo) i mam następujący problem Mam dane w akruszu1 kolejno w kolumnach od A do D 31.05.202113:581020 31.05.202113:587564 ... Potrzebuję skopiować wszystkie wiersze z arkusza1 dla liczby >=31 z kolumny 3 (C) do drugiego arkusza2. Najlepiej jakby skopiowane...
Witam, Nieczęsto zwracam się z prośbą na forum, ponieważ wynajduję informację w innych tematach. Z dzisiejszym problemem nie mogę sobie poradzić, nie wiem nawet przy pomocy czego można to ugryźć. Polega to na tym, że mam Arkusz1, a w nim ok 10-15 kolumn, A Lp., B Zadanie (w niej stałe wartości I, II, I-II), C Nazwa, itd. Chciałbym aby na podstawie kol....
Witam serdecznie wszystkich. Mam problem, który postaram się w miarę jasno opisać. Próbowałem funkcji "Znajdź", "fragment tekstu" i jestem w martwym punkcie. Chodzi mi o to, że w komórce np. A1 jest ciąg znaków np. "do-re-mi-fa". Zawartość komórki A1 jest zmieniana przez skrypt VBA i czasem wartość tej komórki (A1) zmienia się na "sol-la". Jeżeli komórkę...
Witam Mam plik o nazwie zeszyt1 na dysku C z danymi w tabeli. Mam drugi plik o nazwie zeszyt 2 na dysku I. Chcę ażeby dane z zeszytu 2 aktualizowały zeszyt1 arkusz 2 czyli były kopiowane do kolejnych wierszy zeszytu1. Kopiowane mają być całe wiersze, a warunkiem do aktualizacji ma być kolumna A w obu zeszytach. Prościej mówiąc jeżeli dane w komórce...
Potrzebuje pomocy. Potrzebuje makra, które zrealizuje mi coś takiego - otwiera automatycznie dwa dokumenty - jeden jako dokument xls drugi jako txt. To mi działa. Chciałbym aby z pliku txt z komórki A2 szukał jej w pliku xls po komórkach A i jeżeli znajdzie pasujący wynik to wklei zawartość w pliku txt do xls ale od kolumny B. Prawda jest taka, że nie...
Witam Męczę się już kolejny dzień, nie wiem co zmienić w tym kodzie aby Dane z pliku "A" w którym jest tabela z danymi (A1:M30) - wiele komórek scalonych, kolorowa i w ogóle no i dane oraz formuły. Problem w tym, że formuła kopiuje tylko do pierwszego arkusza a di tego wyskakuje komunikat "subscript out of range" a ja chciałbym kopiować do arkusza w...
Witam Mam mikrokontroler, który co pewien czas wysyła mi na port COM temperaturę z czujnika. np "21,4" Nie mam żadnego problemu z połączeniem COM ponieważ jeśli odpalam HYPER TERMINAL wszystko wyświetla mi świetnie, problem w tym że musiał bym za każdym razem kopiować cały tekst z terminala i w excelu obrabiać żeby sobie utworzyć wykres temperatury....
Nie wiem jak napisać pętlę, która będzie potrafiła kopiować tylko niepuste komórki ze wskazanej kolumny. Załóżmy, że w Arkuszu1 w kolumnie A jest 2000 komórek, z czego dane znajdują się tylko w 500 z pustymi w różnych miejscach pomiędzy. Chciałbym napisać makro, które utworzy nowy plik we wskazanej lokalizacji (stałej - U:\Lukasz\Raporty\) o zmiennej...
'zdefiniowanie ostatniego wiersza w arkuszu "Inne" OstatniWiersz = Sheets("Inne").Range("D65535").End(xlUp)... a właściwie Range D65535 definiuje mi maxymalny zasięg kolumny D ? , a 65535 jest to maxymalana ilość wierszy jaką potrafi "przetrawić" excel ? Range("A2:B5") - z tej podpowiedzi wnioskuję że można stosować zapis excela w makrach "excelowych"...
chodzi mi ... tylko o nagłówek w stylach formatowania Jeśli tak to proponuję po wprowadzeniu całej treści raportu do Worda - przeprowadzić modyfikację stylów przy pomocy VBA w samym Wordzie :D Przykładowo jeśli będziesz miał wprowadzoną w treści raportu trzystopniowe numerowanie działów, rozdziałów i podrozdziałów (typu 1. ; 1.1. ; 3.1.5. ) to można...
Jak masz tak ładnie popisane "stare:xxxxxxx" i "nowe:yyyyyy" we wszystkich wierszach to nawet nie musisz sięgać ani do wyrażeń regularnych, ani do VBA :please: Wystarczy zrobić odpowiednią formułę (na bazie fragment.tekstu) w kolumnach C i D i przeciągnąć ją na dół kolumny :idea: :idea:
przydział w grupie A jest zawsze tekst, natomiast w grupie B są zawsze liczbowe? Porównaj D3 - G3, D6 - G6, etc. Bardzo pożądane jednego typu(tekst 109a)
PutInClipboard nie działa w Windows 10. Jedno z możliwych obejść tego problemu podano tu: https://stackoverflow.com/questions/5970...
Do tego nie potrzeba makra, można to prosto zrobić korzystając z listy rozwijalnej i łączenia tekstu. Prosty przykład
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
Po złożeniu zamówienia w necie kumpel przepisuje teks na kartkę i mam zabawę wklepywania danych do excela. W excelu napisałbym mu makro ze skrótem klawiaturowym, ale z programowania jestem prawie zielony. Czy jest jakiś prosty sposób dodania do paska skrótów do aplikacji bądź skrótu klawiaturowego kopiującego zaznaczony tekst ze strony internetowej...
Te błędy są spowodowane sposobem przeliczania arkuszy przez Excel. Mamy ograniczone możliwości sterowania tym. W tym przypadku można wprowadzić 2 uzupełnienia: 1) w formule 'oblicz' dopisać na końcu: [syntax=text]+0*LOS()[/syntax]Ta zmiana nie zmieni wartości wyniku, wymusi tylko przeliczenie formuły przy każdym przeliczeniu arkusza. 2) Ale to jeszcze...
No teraz cokolwiek rozumiem :D i "najprościej" w arkuszach Google można to zrealizować jak w linkowanym przykładzie [url=https://docs.google.com/spreadsheet... Dobrze by było żebyś przeanalizował jak ten arkusz działa: jaka jest wykorzystana funkcja ("uniwersalna" - można ją...
Tabelkę wstawisz [syntax=vbscript]ActiveDocument.Tables.A... Range:=Selection.Range, NumRows:=2, NumColumns:=2, DefaultTableBehavior:=wdWord9TableBehavi... możesz bezpośrednio z excela skopiować jakiś zakres i wkleić do worda, też otrzymasz tabelkę. Kolor słów/liter łatwo zmienisz w excelu (zastosuj to do komórki z tekstem "KolorTest") [syntax=vbscript]Cells(x,...
Ja już "ogarnąłem" (ogarnąłem to o co ci mniej więcej "chodzi") Po pierwsze za mało danych: To ma być funkcja czy procedura? To ma dotyczyć zaznaczenia, całego arkusza, całego skoroszytu? Co z resztą danych jeżeli znalezione wyniki przekroczą 1024 znaki? Po drugie: Ja z kolei chcę kolejne piwo (a nie chcę mi się iść już do sklepu). Pokaż co już stworzyłeś...
Dlatego, że nie wiedziałem, jak potraktuje średniki w tekście.
Możesz połączyć funkcje z tekstem i zrobić np. wyświetlanie ilości wg przykładu, możesz zsumować razem 12 i 8 ... Opcji jest mnóstwo, tylko od Twojej inwencji zależy co i jak zrobisz :) I korzystaj z odwołań względnych, mieszanych i bezwzględnych, można wtedy łatwo przeciągać i kopiować formuły :)
Normalny tekst
Jak Marcin230 podpowiedział excel załatwi sprawę. Otwierasz excela kopiujesz cały tekst z notepad'a Zaznaczasz w exceu komórkę A1 i dajesz wklej. Następnie zaznaczasz całą kolumnę A (klikasz na literę A) W menu Dane wybierasz "tekst jako kolumny..." , zaznaczasz rozdzielany i klikasz dalej. Teraz zaznaczasz spację i klikasz dalej. w tym momencie zaznacz...
Podałeś zdecydowanie za mało informacji. Jeśli Twoje dane robocze liczą ok. 10 tys. wierszy, to przykład powinien obejmować ok. 50 wierszy w reprezentatywnym układzie. Należy to pokazać w załączonym pliku wraz z oczekiwanym wynikiem. Z przykładu, który pokazałeś nie wynika m.in. 1) czy wszystkie wartości w kolumnie A występują parami, czy mogą też być...
Zdaje się, że badany tekst jest krótszy niż 3 znaki. Wyłącz obsługę błędów (On Error Resume Next) lub sprawdzaj długość stringa. Powinien mieć co najmniej 4 znaki.
Czy 'txtPDF_List' to twój 'textbox'? Jeżeli tak to ominiemy ten 'klipbord' [syntax=vbscript]Private Sub cmdList_Click() With txtPDF_List If .Text <> "" Then .SelStart = 0 .SelLength = .TextLength .Copy MsgBox "Skopiowano nazwę dla listu przewozowego " & txtKURIER & ": " & Chr(10) & _ txtPDF_List, vbInformation, "Kopiowanie" Else...
Proponuję zrobić przykładowy plik z danymi i dokładny opis czego oczekujesz od tego makra :?: Czy w gotowym arkuszu ma sprawdzić kolumnę A i w zależności od kryterium tekstowego skopiować określone wiersze do drugiego arkusza :?: Czy też po zmianie wartości w kolumnie A na określony tekst, kopiować ten wiersz do drugiego arkusza :D :?: A co wtedy ma...
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...
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...
A co konkretnie ta funkcja ma kopiować? Tekst? Do tego wystarczy formuła. Formaty komórek? Obrazki?
Wydaje mi się, że poniższą linijkę: Cells(x, 2).FormulaR1C1 = "='[nazwa]WINTER 2010'!R" & y & "C" & 10 & "" powinieneś zamienić na: Cells(x, 2).FormulaR1C1 = "='[" & nazwa & "]WINTER 2010'!R" & y & "C" & 10 & "" i zrób tak w każdej linijce, bo w kodzie...
I dlatego wymyślono funkcję kopiuj-wklej :-)
Spacji nie mam, sprawdzałem to na oryginalnym raporcie i kilka razy na innych. Wprowadzałem dane ręcznie i też zawsze pierwszy wiersz był powtarzany. Więc to nie będzie wina błędnego tekstu.
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..
Dzień dobry, To można rozwiązać różnymi sposobami, zależy do czego te liczby mają dalej służyć - czy mają tylko tak wyglądać, czy mają stanowić dane do dalszych obliczeń. Standardowo przy wypełnianiu komórek zmienia się ostatnia liczba, więc efekt jest taki jak Pan obserwuje. Jeżeli liczby te mają tylko tak wyglądać można zastosować format niestandardowy...
Wydaje mi się że nie potrzebujesz kopiowania, wystarczą formuły (w załączniku) Jedynie na co potrzebujesz makro to na wklejenie aktualnej daty np w A2, po zmianie tekstu w B2
Dobry wieczór, Czy koniecznie musi być makro? Nie wystarczy filtr zaawansowany Excela? Moim zdaniem dobrze się do tego nadaje, chyba że fraz do wyszukania jest bardzo dużo. Procedura postępowania: 1. Nad kolumną z danymi umieścić nagłówek np. Lista. 2. Określić szukaną frazę i umieścić ją w wybranej komórce. 3. Utworzyć kryterium, które w przypadku...
mam duży problem (choć prosty :-) ) mam tekst: get system name name = ... w drugiej kolumnie odpowiedni " PPPoA Bridging ... skrypt: WierKon = InputBox("wiersz koncowy") N = WierKon Sheets.Add.Name = "liczniki_pppoa" ' nowy arkusz Sheets("liczniki_pppoa").Select ActiveWorkbook.Sheets("liczniki_pppoa").... = 3 Sheets("Arkusz1").Select 'WierAkt...
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...
Jeśli piszesz, że nie znasz się na VBA, to dlaczego chcesz to robić w VBA? Przecież do tego wystarczy prosta formuła: [syntax=text]=LICZ.JEŻELI(D$1:D1;$D$1)[/... kopiujesz w dół jak daleko potrzeba. A żeby to zrobić w VBA należałoby opisać jak to dokładnie ma działać, czy jednorazowo, czy ma śledzić wpisywanie nowych danych i dodawać numerację...
nie dołączyłem pliku excelowego jako bazy w którym odbywa się całe filtrowanie liczenie itp, w załączeniu przsyłam sam wynik przykładowej tabeli która musi być przeniesiona do worda. Wyświetlanie zdjęć przy opcjach w excell jest kluczowe
Dzięki wszystkim, najłatwiejsze jest rzeczywiście rozwiązanie adamas_nt. Ja jeszcze między czasie wpadłem na jedno w którym nie musimy tworzyć nawet formuły. w Excel 2007 zaznaczamy kolumnę którą chcemy przerobić DANE> w ramce NARZĘDZIA DANYCH> TEKST JAKO KOLUMNY> zaznaczamy rozdzielany (bo nie wiadomo czy wszystkie spacje są w jednakowych miejscach,...
Właśnie nie jest ciągiem znaków bez enterów, wkleja się do kilku komórek. Nie ma gdzieś w ustawieniach w Excelu żeby wklejało do jednej komórki i żeby automatycznie przenosiło słowo z (at) czyli maila do komórki obok (może jakaś formuła)? Jest to tekst kopiowany ze strony internetowej
excel kopiować kopiować excel excel tekst
płomień amica prywatny łączność opinie hitachi
blaupunkt limited bialoruśka wymiana pompy
Seat Altea XL 2013: Podłączenie anteny ze wzmacniaczem Canon PIXMA MG3650S – dioda B mruga, C świeci na stałe: interpretacja błędu, kody, serwis
