Użyj WYSZUKAJ.PIONOWO()
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...
niestety Akcesa nie posiadamy w firmie I właśnie dla takich, jak Wy istnieje darmowy Access Runtime. P.S. Wybacz Kolego, ale ciężki z Ciebie przypadek... Co Ci się nie podoba w powyższym rozwiązaniu?
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....
[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]
Jeśli masz otwarte oba pliki i w nich są wszystkie wymienione arkusze :!: to spróbuj takiego kodu: [syntax=vbscript]Workbooks("cale.xls").A... Sheets("WAC").Select Range("P3").Select Selection.Copy Workbooks("Daily production meeting report.xlsm").Activate Range("B15").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks...
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?
Sposobów na rozwiązanie tego problemu jest kilka - tylko te bardziej wydajne mogą być trudniejsze do zrozumienia / zapamiętania dla kogoś początkującego. Dlatego poniżej najprostszy przykład, z pętlą (w zasadzie dwoma): najprostszy, ale i najmniej wydajny... Dla małej ilości danych powinien działać OK. Pytaj, gdyby coś było niejasne. [syntax=vb]Private...
Ostatni wiersz i ostatnią kolumnę trzeba określić osobno dla każdego arkusza źródłowego. Ale można wykorzystać te same zmienne, bo raz użyte dane nie będą już więcej potrzebne. Coś takiego: [syntax=vbscript]Dim Workbook1 As Workbook Dim lRow As Long Dim lCol As Long With Workbook1 With .Sheets("A") lRow = .Cells(Rows.Count, 1).End.(xlUp).Row lCol =...
[syntax=vb]Sub PobierzDzisiejszeDane() Application.ScreenUpdating = False Dim Sciezka As String, Plik As String Sciezka = ThisWorkbook.Path p = Date & ".xlsx" Plik = Sciezka & "\Dane\" & p If Dir(Plik) = "" Then MsgBox "Brak pliku z dzisiejszą datą." Exit Sub End If Workbooks.Open Filename:=Plik Sheets("Dzisiejsze dane").Select ow = Cells(Rows.Count,...
"Zabawa" ciągami się kłania.
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...
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 +...
[syntax=vbscript] Sub przenies() Dim Zest As Worksheet, Dest As Worksheet, Ark As Worksheet Dim i&, j&, w&, wd& Set Zest = ThisWorkbook.Sheets("Zestawienie") w = Zest.UsedRange.Rows.Count Application.ScreenUpdating = False For i = 2 To w j = 0 For Each Ark In Worksheets If Ark.Name = Zest.Cells(i, 6) Then j = 1 Next Ark If j = 0 Then...
Witaj Dodano po 9 albo w arkusz X column B =JEŻELI(LICZ.JEŻELI(Y!A:A;A1)>0;WYSZUKAJ...
Pożądany efekt aktualizacji tabeli w arkuszu "3" 961000 można uzyskać poprzez makro aktualizujące (odświeżanie danych skrótem ctrl + a :D ) z zastosowanie pętli typu: 961004
No to pewnie arkusz "XXX" & Cells(Y, "B") nie istnieje. Stojąc mniej więcej tam napisz w oknie poleceń (Immediate, jak nie mam to sobie włącz: View, Immediate Window) coś takiego: ? "XXX" & Cells(Y, "B") Napisałem, że muszą być przygotowane wszystkie potrzebne arkusze z nagłówkami, makro ich nie tworzy.
Zadaniem jest napisać makro... Wystarczy "zwykła" formuła, jeśli satysfakcjonuje Cię takie rozwiązanie. Coś na wzór: JEŻELI(CZY.BŁĄD(WYSZUKAJ.PIONOWO(...));0... W VBA należałoby zagnieździć dwie pętle dla porównania każdej komórki z każdą...
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"),...
Zrobiłby to w ten sposób: (dopisz formuły w szarze komorki)
[syntax=vb]Sub Wklej() sh = ActiveSheet.Name Sheets("Baza").Select Range("A1:D1").Select Selection.Copy Sheets(sh).Select nw = Cells(Rows.Count, "A").End(xlUp).Row + 1 Cells(nw, 1).Select ActiveSheet.Paste End Sub[/syntax] Kombinuj...
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....
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ż...
Jak zmodyfikować kod, by mógł pobierać dane ze skoroszytu, który mam aktualnie otwarty i nie chcę go zamykać Zakładając, że rozpoczynasz od makra (makro w module), spróbuj tak: 1. Usuń zamykanie pliku i czyszczenie zmiennej 'wb' 2. Deklarację zmiennej 'wb' przenieś do nagłówka modułu 3. Zamknij przypisanie oraz 'FileDialog' w instrukcji warunkowej...
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]
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
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
cześć! Od jakiegoś czasu, mam dziwny problem z kopiowaniem danych w excelu (wszystko na prostych, wpisanych liczbach/literach w obrębie jednego arkusza). https://obrazki.elektroda.pl/9685738400_... W przypadku kopiowania (ctrl c) wokół zaznaczonego obszaru mamy dynamiczną przerywaną linię - oczywiste. W przypadku kopiowania kolumny...
Jeśli dobrze rozumiem, to tak:
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...
No jak chcesz koniecznie kopować: Sub Kopio_aktyw_wiersza() ' ' Kopiowanie danych z aktywnego wiersza kol. A do D ' aktywny = Selection.Row kolumna = 1 ostatnia = Cells(Rows.Count, kolumna).End(xlUp).Row ' bez selekcji od razu kopiowanie wybranych komórek : Range(Cells(aktywny, 1), Cells(aktywny, 4)).Copy 'kopiowanie danych z aktywnego wiersza zakres...
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
Do While ... Loop jest niewłaściwym warunkiem. Pętla For Each ... Nex przeszuka wszystkie komórki zakresu, natomiast wybór komórki z tekstem 6-cio znakowym powinien nastąpić przez If ... End if.
Tu masz bez 'set b': [syntax=vbscript]Sub KopiujMiesiace() Application.ScreenUpdating = False Set a = ThisWorkbook.Sheets(1) Plik = Application.GetOpenFilename Workbooks.Open Plik For x = 1 To Sheets.Count nw = a.Cells(Rows.Count, "A").End(xlUp).Row + 1 Sheets(x).Range("A1:B10").Copy a.Range("A" & nw) Next ActiveWorkbook.Close Application.ScreenUpdating...
Zmienna 'tblArkusze' jest tablicą przecież. Musisz w pętli [syntax=vbscript]For i = LBound(tblArkusze) To UBound(tblArkusze) With Sheets(tblArkusze(i)) .Cells.Clear .AutoFilterMode = False End With Next[/syntax]
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
[syntax=vbscript]Sub Makro8() ' Makro8 Makro ' ' Range("C4:C11").Select Selection.Copy Sheets("Dane").Select nw = Cells(Rows.Count, "A").End(xlUp).Row + 1 Range("A" & nw).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True Range("F" & nw & ":G" & nw).Select Application.CutCopyMode = False Selection.NumberFormat...
To po kolei małymi kroczkami. Gdzie jest ten drugi plik? Potrafisz go otworzyć? Jak już otworzysz to zrób pętlę po wierszach i wyszukuj w niej po kolei liczby w drugim pliku. Przyda się zmienna (lub dwie) typu Range. Jeżeli znajdziesz to zapisz kopiowanie odpowiedniego kawałka. Uruchamiaj powoli, sprawdzając wszystko czy działa jak chcesz. Wykorzystuj...
Makro jest w kodzie arkusza REJESTR - reakcja na zdarzenie Worksheet_SelectionChange (wybor kursorem dowolnej komorki w arkusze REJESTR). Makro pisze w N1 (nazwa 'wiersz') numer wiersza w ktorem zaznaczena komorka. Dalej w PROTOKOL'e formula INDEKS wybiera z tego wiersza dane(w przykladzie tylko wartosc PROTOKÓŁ ODWODNIENIA NR: , reszta dopasuj wg tego)...
Trzeba uzupełnić pętlę... Rozumiem, że wartość w kolumnie B będzie odpowiadała nazwie arkusza: Sheets(cells(A,2).value) Byłoby łatwiej, gdybyś wrzucił plik z przykładowymi danymi w arkuszu "Buchen". Pytanie dodatkowe: czy w arkuszach docelowych dane mają być dokładane narastająco, czy nadpisywane przy każdym uruchomieniu makra? P.S. Pliki xlsm należy...
Witam, Potrzebuję makra, które będzie kopiować dane z konkretnego arkusza w innej lokalizacji. Przykład: Dane ma pobierać z lokalizacji H:\DANE\Dane.xlsm z pliku Dane z arkusza BBB z komórek A2:F2000 i kopiować do tych samych komórek w pliku Zeszyt1 arkusz AAA z wykorzystaniem pętli, by kopiowanie nie trwało za długo Z góry dzieki
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...
:D Mam nadzieję, że to nie jest odpowiedź dla mnie. :D Przygotowałem przykład z wysyłaniem mailem wraz z załącznikiem (jak ktoś ma skonfigurowanego outlooka). Można popatrzeć - tylko najlepiej stworzyć jakiś katalog i tam zapisać wcześniej plik. Wtedy też będą się tworzyć w tym katalogu wysyłane załączniki. Oczywiście wcześniej trzeba pozwolić na włączenie...
Cześć, Mam plik z danymi, który zawiera 2 arkusze. Chce, aby makro: 1. w arkuszu 1 odfiltrowało unikatowe wartości z kolumny 4 i wartości z tablicy z kolumny 5 2. utworzyło nowe skoroszyty dla każdej unikatowej wartości z kolumny 4 i wkleiło tam dane i zapisało plik 3. przeszło do arkusza 2 4. odfiltrowało dane w arkuszu 2 po tych samych filtrach, co...
Przeanalizuj, dopasuj: [syntax=vb] Sub nnn() Dim a As Variant Dim i As Integer i = 1 For Each a In Worksheets If a.Name <> "Sheet1" Then Worksheets("Sheet1").Range("A" & i).Value = a.Range("A1").Value i = i + 1 End If Next End Sub [/syntax]
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...
Witam, Poszukuję rozwiązania, które umożliwiałoby przeszukanie tabeli i stworzenie oddzielnych raportów dla każdego dostawcy w tym samym skoroszycie. Na podstawie tabeli źródłowej, dla każdego dostawcy byłby tworzony oddzielny arkusz. W nowym arkuszu w komórce A1 powinna znaleźć się nazwa dostawcy, natomiast wybrane kolumny z tabeli źródłowej (data,...
Za slaby opis... napisz co to makro ma dokladnie robic a kto wie... moze ktos Ci pomoze. A pisze sie to tak ze: masz zakres komorek A1:A10 do sprawdzenia i np najwieksza liczba ma byc wpisana w akrusz2 w pole A1 <- to jest jasny opis
Witam. Potrzebuje makra, które kopiuj dane z arkusza Excela "BAZA" do arkusza excela "baza1" i usuwa duplikaty (imie i nazwisko) które występują kolejny raz w kolumnie C. W arkuszu "baza" funkcje Excela muszą zostać. Przeszukałam internet i nie znalazłam kodu.Wierszy będzie maximum 100 z których należało by usunąć duplikaty.
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,...
Witam. Mam dwa arkusze http://obrazki.elektroda.pl/6404666900_1...
Witam serdecznie. Mam dość sporą zagwostkę. Otóż potrzebuję skonstruować sobie makro, które z okrojonej listy (składającej się zawsze z dwóch kolumn) będzie kopiowało zawartość z kolumny 2, po uprzednim porównaniu jej z pełną listą umieszczona w arkuszu 2, 3, 4 itd. Żeby to trochę rozjaśnić .... Dajmy na to Arkusz1 zawiera takie dane: A1 B1 ford mondeo...
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...
Chcę aby moje makro kopiowało wybrane dane z dokładnie 4 arkuszy do innego arkusza. Arkusz docelowy: W docelowej zakładce w wierszach znajdują się nazwy danych a w kolumnach daty generowania tych danych Arkusze źródłowe: 1. Są zapisane w tym samym folderze 2. Różnią się tylko końcową datą (rok-miesiąc) 3. W wierszach znajdują się nazwy danych a w kolumnie...
Do tego nie jest potrzebne makro. Wystarczy MSQuery i kwerenda SQL. Dla struktury pliku z załącznika kwerenda będzie wyglądała w następujący sposób: [syntax=sql]SELECT * FROM [Arkusz1$] WHERE Arkusz1$.Nagł_A IN (SELECT Nagł_A FROM [Arkusz2$])[/syntax] Przeanalizuj plik oraz kwerendę i dostosuj ją do swojego pliku.
Narzędzia -> ochrona -> chroń arkusz/nie chroń arkusza Jeśli autor ustawił hasło na ochronę arkusza zastosowanie mają dywagacje w powyższych postach.
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...
Ok, jeśli takie określenie jest bardziej prawidłowe to proszę podpowiedzieć w jaki sposób mogę takie dane "dopisać" bez każdorazowego kopiowania danych z arkusza i wklejania ich do arkusza bazowego.
... Potrzebuję przekopiować każdy z wierszy z arkuszy Teryt Gminy, Teryt Mapy. itd i wkleic go do odpowiedniej kolumny w arkuszu "Polaczone dane z gmin" 21 razy 828643 ... 'cóś tu sie' kopiuje, ale czy o to chodziło (?) ... jak zrozumiałem, tak napisałem ... :D
No i potrzebuję teraz aby te dane mi się przekopiowały w odpowiednie miejsca W pliku trochę kodu, klasy, a Ty się pytasz o kopiowanie z arkusza do arkusza???
Witam. Trochę już szukałem i nie znalazłem odpowiedzi... Otóż mam pewien problem. Zajmuję sie w firmie raportami dziennymi z kilku obiektów łącznie. Zapisuję oczywiście wszystkie dane w execlu z każdego dnia. Do wpisania mam 25 dostawców na każdy obietk osobno z podziałem na towary handlowe i eksploatacyjne. Żądany efekt; Wpisując jednego z dostawców...
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...
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;)
od O2:O17 jest Gdańsk I ten zakres kopiujemy do L23, a co mamy zrobić z kolejnym miastem, zakres O18:30? Chcesz się poduczyć, czy oczekujesz gotowca? Jak to pierwsze, to lepiej na jakimś komunikatorze, a nie tutaj.
Jeżeli zdefiniuje nazwę danych to przy ich kopiowaniu, nazwa arkusza nie ma znaczenia. Przykład: jeden arkusz nazywam x a drugi y. Warkuszu x wprowadzam dane a analogiczne pojawiaja się w arkuszu y. Definiuje nazwe zakresu danych (nie B:B ) tylko np. dane1 a w arkuszu y wprowadzam formułke: odwołanie.xls!dane1. Przykład w załaczniku
Możesz wykorzystać FileDialog do wybrania plików, lub Dir i pętlę Do, jeśli dane pobierasz ze wszystkich plików w określonej lokalizacji. Druga rzecz to wyszukiwanie właściwych danych. Jeśli to te same komórki we wszystkich arkuszach, to nie ma problemu. W innym przypadku potrzebny będzie jakiś klucz: Nr kolumny, unikalna nazwa w nagłówku, lub tp.
Przy takim układzie danych sugerowałbym wykorzystać zdarzenie arkusza: Worksheet_SelectionChange . Po umieszczeniu kursora w nagłówku (rok) i pobierając dzień i miesiąc z kolumny A w pierwszej pętli otrzymamy datę oraz Nr wiersza wynikowego. DateSerial(Target.Value, Month(Cells(i, 1)), Day(Cells(i, 1))) Wystarczy...
Może wstaw plik z danymi dla ułatwienia temu, kto się za to weźmie.
Witam, A czy konieczne jest do tego makro i kopiowanie za jego pomocą? Nie lepiej utworzyć tyle arkuszy ile jest krajów np. utworzyć jeden wzorcowy i powielić. Dane pobierać poprzez odwoływanie się do arkusza zbiorczego: - funkcje WYSZUKAJ, PODAJ.POZYCJĘ, PRZESUNIĘCIE Albo jeżeli jest to zawsze ten sam układ danych to zrobić odwołania ręcznie, na stałe.
Rozumiem, że arkusz z danymi do kopiowania jest w osobnym pliku.
Sprobuj [syntax=vb] For i = 3 to sheets.Count msgbox sheets(i).Name Next[/syntax]
Zapętliłem poprostu ten kod, może i primitywne ale robi to co ma robić. rngY = Range("C4").Value Application.ScreenUpdating = False Sheets("Dane").Select Columns("A:CA").Select Selection.find(What:=rngY, After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate...
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
Witam, mam taki problem. Mam kilka arkuszy, których ilość może się zmieniać natomiast struktura będzie zachowana. Każdy arkusz zawiera dane osoby, projekt i ilość godzin przepracowanych na danym projekcie. Liczba projektów jest zmienna w miesiącu maksymalna wartość 30. Chciałbym żeby do arkusza wynikowego skopiować nazwisko, nazwę projektu, ilość godzin...
Przepraszam że się wcinam koleżance wyrobekj ale nie rozumiem w czym autor ma problem. Do autora Ustawiasz w "matce" odpowiedni filtr który ci pogrupuje dane. (np. w kolumnie ddd "niepuste") po wykonaniu zaznaczasz myszką obszar z wszystkimi danymi kopiujesz (prawoklik - kopiuj) przerzucasz się do nowego arkusza/pliku wklejasz (prawoklik - wklej) i...
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?
coś poszło nie tak Jak widać na zrzutach :please: ja załączyłem i opisuje plik ProtUpBase.xls , a koleżanka otwiera jakiś plik (po nazwie sądzę, że też mój :D ) ProtTablica.xlsx , który żadnego makra rzeczywiście nie zawiera :cry:
Z jakiegoś tematu, nie pamiętam i nie próbuję nawet szukać, uchowała mi się taka "kopiarka". Oczywiście do przerobienia, ale jeśli koncept do zaakceptowania... Niestety jakkolwiek bym się starał z załączonego pliku nie rozumiem nic :-) Mam prosty kod otwierający plik. [syntax=vb]Sub GetImportFileName() Dim Filt As String Dim FilterIndex As Integer...
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)
krzychu.m to nie tak..... jeśli potrafisz tak jak w moim zapytaniu rozszerz przeszukiwania arkusza 2 do WSZYSTKICH wierszy kolumny a. taką formułę też zrobiłem, i przeszukuje 1;1 czyli wiersz 1 z wierszem 1 a powinien za wszystkimi po kolei. czyli na twoim przykładzie jeśli w arkuszu 2 w kolumnie a w poszczególny wierszach będą same 9 to tylko dla dziewiątego...
Gwoli ścisłości: sprawdzanie poprawności danych nie chroni przed kopiuj-wklej z innego arkusza (czytaj: robiąc kopiuj-wklej i tak możesz wkleić w komórki dowolną wartość). Ale, nie ma rozwiązania idealnego.
Witam Jeśli chcesz tylko wartości z innych arkuszy, pomoże to makro. wynik w arkuszu 1. Wszystkie arkusze muszą być nagłówek ID, bo nie wiem, w którym część arkusza są dane
Witam, Nagłówek nie jest kopiowany, jedynie dane. Najlepiej w kodzie po utworzeniu nowego arkusza przekopiuj go tak: wsSheet.Range("A1:C1"&... Destination:=wbBook.Sheets(CStr&... a żeby nie kopiować danych od pierwszego wiersza, zmień w kodzie wartość początkową zmiennej wiersz...
Dziękuję :) Chodzi o kopiowanie z kilkunastu arkuszy excella to jednego zbiorczego tak aby dane z poszczególnych arkuszy kopiowały się jedne po drugich - jak w załączonym pliku
[syntax=vbscript]Application.ScreenUpdat... = False If Not Sheets("Arkusz2").Visible Then Sheets("Arkusz2").Visible = True Sheets("Arkusz2").Select Range("A2:E10").Select Selection.Copy Sheets("Arkusz1").Select Range("a1").Select ActiveSheet.Paste Application.CutCopyMode = False Sheets("Arkusz2").Visible = False ActiveWorkbook.Save Application.ScreenUpdating...
Mogę prosić o podpowiedz nigdzie nie mogę znaleźć rozwiązania mojego problemu Kopiowanie arkuszy po ich nazwie z danych z listy
Wygląda na to że bez zmian dla przykładu jeden wiersz a arkuszu Arka w którym sformatowałem ceny kolorem czerwonym: Sam chciałeś W nagranym przeze mnie makrze takie wklejanie daje taką linijkę kodu: Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats Niestety nie wiem czy można ja dopisać do Twojego makra. Niestety nie potrafię z kodu wychwycić...
W załączniku.
Na arkuszu "Nowa Hala Cyl." przypisać jedną komórkę dla indeksu, np. O1 Na arkuszu "Etykieta" w komorkach odwolania do arkuszu "Nowa Hala Cyl." np. dla C29 =INDEKS('Nowa Hala Cyl.'!H:H; 'Nowa Hala Cyl.'!O1) W kodzie arkusza 'Nowa Hala Cyl.' wpisz kod Dodano po 27 Edit Umieść kursor w wierszu, który chcesz wydrukować i kliknij przycisk
Spróbuj kopiować w trybie edycji komórki (klawisz [F2], dwuklik), nie do arkusza.
Na przykład tak:[syntax=vb]Range("A2:A" & Rows.Count).ClearContents i = 2 For Each ws In Worksheets If ws.Name <> ActiveSheet.Name Then Cells(i, "A").Value = ws.Range("B2").Value i = i + 1 End If Next ws[/syntax]
Szukam pomocnej dłoni. W dwóch arkuszach mam dane, które łączy wspólny klucz (od 1 do 100) podany w 1 kolumnie. Chodzi o to, by stworzyć makro lub przycisk uruchamiający makro, który sprawi, że: 1. dane z jednej komórki pierwszego arkusza zostaną skopiowane do danych w drugim arkuszu. 2. dane wkopiowywane do drugiego arkusza będą skopiowane w miejsce,...
Serwus, moim problem jest automatyczne kopiowanie(po wypełnieniu danej komórki) trzech kolumn z tabeli w arkuszu pt. "ogólne" do dwóch tabel w arkuszach: "faktury" i "licencje". próbowałem wygooglować coś na temat kopiowania danych między arkuszami automatycznie. Niestety nic co znalazłem nie do końca odpowiadało moim potrzebom. Możliwe, że po prostu...
Pętla po Q i R, ustawianie filtra na C i G, kopiowanie do nowego pliku. Nagraj makro i zmodyfikuj.
szablon.SaveAs Filename:=sciezka Proponuję użyć SaveCopyAs. Ale nie wiadomo, czy makro (jego nazwa sugeruje tworzenie arkuszy), czy też ma tworzyć nowe pliki.
Nie musisz robić Select Użyj: [syntax=vbscript]Range("a2:n35000").Copy Destination:=ThisWorkbook.Sheets("Arkusz... Szczegóły znajdziesz na stronach M$ i nie tylko. Oczywiście oba adresy muszą być prawidłowe, wpisałem przypadkowe. Jeżeli zamierzasz kopiować więcej danych albo zmieniać pliki i arkusze to lepiej podczas otwierania...
Jakaś podpowiedź co dodać żebym mógł wybierać kilka plików :?: i zostały otwarte w osobnych arkuszach :?: ? Celowo wspomniałem Ci o nagrywaniu makra bo wtedy musisz całą procedurę przeprowadzić "manualnie" i przemyśleć dokładnie co chcesz zrobić i jaki efekt chcesz osiągnąć :?: Otwieranie pojedyńczych plików i otwieranie kilku plików wymaga odmiennego...
Kod w "Ten_skoroszyt", pisałem przecież ;) Wywaliłem co niepotrzebne i wprowadziłem poprawkę. Sprawdź.
Załącz przykładowy plik (nie musi być 20 arkuszy, wystarczą 2-3), z którego by wynikało jakie to są dane (stałe, formuły, sformatowane?) i jak ma wyglądać oczekiwany wynik. Piszesz o nadaniu kolejnego numeru skopiowanym danym. Gdzie ma być ten numer? W Twoim kodzie go nie ma. Jak będziesz skakać po arkuszach, to skąd będziesz wiedział później, z którego...
kopiowanie danych arkuszy arkusza kopiowanie arkusza makro kopiowanie arkusza
dźwięki biosu award podłączenie silnik pralki przekaźnik corsa
Kod do radia SEZ2Z6B1807576 - jak uzyskać? Tryb serwisowy pralki Haier - jak wejść i diagnozować?