Skoro nagrało Ci się coś w rodzaju 'ActiveCell.FormulaR1C1 = "=TODAY()' to dopisz pod spodem 'ActiveCell = ActiveCell.Value' i po sprawie. To samo "bardziej po Bożemu": ActiveCell = Date Zamiast ActiveCell może być oczywiście dowolny Range(adres) lub Cells(wiersz, kolumna).
... " a " czy mógłbyś poprawić aby wstawiało Datę w komórkach w zakresie od B11 do B2000 i Godzinę od C11 do C2000 1. " a " co to jest to " a " w " If Target <> a " ? 2. "zbiorczo", tj. hurtem (?), czy sukcesywnie w miarę wpisywania danych w tym samym wierszu w zakresie kolumn 5 do 8 ? ps: trzeba by wstawić kontrolę zmiennej "i" (wierszy)
Makro sobie z tym poradzi. Najważniejsze jest przypisanie Nr pierwszego wiersza. Zastanawiam się nad LP, może powinna być skorygowana? Wystarczy w tym przypadku (wiersze od 3 w dół) za każdym Next wstawić nową linię (Enter) i wkleić [syntax=vb]Cells(i, 1) = i / 2 - 0.5[/syntax]
Chyba łatwiej zrobić dwuklik na wierszu, z którego chcesz kopiować. Równocześnie uruchamiasz makro i wskazujesz wiersz. Możesz też się upewnić, czy to właściwy wiersz. Oczywiście można też wstawić tam InputBox, tylko wtedy jak chcesz uruchamiać to makro? Jeśli chodzi o moją propozycję, to komórki docelowe wypisujesz po kolei jako adresy obiektu Range:...
Witaj. Sprawdź załącznik. Checboxy zastąpione czymkolwiek w kolumnie (może być X, może być cokolwiek poza pustym polem). Poprawność stawiania xów czy innych jest sprawdzana na bieżąco, więc jeśli spróbujesz postawić iksy dla dwóch różnych zamówień to wyjdzie błąd już w momencie stawiania. Nie jestem pewien, po co numer wiersza, wystarczy że masz w tabeli...
Excel to arkusz kalkulacyjny (obliczeniowy) a nie gotowy program. Nie da się "wstawić "tabelki w jeden wiersz. Wg mnie nie do końca rozumiesz co to jest arkusz kalkulacyjny. Co do makra i "małej" podpowiedź. :) Kłopot polega na tym że pisanie makra pod dane rozwiązanie musi opierać się na konkretnych/stabilnych danych (które zna autor projektu). To...
... dodać do każdej z nich 2 wiersze ... z automatu pod każdą tabelą wstawić dwa wiersze ... To znaczy, gdzie wstawić ... do tabeli czy pod tabelę ? Przygotuj przykład z minimum 3-4 tabelami w arkuszu.
nagralam makro ale nowy wiersz wstawia mi sie zawsze pod wierszem 29 a chcialbym aby kazdy nowy wstawial sie na koncu
Gotowe makro napisane pod Excel 2003: [syntax=vb] Sub Makro1() ' ' Makro1 Makro ' Makro zarejestrowane 2011-09-22, autor sidsysunia ' ' Klawisz skrótu: Ctrl+q ' Sheets("zestawienie").Select p = Range("c1") 'tu sprawdza ile masz pozycji Range("a2:b" & p).Select ' tu zaznacza wszystkie pozycje bez nagłówka Range("a2:b" & p).Copy 'kopiowanie Sheets("przeliczanie").Select...
Dzięki wielkie, Działa, aczkolwiek nie do końca jak chcę. Makro kopiuje wiersze, gdzie w kolunie G jest wartość większa niż 1, ale tylko raz. Ja chcę, aby kopiowało wiersz tyle razy ile jest wpisane właśnie w kolumnę G i tą wartość zamieniało na "jedynki". Czyli, jeżeli np. w komórce G2 mam wartość 5 to makro ma wstawić poniżej do wierszy od 3 do 6...
Do szczęścia mi brakuje aby efekt makra robił się na arkuszu "wynik" a wartości były brane z arkusza dane. :please: Efekt taki jak na zrzucie 961076 dla wielu "statusów" można uzyskać poprzez makro w załączonym pliku :spoko: 961080
Hmmm... Kilka uwag na początek: Po pierwsze primo: jeżeli chcesz uniezależnić program od nazw arkuszy, wystarczy zamiast: kolejnym wierszu.
Druga część warunku pętli to przerwanie w razie powtórnego uruchomienia. Wiersz(e) należy wstawić o jeden niżej (Range("A" & i + 1).EntireRow.Insert) oraz (i = i + how_many + 1) Sub rows_influx() Dim i As Long i = 2 Do Until ActiveSheet.Range("A" & i) = "" Or ActiveSheet.Range("A" & i + 1) = ""...
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ć...
(at)paweliw dokładnie formatowanie warunkowe miałem już ustawione i ładnie to śmiga ale tylko na jednym arkuszu, wpisałem formułę do sekcji wszystkich arkuszy lecz nadal działa tylko w pierwszym arkuszu (at)Zbych034 Nie mogę wstawić pliku ponieważ wyskakuje komunikat "... Niedozwolone rozszerzenie"
Dokładnie tak. I jeszcze jedno. Dlaczego chcesz zepsuć strukturę tabeli umieszczając dwie w jednej? Excel to oczywiście przeżyje, ale ty się bardziej spocisz jak kiedyś zechcesz coś z tego wyciągać. Nie lepiej umieścić to w oddzielnym arkuszu, a nie między wierszami?
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)...
Wydaje się, że makro jest dosyć proste ale samo się nie napisze. ... żeby makro zliczało wszystkie powtarzające się wartości ... Do tego wystarczy licz.jeżeli() ... ponieważ chodzi o to żeby makro WKLEJAŁO nowe komórki gdy znajdzie więcej niż jeden odpowiednik... Tu też można "obejść" dodając kolejne "dane" w kolejnych kolumnach a nie w wierszach....
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...
Cześć, chciałbym się podłączyć pod temat chyba z podobnym problemem. Posiadam arkusz excel gdzie osoba trzecia będzie wprowadzać nowe pozycje (wiersze) i uzupełniała do każdej pozycje dane w kolumnach. Każdy wiersz posiada 10 kolumn z czego kolumny 2-3 (trzy) posiadają skomplikowane formuły dot. auto-uzupełnienia. Excel jest tak zrobiony, że jak ta...
Ja to widzę przez makro, jakkolwiek do eksperta w tej dziedzinie mi na pewno daleko, więc mój kod na pewno da się porządnie zoptymalizować. Range("A1").Select na początku makro trzeba zmienić na inny (np B1, jeśli będzie nagłówek o wysokości jednego wiersza). Wypadałoby zmienić wtedy również warunek głównej pętli While maxY > 1 na poprawny (zamiast...
..Mam W kolumnie A 1600 wierszy np. z nawziskami i muszę w kolumnie B wstawić odpowiedni komentarz ( teskstowy ) będzie on zmienny .. Można to zrobić tak jak chcesz, za pomocą przycisków ale może są jakieś reguły wg. których dopisujesz ten komentarz? Wtedy lepiej by było napisać jakieś makro które robi to automatycznie.
Potrzebuję makro, które usunie mi cały wiersz Co stoi na przeszkodzie, aby kolega napisał sobie takie makro? Przykładów różnych pętli jest na naszym forum pod dostatkiem, usuwanie wiersza można nagrać rejestratorem, kod wstawić do pętli i podstawić zmienne. Metoda do wyboru: porównywanie każdej z każdą, lub wyszukiwanie (Find) W razie problemów z działaniem,...
dzięki śliczne za odpale jeszcze pytanko: gdzie to wstawić? do macro?i jak przypisać to odpowiedniej komórce( w moim przypadku w A1 rozdziela na 3 (dwa myślniki)a w D1 rozdziela następnie na 7 części(6 częci) i kopiuje do pierwszego wolnego wiersza ostatnie -można przypisać do tego jakąś wiadomość? np jeżeli nie a 2 myślników to wyskakuje okno alarm...
Oczywiście, że można. Wszystko co jest możliwe do zrobienia ręcznie, z menu, jest także do zrobienia przy pomocy makra. Trzeba się pobawić. Możesz wstawić do arkusza lub menu programu przycisk/przełacznik odblokuj/zablokuj, do którego przypiszesz makro, które będzie przed rozpoczęciem wpisywania danych odblokowywało zadanych przez Ciebie obszar arkusza,...
Proponuję wykorzystać rejestrator makr. Bez większej znajomości VBA można doskonale sobie poradzić. Przykład: 1. Nagrywam makra wstawiania i kopiowania wiersza. Wychodzi coś takiego nagrane 'Ctrl+strzałka w dół'[syntax=vb]Sub Makro3() ' ' Makro3 Makro ' ' Selection.Find(What:="Odżywianie", After:=ActiveCell, LookIn:=xlFormulas _ , LookAt:=xlWhole, SearchOrder:=xlByRows,...
Właśnie chyba wszystko poplątałem, wykorzystywałem formułe z IFem do usuwania wcześniej wierszy i nawet rozsądnie to rozkminiłem. Chciałem ją dostosować do wstawiania formuły, ale chyba pobłądziłem. Cel jest prosty, chcę aby w każdej komórce w kolumne, wstawiało mi makro formułe do momentu kiedy np w kolumnie A będzie cokolwiek wpisane.
Niestety nie mam żadnej pętli, bo do tej pory nigdy nie robiłem takich pętli, w których był jakiś warunek i kompletnie nie mogę tego ugryźć, poza tym od dawna tego nie robiłem. Nie wiem jak wstawić licznik, makro do otwierania linków zajmuje 2 linijki, więc nie wiem czy się wam to przyda, bo problem polega na konstrukcji pętli, jeżeli nie da się tego...
Witam Mam do uzupełnienia dość spory arkusz. Zazwyczaj chodzi o wpisanie wartości w dwóch komórkach, ale często sprawy się komplikują i muszę wstawić nowy wiersz, skopiować kilka potrzebnych komórek z wiersza powyżej (nie wszystkie), wprowadzić zmianę w jednej komórce i sformatować wiersz. Jako, że jest tego dość dużo, a czasu mam mało, chciałem użyć...
Niestety nie można zarejestrować w makro "inna komórka", VBA nie zrozumie takie. W post #2 PRL podal Ci link Dodano po 3 Być może jednak wiersze w arkuszu są równomiernie, na przykład co 40 wierszy umieścić numery?(w m6, m46, m86 itd.) Dodano po 19 No tota M6, przy prawej krawędzi, lub na ilu kolumny w lewo? Numer na każdej stronie powinno być 5 wierszy...
Wielkie dzięki za pomoc. Przekazuję Koledze parę punkcików za dotychczasowe wsparcie. FPS może być w dowolnej kolumny, ale wszystko ma się rozpocząć w pierwszym wierszu. Jeśli inaczej, proszę powiadomić Kolorowanie powinno zacząć się od drugiego wiersza. Czy w tym makrze można wybrać pojedynczą kolumnę do kolorowania (np. makro ma kolorować kolumnę...
Witaj!!! Dzięki serdeczne jeszsze dzisiaj jak wrócę do domu sprawdzę no i przede wszystkim dostosuję do swojego arkusz. O efektach będę pisał Pozdr. Dodano po 2 Witaj!!! Właśnie wrzuciłem to makro do arkusza; po uruchomieni u Basic wyskakuje mi błąd etykiety Compare; dodatkowo wyjaśnie mi proszę:] If (Sheets("Arkusz1").Cells(i, j) = "") Then Return...
Przejrzyj dobrze kod. Ostatnią funkcję masz "zaremowaną". [syntax=vb]'Call GetOnlyGoodValues(x1, x2, x3, x4, x5, x6, x7, x8, x9)[/syntax] Wewnątrz GetOnlyGoodValues wykonywane jest przeszukiwanie. Działa to dobrze bo sprawdzałem, ale generowanie czegokolwiek trwa baaaardzo długo. Zapis do komórek Excela mija się z celem o czym już pisałem. Właśnie dodałem...
Witam, Mam plik Excela służący jako magazyn. W każdy arkuszu są zapisywane ruchy magazynowe dla każdego produktu w formie tabeli Excela. -w każdym arkuszu jest po jednej tabeli -wszystkie tabele mają dokładnie ten sam układ nagłówków (np. Towar, Cena, Ilość, Jednostka, Suma, Nr FV itp.) ale oczywiście różną ilość wierszy -chcę wstawić pomiędzy nagłówki...
Próbuję napisać w excelu tabele dotycząca osób i przypisnaych im dat w tym, w arkuszu pierwszym jest tabela i w niej : 1) będą dopisywane osoby maks 80 (tabele zrobiłem i adekwatnie się powiększa jak dopisuje osobę) (nie przypisuje się jej odrazu numer, chciałbym żeby lp dotyczyło kolejności związanej z nazwiskiem i wskakiwało same). Czasem może być...
W jednym arkuszu co jakiś czas jestem zmuszony tworzyć min. 5 wierszy (odpowiednio sformatowanych) i jest to dosyć czasochłonne, dlatego od kilku dni zmagam się z napisaniem makra, które by to trochę usprawniło. Chodzi o to aby przez buttony móc kopiować 5 wierszy z jednego arkusza do drugiego w odpowiednim miejscu. Problem polega na tym, że te miejsca...
Najpierw opis, potem problem. Przykładowy Excel 2013 o nazwie "POMOC" w nim są komórki scalone i nie scalone, niestety tak musi być. Przykładowo z folderze o nazwie "AAA" mam 2000 plików Excela o różnie zapisanych nazwach (imie i nazwisko, data itp.)a wyglądzie w środku jak plik o nazwie "POMOC".. W folderze "AAB" jest plik Excela o "BAZA". W "Bazie"...
...a raczej dokończenie poprzedniej, w tym że muszę dodać do pliku z xml poniższe wiersze,; <?xml version="1.0" encoding="UTF-8"?> <pozycja version="2.0"> Jeżeli dodaje za pomocą write #1 to rozjeżdza się w VBA Ad 1 . Jeśli dokończenie poprzedniego, to czy nie lepiej wstawić w tamte makro linijki jak poniżej (?): Ad 2 . Poza tym ' <pozycja...
I teraz zupełnie nie wiem co mam zrobić z makrem które zrobiłeś, za duże uproszczenie. Przepraszam.. Mam je trochę skomplikować?? ;) Wydaje mi się że tutaj powinnam wstawić fragmenty odpowiedzialne za kopiowanie: Napisałaś, że warunkiem kopiowania jest: Kopiuje wartości które spełnią warunek taki że kolumna "B" zawiera "tak" do ostatniego pełnego wiersza...
Najwazniejszy jest końcowy rezultat. vs Pytałem czy taki wzor jaki zrobilem moze zostać, przełożeni odpowiedzieli ze nie. Nazwisko ma byc pogrubione i wyśrodkowane. To co w końcu jest ważniejsze? Nazwisko ma byc pogrubione i wyśrodkowane. Najlepsze rozwiązanie już znasz - wstawić je w osobnym wierszu. Ale jak będę chcial rozciągnąć cala zawartość w...
Na formułach można spróbować to zrobić tak Zakładając, że mamy zajęte kolumny A oraz B - wstawić pusty wiersz pustą kolumnę między nie (w ten sposób kolumna B przejdzie do C). Zakładam, że dane są od pierwszego wiersza. kolumna B1 będzie zawierać formułę =C1 Kolumna B2 będzie zawierać formułę =JEŻELI(CZY.PUSTA(C2);B1;C2) od B2 można wszystko rozciągnąć...
Witam. Poniższy kod z VB Excel potrzebuję przerobić na C# tak by wyświetlał się w datagirdview. Zadaniem kodu jest zliczanie wierszy o takiej samej nazwie w kolumnach A:B, sumowanie wierszy w kolumnie D, usunięcie policzonego wiersza. [syntax=vb] Sub Makro1() ' ' Makro1 Makro ' Makro zarejestrowane 2011-09-22, autor sidsysunia ' ' Klawisz skrótu: Ctrl+q...
Sub NPV() ' ' ' stopa = InputBox("Podaj stopę.") Range("D2").Select ActiveCell.FormulaR1C1 = "=-R2C2+NPV(" & stopa & ", R2C3:RC3)" Range("D2").Select Selection.AutoFill Destination:=Range("D2:... Type:=xlFillDefault Range("C3").End(xl...
dziękuje za odpowiedź. Jeśli dobrze zrozumiałem to co Pan napisał to z drugiego makra zrezygnowałbym. Myśl moja jest taka. Wybieram miesiąc jaki mnie interesuje np. wrzesień. Kolorami zaznaczają się dni wolne na kalendarzu oraz na wierszach gdzie są osoby - to wzsystko działa. Jak to zostanie wybrane to myśl jest taka (może być makrem) żeby właśnie...
Zablokować pierwszy wiersz, zmienić wysokość, wstawić tam wszystkie przyciski i używać jako "paska menu"...
Tak na szybko spróbuj : Sub Makro1() arkuszdane = InputBox("podaj nazwę arkusza z danymi") kol = CInt(InputBox("Podaj kolumne z danymi")) wier = CInt(InputBox("Podaj pierwszy wiersz z danymi")) ile = CInt(InputBox("Podaj ile jest wierszy z danymi"))...
Witam, podczas tworzenia makra natrafiłem na problem z którym nie mogę sobie poradzić. Makro miałoby za zadanie z wszystkich arkuszy o nazwie "Protokół x" zrobić zestawienie w jednym arkuszu oraz z "delikatnymi" zmianami odnośnie rozmieszczenia w kolumnach. Na chwilę obecną nie idzie źle - mam problem ze zliczaniem wierszy z protokołów, żeby określić...
Dzięki Serdeczne ! To co do tej pory chciałem działa OK . Jeśli chodzi o kolumnę L - w której zmieniłeś formułę ze względu na występujące cykliczne odwołanie to obecnie nie spełnia ona swojej funkcji. Mianowicie w kolumnie L wartosci powinny być skopiowane z kolumny I i nie zerować się. Po zakończeniu miesiąca będą zerowane ( jakoś to wykombinuję)...
No dobra ;) Generalnie każdą formułę można wstawić makrem, wystarczy ją nagrać macro recorderem i troszkę zmodyfikować. Dla WYSZUKAJ.PIONOWO jest to coś takiego: [syntax=vb]Private Sub CommandButton1_Click() On Error GoTo myErr Application.ScreenUpdating = False Application.Calculation = xlCalculationManual With Sheets("Arkusz1") ost_wiersz = .Range("A"...
Wypróbuj coś takiego Sub kopiuj() Dim plik As Workbook Dim i As Long, pierwszyWiersz As Integer, ostatniWiersz As Long 'jesli nie dalej niz wiersz Nr 32767 wystarczy As Integer pierwszyWiersz = 1 ostatniWiersz = 100 'jesli w tym samym katalogu Set plik = Workbooks.Open(Filename:=ThisWor... & "\Zeszyt2.xls") 'jesli...
Witam! Potrzebuję pomocy z poprawnym wstawieniem lub modyfikacją obecnego makra. Aktualne makro po aktywowaniu kopiuje wybrane wartości z kilku różnych kart w kolejności alfabetycznej kart, jeśli w kolumnie C jest konkretny dostawca. Teraz w załączonym pliku potrzebuję w ostatniej karcie "podział na kolory" wstawić (lub przekształcić obecne) makro,...
Jeszcze nikt się nie odezwał ... ? Zatem moja propozycja - sprawdź, czy o to chodziło: 1. Punkt wyjściowy - tabelka w zakresie wierszy ' A2:K19 ' 2. Za pierwszym razem przycisk " Zmiana asortymentu " można wstawić automatem (makro: " a_wyszukaj_kotwe ") lub ręcznie (makro: " b_dodaj_wciskanego ", należy jednak uprzednio zaznaczyć komórkę ' B21 ' - makro...
Wiem ze VLOOKUP. Ale myślałem że jeżeli wstawię to jako string to używając zapisu angielskiego zwróci mi błąd w stylu #NAZWA Sprawdzę to wkrótce i dam znać co z tego wyszło. Dodano po 4 Ok, zapis funkcji bez żadnego wywoływania zmiennej itp jest ok. Jest tylko problem. Jak w zapisie Range("D1").Formula = "=VLOOKUP(A1, Arkusz2!A:B,2,0)"...
Dzięki za pomysł ale ja zacząłem myśleć o czymś innym.Może po prostu umieścić w SMARA NETHERLANDS gdzieś indziej osobno wyniki dla braku zapinki i brak woreczka, a później swykłą sumą umieścić je w komórce B5. Żeby nie było jednak za łatwo, zauważyłem dopiero teraz,że wyszukiwanie poprzez ("Paprika*") nie działa.Pewnie dlatego,że excel szuka w komórce...
Witam ponownie. Pracuję obecnie nad makrem, które miałoby kopiować dane ze stworzonej wcześniej tabeli przestawnej do poszczególnych zakładek/zeszytów (które noszą nazwy osób) na dany dzień. Uwagi i założenia: 1. Tabela przestawna z danymi - daty jako wiersze, imiona i nazwiska osób jako kolumny (a w tabeli dane liczbowe do przyporządkowania). 2. Poszczególne...
Witam, rok temu temu stworzyłem w miarę proste makro, które między innymi miało filtrować dane po datach mniejszych niż dziś+90 dni, później z wyfiltrowanych danych tworzyć tabele przestawną itd. Poniżej fragment mojego kodu Sheets("BAZOWA").Select Range("T1").Select ActiveCell.FormulaR1C1 = "=WORKDAY(TODAY(),90)" If ActiveSheet.FilterMode = True Then...
Wstaw przycisk do arkusza "faktura" i podepnij makro, w którym można wykonać kilka czynności za jednym "klik". Np 1) Drukowanie /opcjonalnie 2) Inkrementacja numeru faktury /opcjonalnie 3) Aktualizacja stanów /konieczne 4) Czyszczenie druku /opcjonalnie Jest jeden problem. W arkuszu "chemia" nazwy nie są unikatowe. Zauważ, że funkcja WYSZUKAJ,PIONOWO...
Niestety Twoje wyjaśnienie nie wskazuje algorytmu obliczeń, a jeszcze sprawę gmatwa. A więc spróbujmy po kolei. Zajmiemy się formułą w Arkusz1!L14. Jest tam wpisane coś takiego: [syntax=text]=JEŻELI($Q$1=1;JEŻELI(PRAWY...
Znalazłam na waszej stronie poniższe marko : [syntax=vbscript]Public Sub wypisz() Set a = ThisWorkbook.Sheets("BUD") x = a.Cells(Rows.Count, "A").End(xlUp).Row + 1 Set objFSO = CreateObject("Scripting.FileSystemObject... Set objFolder = objFSO.GetFolder("Y:\CGEurope\Files\SOC Reports\2020\Bridge files") 'Tu trzeba wstawić ścieżkę roboczego folderu For...
Odszukaj w kodzie taki fragment: 'jeżeli nie istnieje utwórz zakładkę o nazwie kolumny B If Not jest_zakl Then wbNowy.Sheets.Add(After:=wbNowy.... = nazwa_zakladki Set wsNowy = wbNowy.Sheets(nazwa_zakladki) wiersz = 1 'kopiowanie nagłówka wsZrodlo.Range("A1:C1"...
Zawsze chcesz wstawiać nowe wiersze jako przedostatnie (pomiędzy cyfrą 2 i 3 w kolumnie A)? Jak w input boxie wpiszesz 2, tzn. że chcesz wstawić łącznie dwa wiersze w zaznaczeniu, czy do każdej scalonej w kolumnie B komórki dostawić dwa puste wiersze w kolumnie A ?
Mały arkusz przykładowy masz w załączniku - wykorzystuje proste kopiowanie wierszy w pętli z arkusza źródłowego do docelowego. W pełni zgadzam się z przedmówcą, że tych przycisków coś za dużo - ba, sama idea kopiowania obrazków nie bardzo mi się podoba - wszak masz potem ten sam obrazek w dwóch miejscach... A znając tendencję niektórych ludzi do wklejania...
Witam! Mam problem z poprawnym działaniem makra. Makro które przerobiłem z innego pliku gdzie dane były przenoszone z pierwszego arkusza do arkuszy znajdujących się w tym samym pliku. Teraz potrzebuję aby przenosiło do innego pliku z innych komórek. Niby przerobiłem je na podobę tamtego odpowiednio zmieniając adresy komórek z których ma pobierać dane...
Filtrowanie jest ok. ale nie musze w ten kod wstawić przynajmniej xl down by sortowanie działało do ostatniego wiersza. Kiedyś znalazłem taki kod ale nie teraz nie udało mi się go wprowadzić by zadziałało. Doszedłem do czegoś takiego [syntax=vbscript]Sub sort_zrodlo() ' ' sort_zrodlo Makro ' ' Dim lastRow As Long lastRow = Range("a2:o" & Rows.Count).End(xlUp).Row...
VBA nie obsługuje polskich nazw formuł, tylko ich angielskie odpowiedniki. Najprościej zrobisz to tak, że włączasz rejestrator makr, wpisujesz w Excelu formułę i kończysz rejestrowanie. Potem przechodzisz Alt+F11 do kodu, wchodzisz w moduł i odnajdujesz ostatnie zarejestrowane makro. Z niego kopiujesz wspomnianą formułę, ewentualnie poprawiając jej...
Witam, mam tabelę z transakcjami i jednym wierszem nagłówkowym, a potrzebuję go wstawić nad transakcjami z każdym kolejnym kontrahentem (klienci są nazwani a,b,c,d itd.) Wygląda to tak KlientTowarykod cena ilość atowar71234567891018 5,05 1 atowar81234567891019 5,06 2 atowar91234567891020 5,07 1 btowar101234567891021 5,08 2 btowar111234567891022 5,09...
Witajcie:) Przygotowałem narzędzie, które wykonuje takie kluczowe kroki (tworząc plik płaski): 1. pobiera listę plików .xlsx w folderze 2. usuwa zakładki, tworzy nowe i orzenosi dane z pobranego pliku z folderu 3. przenosi dane z jednej zakładki do finalnej KOR 4. przenosi poszczególne wiersze z zakładki RAT do zakładki KOR do tego samego wiersza jako...
Czy w w gotowym makropoleceniu nazwy np. arkuszy/plików się zgadzają? Tu może być problem. Ewentualnie z późniejszej wersji chcesz wkleić do wcześniejszej gdzie np. jest różnica (starsze wersie Excela tj. Excel 2003 oraz starsze wersje) mają ograniczenie do 65 536 wierszy i 256 kolumn. A jeżeli korzystasz z wersji 2007 lub nowszej to plik może mieć...
Dzięki za zainteresowanie. Niestety ani jeden ani drugi sposób nie załatwia mojego problemu. Po wpisaniu do komórki C9 formuł, które podaliście sytuacja wygląda tak, że jak staję na komórkę C9 i dodaje wiersz powyżej to w komórce C10 jest dalej suma tylko jednej komórki C8:C8, a mi chodziło o to, aby formuła zmieniała się na C8:C9. Dlatego zastanawiałem...
Ktoś tu kiedyś sortował "merglowane". Zerknij tutaj: [url=http://www.elektroda.pl/rtvforum/to... Przy niewielkiej ilości wierszy, łatwiej (ale bardzo nieefektywnie) byłoby wstawić 3-wiersz, szukać MAX'a i podstawiać... Edit 21:10 Och, postanowiłem sprawdzić, jak bardzo nieefektywne (załącznik) ;)
Witam, jako że raczkuje w VBA to chciałbym prosić o pomoc. Mam w pliku dane tego rodzaju: A1 - nazwy, B1 wartość przykładowo: Gdańsk, 20 Wrocław, 40 Poznań, 30 Gdańsk, 30 Warszawa, 50 Wrocław, 35 Gdańsk, 70 Warszawa, 15 Muszę to ustawić w arkuszu w sposób posortowany (z tym nie ma problemu) ;-) Ale pod każdym zestawem tego samego miasta muszę wstawić...
Potrzebowałem makro, które wstawia w określonym miejscu (kolumna E) hiperłącze na podstawie listy plików (kolumna B) i przyjaznej nazwy (kolumna D). Bez problemu zrobiłem makro, które działa jak należy ale korzystając z odwołań do konkretnych kolumn: Range("E" & wiersz).Formula = "=HYPERLINK(""Faktury...
trzeba by makro... :) na to samo wyjdzie w ilości klikań, jak wstawisz wiersz, tabela automatycznie się wydłuży. :D pozdr
To ma być harmonogram do kilku zdań wykonywanych równolegle, czy kolejne wskakuje, kiedy zakończy się poprzednie? Daty w wierszu 1 wstawiasz sam, czy program me je wstawić? Wiesz, że plik .xls ma agraniczenie do 255 kolumn, więc nie wstawisz w ten sposób nawet 1 roku (chyba że używasz Excela >= 2007 i formatu .xlsm)
Oto rozwiązanie jest ono gotowe. Myślę, że o to chodziło. W ekselu nie ma zmiennej ani instrukcji for chyba, że ktoś napisze makro. Ale można wypełnić komórki danymi trzeba najpierw w pierwszej komórce wstawić początkową wartość (w tym wypadku 1) a następnie menu>edycja>wypełnij>serie danych... i dalej wypełniamy odpowiednio pola. Wykonanie tego polecenia...
Np. funkcja "lewy" Select Case ActiveSheet.Cells(j, 5) Case "Imię i nazwisko": Tablica(1, 1) = Tablica(1, 1) + ActiveSheet.Cells(j, 10) ..... Case "inne imię i nazwisko": Tablica(20, 1) = Tablica(20, 1) + ActiveSheet.Cells(j, 10) Case Else: Tablica(0, 1) = Tablica(0, 1) + ActiveSheet.Cells(j, 10) End Select W takiej wersji odczytu komórki, to gdzie...
Mam dwa arkusze (planuje więcej) Dane jako baza do wszystkiego w niej są kolejne dni jako kolumny próbuje wstawić w makro w akruszu o nazwie "1" skrypt czytający nazwę aktualnego arkusza (1) i zakreślić zakres dajmy na to 1 odpowiadający c:c w arkuszu Dane. Coś nie bardzo mi to wychodzi... odpowiednio później 2 d:d, 3 e:e: 4 f:f: [syntax=vb]Set znaleziona...
Możesz otworzyć sam plik czymś takim (zakładam, że nazwa będzie stała): [syntax=vba] Workbooks.OpenText Filename:="D:\Dokumenty\Nowy Dokument tekstowy.txt", _ Origin:=1250, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _ xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, _ Comma:=True, Space:=False, Other:=False, FieldInfo:=Array(Array(1,...
Takie cos mam w samym pliku txt, ktory importuje makrem: To jest zrzut ze stronki http://jakasstronka.pl/stronkatest 14-07-05 11:35;2,0;1,3; 14-07-05 21:11;8,0;6,9; Makrem wczytuje ten plik - żadnych tabulacji, rozdzielań tekstu do kolumn - wczytuje wszystko do jednej kolumny a każdy wiersz jest w osobnym wierszu
Prawie wszystko już jasne. wg mnie pozostaje tylko makro. Czy te dodatkowe kolumny (ukryte) też docelowo maja się kopiowac do kart pracowniczych? I druga rzecz piszesz że wolisz stawiać x przy nazwisku (jest bardziej czytelne). Masz rację przy 5 nazwiskach. Ale sama mówiesz aby przewidzieć ok 20 pracowników. Dalej uważasz że przy dwudziestu nazwiskach...
Hej wszystkim Xlsowiczom!:) Niezmiernie chciałabym prosić Was o pomoc w automatyzacji załączonego pliku. Muszę stworzyć coś w rodzaju "ankiety" do wypełnienia dla osób w pracy, które do excela podchodzą z duża odrazą i niechęcią nawet w w przypadku wypełniania danych;) zależy mi na tym aby: 1) w zależności od wpisanej liczby w kolumnie U, chciałabym...
excel makro wstawić wstawić wiersz wstawić excel
zasilanie konwertera multiswitcha szybkozłączka pneumatyczna viessmann vitola palnik
renault mascott renault mascott
Gdzie kupić napęd do Manta DVD 001? Ciśnienie otwarcia gruszki VGT w Seacie Ibiza 6J 1.4 TDI 80 KM