[syntax=vb]Private Sub CommandButton1_Click() Zeszyt = ActiveWorkbook.Name Workbooks.Open Filename:="C:\Users\mm\Desktop\Nowy_fold... Range("A:A").Copy ThisWorkbook.Activate Sheets("Arkusz2").Activate Range("B1").Select ActiveSheet.Paste Workbooks("wsad.xlsx").Close Windows(Zeszyt).Activate End Sub[/syntax]
Nie znalazłem w internecie opisu makr z tą zaletą, że można wpisać w makro dowolną funkcję np. ową Wyszukaj.Pionowo [url=https://www.google.com/search?q=vba...
[syntax=vbscript]Sub Szukanie() NazwaPliku = UCase("SzukanyPlik.XLSX") Set Liczydlo = Sheets("SzukanyPlik") Application.ScreenUpdating = False Do While SzukanyPlik <> NazwaPliku p = Application.GetOpenFilename(FileFilter:=... files, *.xlsx", Title:="Find SzukanyPlik", MultiSelect:=False) SzukanyPlik = UCase(Mid(p, InStrRev(p, "\") + 1)) If...
Jeśli dobrze rozumiem, to tak:
Rozumiem, że arkusz z danymi do kopiowania jest w osobnym pliku.
Panowie liczę na waszą pomoc. Doliczyłeś się.
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
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...
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,...
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...
Makro w oddzielnom skoroszycie [syntax=vb]Sub wypelnienie() Dim rd&, rs&, bd As Worksheet, bsh As Worksheet rs = InputBox("Wprowadz numer wiersza danych", "Wiersz #?", 1) path_A = "d:\AAA\" path_B = "d:\AAB\" Set bsh = Workbooks.Open(path_B & "BAZA").Sheets(1) Set bs = Range(Cells(rs, 1), Cells(rs, 7)) plik = Dir(path_A & "*.xlsx") While...
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...
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)...
To 2020 ACTUAL jest w kolumnie B, nie H - może stąd problem? [syntax=vbscript]w = Application.Match("2020 ACTUAL", Range("H1:H" & ow), 0) - 1[/syntax] Zmień H na B.
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...
Gdy jest numer wiersza z dane('PODAJ.POZYCJĘ'), nie trzeba 'wyszukaj.pionowo', wystarczy INDEKS
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.
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...
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
Kolego ten twój cały kod można skrócić do [syntax=vbnet]With Sheets("Arkusz1") .Columns("C:C").AdvancedFilter Action:=xlFilterInPlace, Unique:=True .Range("C2:C" & Cells(Rows.Count, "C").End(xlUp).Row).SpecialCells(xlCellT... .Range("E19") .ShowAllData .Range("E19").End(xlDown).Offset(1).Sele... End With[/syntax] ps. jak co to na dziś już...
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]....
Przy tablicach nie używa się select. A co chcesz potem robić z tą tablicą? Zawsze możesz odwoływać się do komórek arkusza jak do tablicy: For i = 1 To 5 for j = 1 to 5 MsgBox i & ", " & j & " = " & Worksheets("Arkusz1").... j) next j Next i Ewentualnie możesz zapisać dane do zmiennej typu RANGE, do...
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...
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.
A nie wystarczy zastosowanie filtrów w "Zeszyt1.xls"? W załączniku rozwiązanie z funkcjami wyszukiwania i kolumnami pomocniczymi. Przy otwarciu kliknij 'Edytuj łącza' i wskaż właściwy plik.
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ę...
Odszukaj ten fragment i dodaj ostatnią linijkę: 'kopiuj wartości wscel.Cells(wstaw, 3) = wsbaza.Range("B" & i) wscel.Cells(wstaw, 4) = wsbaza.Range("C" & i) wscel.Range("B" & wstaw) = szukaneTabl(r, 2)
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
Bo jesli dodasz dwie kolumny do każdego działu, to w makrze Kopiuj() musisz poprawić krok wyszukiwania z 4 na 6: [syntax=vb]For kol = 1 To 255 Step 6[/syntax] i, ewentualnie, tam gdzie teraz kopiujesz komórki od C do E zwiększyć od C do G i kol+5: [syntax=vb]Worksheets("Arkusz1").Range("... & Selection.Row & ":G" & Selection.Row).Copy .Range(.Cells(wiersz,...
Można też tak (mniej kodu): [syntax=vbscript]Sub PobierzD3() Katalog = "C:\PlikiExcela\" Plik = Dir(Katalog & "*.xls*") x = Sheets("Arkusz1").Cells(Rows.Count, "A").End(xlUp).Row + 1 While Plik <> "" Sheets("Arkusz1").Cells(x, 1) = "='" & Katalog & "[" & Plik & "]Arkusz1'!$D$3" Plik = Dir x = x + 1 Wend End Sub [/syntax]
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ć.
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ą...
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.
Przetestuj makro z załącznika.
Zawsze możesz też zrobić tak aby Makro pytało Ciebie przy odpaleniu z jakiego pliku zewnętrznego ma kopiować jaki zakres danych.
Uściślij: 1. Czy pliki zostały już otwarte z danego katalogu i przebywają sobie w tle programu, co sugerowałoby to co napisałeś (" pobiera z otwartego pliku ") ? 2. Czy też pliki trzeba dopiero otworzyć z danego katalogu ? 3. Jeśli trzeba, to czy jest to katalog tylko "jednopoziomowy", czy też znajdują się w nim podkatalogi, z których też należy otwierać...
sprawdź załącznik
Pętla po Q i R, ustawianie filtra na C i G, kopiowanie do nowego pliku. Nagraj makro i zmodyfikuj.
Po kliknięciu komórki np. C16 ma się utworzyć arkusz o tej nazwie tj. "C16"? Czy raczej arkusz z nazwą projektu? Jeżeli to drugie, to zamiast używać tabeli przestawnej proponuje: 1. utworzyć arkusz z polem/formantem kombi dla którego źródłem danych będzie pole (kolumna) "nazwa" z arkusza Dane. Po wybraniu elementu z listy zwraca się pozycję tego elementu...
Możesz go na końcu usunąć: sheets("Y").rows(1)entirerows.delete. Lub kopiować od Nr 2 [syntax=vb]With Sheets("X") .Rows ("2:" & .Rows.Count).SpecialCells(xlCellTypeVisi... Sheets("Y").Range("A1") End With[/syntax]
Warunek jest taki żeby wstawiało te dane w pliku STATYSTKA biorąc pod uwagę datę przyjęcia czyli jeżeli w pliku STATYSTYKA w komórce C2 mamy datę 2023-01-30 to żeby kopiowało z pliku DANE tylko te pozycje które mają taką samą datę jak ta wcześniej wymieniona. Makro miałoby przenosić z jednego pliku do drugiego dane żeby przyspieszyć pracę i nie dublować...
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ż...
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.
Witam, używam Open Office. W arkusz1 mam kolumnę 'substancja' oraz 'cena'. W każdej komórce kolumny 'substancja' można wybrać substancję z rozwijanej listy. Lista substancji znajduje się w arkuszu2 (również w kolumnie). I teraz chciałbym, aby wybierając jakąś substancję, kopiowała się również jej cena do kolumny obok (ceny podane są również w arkuszu2...
szablon.SaveAs Filename:=sciezka Proponuję użyć SaveCopyAs. Ale nie wiadomo, czy makro (jego nazwa sugeruje tworzenie arkuszy), czy też ma tworzyć nowe pliki.
Kod wklejamy pomiędzy znaczniki (Syntax) - opcja "Listing kodu". Twój post (z racji pełnienia funkcji) poprawiłem, przy okazji łącząc oba w jedno ;)
Przepraszam jak mieszam, ale może zobacz tutaj: http://vbatools.pl/podziel-dane-na-arkus...
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 +...
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...
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
Witam, potrzebuję makro do Excela w VBA. Łamie sobie głowę, żeby to napisać i może ktoś umiałby to poskładać w sposób logiczny w makro. Z góry mówie, że to wygląda na dość obszerne makro ale myśle, że dla kogoś kto dobrze ogarnia VBA nie będzie z tym miał problemu. Dla mnie jest to troche ciężki temat :| Program ma kopiować komórki J2:J, K2:K, L2:L...
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...
W pliku "Spis" jest 6 komórek do których mają być zaciągnięte dane z pliku"Dane". W makro widzę, że dane są pobierane z pliku arkusz1.xls w folderze C:\Dane_\ Utworzony plik z danymi na dysku C i nie trzeba nic kliknąć. Wystarczy otworzyć plik Spis_xxxx. Testowano to. Jaka jest rzeczywista ścieżka do plików danych?
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...
Witam. Proszę o pomoc w napisaniu makra bo jestem początkujący w tym temacie. Potrzebuję napisać makro, które skopiuje dane z tebeli po wcześniejszym przefiltrowaniu przy wykorzystaniu napisanego do tego celu marka, które już mam do drugiego pliku, które to makro samo otworzy. Do tej pory udało mi się stworzyć makro, które otwiera mi odpowiedni plik...
mam duży problem (choć prosty :-) ) mam tekst: get system name name = ... w drugiej kolumnie odpowiedni " PPPoA Bridging ... skrypt: WierKon = InputBox("wiersz koncowy") N = WierKon Sheets.Add.Name = "liczniki_pppoa" ' nowy arkusz Sheets("liczniki_pppoa").Select ActiveWorkbook.Sheets("liczniki_pppoa").... = 3 Sheets("Arkusz1").Select 'WierAkt...
Kopiowany wiersz nie będzie pasował w nagłówki. Musiałoby być (w kodzie arkusza "101-183") coś takiego Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("C2:P50")... Is Nothing And LCase(Target.Value) = "x" Then wrsZrd = Target.Row nazwaArk = Cells(1, Target.Column)...
potrzebuje napisać makro które będzie kopiować do excela mam makro które może skopiować zawartość A jak wygląda te makro?
[syntax=vbscript]Sub DoBazy() kol = Application.Match([C3], Sheets("Baza").Range("A1:GR1"), 0) If Not IsError(kol) Then For i = 1 To 260 Worksheets("Baza").Cells(i, kol) = Worksheets("DoBazy").Cells(i, 3) Next i MsgBox ("Dane dla daty " & [C3] & " zostały skopiowane") Else MsgBox "Brak danych." End If End Sub [/syntax]
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?
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...
Jeśli nie jest to problem, czy mogę prosić o przypisanie właściwego makra w tym pliku Staraj się zawsze załączać od razu plik do, którego trzeba napisać makro.
Witam. Mam ok 60 plików CSV (pliki tekstowe oddzielone przecinkami) znajdują się w jednym folderze. Pliki mają różne nazwy (przykładowo: 21172001 6.28.18 13.07.05) każdy plik ma tyle samo kolum (po przecinku) wiersz pierwszy: a,b,c,d,e,f,g,h,i, wiersz drugi: 1,1,1,0,0.00,0.00,N-m,0,0 wiersz trzeci: 1,1,1,0,0.00,0.00,N-m,0,0 Potrzebuję makro które: 1....
Możesz sobie dostosować makro z załącznika.
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...
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...
Sprobuj [syntax=vb] For i = 3 to sheets.Count msgbox sheets(i).Name Next[/syntax]
Przede wszystkim załącz przykładowy plik i jednoznaczny opis, aby było można zorientować się do czego zmierzasz ? Wstępnie można Ci zaproponować uruchamianie jednego makra, które w zależności od wstawionej opcji (1, 2, 3) w określonej komórce uruchamiać będzie różne działania (kopiowanie danych, drukowanie lub zamykanie skopiowanego skoroszytu) ;-)
Dla plików z nagłówkami w 27 wierszu, ale tylko dla nich oraz odbezpieczenie arkusza. [syntax=vba] Option Explicit Sub Scalaj_v2() Dim Licznik As Long, LW As Long, LK As Long, LW_Docel As Long Dim TenZeszyt As String, Folder As String, Plik As String Dim WERSJA As Variant Dim StatBarPocz As Boolean Dim Skor As Workbook Dim Skonsolidowany As Worksheet,...
Nic tak nie uczy jak przykłady, a tych jest na forum dostatek. Szukaj pod hasłem "Excel Dir", "Excel lista plików" i coś na temat pętli. Np For Each element In kolekcja , gdzie kolekcja to zakres komórek z nazwami katalogów. Np coś takiego [syntax=vb]Sub bla() Dim zakres As Range, kom As Range Dim kat As String, sKat As String, plik As String Set zakres...
Może i lepiej, ale kto z nas wie, jak działa makro w Wordzie?
Oczywiście: W pierwszej zakładce "Arkusz3" znajduje się tabela o którą mi chodzi makro odpala crtl+q W drugiej "Wig30" kolejność spółek w jakiej są kopiowane W trzeciej "Baza Danych" tam makro kopiuje dane W czwartej "Baza Danych2" tam kopiuje ręcznie wiersze z poprzedniej zakładki i dane te są dalej obrabiane. Musiałem wysłać w innym formacie inaczej...
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...
W którym pliku ma znajdować się makro?
Dziękuję za wyczerpującą odpowiedź, w takim przypadku kiedy formuły jedynie kopiują dane a ich nie przenoszą, zrezygnuje z pomysłu i będę kopiować ręcznie dane. Makro dla mnie to czarna magia i nawet nie chce się zagłębbiać w ten temat. jeszcze raz dziękuję za odpowiedź.
Nagraj makro z Ctrl+F i zamiast .Select podstaw .Row. Będziesz miał już Nr wiersza. Nagraj drugie makro z kopiowaniem. I pod Range(cośtam) podstaw Rows(nasz Nr wiersza z pierwszego makra). Połącz wszystko w jednym makro i "prawie" gotowe. Wystarczy dołożyć wyszukiwanie wolnego wiersza, obsługę błędów (może nie znaleźć), etc.
[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...
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...
W załączniku.
witam wszystkich, Mam prawie skończoną część swojego projektu, jednak brakuje mi małej modyfikacji makra. Otóż makro nie do końca prawidłowo kopiuje zawartość bloku. Potrzeba mi, żeby po wypełnieniu całego pierwszego bloku danych, makro kopiowało poniżej następny blok, ale w skopiowanym bloku przenosiły się tylko wartości nagłówków oraz wartości z komórek...
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
nie ważne czy plik jest otwarty przez użytkownika czy zamknięty Ważne ... będzie zupełnie "inne podejście do tematu" ... Jeśli plik będzie zamknięty, to najczęściej zastosowane zostanie ADO, jeśli nie znamy rozplanowania dnych w arkuszach zamkniętego zeszytu. Jeśli znamy i wiemy co, gdzie, w jakiej komórce, to można się tam będzie dostać "zwykłą formułką"...
W tą stronę nie mogę znaleźć żadnego kodu :arrow: . Kopiowanie z wielu do jednego jest, ale odwrotnie już nie :cry: Wzór pewnie nie wiele by mi powiedział ale może osobie/osobą z tego forum pomógłby z moim problemem :D
żebym miała możliwość wskazania ręcznie z których folderów mają być pobierane Widoczne są folder gdzie jest ten plik? Debug - (okienko Locals) co jest napisane naprzeciwko 'plk'? Plik przypadkowo już otwarty? Sprawdzone - Pokaż folder: wszystkie pliki z folderu jest Czytane oraz kopiowane dane
Nie wiem co dokładnie chcesz osiągnąć ale może wystarczą zwykłe formuły excela. Poniższa np sumuje wszystkie komórki B2 znajdujące się w arkuszach od 1 do 6 (Suma arkuszami wizualnie widzianymi na dole ekranu, czyli jeżeli między arkuszem 1 a 6 będzie jeszcze arkusz o nazwie "jakiś" on też zostanie uwzględniony w sumie.) =SUMA(Arkusz1:Arkusz6!B2)
Może wstaw plik z danymi dla ułatwienia temu, kto się za to weźmie.
Excel nie jest, i nikt w MS nie obiecywał, nie jest narzędziem do developmentu oprogramowania, np sieciowego
Trochę zależy jak to wygląda z resztą makra. Generalnie, wczytywanie powinno być niezależne od aktywnego arkusza. Czyli [syntax=vb]Sub wczytywanie_danych() Dim dane As Variant dane = Worksheets("Arkusz1").Range(Cells(1, 1), Cells(10000, 3)) End Sub [/syntax]
Witaj do komórek o zakresie(b4:b4016;M4:4016) Kopiowanie "Robert","Asia","Mirek" na inny arkusz lub jeden? bez otwierania zeszytów Wskazane jest, aby otworzyć, ale... Pokaż układ arkuszy.
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, mam pytanie chciałbym napisać makro albo zrobić pole w którym po wpisaniu danej wartości, excel szukał by "kolumnie A" wpisanej wartości np 23. Następnie kopiował dane z kolumny B,C,D znajdujące się obok wartości 23 w inne miejsce
:) Proszę bardzo: [syntax=vb]Option Explicit Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 2 Then Dim r As Range Dim i As Integer Dim car1(5) As String Dim aws As Worksheet Dim wb As Workbook Set aws = ActiveWorkbook.Worksheets(1) Set wb = Workbooks.Open(ActiveWorkbook.path & "\Zbiór_danych.xlsm")...
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.
Ale co Ci nie jeździ, bo nie bardzo rozumiem. Ten kod początkowo kopiuje wszystko, a te wiersze z zerami są usuwane dopiero później, kolejną częścią kodu. Ja nic w logice Twojego kodu nie zmieniałem.
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...
Funkcja jeżeli, jeżeli pole obok nie jest puste wypełnij wartością zgodnie z uznaniem.
Super, dzięki. A jak zapisać żeby makro samo uruchamiało kopiowanie danych gdy pojawią się dane w komórkach?
Cześć, chce makrem z ogólnej bazy klientów skopiować dane do swojego pliku makro wykonuje się, niestety jeśli jest ktoś w pliku "do edycji" wyskakuje mi okno dialogowe: "plik 'klienci zagraniczni' jest zablokowany do edycji, kliknij przycisk tylko do odczytu, powiadom, anuluj" Opcja tylko do odczytu mi wystarczy, nie chce zapisywać zmian w tym pliku...
Cześć, Mam taki problem że za pomocą makra kopiuje dane z drugiego pliku. Problem w tym że dane z drugiego pliku pojawiają się dopiero po wykonaniu makra uruchamiającego się przy otwarciu (nie znam nazwy tego makra). W konsekwencji kopiuje same nagłówki bo dane nie zdążyły się jeszcze odświeżyć. Miał ktoś podobny problem ?
makro kopiowanie danych makro kopiowanie danych przycisk makro kopiowanie zakresu danych
yamaha amplituner tuner stereo peugeot bipper silnik electrolux łożysko wymiana
Jak odblokować zablokowane drzwi pralki Samsung WF8804DP Meyra Cityliner 412 - Opis błędów i diagnostyka