Ja w "międzyczasie" napisałem coś takiego: [syntax=vbscript]Sub GoalSeekinRange() Dim i As Long, RngForm As Range, wks As Worksheet Dim RngGoal As Range, Rngx As Range Set wks = Worksheets("Brudnopis") Set RngGoal = wks.Range("L5:L9") Set Rngx = wks.Range("J5:J9") Set RngForm = wks.Range("K5:K9") For i = 1 To RngGoal.Count If IsNumeric(RngGoal(i)) And...
Rozbudowałem Ci to makro tak, żeby uwzględniało operacje na kilku komórkach jednocześnie, ale nie zmieniałem zasady jego działania. Więc jeśli zależy Ci na historii wszystkich komórek, musisz przestrzegać pewnych reguł. Makro działa w ten sposób, że po zaznaczeniu komórki/komórek zapamiętuje ich zawartość i adres (procedura SelectionChange). Następnie...
Jeżeli chodzi o przenoszenie formatowania to excel właściwie nie ma żadnych funkcji. Można to zrobić jedynie poprzez makro (VBA) lub "pisaniną" poprzez formatowanie warunkowe i to w excelu 2007 i powyżej, bo niższe mogą mieć tylko max 3 warunki. Ten kto zna jako-tako programowanie w VAB może sobie poradzić. Ten kto nie ma pojęcia na początku upadnie,...
Funkcji nie ma ale proste makro może to załatwić. Powiedzmy, że w A1 wpiszesz datę (zgodnie z formatem daty excela) 2010-05-05 Pod przycisk (z formularzy) podepnij poniższy kod i już. Drukuj tylko za pomocą tego przycisku, inaczej data się nie zmieni. Ewentualnie w kodzie dostosuj do swoich potrzeb nazwę komórki z datą (A1) i nazwę arkusza (Arkusz1)....
Excel to arkusz kalkulacyjny (obliczeniowy) a nie gotowy program. Nie da się "wstawić "tabelki w jeden wiersz. Wg mnie nie do końca rozumiesz co to jest arkusz kalkulacyjny. Co do makra i "małej" podpowiedź. :) Kłopot polega na tym że pisanie makra pod dane rozwiązanie musi opierać się na konkretnych/stabilnych danych (które zna autor projektu). To...
... gdyż naciskasz F9 idziesz zrobić kawę, wracasz i gotowe :D ... A mogę zapytać po co naciskasz F9? Masz wyłączone automatyczne odświeżanie? Odwołania cykliczne w formułach? Owszem F9 wymusza przeliczanie ale całego arkusza/skoroszytu a akurat "moje" rozwiązanie tego nie potrzebuje (pod warunkiem że masz włączony standardowo automat w opcjach) W...
Zauważ, że arkusz niue nazywa się "mm.dd.yyyy" tylko ma konkretną datę jako nazwę więc lepiej w ten sposób: select.end ale tak też można. I druga rzecz. Ta funkcja też ma pewien błąd. Trzeba podać datę początku i datę końca. Nie wiem co chciałeś osiągnąć chyba że jakimś kodem którego akurat ja nie stosuje/nie znam. [syntax=vb] Range("H2").FormulaR1C1...
Dzień dobry, Mam plik Excela w którym każdy z arkuszy zawiera podobną tabelę. Szukając na forum znalazłem makro kopiujące wybrany arkusz wzorcowy i zmieniające jego nazwę na kolejną o 1 wyższą. W tym przypadku wygląda to tak: [syntax=vbscript]Sub AddRecipe() Dim Sh As Worksheet Dim intName As Integer Dim shName As String Dim strNazwa As String Sheets("P000").Copy...
Nagraj makro (kopiuj arkusz i zmiana nazwy) i pod nazwę podstaw 8 od lewej & 1 od prawej + 1 nazwy aktywnego.
Jeżeli dla dnia roboczego wszystko jest ok :?: :D to problem powstaje w weekend i œwięta. Co jest ok :?: W którym pliku i w którym arkuszu (zakładam, że rozróżniasz te dwa pojęcia :D ) :?: Jak wygląda Twój plik Raporty zmianowe.xlsm , jak ułożone są tam dane i kto, kiedy wprowadza tam dane z poszczególnych zmian, a kto je tam zeruje :?: :cry:...
Plik, który zmienia nazwę to plik z którego kopiujemy dane - Zlecenie prac na formie wtryskowej. Plik z arkuszem Import nie zmienia nazwy nigdy. W tym pliku wklejamy tylko komórki od S6:V6 z każdego jednego arkusza 1,2,3... z pliku Zlecenie prac na formie wtryskowej. Mam nadzieję, że jest jaśniej.
W Twoim opisie coś nie gra :cry: Jeżeli w kolumnie G ilość w pierwszym wierszu jest np. liczba 9... Ma skopiować dane z wiersza powyżej . To znaczy, z którego wiersza ma kopiować jeśli zmiany wprowadzasz w "w pierwszym wierszu" :?: :D Wierszy mam około 2 000 tyś 2 mln wierszy to musisz pomieścić w dwóch tabelach wykorzystując całą wysokość arkusza (jeden...
Nawet nie czyści swojego arkusza tylko codziennie wrzucany jest nowy plik na którym pracują pracownicy Ale pytanie zostaje, czy "Arek" co dziennie zaczyna wpisywać od B4? Tak codziennie każdy pracownik w swoim arkuszu zaczyna od B4. Na koniec dnia ja to wszystko kopiuje do arkusza PH1 i arkusz ten przesyłam dalej a plik na którym pracowaliśmy beckupuje...
Zauważyłem pewną zależność, w pliku zlecenie Cent znajduje się przycisk zmiana zlecenia, ma on za zadanie dodanie nowego arkusza i takie tam ale jedną z rzeczy które wykonuje to podmiana makra pod przyciskiem "zakończ zlecenie". I w tym momencie gdy wywołam makro o nazwie "zakończ zlecenie pozmianowe" rejestr na samym końcu wysypuje się, gdy wywołam...
Najprościej będzie jak "małpka" nagra sobie całą procedurę dla wszystkich lub kilku arkuszy - a tam sprawdzi jak następuje przechodzenie z jednego arkusza do następnego i jak ustawione są właściwości exportu do PDF np. parametr IgnorePrintAreas: Ok, małpka w miarę zna ten parametr i wie co to obszary wydruku itd, ale sprawdziła . Były 4 testy: Plik...
Jeśli będziesz uruchamiał makro zawsze na tym arkuszu, możesz się do niego odwołać przez ActiveSheet. Jeżeli arkusz jest tylko jeden lub zawsze na tej samej pozycji - wówczas przez Worksheets(x) - gdzie x = numer arkusza
Witam, Makro zwraca błąd method range of object _global failed. Prośba o pomoc - co jest nie tak?[syntax=vbnet][/syntax] Sub copy_nazwy_kolory() Dim i As Integer, j As Long, wynik As Long, wiersz As Long, zakres As Variant Dim kol As String wiersz = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count zakres = Range("f1:f" & wiersz) For...
Wolałbym jednak użyć tego rozwiązania, gdyż chciałbym to makro połączyć z innym, które już wcześniej stworzyłem. Część kodu już mam, więc chciałbym go dokończyć chociażby w ramach nauki na przyszłość.
Dzień dobry, mam skoroszyt w którym jest 3200 arkuszy i każdego arkusza mam do skopiowania klika wybranych danych do kolejnych kolumn kolejnych wierszy podstawowego arkusza BAZA. Usiłuję napisać makro, które z każdego z tych arkuszy by przenosiło wybrane dane, utknąłem na takim etapie jak procedura podstawowa ma wrócić po kolejne dane do tego wybranego...
Mam problem z napisaniem makra które działało by przy następującym zdarzeniu: Zmiana wartości w komórce a1 -(lista rozwijana) powodowała by odpowiedni wpis do komórki b12. (ten sam arkusz) np. komórka a1 - wybór z listy - "spec" w komórce b12 - pojawia się zapis - "4210" oraz w komórce b13 - pojawia się zapis - "4260" i tak dla kilkunastu pozycji z...
[syntax=vbscript]Sheets("2").Range("C1")... = vbRed[/syntax]
Bałem się ze odpowiedź będzie zahaczała o VBA, tak formularze są w jednym arkuszu, ale mogę je podzielić tak żeby każdy był w oddzielnym z tym że wtedy musiałbym znaleść sposób na ukrycie konkretnego arkusza w powiązaniu z zawartościa komórki a to zapewne też już trzeba płodzić makro albo dwa? Plik załączam, liczba która determinuje ilość formularzy...
Witam, Mam uprzejmą prośbę o pomoc. Założenia są takie: chce z pliku MS Excel z danymi „wyeksportować” do pliku w formacie „.pdf” zaznaczone / zdefiniowane obszary z dwóch arkuszy. Napisałem mokro w VBA Ms Excel, które to robi. To makro działa - ale nie działa tak jakbym chciał. Makro zapisuje plik w formacje pdf - ale nie z...
Rzeczywiście, do końca to "w = w+2" nie działa, Sprawdza się gdy pierwszy wiersz to liczba nieparzysta a następny parzysta, Jak odwrotnie to już nie. Ale gdyby wstawić na górze arkusza jeden wiersz to pary parzysta, nieparzysta zamienią się i makro zadziała a potem 1 wiersz usunąć Wiem, że jest to nieeleganckie rozwiązanie, ale na ten moment nie widzę...
Witam. Ponieważ na innym forum nie uzyskałem jak dotąd pomocy to może tutaj znajdzie się pomocna ręka. Mam problem , którego ja sam nie mogę rozwiązać od jakiegoś czasu , a który nie pozwala mi spać (autentycznie - to nie przenośnia). W załączniku mam tabelkę. Arkusze "target" oraz "wykonanie" to łącza do skoroszytów , które będą ulegały zmianie. Zmiana...
Wykorzystaj zdarzenie arkusza "przy zmianie" (Worksheet_Change) gdzie zakresy (Target) możesz określać warunkowo. Np If Target.Address(0, 0) = "A1" Then 'tu sie dzieje jesli zmiana w A1 ElseIf Target.Address(0, 0) = "C8" Then 'tu sie dzieje jesli zmiana w C8 'itd End If
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....
Dzień dobry, Na wstępie powiem że ze wszystkich sił starałam się nie fatygować nikogo by mi pomógł znaleźć rozwiązanie problemu, próbując sama zrozumieć dlaczego tak się dzieje. Jednak moja nieznajomość VBA wzięła górę i do co utknęłam w martwym punkcie (choć może nie do końca bo makro w sumie robi co chce). Makro które udało mi się stworzyć, przerabiając...
Dzień dobry, Operacja konsolidacji jest z założenia operacją statyczną. Jeżeli włączy Pan opcję tworzenia łączy, to utworzy się tzw. konspekt, który też zawiera łącza statyczne. Będzie to działać poprawnie tylko wtedy, gdy będzie Pan zmieniał długości kabli, ale każda zmiana nazwy pozycji wymaga skasowania starej konsolidacji i utworzenia wszystkiego...
nie rozumię tych funkcji podaj pozycje i index ! konkretnie =PODAJ.POZYCJĘ(N1;{dane!B:B;0)} wiadomo tyczy się n1 dalej dotyczy arkusza dane no i tu B:B;0 ! =PODAJ.POZYCJĘ(B4;dane!B:B;0) to samo =INDEKS(dane!C:AG;$B$3;WIERSZ()-5) tu zrozumiale do momentu WIERSZ()-5) problem jest w tym ze tam gdzie zmieniasz system zmianowy N1 chcę aby jednocześnie zaznaczało...
Dzięki wielkie za naprowadzenie lanzul ;) Function Totalcost(zakres As Variant, rate As Variant) As Double Dim i, j As Integer For i = 1 To zakres.Rows.Count j = 1 Totalcost = Totalcost + ((zakres.Cells(i, j) + zakres.Cells(i, j + zakres.Columns.Count - 1)) * 1.5) * rate.Cells(i, 1) For j = 1 To zakres.Columns.Count...
Widzę, że nie jest to kwestia pojedynczego błędu. Nie wiem z czego to wynika, ale kompletnie nie akceptujesz zasad języka. Nie można być tak upartym. W przypadku tej procedury do zmiennej Target przypisywany jest obiekt typu Range (zakres) ze wszystkimi własnościami. Range.Address jest identyczny z Selection arkusza w momencie uruchomienia procedury...
Jeszcze raz dzięki, co do nagłówka już sobie poradziłam (poniżej kod - dla zainteresowanych). Private Sub Dzielenie_Click() Dim wbBook As Workbook Dim wsSheet As Worksheet Dim rnStart As Range Dim rnData As Range Dim i As Long Application.ScreenUpdating = False On Error GoTo myErr Set wbBook = ThisWorkbook Set wsSheet = wbBook.Worksheets("Prowizja&quo...
poszczególnych konfiguracji w tabeli arkusza Excel z poziomu SolidWorks Nie wiem jak to wygląda w Solid Works, ale zakładam, że tam jest VBA i z jego poziomu łączysz się z Excelem przez referencje. Jeśli tak to chyba należało by pisać tak (Nie w Excelu!): [syntax=vb]Sub RunMakro() Call OpenExcel40(Empty) End Sub Private Sub OpenExcel40(DimCol) Dim...
Musisz jakoś wskazać z którego arkusza chcesz usunąć dane. Excel (makro) to nie jasnowidz. Albo ustawisz stałą nazwę abo jak radził kolega walek wykorzystasz indeks arkusza (lub jego nazwę w VBA) Czyli zastąp Sheets("1").Select Sheets(2).Select (ale wtedy arkusz z którego usuwamy musi być drugi w kolejności) lub Arkusz2.Select (Arkusz2 to nazwa obiektu...
Na podstawie samego kodu, to nie jest oczywiste. Powinnaś załączyć plik z tym kodem i napisać w którym dokładnie miejscu kodu występuje błąd. Poza tym kod jest trochę dziwny. Ile masz arkuszy o nazwie "aaaa"? Po co ta pętla? Czy pasek ScrollBar ma faktycznie numer 2?
Witam. W arkuszu mam utworzone makro do odznaczania pola wyboru Sub czyszczenie_komórek() Worksheets("wydatki").CheckBoxes.Value = False End Sub Problem pojawia się gdy chcę zmienić nazwę arkusza (lub wykonać jego kopię - co również powoduje zmianę nazwy). Wówczas makro przestaje działać, bo w kodzie makra jest odwołanie do nazwy arkusza, która przecież...
Spróbuj tak: 1. Wejdź w Narzędzia -> Makro -> Zarejestruj nowe makro 2. Nazwij makro, opcjonalnie wybierz klawisz skrótu, a z listy Przechowuj makro w: wybierz Skoroszyt makr osobistych 3. Nagraj makro lub po prostu zakończ rejestrację. 4. Zamknij plik. Kiedy zapyta o zapis zmian w arkuszu makr osobistych, zatwierdź zmiany. 5. Otwórz dowolny plik, wejdź...
Należy pamiętać, że znaki interpunkcyjne w formułę arkusza Excel
Załączam przykładowe rozwiązanie z użyciem makr. Raczej jako ciekawostkę. Koder ze mnie marny, ale działa jak chciałem. Plusy: - sprawdzanie poprawności nazwy pokoju - sprawdzanie, czy przydzielona liczba osób zmieści się w pokoju - można przydzielić dwa nazwiska do jednego pokoju - makro działa na dowolnej liczbie pokoi zdefiniowanej w arkuszu (max...
cześć prośba o pomoc mam zarejestrowane makro, uruchamia się w jednym arkuszu , prośba jest taka aby podpowiedzieć jak zmienić kod , żeby makro mogło uruchamiać się w innych arkuszach w pliku. [syntax=vbscript]Sub Makro1() ' ' Makro1 Makro ' ' Range("B8:U99").Select ActiveWorkbook.Worksheets("13_03_zm II").Sort.SortFields.Clear ActiveWorkbook.Worksheets("13_03_zm...
dodanie takiego makra jak poniżej, nie wyświetla mi napisu "hello" Popełniasz błędy: - wprowadzając "prywatne makro arkuszowe" do modułu uniwersalnego :cry: , jeśli to samo makro wkleisz do modułu arkusza "zamówienia" i dokonasz zmiany treści komórki - zamiast ujętej tam formuły wprowadzisz tam 1 - to uzyskasz Twój pożądany efekt - "hello" :D ; - nie...
Przy okacji trochę mi sie koncepcja zmieniła - gdybym musiał wykluczyć więcej niż jeden arkusz - to dałoby się? Można wykluczać arkusze, można też uwzględnić tylko te z listy... Wykluczanie generalnie można zrobić tak: - wykluczasz Arkusz1, Arkusz2 i Arkusz3, drukujesz pozostałe[syntax=vbscript]If ws.Name <> Arkusz1.Name And ws.Name <>...
Ach :) sorry, nie doczytałem... Wszystko jest OK, makro wklej do Thisworkbook (nie w kod arkusza). Myślałem, że chcesz by Excel "zapamiętał" zmianę położenia...
Był błąd - chyba go poprawiłem. Zmieniłem trochę całość - eksportowałem jako moduł bas - dołącz do swojego projektu i użyj. Również zamieszczam arkusz testowy z importowanym modułem. Użycie jest proste - zaznaczasz zakres komórek, na którym chcesz przeprowadzić zmiany i w menu Narzędzia -> Makro -> Makra uruchamiasz jedyne makro, jakie jest - zrób_gwiazdki....
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...
Wyraziłeś się precyzyjnie. Tylko, że tym razem piszesz coś innego.;) [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 16 Then r = Target.Row Dim n As Worksheet Set n = Sheets("Nieprawidlowosci") ow = Cells(Rows.Count, "A").End(xlUp).Row nw = n.Cells(Rows.Count, "B").End(xlUp).Row + 1 If nw < 4 Then nw = 4 If...
Sprawa jest trochę skomplikowana, bo hiperłącza w Excelu nie lubią sortowania, a sortowanie nie przesuwa odpowiednio hiperłączy. Do tego jeszcze funkcja HIPERŁĄCZE nie obsługuje tablic, tylko pojedyncze komórki. Być może jest to do zrobienia z wykorzystaniem funkcji LAMBDA, nie próbowałem, ale obawiam się, że mogłoby to być dość powolne rozwiązanie....
Propozycja rozwiązania w oparciu o makro. W module uniwersalnym wpisałem takie makro: [syntax=vbscript]Sub NowaData() On Error Resume Next Dim ark As String With ActiveSheet ark = .Range("BA22").Value .Range("BI21:BI25").FormulaLocal = "=SUMA.ILOCZYNÓW('[Wyniki tygodniowe.xlsx]T" & ark & "'!$H$2:$H$23;--('[Wyniki tygodniowe.xlsx]T" & ark & "'!$G$2:$G$23=$BH21))"...
żeby to magiczne makro działało z moimi danymi, byłoby super Na podstawie Twojego pliku utworzyłem jeszcze drugi podobny plik csv i przetestowałem z nimi import za pomocą załączonego pliku z makrami :D Po uruchomieniu makra zmiana_numerów (skrót ctrl+i ) - wszystkie numery kart uzyskują przedrostek CN - uzyskując w ten sposób cechy wartości tekstowej....
makro zmiana nazwy arkusza makro dodanie arkusza makro nazwa arkusza
wtyczka zasila laptop carminat kostka kolor kabel alarm
Lexus IS200 2002 gaśnie po uruchomieniu - immobilizer Niebezpieczeństwa podłączenia transformatora 500:11500 do zabawkowego 24V
