Napisanie takiego makra nie jest czymś szczególnie trudnym, tylko ono będzie się dość długo wykonywać. Moja propozycja zmierzała do przyspieszenia tego. [syntax=vbnet]Sub kopiowanie2() ' ' kopiowanie Makro ' Dim r As Range Dim wkcalc As Worksheet Application.ScreenUpdating = False ' Workbooks.Open Filename:= _ "U:\Nowy folder\Arkusz B.xlsx" Set wkcalc...
"Zabawa" ciągami się kłania.
Powinno działać.
U mnie działa...
Zbliżone działanie do pożądanego :D tj. przenoszenie danych z katalogu do oferty przy pomocy dwukliku (makro działa pojedynczymi wierszami - oczekując na wpis ilości do oferty :ok: patrz na zrzut ) 978389 Drugie makro w "ofercie" usuwa wybrane wpisy (wybrany indeks :!: ,a przy okazji ilość :D ) 978391
Cześć, spróbuj takie makro [syntax=vbscript]Sub Przenies() Dim O As Worksheet: Set O = Worksheets("Obliczenia") Dim N As Worksheet: Set N = Worksheets("Nowe Dane") Dim i&, Ow&, Nw&, a$ Ow = O.Cells(Rows.Count, 1).End(xlUp).Row + 1 Nw = N.Cells(Rows.Count, 1).End(xlUp).Row Application.ScreenUpdating = False With O .Activate .Range(Cells(Ow...
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....
nie mam możliwości przesłania pliku ( nie wiem dlaczego) Jak to jest .XLSM - spakuj RAR lub ZIP Dodano po 2 komórka G3 - data od, komórka G4 - data do Nie ma tam tego w komorce G4 - OPIEKUN, G3 scalona z B3 dane wprowadzone przez użytkownika ( kolumny B:M) N:U - nie trzeba?
Ok teraz masz kryteria w tablicach w kodzie VBA w razie jakbyś chciał dodać kryterium, musisz zwiększyć tablicę o 1 i dopisać do tego dodatkowego elementu kryterium z gwiazdkami. Jak zobaczysz kod to chyba będziesz wiedział o co kaman. Dodałem też zabezpieczenie przed kliknięciem dwa razy na makro
Dostosowałem makro z w/w tematu. Nie testowałem zbytnio, ani nie testowałem istniejących procedur. Ale na zakończenie usuwana jest zawartość arkusza "TEMP", dlaczego?
Użyj WYSZUKAJ.PIONOWO()
dane z wielu plików i wklejać je jako niesformatowane dane do jednego arkusza w oddzielnym skoroszycie... każda tabela z danymi ma inna liczbe wierszy . Zaczynają się zawsze w tym samym punkcie i liczba kolumna jest taka sama ale liczba wierszy zawsze inna. Różna jest także liczba arkuszy ale dane zawsze znajdują się w ostatnim . Wszystkie pliki z...
Zrozumiałem (w końcu) :) Kłopotem jest tu ilość tych arkuszy Ex1. Żadna formuła z bezpośrednim wskazaniem komórek źródłowych nie wejdzie bo będzie za długa. Prawdę mówiąc lepiej by było to "łączyć" w accessie. Może zrobić 12 plików pomocniczych z 70 arkuszami i jednym głównym sumującym te arkusze. Każdy z arkuszy byłby połączony z konkretnym plikiem...
A zatem tak spróbuj: [syntax=vbscript]Private Sub CommandButton1_Click() Dim ws As Worksheet Dim fso As Object Dim oFile As Object Set fso = CreateObject("Scripting.FileSystemObject... Set oFile = fso.CreateTextFile("c:\wynik.txt") For Each ws In ThisWorkbook.Worksheets Call PrintRange(oFile, ws, ws.Range("A2:E4"), 3) Call PrintRange(oFile, ws, ws.Range("J6:M8"),...
mnożenie :D To zwykła matematyka. Zasadniczo przetłumacz na polski i wszystko stanie się jasne :D
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,...
Jasne, nie mniej jednak taka sama sytuacja może wydarzyć się w przypadku rozwiązania z przyciskiem. Ja bym to połączył ze sprawdzeniem czy taki wpis nie istnieje już w zestawieniu(np zrobienie unikatowego rekordu z Pozycja&grupa&Data.). Jeśli istnieje można wyświetlić monit o potencjalnym dublowaniu. Edytowałem. Nie cytuj w całości postu poprzedzającego....
Zrobiłby to w ten sposób: (dopisz formuły w szarze komorki)
Sub test() Dim plik As Workbook, baza As Workbook, wrs As Long Dim ostWrs As Long, kol As Integer kol = Month(Date) + 11 Set plik = ThisWorkbook Set baza = Workbooks.Open(plik.Path & "\base.xls") With plik.Sheets("OVERVIEW")... ostWrs = .Range("B65536").End... For...
Musisz ustawić zmienne odpowiedzialne za bieżący arkusz oraz arkusz z drugiego pliku, a następnie odpowiednio nimi manipulować przy kopiowaniu. Ja to robię zwykle w ten sposób: [syntax=vb] Set wswyn = ThisWorkbook.Worksheets("Wyniki") 'bieżący arkusz Set wrkSrc = Workbooks.Open(Filename:=myPath, ReadOnly:=True) 'otwórz plik źródłowy Set wsSrc = wrkSrc.Worksheets("Dane")...
Hmm. Jak się orientujesz w tych wszystkich GoTo? To samo, uzupełnione, w innej wersji.[syntax=vb]Option Explicit Sub Kopiuj() Dim WksDo As Workbook, PierwszyWolny1 As Long, PierwszyWolny2 As Long On Error GoTo koniec If MsgBox("Rozpocząć kopiowanie ?", vbQuestion + vbYesNo) = vbYes Then 'Potwierdzenie rozpoczęcia kopiowania With Application .ScreenUpdating...
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...
szablon.SaveAs Filename:=sciezka Proponuję użyć SaveCopyAs. Ale nie wiadomo, czy makro (jego nazwa sugeruje tworzenie arkuszy), czy też ma tworzyć nowe pliki.
Witaj Pomysł 1:
Pierwsza metoda - zdefiniować niektóre zmienne globalne i używać ich do przekazywania danych w innej formie
[syntax=vb] Sub Wyslij() Dim bs As Range Dim r& Set bs = Sheets("zbiorczy").Range("A:L") r = bs(Rows.Count, 1).End(xlUp).Row + 1 bs.Rows(r) = bs.Rows(1).Value Range("b6:c10").ClearContents End Sub [/syntax]
Witaj. Zakładając, że oryginalne dane na pierwszym arkuszu, a wynik na drugi: [syntax=vb]Sub upraw() Dim bsk As Range, bsr As Range Dim rb&, rd&, cd&, cm& Set bsk = ThisWorkbook.Sheets(1).Columns(1).Cells Set bsr = ThisWorkbook.Sheets(1).Range("B:J").Rows rb = 2: rd = 2 With ThisWorkbook.Sheets(2) bsk(1).Copy .Cells(1, 1): bsr(1).Copy...
A nie lepiej zamiast trzech przycisków w każdym arkuszu byłoby zrobić jeden przycisk w arkuszu "lista" uruchamiający mechanizm pobierania danych ze wszystkich pozostałych arkuszy? Druga kwestia, że do takiej operacji to nawet nie trzeba makra, wystarczy MSQuery i następująca kwerenda: [syntax=sql]SELECT * FROM [1$] UNION ALL SELECT * FROM [2$] UNION...
Jeśli dobrze rozumiem, to tak:
No nie mów, że nie wiesz... [syntax=vbscript]Y.Sheets("Arkusz1").Ran... = X.Sheets("Arkusz1").Range("A1")[/syntax] Zamień A1 na właściwą komórkę.
Mogę zmienić, by wszystkie nazwy były takie same w obydwu plikach. Nie możesz, tylko musisz - jeżeli makro ma coś wyszukiwać i dopasowywać po nazwie, taka "radosna twórczość" jest niedopuszczalna. W Prod.xlsx - tabele w Sheet1, Sheet2 i Sheet3 najlepiej, żeby zaczynały się w tych samych komórkach (wiersz, kolumna). Liczba tabel (arkuszy) jest stała...
[syntax=vb]Sub kopie2() Dim r&, rb& For r = 11 To Range("B" & Rows.Count).End(xlUp).Row With Sheets("DataBaza") rb = Application.WorksheetFunction.Match(Rang... & r), .Columns(4), 0) .Range("EZ" & rb).Offset(, Day(Cells(r, 5))) = Cells(r, 9) End With Next End Sub [/syntax]
Wymodziłem Ci coś takiego na szybko... Mam nadzieję że pomoże.
Masz ten problem w każdym arkuszu czy tylko w jednym, konkretnym? W Office 365 v. 2202 nie zauważyłem takiego problemu. niestety w kazdym, nie zauwazylem jakiejs reguly. Arkusz moze byc strzowony od zera przeze mnie, albo przeslany przez kogos (niekoniecznie z tej samej wersji office). Nie ma tu tez specjalnych funkcji, dodatków czy czegokolwiek. Ten...
Dlaczego zmienna 'l' jest nadawana z wartości ostatniego wiersza (+1) z pliku 'b', a nie z 'a'?[/quote]
Brakuje chyba jeszcze jednej pętli zmieniającej kod sklepu. Hmm, raczej: na pewno ;) Spróbuj[syntax=vb]Sub asd() Dim wiersz, nr, ilosc As Integer Dim ostWrs As Long, w As Long, ile As Integer ostWrs = Range("B65536").End(xlUp).Row wiersz = 1 Range("C1:D1500").Clear For w = 1 To ostWrs nr = Cells(w, 1) ilosc = Cells(w, 2) For ile = 1 To ilosc Cells(wiersz,...
A zmienić tu[syntax=vb]wiersz = wswyn.Range("a1048576").End(xlUp).Row + 1 'ostatnia wolna komórka w tym pliku[/syntax]oraz tu[syntax=vb]wswyn.Range("A" & wiersz & ":S" & wiersz).Value = wsSrc.Range("A" & nnn & ":S" & nnn).Value[/syntax]nie wystarczy?
Tu masz gotowy plik .z wykorzystanie Power Query Jest to dodatek do excela 2010 i 2013 a wbudowany w 2016 Z Power Query zajmuje to kilka minut Tu jest link do filmów jak działa PQ https://www.youtube.com/watch?v=UNy_HfT5...
Rozumiem, że arkusz z danymi do kopiowania jest w osobnym pliku.
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?
Dzień dobry. Mam pewien problem z kopiowaniem danych z tabeli przestawnej. Mam 2 arkusze: 1. Tabela przestawna z danymi (BAZA) 2. Tabela, do której chciałbym kopiować dane z arkusza 1 (PLAN). W arkuszu BAZA (z tabelą przestawną) mam kolumny: ............ A ................................ B ..................... C 1 ...........................................
Przeczytaj w pomocy funkcje WYSZUKAJ.PIONOWO
O coś takiego chodzi? [syntax=vb]ost_wiersz = Worksheets("Arkusz2").Range("A" & Rows.Count).End(xlUp).Row Worksheets("Arkusz2").Range("A" & ost_wiersz + 1 & ":H" & ost_wiersz + 1).Value = Worksheets("Arkusz1").Range("A1:H1").Val... Worksheets("Arkusz1").Range("A1:H1").Cle...
Chciałbym, żeby dane były automatycznie ... przenoszone do tabeli poniżej IMHO wystarczy odpowiednio zaprojektować te tabele, aby dane przenoszone były automatycznie bez żadnego przycisku i makra, a jedynie wykorzystując proste, "przeciągalne" formuły :please: 989671
Spróbuj kopiować w trybie edycji komórki (klawisz [F2], dwuklik), nie do arkusza.
[url=https://docs.microsoft.com/en-us/of...
Witaj nie tylko dane ze wskazanej daty, ale cały zakres od tej daty Ale jutro dane chcieliby zamknąć tych, które zostały skopiowane dzisiaj. To nie Zawada? Dodano po 17 [syntax=vb]Sub kopie() Sheets("konsolidacja danych").Activate With Sheets("plan") szerok = Application.CountA(.Rows(2)) - 1 wysoko = Application.CountA(.Columns(2)) - 1 kolumn = Application.Match(.Cells(1,...
A dlaczego nie dać szansy Excelowi, tylko go wyręczać? [syntax=vbscript]Sub Zapis_do_CSV() ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\baza test2.csv", _ FileFormat:= xlCSV, CreateBackup:=False, Local:=True End Sub[/syntax] Nie zwróciłem uwagi, że to ma być bez pierwszego wiersza, ale ten zawsze można usunąć później. Najważniejsze, żeby Excel...
Witaj Dodano po 9 albo w arkusz X column B =JEŻELI(LICZ.JEŻELI(Y!A:A;A1)>0;WYSZUKAJ...
Przyczyną błędu jest tylko to, co napisał adams_nt : powinna być deklaracja typu jak poniżej: Ewentualnie program mógł by sprawdzić czy akrusz B jest otwarty, jeżeli jest nie otwierać go ponownie a jeżeli jest zamknięty otworzyć go. Założyłeś, że Twoje makro będzie kopiować z pliku B.xls aktualnie zaznaczony wiersz - ono nie otwiera pliku [ponownie]....
Cześć, mam pytanie odnośnie kopiowania danych z kilku arkuszy do jednego excela. Przerobiłem pod siebie poniższy kod, ale nie wiem jak ustawić żeby te dane kopiowały się po kolei, bo w tej chwili się nadpisują jeden na drugi. Chodzi o to, żeby dane z pierwszego excela wklejały się np. w komórce A2, z następnego do przypuśćmy A12, A18 itd. a najlepiej...
np. tak [syntax=vb]Sub podzial() Dim wb As Workbook, r& r = 2 While Cells(r, 11) <> "" wbn = Cells(r, 11) & ".xlsx" On Error GoTo errh Set wb = Workbooks(wbn) With wb.Sheets(1) Rows(r).Copy .Rows(Application.CountA(.Columns(11)) + 1) End With r = r + 1 Wend For Each b In Workbooks b.Save Next Exit Sub errh: Set wb = Workbooks.Add ActiveWorkbook.SaveAs...
:) VBA excel - Kopiowanie danych z pliku txt do textbox Wiem jak to zrobić z pliku xls a nie txt (at)lanzul : nie mam tam excela ... :)
ma nadzieję że zrozumiale jest napisane Niezupełnie. po zliczeniu wszystkich wartości z kol. H ( arkusz1) Chyba chodziło o Arkusz2, a Arkusz1 jest skoroszytem, w którym ma być podsumowanie (?) Założyłem, że nazwy i stawki VAT będą wprowadzone w arkuszu1. Przetestuj takie makro. [syntax=vbscript]Sub Podsumuj() Dim A1 As Worksheet: Set A1 = Workbooks("Arkusz1").Sheets("dok...
[syntax=vbscript]Sub Baza() Range("A4:K4").Copy Set b = Workbooks.Open(Environ("USERPROFILE") & "\DropBox\Baza.xlsx") nw = Cells(Rows.Count, "A").End(xlUp).Row + 1 Sheets(1).Range("A" & nw).PasteSpecial xlPasteValues b.Close True Application.CutCopyMode = False End Sub [/syntax]
Witam Chciałbym skrócić czas, który poświęcam na kopiowanie danych pomiędzy plikami Excela. Próbowałem zrobić jakieś makro, ale co zrobię krok do przodu to później dwa w tył i najczęściej jeszcze spędzę nad tym kilka dobrych godzin. Mam grupę użytkowników, która uzupełnia dane w Excelu. Każda osoba ma folder ze swoim osobnym plikiem. Są to cztery kolumny....
Spróbuj to [syntax=vb] Sub Porzadkuj() x = InputBox("Podaj datu", "Data przyporziadkowania", Date) If Not IsDate(x) Then Exit Sub x = DateValue(x) Dim nazwy As Range, d As Range With Sheets("pivot") Set nazwy = .Rows(3) Set d = .Cells.Find(x, LookIn:=xlValues) If d Is Nothing Then Exit Sub Set d = d.EntireRow.Cells For Each sh In ThisWorkbook.Sheets...
Witam mam kłopot z wykonaniem zadania w excelu mianowicie muszę wykonać tabelę gdzie dane spelniające dane kryteria będą kopiowane do poszczególnych tabel; jest głowna tabela z piecioma kolumnami :Liczba porządkowa , data przekazania presylki, nazwa podmiotu, znak sprawy wysylanego pisma, sposób przekazania przesyłki (to ostatnie jest to rozwijana lista...
A nie wystarczy wyłączyć obsługę zdarzeń przed otwarciem tego "innego" pliku? Zdarzenie Workbook_Open nie powinno się wykonać.
A czy jest możliwość stworzenia makra, które po kliknięciu przycisku stworzy automatycznie arkusze dla wszystkich osób (i nada nazwy takie jak w pierwszej kolumnie tabeli tj. nazwisko i imię), a jeśli arkusz dla danych osób już istnieje, to je pominie. Można np tak: 968207
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ż...
Może jeszcze załącze cały kod. jaki jest w pliku z makrem który potrzebuje zmodyfikowac. [syntax=vbscript]Sub WyborPliku() ' ' WyborPliku Makro ' ' Klawisz skrótu: Ctrl+j ' Wybor okreslonego pliku na którym ma się wykonać makro Dim robWB As Workbook: Set robWB = ThisWorkbook Dim robWS As Worksheet: Set robWS = robWB.Worksheets("MAKRO") Dim fd As FileDialog...
Excel nie jest, i nikt w MS nie obiecywał, nie jest narzędziem do developmentu oprogramowania, np sieciowego
Co do twojego kodu, .Range/.Cells - odwołuje się do aktywnego arkusza? Chodzi mi o te kropki na początku. Nie, odwołuje się do obiektu - w tym wypadku arkusza - użytego w otaczającej klauzuli With... To taki skrótowiec, którzy przed kropką wstawia to, co jest w With, czyli zamiast powtarzać: Przy próbie tworzenia kolejnego arkusza wywala błąd 1004...
Excel nie ma takiej wbudowanej funkcji kopiowania. Można to zrobić np. poprzez autofiltr który jednym kliknięciem eliminuje ci puste i możesz zaznaczyć to co widać i skopiuje się "po kolei" - bez pustych Można w 2007 i wyżej kombinować coś poprzez usuń duplikaty ale jak nazwa wskazuje usunie zarówno powtarzające się puste komórki jak i komórki o tej...
Podaj więcej szczegółów: Czy działasz na otwartym już pliku, czy makro ma je najpierw otworzyć? Ile plików znajduje się w lokalizacji? Co kryje się za: "plik formatka będzie zmieniał zawartość"? Czy będzie zmieniał się również układ danych w arkuszu, nazwa arkusza, ilość i kolejność arkuszy w pliku źródłowym?
Innymi słowy nazwy plików jak i nazwy arkuszy w "" a poprawnie jest wokbooks a nie workbook
Witam. Nie znam niestety VBA i mogę liczyć tylko na Waszą pomoc. Musze napisać makro, które skopiuje mi dane z pliku csv/txt do arkusza, przypisując jednocześnie nazwę pliku z którego zostało skopiowane.. .To jakby połaczenie tych dwóch kodów: Sub Importuj() Dim rg As Range Dim sciezka As String, plik As String, linia As String Dim T As Variant sciezka...
Przerobiłem makro z innego wątku PRL - sprawdź czy działa Umieść makro w plik B"plik B.xlsx" PRL po dodaniu elementów z Twojego nagrywania.
nowe rekordy muszą się wklejać po kolei w te tabele obok (A1:D1, A8:D8 itd.) :?: :?: :?: Czy to ma znaczyć, że nowe rekordy mają być dopisywane do poszczególnych tabelek z tym samym ID ??? Jeśli istnieją jakiekolwiek racjonalne przesłanki, że poszczególne segmenty tabeli nie mogą być dziesięcio-wierszowe :cry: to w kodzie te dane mają kopiować się...
Zadanie polega na tym żeby skopiować z arkusza nr 1 (Data), tylko te kolumny z którymi pokrywają się nagłówki znajdujące się w arkuszu nr 2 Zadanie polega na tym czego nie dopowiedziałeś. Czy kopiowane mają być wszystkie, czy tylko wyfiltrowane wiersze, jak np. te według "Kolekcja/Seria", wyfiltrowane po "Casual" ? Wyfiltrowanych jest 4 062, a nie...
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)...
Kurcze blade... w domu na Excelu 2007 działa znakomicie, a w firmie na 2010 nie chce :(
chce żeby z danego folderu pobrało dane ze wszystkich plików Import wielu plików jest w miarę uniwersalny, a 2020 jest przerobiony dla Ciebie.
Takie proste makro powinno załatwić sprawę: [syntax=vb]Application.ScreenUpdating = False Set wssuma = Worksheets("Suma") ost_wiersz_sumy = wssuma.Cells(wssuma.Rows.Count, 1).End(xlUp).Row For i = 2 To ost_wiersz_sumy With Worksheets(wssuma.Cells(i, 1).Value) ost_wiersz_arkusza = .Cells(.Rows.Count, 2).End(xlUp).Row .Range("B" & ost_wiersz_arkusza +...
Zeby tworzyla sie historia/baza danych rzeczy zeskanowanych danego dnia To nienajlepszy pomysł.
Wystarczy zwykła pętla z wieloma warunkami. Zobacz przykład (funkcja VBA) w [url=http://www.elektroda.pl/rtvforum/to... temacie.
[syntax=vbscript]Sub ImportujPlikizWieluLokalizacji() ' Plik do którego importujemy musi zawierać arkusz 'Import', gdzie importujemy dane ' oraz arkusz 'Paramety', gdzie: ' w kolumnie A umieszczamy pełne nazwy ścieżek, np. C:\PlikiExcela\, \\NazwaKomputera\UdostepnionyUdzial\, ' w komórce B1 - nazwę arkusza wejściowego, np. Arkusz1, ' w komórce C1 -...
kopiować dane najlepiej z pliku zamkniętego Poniżej najprostszy (czyli najwolniejszy: 1000 wierszy i 3 kolumny w 45 sekund) mechanizm kopiowania z zamkniętego pliku, wykorzystujący zwykłe odniesienie do pliku na dysku, postaci: 946005 Ps.: Przy wykorzystaniu np. ADO/SQL wyniki szybkościowe na pewno byłyby lepsze, ale mechanizm obsługi bardziej "skomplikowany".
Ręce opadają :) To co Ty właściwie chcesz zrobić? ale jeśli dane są pobierane z internetu Dane z internetu wprowadzaj od razu do "z góry upatrzonego" zakresu. lub np z innej komórki Oprogramuj tą "inną komórkę"... Co to znaczy "z automatu"? Żeby coś się zmieniło w arkuszu, najpierw musi się coś wydarzyć.
cześć, potrzebuje napisać makro które będzie kopiować do excela wiele stron internetowych, mam makro które może skopiować zawartość jednej określonej strony internetowej, w excel w określonej kolumnie mam adresowy około stron 800 stron które bym chciał skopiować, jak napisać makro w którym jedyną zmienną bedzie adres strony którą makro skopiuje z kolumny...
Witam Selection.Copy 'kopiuje Application.CutCopyMode = False Wątpię, że będzie to wkleit gdzies...
Skorzystaj z Union(). Przykład: [syntax=vb]Sub zaznacz() Set reg1 = Range("a1:a10") Set reg2 = Range("d1:d10") Set reg3 = Range("f1:h10") Set multi = Union(reg1, reg2, reg3) multi.Select End Sub[/syntax]
Wystarczy jedna linijka: [syntax=vb]ActiveSheet.Range("A1:C200").... Destination:=Worksheets("Arkusz2").Range...
Jeżeli we wszystkich plikach arkusze są jednakowe to wystarczy w głównym pliku w odpowiednich komórkach powstawiać odwołania do komórek w plikach pozostałych. I tak: w pliku głównym (zakładam, że pierwsza data jest w komórce A2) w komórce B2 wpisałbym "=[nazwa_pliku]nazwa_arkusza!B2" w komórce C2 wpisałbym "=[nazwa_pliku]nazwa_arkusza!B2" w komórce...
Przetestuj makro z załącznika.
A o tworze zwanym FileCopy(source, destination) Kolega słyszał? Jeżeli nie to proszę postudiować Google lub użyć tak jak napisałem. Ścieżki w całości.
z excel do innego programu Co to za inny program?
Witam, mam następujący skoroszyt: http://obrazki.elektroda.net/32_12676045... potrzebuję napisać makro bądź jakąś formułę która podczas wstawiania literki X w kolumnie nazwiska np. Martyka będzie przenosić cały wiersz z wszystkimi danymi do arkusza "Martyka". Kolejne zaznaczenie w kolumnie Martyka ma dodawać kolejny wiersz w arkuszu Martyka....
To powinno pomóc: [url=http://www.goldenline.pl/grupy/Komp...
Na przykład dzisiaj mam wiersze: CBR2 ... FS1 ... WLD2 ... WLD1 ... i chciał bym żeby te wiersze były w "raporcie" odpowiednia wysokość wiersza i dane, które są pobrane z odpowiednich komórek arkusza "dane" czyli: CBR2 czas rozpoczęcia awarii i czas zakończenia, następna linijka czyli FS1 czas rozpoczęcia i czas zakończenia następna linijka ... następna...
cześć, zastanawiam się czy istnieje jakiś łatwy sposób na rozwiązanie mojego założenia. Mam trze zakładki Start ( zawiera dane jakie ja podyktuje - data od, data do, numer klienta ), Dane i Zestawienie. Poszukuje makra, które na podstawie ustawienia dat od - do i numeru w systemie będzie kopiowało wybrane rekordy do zakładki zestawienie. Czy ktoś pomoże...
Witajcie, czy istnieje możliwość stworzenia czegoś takiego, by z jednego pliku w którym są dane wszystkich awarii wszystkich wózków widłowych, automatycznie kopiowało wybrane dane do oddzielnego pliku będącego plikiem indywidualnym danego wózka? Pozdrawiam;)
Excel - automatyczne przepisywanie danych z jednego arkusza do drugiego. Witam, potrzebuję pomocy w programie Excel. Posiadam dane w Arkuszu 1 i potrzebuję, aby po kliknięciu danego klienta, z automatu skopiowały się do drugiego arkusza wybrane dane, jak nr zlecenia, umowy, adres, transport. AI: Jaka wersja programu Excel jest używana? Excel Office...
Zakładając, że dane w Arkusz2 zajmują dwie pierwsze kolumny (w Excelu) w komórkę B1 należy wpisać: =WYSZUKAJ.PIONOWO(A1;Arkusz2!A:B;2;0) i skopiować w dół.
Witam, Ma ktoś pomysł na napisanie makra opartego na poniższym algorytmie: 1. Otworzyć plik o nazwie "dane_"dzisiejsza data w formacie 13-feb-2012".xls" z lokalizacji c:\dane. 2. jeśli plik istnieje to dalej, jeśli nie to msgbox "nie ma jeszcze nowego pliku" 3. poprosić o wprowadzenie, które wiersze maja zostać skopiowane np. wiersz1, wiersz3, wiersz14......
od razu mowie ze kompletnie nie znam sie na Makro To może trochę teorii na początek? Np Sub przyklad() sciezka = Application.DefaultFilePath & "/" plik = Dir(sciezka & "*.xls") Do While plik <> "" MsgBox plik plik = Dir Loop End Sub to będziesz w połowie drogi. Wykorzystaj też rejestratora...
Albo filtry i select, copy, paste.
Witam, mam nastepujacy problem: "zrodlo" - posiadam np. 10 zakladek z takim samym ukladem - sa to zakladki z ktorych chce kopiowac dane "cel" dane chce kopiowac do 40 innych zakladek (kazda zakladka posiada swoj numer np. 5455) - numer ten jest wpisany "x" razy w zakładkach "zrodlo" w kolumnie A. w jaki sposob napisac makro które bedzie do zakladek...
W takim razie nie wnikając w kod, napisz proszę (bez używania kodu) w 3 zdaniach, co ma być kopiowane.
kopiowanie danych excel kopiowanie wybranych danych excel sortowanie kopiowanie danych excel
schemat migacz tranzystor aktualne klucze windows wyciek prądu
Toshiba ESTIA Schematics: Where to Find Them Bezpieczne proporcje karbidu i wody w puszce 1L