Witam Poszukuje wsparcia w wyszukaniu, wyswietleniu i wybraniu arkusza z którego będę chciał skopiować dane do drugiego arkusza. Posiadam dwa skoroszyty. W pierwszym znajdują się dane w wielu arkuszach " około 25". Teraz w skoroszycie drugim po wybraniu opcji kopiuj chcę mieć możliwośc wybrania z którego arkusza ze skoroszytu pierwszego kopiuje ustalony...
Posiadam taki kod ... tworzy mi się nowy skoroszyt ... To i tak nieźle, że kod działa ... ale chyba tylko dlatego, że nie osiągnął, jak do tej pory, wartości maksymalnych: kodu nie da się czytać w tej formie To fakt ... forma wizualna przypomina raczej histogram postawiony na prawym boku - powinno być raczej coś takiego: (a i tak pewnie będą zastrzeżenia,...
No tutaj [syntax=vbnet] 'wprowadzenie dzisiejszej daty do komórki P2 Worksheets("licence").Cells(2, 16).Select ActiveCell.FormulaR1C1 = "=TODAY()"[/syntax] za pomocą metody select wybierasz komórkę w ukrytym arkuszu, ale żeby coś do komórki zapisać wcale nie musisz jej wybierać, wystarczy że napiszesz tak: [syntax=vbnet]Worksheets("licence").Cell...
Dopasuj sobie takie makro: [syntax=vbscript]Sub Przelicz() Dim cel As Range With Worksheets("Generator cen") For Each cel In Worksheets("310").Range("A2:A180") .Range("B3") = cel.Value cel.Offset(, 3) = .Range("B26").Value Next cel End With End Sub[/syntax] Po otwarciu załącznika zapisz go sobie w formacie .xlsm. Ja użyłem starego formatu .xls ze względu...
Witam! Chcialbym prosic o pomoc w napisaniu makra do przykladu z załącznika. Chodzi o to aby stworzyc przycisk w zakładce "dane" ktory bedzie zapisywal plik na pulpicie w formacie xls o nazwie z komórki "nazwisko" Chcialbym aby po zapisaniu pliku informacje wpisane do arkusza "dane" zostaly wyczyszczone i przeniesione do akrusza "dane2" ulozone w kolejnosci...
Witam, otóż mam plik *.xlsm zawierający około 10 arkuszy w których są formuły i makra. Po zakończeniu edycji tego pliku chcę go przekazać dalej, ale taki plik otwiera się bardzo długo i zajmuje dużo miejsca, a dodatkowo każde przeliczenie zajmuje kilka minut... Czy jest jakiś sposób aby zapisać same wartości bez formuł i makr? Pozdrawiam i z góry dzięki...
Ta wersja powiększa czcionkę w aktywnym arkuszu czyli Czyli powiększ - zapisz - powróć do poprzedniej. [syntax=vbscript]Sub PDFy() Application.ScreenUpdating = False Dim DatExample As Date Worksheets("baza zamówień").Range("C2").Value = Worksheets("baza zamówień").Range("R2").Value DatExample = Date s = "C:\PlikiPDF\DPFy\" With ActiveSheet .PageSetup.CenterHeader...
"C:\Users\dpie\Desktop\1\"& "\\192.168.0.108\PDF\" & Worksheets("Konfiguracja").Range("F14") & ".pdf - 192.168.0.108 - jest to folderz?
nie mogę załapać co jest tego przyczyną Autor tego kodu wprowadził specjalnie w procedurze "zapisz" funkcje UCase (), która zamienia wszystkie litery na duże :D np [syntax=vbscript].Range("B" & OstR) = UCase(Worksheets("Daneform").Range("b1")...
A co tak? [syntax=vb]Sub KopiaRobocza() Dim nazwa As String Dim path As String nazwa = Range("H19").Value path = "C:\" fileSaveName = path & nazwa & ".xlsx" ThisWorkbook.Worksheets("Kopia robocza").Copy ActiveWorkbook.SaveAs fileSaveName Application.OnKey "~", "SomeActions" ActiveWorkbook.Close End Sub [/syntax]
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...
Podczas startu aplikacji robisz: Worksheets("Arkusz1").Unprotect Password:="TwojeHasło" To umożliwia pracę w arkuszu. Podczas zamykania aplikacji robisz: Ws.Range("A1:Z250").Locked = True Ws.Protect Password:="TwojeHasło", UserInterfaceOnly:=True Sorki, wycinane z mojej aplikacji, stąd różne sposoby adresowania arkuszy, możesz to zapisać dowolnie, byle...
Kręcisz się w kółko. Zrozum, że w komórce nie zapiszesz danych jako VBComponent, Object, etc. W związku z tym nie uda Ci się ich pobrać i przekazać do funkcji w taki sposób. Możesz zapisać w tablicy nazwy obiektów, ale w odwołaniu musiałbyś używać jej indeksu w tablicy (liczby), nie nazwy. Metodę pobrania nazwy arkusza (Properties.Item) znając nazwę...
Strzelam :) Czyli przeszukujemy zakres (tu zapisany w tablicy) [syntax=vb]Dim XlApp As Object Dim Tablica() As Variant Dim WymZloz As Long On Error Resume Next Set XlApp = GetObject(, "Excel.Application") Tablica = XlApp.Worksheets(1).Range("C5:C30") For i = 0 To UBound(Tablica) If WymZloz = Tablica(i) Then knyps = True Exit For Next If knyps And WymZloz...
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...
Witam, Mam 3 arkusze, które chciałbym skopiować do nowego arkusza i go zapisać. Udało mi się stworzyć rozwiązanie, lecz arkusze nie przenoszą się tak jak bym chciał tz. formatowanie komórek (szerokość kolumn) nie jest identyczna jak oryginał. [syntax=vb] Dim nowyPlik As Workbook Set nowyPlik = Workbooks.Add With nowyPlik Do While .Worksheets.Count <...
Hej, potrzebuję pomocy w przekształceniu makra, tak aby dzieliło mi wskazane arkusze wg klucza i zapisywało wszystko do nowego skoroszytu. De facto mam: 5 arkuszy o nazwach :dane1, dane2, dane3, dane4, dane 5 oraz 4 arkusze o nazwach: arkusz1, arkusz 2, arkusz3, arkusz 4 Potrzebuję makra które podzieli mi 5 arkuszy [dane1 ... dane2] wg klucza z arkusza...
Dziwną drugą zmierzasz, jeśli bawisz się formantami ActiveX. Cały czas myśleliśmy, że jest to UserForm. Z ActiveX się nie bawiłem, więc nie pomogę. [syntax=vb] Private Sub TextBox1_Change() Dim MyCell As Range Dim MyRange As Range Dim DuplicateFound As Boolean DuplicateFound = False Set MyRange = Intersect(ThisWorkbook.Worksheets("4").R...
Przeanalizuj następujący Sub proba() 'intTemp1 = Worksheets("Arkusz1").... 1) 'pobierana z arkusza intTemp1 = 100 'wpisana z klawiatury 'intTemp2 = Worksheets("Arkusz1").... 1) intTemp2 = 300 intStep = (intTemp2 - intTemp1) / 10 'obliczenie kroku petli wiersz = 1 'nr pierwszego...
A próbowałaś to zwykłymi funkcjami zapisać?? Opis dość zawiły, ale wydaje mi się, że do tego makro nie jest potrzebne. Makro w każdym razie nie działa, bo zmienna x czy y nie są rozpoznawane jako część formuły. Wszędzie tam, gdzie mnożysz przez te zmienne, musisz "dokleić" ich wartość do formuły: [syntax=vb]Worksheets("Udzialy").Range("...
Hej Mam lekko zmodyfikowane makro, które pozwala mi specjalnie nazwać pliki w pierwszej kolumnie „xyz” która się potem kasuje z plików podzielonych więc może mieć plik inną nazwę niż zawartość docelowej 1-wszej kolumny, ale kurczę potem mam wąskie kolumny i muszę w każdy plik wchodzić i je poszerzać ręcznie do szerokości „zawartości” mimo, że w pliku...
Witam, Próbuję stworzyć makro, które będzie zrzucało plik excela do PDF. W zależności od opcji wybranej w ComboBox2 , plik powinien zmieniać nazwę w wydruku i jednocześnie pokazywać zmiany w kalkulacjach itd. ComboBox2 znajduje się w kilku arkuszach. Z założenia przy zmianie ComboBox2 na jednym arkuszu, wartość ComboBox2 na innych powinna się zmieniać....
Aha, rozumiem... W takim razie musimy ustalić min. i max. godzinę dla każdej "grupy". Poniżej "dopiski" do istniejącego kodu. Najpierw kolejny błąd który znalazłem :) Dla grupy B pomija jeden dzień z zapisu, brakuje +1 we 2 miejscach we fragmencie: dwóch miejscach dostawmy 1 linijkę kodu: [syntax=vb]'przepisanie typu informacji With .Cells(wiersz, 1)...
Hmmm... Kilka uwag na początek: Po pierwsze primo: jeżeli chcesz uniezależnić program od nazw arkuszy, wystarczy zamiast: kolejnym wierszu.
Bez makr, przy pomocy funkcji LOS oraz kilku kolumn pomocniczych, wychodzi jak na obrazkach. Ze względu na formuły tablicowe, przeliczanie trwa 2-3 sekundy: http://obrazki.elektroda.pl/6362680900_1... http://obrazki.elektroda.pl/4153628300_1... przemyśl jeszcze ;) Jeśli makro, to () sprawdzanie w pętli wartości...
Witam Ostatnio pojawił mi się problem z plikiem. Czasami zdarza się, ze Excel zaraz po otwarciu informuje ze "W skoroszycie istnieje zawartosc, ktora powoduje problem". Po kliknieciu tak Otrzymuje informacje o bledzie: <?xml version="1.0" encoding="UTF-8" standalone="true"?> -<recoveryLog xmlns="http://schemas.openxmlformats.org...
Poniżej "szybki" przykład z niewielkimi makrami dotyczący pobierania danych z pliku o zmiennej nazwie. Dodałem tez drugie makro do zapisu danych bez formuł (po zapisie wynikowy arkusz się zamyka (ten niewielki widok przełączania miedzy plikami można wyeliminować). Przed wyborem nazwy pliku sprawdź ścieżkę dostępu wpisaną w arkuszu2. Bo bedziesz musiał...
Dzień dobry, Proszę pomóżcie mi. Mam wersję testową MS Office 365 i zapisuję plik Excel w formacie Ms Excel 97-2003 a otrzymuję w ostateczności format MS Excel 97-2003 Worksheets...czego nie umie otwierać mój starszy Word w pracy;/ jak to zapisać, aby móc normalnie otworzyć plik w starszej wersji, bez zmian i go np. drukować, edytować? Z góry dzięki...
Witam, Napisałem proste makro, które to otwiera mi plik z SQL połączeniami. Po otwarciu odświeża mi połączenia i robi odpowiednie kalkulacje itd. Problem jest taki, że makro to robi mi kalkulacje szybciej niż system zapisze mi dane na odpowiedniej zakładce. Więc pytanie jest następujące - czy można (jak można) po odświeżeniu zakładki wstrzymać to makro...
Ostatnio zacząłem bawić się vba w excelu i niestety chwilowo utknąłem ;) mam dwa problemy: 1) Mam userforma w którego wpisywane są dane i po zatwierdzeniu przyciskiem "zapisz" wszystko trafia do odpowiedniego akrusza w excelu. ww. userform wywoływany jest przez przycisk na w innym arkuszu (commandButton) Private Sub cmbDodajDefekt_Click() DodajDefekt.Show...
Mam Makro, które pobierając dane z Arkusza zapisuje aktywny arkusz w lokalizacji określonej w komórce arkusza pod nazwą również pobieraną z komórki. Ograniczeniem jest to, że zapisywany jest aktywny arkusz. Co dopisać, aby do pdf były zapisywane arkusze, których nazwy również byłyby pobierane z komórki wskazanego arkusza? [syntax=vbscript]sub Export_to_pdf()...
Spróbuj w module ThisWorkbook wstawić procedurę: [syntax=vbscript] Private Sub Workbook_Open() With Worksheets("Nazwa_arkusza") .Protect Password:="Hasło", _ UserInterfaceOnly:=True .EnableOutlining = True End With End Sub [/syntax] W cudzysłowach wpisz odpowiednie wartości. Jeśli nie ma hasła, zostaw pusty cudzysłów. Zapisz plik, jako skoroszyt z obsługą...
Najlepiej przeznaczyć na to osobny, ukryty arkusz o nazwie np. "licznik". Instrukcja przypisania: Worksheets("licznik").Cells(4, 7).Value = LiczbaOdwiedzin Możesz sporo uprościć kod. Powinien zamknąć się w kilku linijkach, zaraz coś napiszemy...
Spróbuj tak. Wyłącz ochronę arkusza i zapisz skoroszyt. W module Ten_skorosozyt dodaj kod: [syntax=vbscript]Private Sub Workbook_Open() Me.Worksheets("Arkusz1").Protect UserInterfaceOnly:=True, Password:="" End Sub[/syntax] Podmień w kodzie właściwą nazwę arkusza i (opcjonalnie) dodaj hasło. Zamknij i uruchom ponownie skoroszyt. Makra się będą wykonywać,...
Jeśli to możliwe proszę o pomoc Potrzebuję zapisać do PDF ( po nazwie z komórki) wcześniej wydrukowany arkusz. Mam takie makro, ale coś tu brakuje Sub Drukuj_jezeli() Dim Arkusz As Worksheet For Each Arkusz In ThisWorkbook.Worksheets With Arkusz If .Name <> Sheets("Dane z zam").Name And .Name <> Sheets("Arkusz1").Name Then If Application.WorksheetFunction.CountIf(.R...
Dziekuję za zwrócenie uwagi na róznicę w zapisuwaniu nazw arkuszy. Odnosnie pkt 2 doszedłem do takiego etapu: Ad 2. Należy podać szukany tekst w cudzysłowie: "szukana_fraza" wyrzuca mi błąd 1004. Próbowałem także z opcją .Value, niestety bezskutecznie. Jak więc zamiast stałej komórki "A43" zapisać poszukiwanie komórki zawierającej określony tekst?
Tak to jest kontynuacja tematu. Wprowadziłem makro i nie działa tak jak ma działać ponieważ nie zapisuję wyników iteracji. Dodatkowo pojawia się błąd : Dodano po 11 Błąd był ostatni_wiersz = _ Worksheets("Arkusz2").UsedRange.SpecialC... <- tu błąd wystepuje - bez ukośnika dolnego Dodano po 6 Chciałbym żeby przeliczyło mi...
No i to cały kod: Private Sub ComboBox1_Change() End Sub Private Sub UserForm_Initialize() lista1 = Array("Oferta", "Zamówienie", "Specyfikacja", "Pismo", "Protokół", "Reklamacja") ComboBox1.List = lista1 lista2 = Array("mail", "osobiście", "faks", "DHL") ComboBox2.List = lista2 lista3 = Array("Daniel", "Łukasz C.", "Łukasz M.", "Sławek", "Wiesiek")...
Cześć, Mam w jednym pliku kilka arkuszy o różnych nazwach. Chcę wydrukować tylko te arkusze, które spełniają mój warunek, te arkusze które nie spełniają warunku mają zostać pominięte do drukowania. Na razie mam kod, który drukuje wszystkie arkusze do pdf, ale baza się rozrasta i nie chciałbym drukować wszystkiego. Jeden arkusz to jeden plik pdf. kod,...
Moze cos od poczatku zle robie? Plik z makrem jest kopiowany z komputera z danymi na komputer z nowym excelem i windowsem. Zmiany wprowadzam bezposrednio w dwa pliki xls i xlsm po zapisz jako (myslalem na poczatku ze moze to wina formatu pliku). Teraz po ruszeniu makra od poczatku wrocil blad 1004 [syntax=vb]Worksheets("Working").Select Range("a1:iv65536").ClearContents...
Witam, Mam makro, które kopiuje arkusz1 ze skoroszytu1 do skoroszytu2 jednocześnie zmieniając formuły na wartości. Problem w tym, że po przekopiowaniu, formuły na wartości zmieniane są w skoroszycie1 a nie w skoroszycie2. Kopiowanie arkusza1 uruchamiane jest przyciskiem przypisanym do tego makra znajdującego się na arkuszu1 w skoroszycie1. Jak również...
Można to zrobić np. za pomocą VBA. Napisałem funkcję UDF, która tworzy listę (tablicę) nazw miejscowości odczytanych z zakresów wg podanego schematu. Wywołanie funkcji: [syntax=text]=List3D(schemat adresu)[/syntax] schemat adresu zawiera nazwę arkusza ze znakami zastępczymi w postaci akceptowanej przez operator Like w VBA, to znaczy w tym przypadku:...
Witam! Mam problem z poprawnym działaniem mojego makra. Zadaniem makra jest skopiowanie zakresu danych z arkusza "faktura" do innego skoroszytu o nazwie rejestr2 arkusz "Rejestr". Kopiowane dane mają być wklejane do pierwszego wolnego wiersza. Poza tym trzeba sprawdzić czy faktura o danym numerze już istnieje w rejestrze. jeżeli istnieje to ma się wyświetlić...
witam, proszę o pomoc forumowiczów. Zapisałem na dysku sieciowym w FOLDER plik excel ( generator raportów)z makrem tworzący w tym samym FOLDER raporty w .pdf. Niestety makro nie działa i zatrzymuje sie na niewłaściwej lokalizacji. Ten sam plik umieszczony na dysku lokalnym działa. co jest nie tak? Z. Lokalizacja pliku \\A.B.C.D\NAZWA\FOLDER L4 - to...
Panowie, Nie rozwodząc się, poniższy kod powinien na podstawie źródła "a" ( sprawdzając kilka warunków w nim) stworzyć plik word, zapisać go jako pdf i wyświetlic gotowego maila z załączonym tym plikiem .pdf oraz innym załącznikiem. I tak do końca tabelki. Pierwszy mail generuje się poprawnie, druga pętla nie rusza. Wygląda jakby wzór "word" był nadal...
Ok, sprawdzę jutro, dzisiaj niestety nie mam możliwości zobaczenia, ponieważ na tym kompie mam jakiś Microsoft Works :( Ale jeszcze jedno pytanie, troszkę sobie chciałam zmodyfikować Twoje makro aby można było pobierać dane wejściowe z pliku zewnętrznego i utknęłam przy kopiowaniu określonego zakresu do nowo stworzonego arkusza, tzn. nagłówek, formatowanie...
Dzięki clubs dokładnie o to chodziło. Próbuje zrobić drugie bardzo podobne makro w którym po wyszukaniu komórek z dzisiejszą datą będą one się aktualizowały poprzez dodanie wartości liczbowej przedstawiającej dni w wierszu poniżej Chciałem to załatwić funkcją DATEADD ale nie mogę jej chyba w taki sposób zapisać jak poniżej [syntax=vbscript]Sub aktualizacjadaty()...
Jeśli to sam sporządziłeś ten kod makra i masz wolę go usprawnić - to proponuję nauczyć się przede wszystkim tzw debugowania skryptów - zakładka deweloper :arrow: makra :arrow: wkrocz :arrow: i dalej przez F8 krok po kroku analizujesz co robi (lub nie robi :D ) Twój skrypt (makro). po skopiowaniu danych plik źródłowy pozostaje otwarty a powinien się...
A gdzie ma być to makro zapisane? Tak jak miałeś zrobione, to wszystkie arkusze zostałyby przeniesione do nowych skoroszytów (bez makr), a ten skoroszyt źródłowy zniknąłby wraz z makrem, bo nie byłoby w nim arkuszy. Musisz mieć przynajmniej 1 arkusz (ja go nazwałem Ostatni), który zostanie w skoroszycie i wraz z nim makro. Ten skoroszyt możesz sobie...
Witam Wracam do tematu i proszę o pomoc w użyciu makra. Skorzystałem z makra zamieszczonego na stronie: Sub przeniesienie_arkusza() Dim Arkusz As Worksheet For Each Arkusz In ThisWorkbook.Worksheets Arkusz.Copy ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\MONTH CLOSING\FY2013\MAKRO&FILES\FY2013\P&L BY MONTH_values\FY2013\October...
Witam wszystkich forumowiczów. Jestem w trakcie budowy arkuszu do inwentaryzacji w Excelu z użyciem makra w VBA. Założenie : - na podstawie bazy danych (Arkusz 1), gdzie po zeskanowaniu kodu EAN (Arkusz3 komórka z użyciem makra do skanowania kodu, puste pole) wyskakuje materiał, nazwa długa i krótka oraz stan sztuk lub kg - po zeskanowaniu możemy dodać...
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...
zapisz arkusz zapisz okienko excel zapisz
naprawa grzałki zmywarki bosch dobre gniazdko smart kupię eprom
canon pixma mg5750 canon pixma mg5750
Whirlpool ADP606F/IX ECO – wyciek wody, uszczelki, węże, diagnostyka zmywarki Pitsos Vario 700 – pralka zatrzymuje się po kilku obrotach bębna, pobiera wodę
