Skoro chodzi o zbędne spacje wiodące to użyj USUŃ.ZBĘDNE.ODSTĘPY(), potem przekopiuj tylko formaty do wyniku funkcji i masz tak jak trzeba :) Oczywiście kopiowanie formatowania można zrobić w VBA, wystarczy nagrać sobie makro podpiąć pod skrót lub przycisk i po problemie. Tu jeszcze archiwalny temat z podobnym problemem https://www.elektroda.pl/rtvforum/topic3...
Może będziesz wiedział gdzie popełniam błąd i coś zasugerujesz. Podstawowa przyczyna złego formatowania to przedziwne style w Wordzie, które utworzyłeś jako listę numerowaną (dodatkowo jako numerowane cyframi rzymskimi :| ). Proponuje przeanalizować makro - działa ono w oparciu o 3 symbole wieloznaczne (np." arabskiej :idea: ), poprzez polecenie znajdź...
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ż...
Jeśli chodzi o klasyczne odwołanie, to nie jest to możliwe, gdyż odwołanie zwraca tylko wartość komórki, bez formatowania. Ponadto, nawet z użyciem VBA, komórka zawierająca formułę musi być sformatowana jednolicie (to znaczy można sformatować całą komórkę, ale nie poszczególne znaki). Szkoda, że nie dałaś pliku załącznika, bo wtedy łatwiej można by...
Ten fragment nie ma znaczenia - to mi działa. Chodzi mi o to aby w nowym wydzielonym tym makrem pliku arkusz wyglądała tak samo (szerokość kolumn, wielkość czcionki. Teraz jak tworzy mi nowy plik z fragmentem danych który wydzieliłam makrem to są stałe szerokości kolumn i wielkość czcionki taka jakbym po prostu otworzyła nowego excela i wkleiła tam...
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...
Znowu namieszałeś w tym kodzie, ale nie rozumiem, jaki błąd masz w linii: [syntax=vbnet]Columns(kW.Column).Select[... nie powinno być żadnego błędu. Zaznaczanie kolumny jest zbędne. Na początku tworzysz zmienne obiektowe kW i kWc, a później nie umiesz ich wykorzystać. Poza tym, jak już poprzednio pisałem, kopiowanie formatowania jest zbędne,...
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...
Witam, Czy mogłbym prosić o pomoc w stworzeniu kopi excela. Chciałbym aby drugi plik kopiował wszystkie arkusze z pliku głównego wraz z danymi i formatami. Aby stanowił lustro głównego pliku. Podejrzewam że nie da się stworzyć formuły pewnie będzie musiało to być makro. Dzięki
Poszukuję makra, które z 1 arkusza o nazwie "dane" wykopiuje dane do nowych arkuszy w takim samym formacie względem np. kolumny K - wynik działania makra powinien być podobny (tylko dla wszystkich unikatowych danych z kolumny K) jak w załączonym pliku w arkuszu P001 (makro powinno nadać nazwę dodawanym arkuszom
Szkoda, że nie chcesz załączyć przykładowego pliku, bo w ten sposób zmniejszasz swoje szanse na uzyskanie optymalnej pomocy, a potencjalnych pomagających zmuszasz do wypytywania o wszystkie szczegóły. Z tego co teraz napisałeś zrozumiałem, że arkusz "Generator cen" zawiera jakieś formuły, które mają być użyte do przeliczenia danych z arkusza "301" i...
Myślę, że może, ale na sprawdzanie który ma zmieniony lub zostały dodane będą iść nawet więcej czasu. Obecnie makro po prostu usuwa stare dane i pisze nowe z pliku użytkownika Dodano po 1 opcja, gdy zamiast wszystkich formuł w pliku ogólnem kopiowane tylko wartośći. To jest około 4 razy szybciej przed należy użyć poprzedni makra dla kopiowania wszystkego...
Witam Musze przekopiować wiele pojedynczych komórek z jednego arkusza do drugiego. Kopiowanie danych musi się odbywać z zachowaniem formatowania i odniesienia do list słownikowych. Kopiowanie odbywa się po jednej komórce ponieważ makro musi być uniwersalne i pod parametry w i k, poz i kol_doc wpisywać zadane wartości. Przy poniższej operacji trwa to...
Witam , tabela jest nazwana kierownikiem pracownika. To moje formatowania ( chyba jedyne co mi wyszło ) :) . Generalnie popełniłam błąd i makro powinno działać dla daty ukończonej , powinien powstawać nowy skoroszyt a nie arkusz. Czy jesteśmy w stanie to rozwiązać? Niestety plik wygląda w tym momemcie troche inaczej
Przekreślenie jest efektem formatowania tekstu w komórce. Wyniku formuły nie można w ten sposób formatować. Pozostaje makro - nagraj przekreślenie i będzie prawie gotowe. Glównie chodzi o przypisanie tekstu i sformatowanie: Characters(Start:=1 lub 6, Length:=5).Font.Strikethrough = True lub False. Po mojemu, oprogramować należy arkusz z M/K przy Worksheet_Change.
Np. potrójnie zagnieżdżoną pętlą For wg.schematu: For pracownik = 1 To ilePracowników (tu przydałaby się rozpiska w osobnym arkuszu np. "Pracownicy", bo gdzieś trzeba ich policzyć) For miesiac = 1 To ilość miesięcy (tu LCase(nazwa arkusza) lub indeks daje nazwę m-ca) w tej pętli obliczasz bez zerowania również Nr wiersza wynikowego dla arkusza "Wynik"....
Czy ktoś ma pomysł na to aby nie zaznaczał całych kolumn A:G tylko aby zaznaczył od komórki A4 do komórki GX Taki efekt możesz uzyskać poprzez wstawkę kodu: [syntax=vbscript]Set thisWb = ActiveWorkbook Set wksK = thisWb.Worksheets("Kosztorys") Lastrow = wksK.Cells(Rows.Count, 1).End(xlUp).Row wksK.Range("A4:G" & Lastrow).Copy[/syntax] ale efekt takiego...
Sprawdź takie makro: Cells(CC, 3).Cut zastąp linijką Cells(CC, 3).Copy . Makro działa od pierwszego wiersza, jeśli pierwszy wiersz Twojej tabeli to nagłówek, początkowe parametry CA oraz CC zmień na numer wiersza, od którego zaczynają się faktyczne dane. Makro działa do momentu napotkania pierwszej pustej komórki w kolumnie C.
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...
Zrobiłem bez makr. Może ktoś Ci przerobi na makro. Łącze do formantu w komórce bieżącej, formatowanie niestandardowe ukrywające wpis ;;; formatowanie warunkowe określające kolor. Niestety łącza nie dają się kopiować, bo są zawsze adresami absolutnymi, nawet jeśli się je zapisze bez dolarów.
Po pierwsze: z którym fragmentem nagranego kodu masz problem? Po drugie: Nagraj makro kopiowania całego arkusza do nowego pliku ze zmianą jego (pliku) nazwy. Masz 100% gwarancji zachowania formatowania. Jeśli w arkuszu jest nadmiar danych można dopisać usuwanie. Jeśli jesteś początkujący, to nagrywarka jest podstawą. Przykład: To jest nagrane makro...
Witam, chciałabym zapytać czy macie może gotowe makro, które kopiowałoby tabelę razem z formatowaniem z jednego arkusza do drugiego. Muszę powielić taką samą tabelę w dużej liczbie arkusze i wolałabym uniknąć jej każdorazowego formatowania. Z góry dziękuję za pomoc.
W prosty sposób można tylko w dodatkowej kolumnie D, w której byłby wyliczany postęp jako ułamek. W kolumnach B i C można to zrobić, ale trzeba dla każdej komórki podać osobną formułę, bo przy definiowaniu tego typu formatowania nie można używać adresów względnych, zatem nie można skutecznie kopiować komórek sformatowanych tak, aby każdy wiersz był...
Można szukać różnych rozwiązań, ale przede wszystkim potrzebny jest załącznik, żeby było widać jak te dane są sformatowane, czy wszystkie jednakowo (np zł czy PLN), czy są tylko te dwie waluty, czy zawsze jest wpisana waluta. Poza tym istotne jest do czego ma służyć wynik - czy tylko do oglądania, czy do jakichś dalszych obliczeń. Czy poza oznaczeniem...
A sprawdziłeś, że nie działa? Ja nie znam specyfiki tego programu. Pliki .pdf przeglądam najczęściej w przeglądarce. Z przeglądarki kopiuje się bez formatowania.
Nie widzę potrzeby stosowana makr. Formuły i formatowania powinny wystarczyć. Ad.1. Poprawność danych > lista Ad.2. WYSZUKAJ.PIONOWO z argumentem (nazwa arkusza) podstawianym przez ADR.POŚR
Wielkie dzięki za to makro - jest świetne. Właśnie o to mi chodziło. A co należy dopisać aby makro kopiowało wiersze z formatowaniem. W niektórych komórkach mam też hiperłącza, a są kopiowane jako tekst. Jeszcze raz dziękuję za pomoc!
Naprzemienne kolory zrealizujesz formatowaniem warunkowym. Formuła: =MOD(WIERSZ();2)=1 Co rozumiesz pod pojęciem A po kolejnym użyciu nie kopiowało nagłówka tabeli tylko wstawiało wyszukane rekordy Z nagłówkiem nie ma problemu, wystarczy sprawdzić czy jest i kopiować warunkowo (gdy nie ma). Natomiast nic nie wiadomo co to za "wyszukane rekordy".
Mnie te makra nie zawiesiły Excela ani razu, ale testowałem je na wersji 2007 i 2010. Być może problem jest spowodowany przez połączenie wklejania danych ze schowka z wstawianiem komórek. Jeśli formatowanie komórek nie ma znaczenia i kopiowane są stałe (tak to przynajmniej wygląda w przykładowym pliku), to może zrezygnować z kopiowania na rzecz przypisywania...
Spróbuj z formatowaniem [syntax=vb]Selection.TypeText Format(exl.Sheets("Arkusz1").Cells(1, 1), "00.00")[/syntax]Na końcu makra zamknij instancję Excela (będzie w pamięci jako proces).[syntax=vb]objExcel.Quit[/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....
U mnie działa (oprócz kopiowania wysokości komórki z tym że tego nie ma w kodzie). Możesz podać cały komunikat błędu? Jest możliwość wciśnięcia przycisku "debug" Jeżeli tak to którą linie kodu wskazuje żółta strzałka (zaznaczenie)? Przy każdym formacie wyrzuca błąd. Jak nie formatujesz inaczej to też? A możesz jeszcze podać jak sformatowałeś komórkę?
automatycznie skopiowały się poniżej tabelki To spróbuj wykorzystać makro powiel() (uruchamiane skrótem ctrl+p ) :idea: :D z załączonego pliku. Dla pewności działania konieczne jest formatowanie ilości (Qty) jako liczby, a nie jako tekst :cry: (jak w Twoim przykładzie) :!: 1026922 1026916
Coś musisz wyjaśnić: Cały czas wydawało mi się, że kolory i wartości uzupełniasz we wzorcach (w tabeli u dołu arkusza) i gotowe kopiujesz do górnej tabeli. Czy jest inaczej? Ten błąd to wynik kopiowania formatowania warunkowego. Przy zastosowaniu makr (rezygnacji z cf) zniknie.
(at)speedy9 , w temacie napisano wyraźnie - makro. EDIT: W dalszej dyskusji podałem rozwiązania za pomocą formatowania warunkowego zaproponowanego przez (at)speedy9 ale z nieznanego mi powodu zostało to wycięte. Więc podaje tu: =ORAZ(CZY.PUSTA(1:1))... Ot tylko tyle dla wiersza 1, dalej można sobie formatowanie kopiować.
Oj, Leon45 , ciężki z Ciebie przypadek. Załączasz plik w niewłaściwym formacie (bez makr), ja mam tę funkcję wpisywać za każdym razem od nowa? Poza tym nie czytasz, albo nie pamiętasz co się do Ciebie pisze. Kilka postów wcześniej napisałem: Jeśli chcesz mieć pewność, że po zmianie koloru formuła się przeliczy używaj Malarza formatów, czyli kopiuj formatowanie...
Spróbuj zamienić: [syntax=vb]Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _ , SkipBlanks:=False, Transpose:=False[/syntax] na: [syntax=vb]Activesheet.Paste[/syntax] Sprawdź również formatowanie komórek.
Wspominałem już o EPPlus? 1. Pobierz [url=http://epplus.codeplex.com/]stąd bibliotekę. 2. Upewnij się, że projektu w VS nie kompilujesz do wersji Client. 3. Bibliotekę EPPlus.dll dołącz przez referencję do projektu. 4. Stwórz w Excelu szablon z makrem, formatowaniem etc. 5. Kod zapisujący dane z tabeli będącej źródłem dgv do szablonu to (uwaga...) [syntax=csharp]using...
witam, Czy ktoś z Was ma pomysł jak zrobić coś takiego: Potrzebuję stworzyć tabelę z godzinami pracy pracowników od..do i w kolumnie obok zastosować formułę złącz.teksty ( żeby wyświetliło się np 9-17) ale chciałbym żeby kolor teksty, który będzie wynikiem formuły miał taki sam kolor czcionki jak komórka po lewej. Ewentualnie czy ktoś ma jeszcze pomysł...
Formatowanie, przy rozszerzaniu tabeli, jest automatycznie kopiowane z wiersza wyżej. Po prostu nie rób z góry określonej ilości wierszy. Alternatywnie sformatuj tabelę dopiero po jej utworzeniu.
Witam. Dokładnie o to mi chodziło , bardzo dziękuje . Tylko jeszcze jedno pytanie a dokładniej : przy kopiowaniu do pliku B, zmieniają mi się również formaty w komórkach ( na te z pliku A) czy da się skopiować tylko wartości tak aby nie zmieniać formatowania komórek w pliku B ???
Aby coś takiego zadziałało "samo" - potrzeba makra. Ale jest inne rozwiązanie (ja je zastosowałem u mnie w pracy). Nie wiem czy u ciebie da się zastosować. Taki arkusz - szablon (u mnie nazwany "czystym") ma jeszcze jeden arkusz z nazwą "kalendarz". Są w nim (oprócz sobót i niedziel) automatyczne wyliczenia świąt itd. i poprzez zaznaczenie danego miesiąca...
Nie wiem jak Calc w Open Office "czyta" makra napisane dla Excel,a. Nagraj jakieś makro w Excelu (kopiowanie, zaznaczanie komórek, zakresów, formatowanie itp), przenieś je do Calc,a i sprawdź czy dzieje sie to, co powinno (nie mam OpenOffice, żeby sprawdzić). Ewentualnie poczekaj na kogoś bardziej zaawansowanego. -------------- Dodano po 8 chwilach....
Formatowanie w pliku wstawione jest takie, jakie będę otrzymywał z innych działów w firmie, czyli musi takie zostać.
Mam problem aby zrobić jako makro kopiowanie do dowolnej komórki wartosci z komórki formatowanej jako data i z funkcją DZIŚ. Chodzi o to że w pliku potrzebuje wstawić w jedną kolumnę (kol. C) aktualną datę (ale jeśli zrobiłbym z funkcji dziś to codziennie ta data by się aktualizowała dlatego chodzi mi tylko o wartość formuły). Zrobilem komórkę z funkcją...
Obszar = InputBox("Podaj obszar kopiowania danych", "Obszar danych", "A1:K10") Przed petlą For
Stworzyłem (nagrałem) makro dla pierwszej tabeli (Tabela1), które będzie formatowało poszczególne kolumny. Błędne podejście do zadania :cry: Prościej będzie dopracować sobie jedną tabelkę (template), a potem kopiować całe arkusze :spoko: Na zrzucie widać wierne kopiowanie tabeli, a w załączonym pliku makro kopiuj() 952012 952013
Jak musiałby wyglądać skrypt do rozróżnienia komórek z zawartością liczb / komórki z liczba z literą. Chodzi o to, że niektóre wartości liczbowe nie chcę oceniać . zastosuję wtedy wpis do komórki w postaci mieszanej np. 6/mm . Tym samym skrypt nie powinien formatować już takiej komórki. Formatować winien tylko te z zawartością liczb Inna sprawa
Wyjaśnij dokładnie o co Ci chodzi. Czy to mają być formuły czy makro? Kiedy miałoby nastąpić to kopiowanie? Co by je wyzwalało? Gdzie dokładnie (do którego wiersza) miałyby być kopiowane te dane? Domyślam się, że chodzi o kopiowanie tylko wartości, ale nie napisałeś tego wyraźnie (dane, to nie tylko wartości, ale również formuły, formatowanie itp.)....
Dzień dobry Zarejestrowałem proste makro, które polega na tym, że: 1. Robię duplikat arkusza. 2. W duplikacie kopiuje jedną całą kolumnę i w tym samym duplikacie wklejam ją specjalnie "tylko formatowanie" 3. W kolumnie gdzie wkleiłem samo formatowanie pisze formułę =JEŻELI(D8="Wycena indywidualna";D8;D8*$E$5) 4. Akceptuję propozycję arkusza o przeciągnięciu...
Czy da się to zrobić bez zamieniania obszaru na tabelę Excela? Da się, ale jest z tym więcej zachodu, a za chwilę będziesz znowu coś zmieniać i znowu będziesz pytać. Jaki masz problem z tabelą Excela? Ona jest bardzo elastyczna, jak dopisujesz wiersze, to formuły się automatycznie kopiują, można ją dowolnie formatować, nawet tak, że prawie jej nie...
Nie pokazałeś w pliku przykładowym spodziewanego wyniku, ale mam nadzieję, że o to chodziło. W mojej propozycji makra wykorzystuję na zmianę formatowanie warunkowe i filtrowanie, a następnie usuwam wyfiltrowane wiersze, aby w końcu uzyskać efekt, o którym pisałeś. [syntax=vbnet]Sub Duplikaty() Application.ScreenUpdating = False Sheets("Arkusz1").Copy...
makro kopiowanie kopiowanie makro makro kopiowanie danych
rozdzielczości 1440x900 laptop fujitsu amilo pompa zmywarka bosch
zacięcie karetki zacięcie karetki
Webasto Planar 2D 12-S - Migająca czerwona dioda: przyczyny i diagnostyka BK7231N Tuya Switch by Aubess: Features & Customization
