No tak. Mój błąd, bo powinno być w innej kolejności. Sorry, ale dzisiaj sobota ;) Coś tam (w załączniku) kopiuje. Przeanalizuj, dostosuj do własnych potrzeb.
OK. Teraz mam pilne zadanie, w godzinach wieczornych coś do rozwiązania. ... Tu to jest [syntax=vb]Sub copyNumKs() Dim bd As Range, bs As Range, r& With Sheets(1) Set bd = .Cells(1, 5).Resize(.Cells(Rows.Count, 1).End(xlUp).Row, 1) End With With Sheets("wydruk") Set bs = .Cells(1, 2).Resize(.Cells(Rows.Count, 1).End(xlUp).Row, 2) End With For r = 2...
[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]
No działa, ale tak nie prościej? [syntax=vbnet] Sub Kopiuj(Dst As Range) Range("A2:B" & Range("A" & Rows.Count).End(xlUp).Row).Copy Destination:=Dst End Sub Sub TestKopiowania() Kopiuj (Sheets(3).Range("A" & Rows.Count).End(xlUp).Offset(1, 0)) End Sub [/syntax]
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...
Wstawiłem tabelę, włączyłem rejestrator makr, zmieniłem nazwę w 'Narzędzia tabel'. Nagrało się m/in: https://obrazki.elektroda.pl/2689543600_... Odpowiedź: Tak, można
Po pierwsze - ustaw breakpoint'y i zobacz, w którym miejscu Cie "wyrzuca". Po drugie - po osiągnięciu sumy >20 przechodzisz do nowego arkusza, coś tam wklejasz po czym nie wracasz do pierwotnego arkusza - a Twój kod pracuje na arkuszu w tym momencie aktywnym.
Po pierwsze: z którym fragmentem nagranego kodu masz problem? Po drugie: Nagraj makro kopiowania całego arkusza do nowego pliku ze zmianą jego (pliku) nazwy. Masz 100% gwarancji zachowania formatowania. Jeśli w arkuszu jest nadmiar danych można dopisać usuwanie. Jeśli jesteś początkujący, to nagrywarka jest podstawą. Przykład: To jest nagrane makro...
Jeśli dobrze rozumiem, to tak:
Chyba łatwiej zrobić dwuklik na wierszu, z którego chcesz kopiować. Równocześnie uruchamiasz makro i wskazujesz wiersz. Możesz też się upewnić, czy to właściwy wiersz. Oczywiście można też wstawić tam InputBox, tylko wtedy jak chcesz uruchamiać to makro? Jeśli chodzi o moją propozycję, to komórki docelowe wypisujesz po kolei jako adresy obiektu Range:...
Z arkusza1 robię raporty w osobnych arkuszach Efekt taki jak na zrzucie 1041538 automatycznego kopiowania wyfiltrowanych danych z arkusza1 do kilku arkuszy :idea: (z nazwami arkuszy wg filtrowanych danych :D ) można zrealizować przykładowo tak jak w załączonym pliku. 1041541 Makro można uruchomić skrótem klawiaturowym ctrl+r :!: , dla dowolnej (jeśli...
Zacznij z petli For Each c In Sheets(1).Cells.SpecialCells(xlCellTypeA...
Chciałbym uściślić. Mam w skoroszycie bazowym (nazwę go DD) kilka tabelek w której formuły są typu B7=B5-B6, C7=C5-C6 itd. Zrobiłem makro, które przenosi dane z pierwszego skoroszytu z pozycji B6 na pozycję B5 w następnym skoroszycie i kopiuje skoroszyt. Przy pierwszym kopiowaniu (JA1) jest ok, ale jak próbuję skopiować JA1 do JA2 to nie przenosi mi...
Jeśli makro, następnie tak
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
Jaky format w A1? Sprobuj Sheets(Range("A1").Text).Select
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
Spróbuj [syntax=vb]For Each kom2 In Sheets("Arkusz2").Range("A1:A500") If kom2 <> Empty Then For Each kom1 In Sheets("Arkusz1").Range("A1:A500") If kom1.Value = kom2.Value Then kom2.Offset(0, 13) = kom1.Offset(0, 13) kom2.Offset(0, 14) = kom1.Offset(0, 14) Exit For End If Next End If Next[/syntax]
[syntax=vbscript]Sub Zawiera() Sheets("Arkusz1").Select a = InputBox("Podaj tekst do szukania: ", "Wyszukaj") ow = Cells(Rows.Count, "A").End(xlUp).Row y = 1 For x = 1 To ow If InStr(1, Cells(x, 2), a) > 0 Then Range(Cells(x, 1), Cells(x, 2)).Copy Sheets("Arkusz2").Range("A" & y) y = y + 1 End If Next End Sub [/syntax] Poniżej bez rozróżniania wielkości...
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 +...
W wolnej chwili wyklikałem na klawiaturze kilka linijek. Wydaje mi się, że wygodniej będzie Ci przystosować mój krótki kod. [syntax=vb]Sub Podziel() Dim a As String, a1 As Worksheet Set a1 = Sheets("Arkusz1") ow = Cells(Rows.Count, "D").End(xlUp).Row f = True Sheets("Arkusz1").Select For x = 5 To ow a = a1.Cells(x, 16) If f Then y = x f = False End...
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ą...
Witaj Sub ddd() Dim OstW As Long Dim kom As Excel.Range Application.ScreenUpdating = False With Sheets("Arkusz1") OstW = .Cells(Rows.Count, "F").End(xlUp).Row For Each kom In .Range("F4:F" & OstW) If kom.Value = "tak" Then Range("B" & kom.Row).Copy...
Proszę o przykładowe makro kopiujące pierwszy wyfiltrowany wiersz z listy do nowego arkusza. W nowym arkuszu wklejane wiersze muszą dodawać się jeden pod drugim wraz z datą ich kopiowania.
Rozumiem, że arkusz z danymi do kopiowania jest w osobnym pliku.
Nie wykrzacza się, ale nic nie kopiuje. Arkusz pozostaje pusty...
Sheets("DRUKI SORTOWANIE").Select Range("A1").Select Selection.Copy Sheets("KP").Select Range("V28:W28").Select ActiveSheet.Paste Taki fragment można zapisać krócej tak: Gdzieś na początku makra: [syntax=vb]Set wsSort = Sheets("DRUKI SORTOWANIE") Set wsKp = Sheets("KP")[/syntax] a dalej: 1. jeżeli chcesz skopiować tyko wartości, bez formatów: [syntax=vb]wsKp.Range("V28:W28").Value.....
To dlatego, ze Pan przemianol skorozsyt z gelda na gelda-1. Trzeba skopiować makro do wlasnej książki i przypisać je do przyciskow.
[syntax=vbscript]Sub Makro() Sheets("Arkusz1").Select a = Application.Match("W", Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row), 0) nw = Sheets("Arkusz2").Cells(Rows.Count, "A").End(xlUp).Row + 1 If Not IsError(a) Then Sheets("Arkusz2").Range("A" & nw) = Range("B" & a) Rows(a).Delete End If End Sub [/syntax]
szablon.SaveAs Filename:=sciezka Proponuję użyć SaveCopyAs. Ale nie wiadomo, czy makro (jego nazwa sugeruje tworzenie arkuszy), czy też ma tworzyć nowe pliki.
Zamiast tej linijki[syntax=vb]Wb.Sheets.Copy before:=ThisWorkbook.Sheets("makro")[/sy... pętlę For, z warunkowym kopiowaniem arkuszy. Warunkiem może być cells.find(what:="*") z wyłączoną obsługą błędów i jeśli Err=0, kopiujesz.
Zarejestruj makro pojedynczej operacji kopiowania arkusza, podejrzyj co jest w środku, a potem dopasuj do własnych potrzeb.
W załączniku umieściłem plik z dwoma arkuszami - z danymi początkowymi "Basic" oraz "Divided". Chodzi o to, że dane z kolumny A arkusza "Basic" kopiuję do kolumn B, C, D itd. arkusza "Divided". Do kolumny B dane z 2002, do kolumny C dane z 2003 itd. Może plik coś rozjaśni.
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ż...
Witajcie Może się Wam to przyda
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)...
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...
Makro jest w pliku ZBIORCZY.XLSM. Te 1_19, 2_19, ..., n_19 nie mają w sobie makra. Z nich makro napisane w pliku ZBIORCZY.XLSM kopiuje do pliku ZBIORCZY.XLSM wiersz nr 2 z Arkusza 1.
Odwróciłbym to: makro realizujące aktywację wskazanego arkusza w wybranym skoroszycie i zawierające polecenie copy , przypisane do dowolnej (nie wykorzystywanej domyślnie w Excelu) kombinacji klawiszy, lub uruchamiane zdarzeniem arkusza Np dwuklik... Schowek w Excelu jest obiektem, do którego należałby się odwołać. Natomiast uruchamianie makra kombinacją...
Moze być tak :) [syntax=vb]Sub kopiuje() Application.ScreenUpdating = False Dim ws As Worksheet Dim ws2 As Worksheet Set ws = Sheets("Arkusz1") Set ws2 = Sheets("Arkusz2") With ws .Cells(1, 1).Copy End With With ws2 ws2.Activate Cells(Rows.Count, "A").End(xlUp).Offset(1).PasteSpecial End With ws.Activate Application.ScreenUpdating = True End Sub[/syntax]...
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...
Wystarczy przeliczyć kolumny i uwzględnić scalenie, którego VBA "okropnie nie cierpi" ;) [syntax=vb]Sub Kopiuj() Dim lista As Variant, ostWs As Long, i As Integer lista = Array("C2", "F2", "I2", "C4", "F4", "I4", "C6", "F6", "I6", "C9", "C10", _ "F9", "F10", "I9", "I10", "I11", "C14", "F14") Application.ScreenUpdating = False With Sheets("Arkusz2")...
Witam Mam problem ze stworzeniem makra. W zasadzie to nie wiem jak się za to zabrać . Parę miesięcy temu byłem na podstawowym szkoleniu z excel i tam miałem okazję napisać kilka prostych rzeczy i na tym moje doświadczenie się kończy. Widzę że na tym forum jest dużo ludzi którzy mają szeroka wiedzę na ten temat i mam nadzieję że ktoś zechce mi pomóc....
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?
A wbudowany filtr oraz kopiuj-wklej nie wystarczy?
Trochę nieścisłości jest w tym Twoim opisie. Piszesz, że w kolumnie E arkusza Brudnopis po wyczerpaniu nazwisk będą błędy #N/D. Tymczasem w pliku przykładowym są puste teksty. To jak w istocie będzie? W załączonym kodzie są uwzględnione oba warianty. Gdy już się zdecydujesz jak ma być, możesz sobie ten kod troszkę uprościć. W sprawie tworzenia nowego...
Po tym opisie wydaje mi się, że nie potrzebne jest w ogóle makro. Prawdopodobnie dało by radę zrobić to formułami. Załącz plik z przykładowymi danymi i zobaczymy co da się zrobić.
Gdybyś zarejestrował sobie makro, to pewnie udałoby Ci się je zmodyfikować pod ten problem. Makro nic więcej nie robi, jak kopiuje i wkleja. W załączniku masz rozwiązanie.
Pomogę w ten sposób: Tak przypisujesz nazwę z danej komórki Nazwa_z_komorki = Worksheets("KON").Cell... 1).Value i podobnie ilość Ilosc_z_komorki = Worksheets("KON").Cell... 2).Value Do powyższego cells(nr wiersza,nr kolumny) dodanie arkusza: Sheets.Add Nadanie nazwy arkuszowi: ActiveSheet.Name...
przeinstalowanie Office`a względnie samego Excel`a. ????? a cóż to za porada ??? Jeżeli nie wiesz co napisać to nie pisz nic. U mnie działa ThisWorkbook.Worksheets("xxx&qu... Destination:=Workbooks("ww....
Witam serdecznie, zaczynam dopiero zabawę z makrami w Excelu i potrzebuję pomocy. Chcę napisać makro, które: - otworzy wskazany przez użytkownika plik (nie jest znana jego nazwa i ścieżka więc potrzebuję aby pojawiało się okno wyboru pliku) - to jest w help excela) (np.: PLIK1.xls) - następnie skopiuje wybrane arkusze (nazwa arkuszy się nie zmienia,...
Do powielania arkuszy i adaptacji formuł możesz wykorzystać makro z załączonego pliku :D - zaczyna pracę dopiero od arkusza 2.2 :!: i działa w ten sposób, że po wybraniu 1 arkusza w skoroszycie (tj. o najwyższej numeracji w nazwie :D ) - poprzez dwuklik myszką w ten arkusz - automatycznie kopiuje arkusz i ustawia nową nazwę i podmienia formuły :spoko:...
1. Załóż filtr w oryginalnej tabeli (niepuste) -> zaznacz całą tabelę i wtedy dopiero kopiuj dane . Może nawet lepiej wklejać "tylko wartości" niż dane z pełnym formatem każdej kopiowanej komórki. Zrobisz to w jednym ruchu zamiast korzystać z pętli (2000 razy). Po nagraniu makra można edytować zaznaczony zakres tak, żeby najlepiej nam odpowiadał. 2....
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ć.
Dzień dobry, mam taki problem. Zrobiłam w Excelu przycisk, do którego przypisane jest makro kopiujące i wklejające 3 ostatnie wiersze. W jednej kolumnie są scalone 3 wiersze do jednej komórki i jest w niej lista rozwijana. Gdy włączę ochronę arkusza (na wybrane komórki, nie na tę z listą rozwijaną) to ta lista nie kopiuje się do kolejnego wiersza. Kopiuje...
nie rozumiem, jak to w kod arkusza? w makro?
A takie coś nie wystarczy? Po wykonaniu skryptu kopiujesz 2 kolumny wynikowe na nowy arkusz i wklejasz specjalnie tylko zawartość.
Sprawdzałeś powyższy kod? Zasada jest taka, że pierwszy arkusz, to ten do którego będą kopiowane dane z pozostałych arkuszy.
Zobacz, czy o to chodziło. Makro do kopiowania: [syntax=vbscript]Sub Kopiuj() Dim b As Worksheet Dim ow As Long Set b = Sheets(ActiveSheet.Index - 1) ow = b.Cells(Rows.Count, "A").End(xlUp).Row - 1 Dim CopyRng As Range, PasteRng As Range b.Range("A4:B" & ow).Copy ActiveSheet.Range("A4").PasteSpecial Paste:=xlPasteValues b.Range("N4:O" & ow).Copy ActiveSheet.Range("N4").PasteSpecial...
Musiałem dodać fragmenty kodu odpowiedzialne za zróżnicowaną numerację kopiowanych przycisków, a następnie identyfikację przycisku "Clear", który został użyty. Wszystkie przyciski "Copy" działają identycznie - kopiują zawsze pierwszą tablicę na pierwsze wolne miejsce. Możesz tej pierwszej tablicy nie wypełniać, potraktować ją jako szablon, unikniesz...
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.
Potrzebuję makro, które pomogło by Jeśli chcesz gotowy, staraj się nie powodować niepotrzebnych prac, temu kto by mogł pomoc. Które naprawdę powinny być format pole 'numer artykułu ' bo na jednej stronie to tekst(arkusz1) na inny numer(arkusz2)?
Dziękuję za pomoc. Najlepszym rozwiązaniem okazało się zrobienie makra, które kopiuje automatycznie zawartość pierwszych trzech kolumn do nowego arkusza. Dodano po 1 Nagrałem makro kopiujące potrzebne dane do nowego arkusza
Napisałem takie dwa makra: Proszę pamiętać o używaniu znaczników syntax . Opcja Listing kodu . Proszę to poprawić.- arnoldziq
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...
Post pod postem, ale jakoś chcę zwrócić uwagę autora :) Tak z niedzielnych nudów zacząłem kombinować z tymi pętlami. A jak już jest (prawie) gotowe, to wrzucam. Może się przyda... Warunkiem jest umieszczenie pracowników w odpowiednich wierszach zgodnych z Nr ewidencyjnym i Lp. tzn jeśli Pani Monika ma NrEw. 2 i jest w 4 wierszu (Lp 3), to tak musi być...
Niestety dalej zapisuje tylko z 01.YY do 43_01. Następnie otwiera 43_02 i koniec Dodano po 2 W plikach 43_02, 43_03... itd makro tylko je otwiera. makro musisz mieć umieszczone w każdym z plików 01.YY , 02.YY itp
Przepraszam jak mieszam, ale może zobacz tutaj: http://vbatools.pl/podziel-dane-na-arkus...
Kopiuj całe wiersze. Odpowiednia linia jest w makro w załączniku. Usuń apostrof opisanej linii, wyrzuć/zaapostrofuj trzy następne (od For do Next).
A to musi być makro? Nie może być funkcja wyszukaj.pionowo. W arkuszu 2 w komórce B8 wpisujesz: WYSZUKAJ.PIONOWO(A8;Arkusz1!$C$1:... i przeciągasz w dół a w C8 wpisujesz: WYSZUKAJ.PIONOWO(A8;Arkusz1!$C$1:... i przeciągasz w dół A aby to ładniej wyglądało lepiej wpisz tak w komórki: B8 =JEŻELI(CZY.BŁĄD(WYSZUKAJ.PIONOW...
A jaki przykład? Bo opis nie do końca pojmowalny. :(
pokazyje błąd. Nie powinno tak być, albo nie rozumiem. WYSZUKAJ.PIONOWO(A1;Y!A:B;2;0) tylko wtedy, jeśli LICZ.JEŻELI(Y!A:A;A1)>0 Innymi słowy jeśli w Y jest, w przeciwnym razie zapisz ""(empty string) Czy możliwe by nie zmieniał komórki Arkusza X. jesli nie wyszuka w Arkuszu Y odpowienika ? Nie, bo jesteśmy wszystkie formuły przepisze w klatki kolumny...
nagraj makro, to jest chyba najprostrze rozwiazanie,
A Twoje makro mi nie poszło, mam info "subscript out of range". Masz otwarte obydwa pliki? Nie zmieniałeś ich nazw, ani nazw arkuszy?
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
Chcesz przelecieć po wszystkich arkuszach - do tego jest pętla For Each. Zakładam, że na każdym arkuszu oprócz arkusza, z którego uruchamiasz makro - chcesz wykonać jakąś akcję. Żeby nie wykonywać akcji na arkuszu z którego uruchamiasz makro, możesz wykorzystać warunek If jak w przykładzie.
This user is not allowed to use direct links. Please email support(at)box.net for support Zamieść to po prostu tutaj. A rada jeszcze taka - stwórz od nowa skoroszyt i wklej makro.
Dziękuję. Wszystko działa. Zamykam Dodano po 8 Pojawił się jeszcze jeden problem. Makro nie chce zapisać do pliku xlsm Jest na to jakiś sposób? Dodano po 13 Przebrnąłem przez problem z zapisem do xlsm dodając: FileFormat:=xlOpenXMLWorkbookMacroEnable... Jednak napotkałem na kolejny problem, makro kopiuje arkusz ze wzoru z obsługą makr jednak nie kopiuje...
Witam. Potrzebuję stworzyć makro, które będzie kopiować arkusz 'tamplate' do nowego arkusza nadając mu aktualną datę lub datę kolejnego dnia jeżeli arkusz o danej nazwie już istnieje. Mój kod obecnie wygląda tak: [syntax=vbscript]Sub add() Dim Sh As Worksheet ActiveWorkbook.Sheets("Template").Copy After:=ActiveWorkbook.Sheets("Template") ActiveSheet.Name...
Przedstawione makro nie do końca tylko "zapisuje jako" plik. Ono tworzy nowy plik kopiuje odpowiednie dane (arkusze) zapisuje go pod pewna nazwa i go zamyka. Przy czym, ponieważ jest wyłączony "podgląd", nie widzisz wszystkich kroków. Też tak chcesz stworzyć plik? Czy wystarczy ci "zwykłe" zapisz jako - czyli plik nazwijmy go źródłowym, na którym włączysz...
Tak, nagrałam to makro w tym pliku, w którym mi wywala błąd w kodzie I jak uruchomisz to makro w tym pliku na serwerze to wszystko ok? (to podstaw pod te makro zmienne i zobacz)
Wyrzuca błąd 400, tzn kopiuje jak przedtem, ale bez formatu...
Dziękuje za pomoc Makro działa tylko 2 rzeczy nie do końca robi tak jak chciałem (może wcześniej się źle wyraziłem). Makro w komórkę J1 w zakładce Dane1 wstawia całą listę krajów, mi natomiast chodziło aby w komórkę J1 wstawiał nazwy wg kolejności z listy. Np. Komórka J2= Albania makro kopiuje wszystkie dane policzone dla Albanii do arkuszy Kraje1 i...
Pętlę możesz utworzyć na różny sposób, np. Sub Kopia_co_5() Application.ScreenUpdating = False Dim x As Long For x = 1 To 1000 ' na początek wstaw np. 50 zamiast 1000 Sheets("Arkusz1").Select Rows(5 * x).Select Selection.Copy Sheets("Arkusz2").Select Rows(x).Select ActiveSheet.Paste Sheets("Arkusz1").Select Next x Range("A" & x).Select Application.CutCopyMode...
następnie wykonywane jest w tym pliku skomplikowane działanie Na pewno można je z powodzeniem wykonać w VBA. Z drugiej strony: Dlaczego "w kolumnie obok" nie użyjesz tej formuły z "Zeszyt2"? Wydaje mi się, że zamiast opisywać zawartość arkuszy lepiej (wygodniej dla wszystkich) wrzucić plik z przykładem w postaci załącznika na forum :) Szybciej i precyzyjniej...
Mam małe pytanko jak zmienić makro aby zaczytywało z podkatalogu plików?
http://office.microsoft.com/pl-pl/excel-...
A czy zadziała to w wesji Open Office? Nie. W OO nałeży napisać inne makro. Dodano po 1 tak mam To jak myślisz, dlaczego makro nie zadziałało? ;) Nie odpowiedziałaś na pytanie o wersję Excela!
Makro to strzelanie z armaty do komara, do jednorazowej operacji wystarczy użyć sposobu. Ja użyłbym funkcji wyszukaj.pionowo. Sprawdzałbym kolumny osobno wyszukując wartości w tej drugiej tabeli. Funkcja ta daje wartość n/d# jeśli nie znajdzie. Potem sprawdziłbym które wiersze nie mają w którejś z kolumn tej wartości. Ułożyłbym formułe =jeżeli(oraz(czy.brak(kkol1);czy.brak(ko...
Skoro Kolega chce VBA, to proszę. Kod dla modułu 'Arkusz3': [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 2 And Target.Column = 2 Then If Target.Cells = "XYZ" Then Call Kopiuj End If End Sub[/syntax] Kod modułu skoroszytu: [syntax=vb]Sub Kopiuj() s = Sheets("Arkusz3").Range("B2") Sheets("Arkusz1").Select ow = Cells(Rows.Count,...
Deklarujesz zmienną jako skoroszyt, przypisujesz arkusz. Nie może działać...
Oczywiście że jest... Zidentyfikuj sobie jakoś wózki (nie wiem, albo nr, albo coś innego), zrób makro i po krzyku...
Myślę, że będzie to wyzwanie (raczej) niewykonalne. Możesz stworzyć procedurkę uruchamianą z jakiegoś przycisku lub z menu "Makro". Chcesz kopiować jakiś stały fragment arkusza?
Witaj! Takie porównanie nie wymaga makro, wystarczy zwykła formuła, jeśli zamieścisz wzorcowy arkusz, to napisze to w kilka minut.
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...
Cześć, oglądam tutorialu o VBA, próbuje coś napisać, ale programowanie zawsze mnie przerastało. Proszę o pomoc przy stworzeniu makro. Posiadam plik Excel z 6 arkuszami (nazwy od A do F). W każdym z arkuszy 3 górne wiersze są zajęte przez nagłówki kolumn (dane zaczynają się od 4 wiersza). Chciałbym aby makro w pierwszej kolejności czyściło arkusz A w...
W arkuszu jest 5 kolumn. W 5 są dane typu prawda, fałsz, które są powiązane są z odpowiednimi komórkami w kolumnie 1 i 2 (te same wiersze). Plik zmienia się więc za każdym razem inne wiersze są FAŁSZ. Jak stworzyć makro, które kopuje komórki z kolumny 1 i 2 mające w kolumnie 5 FAŁSZ do nowego arkusza?
Jeżeli arkusz ma być eksportowany do nowego pliku, to lepiej zrezygnować z formuł (będą się łącza za nim ciągnąć) i zrealizować wyszukiwanie w makro (metoda Range.Find, lub w pętli). p.s. Jeśli umieściłeś makro w module, zastosuj precyzyjne odwołania (arkusze). Przycisk przyciskiem, ale łatwo "wdepnąć"...
Nie do końca mi to wychodzi. Mam arkusz produkcja i arkusz zrobione. W arkuszu produkcja jest kolumna C w której jest unikatowy numer zlecenia a w kolumnie N jest pusto lub 'got.'. Chcę aby w arkuszu produkcja kolumna N, wpisując słowo 'got.' formuła przekopiowała mi cały wiersz do arkusza zrobione. Zakres danych w arkuszu produkcja to A2:L3000.
Witaj. Sprawdź załącznik. Checboxy zastąpione czymkolwiek w kolumnie (może być X, może być cokolwiek poza pustym polem). Poprawność stawiania xów czy innych jest sprawdzana na bieżąco, więc jeśli spróbujesz postawić iksy dla dwóch różnych zamówień to wyjdzie błąd już w momencie stawiania. Nie jestem pewien, po co numer wiersza, wystarczy że masz w tabeli...
makro excel kopiuj zaznaczony arkusz excel makro kopiuj makro excel arkusz
zasilacz impulsowy startuje podświetlenie łącznika sprężyna siłownika krups
galmet wyswietlacz galmet wyswietlacz
Yamaha PSR-S950: Brak zmiany akordów w lewej ręce Błąd 092-310 w drukarce Xerox - jak naprawić?