Kurcze, szukałem na prawde długo i nic nie mogę znaleźć. Jest dużo o imporcie .txt i .csv, ale o .xls i .xlsx nie mogę znaleźć :( Być moźe dlatego, że niepoprawnie zadaje pytanie do szukania. Będę wdzięczny za każdą wskazówkę Pozwól sobie pomóc i napisz jak ten import ma wyglądać? Gdzie znajdują się pliki do importu, jak się nazywają, jak mają się...
Makra włączone? Może problem z nazwa/indeks. Spróbuj Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo byk If Target.Column = 1 Then Sheets(Trim(Str(Target.Row&#... = Target.Value End If Exit Sub byk: If Target.Value <> "" Then MsgBox "Brak arkusza o...
Cześć, mam następujący temat: Liczba wierszy w arkuszu "całe" jest zmienna. Jak zrobić, aby z tego arkusza tworzyło kolejne arkusze wg produktu i tam kopiowało tylko te wiersze, które dotyczą danego produktu. Tzn. aby utworzyło za arkuszem "całe" kolejno arkusze: ABC, DEF, GHI i tam z arkusza "całe" kopiowało tylko te wiersze, które dotyczą danego produktu....
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 tak to czy mogę prosić o wzór makra? Coś ala [syntax=vbscript]Sub elka() i = 1 With Sheets("Arkusz1") For a = 2 To Sheets.Count Sheets(a).Cells(1, 1) = .Cells(i, 1) i = i + 1 Next End With End Sub[/syntax]
zapomniales Dir() przed Loop tj. plik=Dir()
(...) rzypadku gdy w kolumnie B znajduje się "XYZ", wyszukuje pokazuje w danym polu zawartość komórki z innej wskazanej przeze mnie, i tak jest OK. Chciałbym jednak zrobić w ten sposób, że zamiast "XYZ" pojawi się inny wpis np. "ABC" lub "DEF" i wtedy alternatywnie będzie działało jak powyżej. Jak to zrobić? Wstępna ocena dostępnych informacji Użytkownik...
BARDZO WAŻNY LINK DO POSTA Z KOLEJNYMI ARKUSZAMI https://tinyurl.com/yaxya64x postarajmy się wraz ze wsparciem grup FB stworzyć dobry grunt by jak najbardziej zwiększyć swoje szanse. daty egzaminów: W innych egzaminach praktycznych CKE wróciło do "starego" systemu czyli jeden arkusz na dzień. Dane na podstawie obserwacji tego co się dzieje na E.13....
Jak stworzyć nowy skoroszyt tak aby w pierwszym arkuszu można było tworzyć formułę ='1'!E1 , ='2'!E1 , ='3'!E1 tak aby można było przeciągnąć(bądź stworzyć na szybko listę) i zmieniała się tylko odwołanie do kolejnych arkuszy '1'! '2'! '3'! ... w postaci jak podałem wyżej, bez adr.pośr po prostu chcę aby po przeciągnięciu formuły numerował kolejno od...
Cześć, Potrzebuję podpowiedzi jak obejść następującą sytuację, mianowicie mam główną tabelę, w której poszczególne działy oznaczone są w kolumnie A kolejnymi literami A, B, C ..., z czego kilka linijek należy do jednego działu. Chcę, aby w momencie użycia makra poszczególne linijki kopiowały się do kolejnych arkuszy. Do tej pory używałem wariantu, że...
Witaj. Tak w tym stylu, ale : -z możliwością wybierania lub dodawania kolejnych arkuszy -wprowadzania danych kolejno po sobie z poziomu jednego wiersza coś w rodzaju formularza do wprowadzania danych. Mógłby to być po prostu jeden wiersz na Arkuszu1. http://www.coderscity.pl/ftopic862-0-asc... tu znalazłem Userform do wprowadzania danych i było...
Witam. Jestem po egzaminie i przedstawiam całokształt egzaminu praktycznego zawodowego z części praktycznej roku 2019 z kwalifikacji E.07 1. Każdy ze zdających otrzymuje następujące urządzenia: - przycisk monostabilny S1 NZ - przycisk monostabilny S2 NO - stycznik trójfazowy - wyłącznik nadprądowy jednofazowy CLS6-B6 - wyłącznik nadprądowy trójfazowy...
Jeżeli chodzi o program końcowy, to korzystamy z niego w naszej firmie. Zainstalowany jest na komputerze każdego konstruktora, odpalany za pomocą klucza USB Pytałem, bo być może warto byłoby aby jakiś informatyk przejrzał Wasze systemy i ewentualnie zintegrował dane wprowadzane z danymi konstruktorów w jedną całość. Natomiast jeśli Twoje dane miałyby...
Witam, Chciałbym poprosić o makro które kopiowało by nazwy wszystkich Arkuszy z pliku i kopiowało je kolejno do pierwszego arkusza. Plik zawiera wiele arkuszy od Arkusz 1 do Arkusz n (o różnych nazwach). Chciałbym aby jego lista pojawiała się się w pierwszym arkuszu "Lista"od komórki A2 do ilość arkuszy. Dodatkowo w każdym z arkuszy jest "check box"...
W pliku pierwszym występuje kolumna "przepływ", którą muszę przepisać do pliku temperatury i moce. Plik z kolumną "przepływ" posiada wiersze, których nie potrzebuję (F22 i F23), ale chciałbym je przepisać bez przerwy do pliku drugiego. Muszę to jakoś zautomatyzować, bo dane chciałbym przepisać z arkuszy od 1-30 i tak kolejno na następne miesiące i lata.
Witam! Jestem tu nowa, więc bardzo proszę o wyrozumiałość i pomoc. Mam dwa pliki (dokument A i dokument B). W dokument A mam Arkusze o nazwach od A do L- wszystkie mają identyczny układ. W dokument B jest tylko jeden arkusz w którym w kolumnie C "wymienione" są kolejno wszystkie arkusze z dokument A. Moje pytanie czy istnieje możliwość zaprogramowania...
Witam, Mam problem gdyż potrzebuję z tabeli zbiorczej "Wyświetlenie odczytów" utworzyć kolejno dla każdego mieszkania osobne rozliczenie np. x1, x2 itd. Nie wiem jak to zrobić jakbym chciała stworzyć tyle arkuszy ile mam odczytów czyli 111 :( a robić dla każdego osobno to masakra. Proszę o pomoc.
Witam Mam mały problem z excelem. Mam wizję tylko nie wiem jak ją wprowadzić w życie - patrz załącznik. Chciałem trochę przyśpieszyć swoją pracę i wymyśliłem sobie że użyję do tego VBA ale nie wiem co dalej z tym zrobić. Mam tylko podstawową wiedzę jak na początkującego samouka przystało. NIe mam aż tyle czasu aby się wdrożyć - najpierw uruchomić a...
Witam serdecznie wszystkich. Mam takie pytanie, czy da się napisać makro tak żeby z kilku arkuszy automatycznie kopiowało się do jednego arkusza. Wiem że temat był już poruszany nie raz ale już od kilku tygodni szukam właściwego makra i nic. I tu wielka prośba do Was o pomoc. Potrzebuje gotowe makro bo ja jestem BARDZO słaby w tym temacie a dokładnie...
Witam, Chciałbym prosić o pomoc w stworzeniu makra dzielącego dane z jednego dużego arkusza na kilka według daty w pierwszej kolumnie. Makro po uruchomieniu powinno przenosić dane (całe wiersze) do kolejno tworzonych nowych arkuszy w zależności od miesiąca (najlepiej nadając im nazwę miesiąca). Następnie sortowało dane w każdym arkuszu według popularności...
Witam, mam stare makro na kilka stron a4 napisane jeszcze pod windowsem 2000. W firmie wszystko przeszlo na nowe windowsy poza jednym komputerem. Makro niedziala pod nowym excelem i wykrzacza sie w momencie wklejania. [syntax=vb] Worksheets("Working").Select Range("a1:iv65536").ClearContents Range("a1").Select ActiveSheet.Paste If ActiveCell.Offset(11,...
Witam, staram się napisać mój pierwszy program w VBA. Ma on za zadanie automatyzację ewidencji sprawozdań. Jedną z cech tego programu, musi być zdolność do kopiowania zawartości określonych komórek z każdego arkusza dokumentu i wklejanie ich kolejno do oddzielnego pliku. Żeby nauczyć się samej pętli napisałem coś takiego: [syntax=vb] Sub dzialanie_na_wielu_arkuszach()...
Tak to jest, jak się niedokładnie czyta. Mój błąd. Od #1 myślałem, że to jest 32 000, a to tylko 3 200... Co nie znaczy, że z 3 200 arkuszami pracować, to porażka. Co nie znaczy też, że Autor pisze niechlujnie swoje posty.
[syntax=vb]wiersz = 6 Sheets(1).Activate While Cells(wiersz, 1) <> "" Cells(wiersz, 2).Copy Sheets(Cells(wiersz, 1).Text).Range("C8") wiersz = wiersz + 1 Wend [/syntax]
Przy założeniu, że minimalnie 1 arkusz musi być otwarty (z przyciskiem ) Odkryj/ukryj kolejno z drugiego lub z ostatniego? Dodano po 8 od drugiego:[syntax=vb]Sub ukryj() For i = 2 To Sheets.Count If Sheets(i).Visible = xlSheetVisible Then Sheets(i).Visible = xlSheetHidden Exit For End If Next End Sub Sub odkryj() For i = 2 To Sheets.Count If Sheets(i).Visible...
Teraz pokazuje mi błąd w tej linijce[syntax=vbscript]With Sheets(tblArkusze(i)) .Visible = True[/syntax] Odrzuciłem na razie sprawę formuł i sprawdzania poprawności. Teraz to makro wygląda j.n. [syntax=vbscript]Sub wstawianie_IL() 'poprawione Dim fd As FileDialog Dim wkb1 As Workbook, wkb2 As Workbook Dim tblArkusze() Application.ScreenUpdating = False...
Witaj [syntax=vb] Dim Sh As Worksheet Dim intName As Integer Dim shName As String Dim strNazwa As String ActiveWorkbook.Sheets("Template").Copy After:=ActiveWorkbook.Sheets("Template") strNazwa = "projekt" ' tutaj ustawiamy jak ma wyglądać początek nazwy arkusza intName = 0 For Each Sh In ActiveWorkbook.Worksheets shName = Sh.Name If Left(shName, Len(strNazwa))...
- nazwy folderów, SPRZEDAŻ 05.2015 (zmienia nr miesiąca - na tą nazwę mam wpływ) - nazwy plików, PLN_STA_6114 (na nazwy plików nie mam wpływu - różnią się dwiema ostatnimi cyframi. nazwy nie są kolejno po sobie następujące, więc dobrze by było móc zadeklarować nazwy plików ręcznie, np. gdyby kiedyś pojawił się jakiś dodatkowy lub z innym typem nazwy)...
Makro chyba wyjdzie lepiej, niż kombinowanie. Takie na szybciora zmontowane w 5 minut mniej więcej robi chyba to, co chcesz (pewnie trzeba je gdzieś tam doszlifować, ale z grubsza robi swoje). Jako że jest krótkie, umieszczę je w treści postu. Dodatkowo w załączniku plik xls (excel 2003), zawierający trzy arkusze, w każdym komórka C10 ma wartość. Plik...
Witam Państwa. Piszę tutaj ponieważ nie mam koncepcji na rozwiązanie mojego problemu. Otóż cały skoroszyt wygląda w taki sposób, że ma 12 arkuszy (miesiące) a w nich kolejno kilka tabel, m.in Nazwa dostawcy (wybierane z listy) i numer faktury. Potrzebuję wykonać formułę, która sprawdzać będzie każdą kolejny wiersz w dół (czyli nowo wprowadzane faktury)...
Makro kolegi adamas_nt'a zostało przeze mnie przerobione. Rozdzieliłem dwie funkcje, tę która tworzy i tę która wprowadza nazwę do zestawienia. Pracuję teraz nad makrem, które wprowadza nazwy arkusza do zestawienia. Problem polega na tym, że nazw arkuszy od 1 do 8 nie potrzebuję. Arkuszy tych w przykładzie nie ma. Są to zwykłem zestawienia kolejno :...
Czy te 4-ry "kolejne" arkusze należące do jednej grupy "cyfrowej", np.: 0202 (SUMA, WDT, WNT, WŚU) znajdują się jeden za drugim, czy też mogą być porozrzucane pomiędzy innymi arkuszami z innych grup numeracyjnych, np.: 0202SUMA, 0205WDT, 0202WDT, 0203WŚu, itd. ?
Dzień dobry, Moim zdaniem najprościej wykorzystać do tego konsolidację. Niestety całkiem łopatologicznie tego nie wyjaśnię, bo mam akurat wersję polską Excela 2007, a tu jest angielska 2013, ale wszystko działa podobnie. Należy zacząć od umieszczenia kursora w miejscu, gdzie ma być wynik (można utworzyć w tym celu nowy arkusz). Następnie wybrać Dane/Konsoliduj...
Przerzuć SUMĘ nie na dół arkusza, a na górę. Wtedy listę można rozbudowywać bez konieczności dodatkowych zmian. Arkusz "Źródłowy" może zawierać choćby i 100 pozycji - sformatuj komórki, dodaj ramki, itd, itp. A w kolejnych arkuszach odwołaj sie do wszystkich komórek tabeli z arkusza źródłowego - tak jak jest obecnie tylko "przeciągnij" niżej formuły.
każde kolejne sczytanie z czytnika do Arkusza "NAZWA ODDZIAŁU" A2 kolejno wklei dane do pustej komórki w Arkuszu "DANE" Jeśli skaner korzysta tylko z komórki A2 :?: to możesz wykorzystać makro jak w załączniku 1063586
Nie jest oczywiste, że pliki będą otwierane kolejno wg nazwy. Sortowanie w Windowsie nie jest liczbowe, a tekstowe (1, 10, 2, 20, etc) Jeśli z nazwy pliku można wyciągnąć adres docelowy (z offsetem), wtedy[syntax=vb]Sub Importuj2() Dim wbDst As Workbook, wbSrc As Workbook Dim strPath As String, plik As String, rng1 As String, rng As String strPath =...
Przetestuj [syntax=vb]Option Explicit Sub Import_TXT_FSO_SPLIT() Dim oFSO As Object 'File System Object Dim oFld As Object 'Obiekt Folder Dim oFls As Object 'Obiekt Plik Dim oTemp As Object Dim iRw As Integer: iRw = 1 'wiersz do którego wpisywane są dane Dim sItem As String 'katalog z plikami Dim sExt As String 'rozszerzenie pliku Dim fl As Object Dim...
Tak wyglądają teraz u mnie i właśnie się pytam czy można to zrobić tak jak pytałem. Kolejny arkusz kolejnego arkusza to już sajgon, gdyż każda taka tabela to oddzielny arkusz który liczy różne dane a potem koljne arkusze liczą kolejne dane z tych arkuszy. Dlatego pytam się czy w jednej tabeli poleceniem było można wartości ujemne zamieniać na zero.
Nie bardzo rozumiem kopiowanie 'pp1' i oddzielne tworzenie nowego arkusza. Może chodzi Ci o to? [syntax=vbscript]Sub DodajPP() Dim n As Integer n = Val(Mid(Sheets(Sheets.Count).Name, 3)) n = n + 1 Sheets("pp1").Copy After:=Sheets(Sheets.Count) Sheets(Sheets.Count).Name = "pp" & n End Sub [/syntax]
Ma ktoś pomysł jak się za to zabrać? Można wykorzystać szablon typu :arrow: [url=https://www.elektroda.pl/rtvforum/v... , a makro wykorzystać jedynie do kopiowania kolejnych arkuszy "miesięcznych" :idea:
wiem że trzeba stworzyć pętlę przelatującą po wszystkich arkuszach...ale nie wiem za bardzo jak.. ad. 1. [syntax=vb]For Each ws In Worksheets If ws.Name <> ActiveSheet.Name Then 'tu się możesz odwołać do ws jako do kolejnego arkusza, np. ws.Range("A1") End If Next ws[/syntax]
Niestety nie działa
Nie jestem przekonana, czy dobrze rozumiem pytanie, ale jeśli mielibyśmy dane w ArkuszuA1 w komórkach A1:E5, to w kolejnym arkuszu możemy użyć funkcji adr.pośr i zdefiniować w kolumnie A i w wierszu 1 odwołania: w kolumnie A (komórki A2:A6) wpisać kolejno A,B,C,D,E w wierszu 1 (komórki B1:F1) wpisać kolejno 1,2,3,4,5 komórka A1 celowo pozostaje pusta....
co zrobić, żeby do nazwy pliku dodać datę? Zmień Rozumiem, ze za tym fragmentem kodu "Next ws" muszę powtórzyć zapis dla kolejnych arkuszy (ze zmianą nazwy oczywiście;) Nie. Makro działa tak, jak chciałeś w pierwszym poście - zapisuje do PDFa wszystkie arkusze oprócz jednego, który wykluczasz w porównaniu ws.Name <> ...
Wykorzystaj funkcję wyszukaj.pionowo() z 0 (zerem) jako ostatni argument. Lub tak jak masz zrobione za pomocą wyszukaj() tylko zmień źródło z indeksu na nazwę i zakres kolumny przeszukiwanej na nazwy a nie indeksy. Jeżeli chcesz jednak makro to to podaj hasło do projektu makra lub zamieść załącznik z odblokowanym projektem makr.
Nazwa pliku tekstowego przypisywana jest do zmiennej 'sName'. W następnej linii zastosuj wstawianie arkusza i nadanie nazwy. Np[syntax=vb]Worksheets.Add(After:=Sheet... = Left(sName, Len(sName) - 4) 'ucinam 4 znaki z prawej[/syntax]Powtórz przy następnym, wewnątrz pętli.
Trzeba było takie informacje: Z programu wagowego eksportowany jest cały pomiar (wszystkie ważenia) do excela Każde takie rozliczenie chcę robić w następnym skoroszycie. przedstawić we wcześniejszych postach :cunning: Jeśli te tabelki mają taką strukturę jak przedstawiłeś w załączonym pliku :!: to nie ma żadnego problemu :D Wprowadź sobie to makro do...
Można to zrobić na wiele sposobów - mniej lub bardziej elegancko. Np. obszary danych w arkuszach źródłowych oznaczasz nazwami, powiedzmy Z1_A1, Z1_A2, Z1_A3, Z2_A4, Z2_A5, Z2_A6 (zaznaczyć obszar, później Wstaw/Nazwa/Definiuj). Tworzysz pusty skoroszyt Zeszyt3.xls z arkuszami Arkusz1 .. Arkusz6. W kolejnych arkuszach wstawiasz w pierwszej komórce obszaru...
Powinieneś załączyć przykładowy plik Excela, bo za dużo jest niejasności w tym, co napisałeś. Przykładowy kod, który działa wg Twojego opisu: [syntax=vbscript]Sub AddSheets() ' zakładamy, że nazwy nowych arkuszy ' są w komórkach od B5 w dół Dim ostw As Long, w As Long ostw = Arkusz1.Cells(5, 2).End(xlDown).Row For w = 5 To ostw Sheets.Add(After:=Sheets(Sheets.Count))....
Jeśli chodzi o odwołania do arkuszy, to można odwoływać się do numeru kolejnego arkusza np. Worksheets(liczba), gdzie liczba jest stałą lub zmienną typu całkowitego albo do jego nazwy np. Worksheets(nazwa), gdzie nazwa jest stałą tekstową w cudzysłowie lub zmienną typu tekstowego. Jeśli arkusze mają nazwy o postaci liczb, a w kodzie jest zmienna numeryczna...
kopiowanie arkuszy kolejno odtwarza cylinder kolejno
volvo silnika uziom sztuczny halogen schemat
folie grzewcze podlogowe folie grzewcze podlogowe
Manta radio – zasilanie, STBY/MUTE, końcówka mocy TDA7388, szukanie schematów OEM Schemat serwisowy Manta 24LFN38L, TP.MS3663S.PA671 – gdzie znaleźć dokumentację?