inputbox excel

Znaleziono około 209 wyników dla: inputbox excel
  • Wywołanie UserForm - i zablokowanie excela

    ...jak kliknę w Excel na pasku to pojawia się cały arkusz - czy nie da się zablokować tej możliwości ? Chodzi mi o to, aby nie można było pokazać arkusza. Najprościej zminimalizowany plik Excela ukryć. Rozszerz procedurę UserForm_Initialize o linijkę kodu wykorzystującą właściwość "Visible" [syntax=vb]Private Sub UserForm_Initialize() Application.WindowState...

    Programowanie Początkujący   10 Lis 2015 12:01 Odpowiedzi: 13    Wyświetleń: 18105
  • VBA excel: formatka blokuje arkusz

    Wygląda na to, że słabo sprecyzowałem mój problem. Chodzi mi o to,że w momencie, gdy wyświetlona jest formatka z textbox'ami to nie mogę przesunąć arkusz, aby wyszukać dane do wpisania w te textbox'y. Podobnie mam w innym makro. Uruchamiam makro, pojawia się inputbox z poleceniem wpisania danych z arkusza. Jeśli akurat jestem w innej części arkusz,...

    Programowanie Początkujący   08 Kwi 2011 17:22 Odpowiedzi: 5    Wyświetleń: 3788
  • EXCEL - Po kliknięciu na komórkę pojawia się wyskakująca tabelka - jak?

    Ciekawy pomysł :) Realizacja nie będzie raczej łatwa. Nie będę zanudzać formularzami użytkownika, więc od razu zapytam: A co z tymi nazwiskami po uzupełnieniu tabelki? Może skupić się na miejscu docelowym (InputBox, Split)?

    Programowanie   25 Lip 2012 11:45 Odpowiedzi: 4    Wyświetleń: 2359
  • Jak napisać makro wpisujące datę do komórki? VBA i Excel.

    [syntax=vbscript]Sub Data() ' ' Data Makro ' 10 myday = InputBox("Podaj dzień.") If myday <> "" Then If IsNumeric(myday) Then Selection.FormulaR1C1 = myday Else MsgBox "Nie podales dnia." GoTo 10 End If End If 20 mymonth = InputBox("Podaj miesiąc.") If myday <> "" Then If IsNumeric(mymonth) Then Selection.FormulaR1C1 = mymonth Else MsgBox...

    Programowanie Początkujący   16 Sty 2023 15:43 Odpowiedzi: 13    Wyświetleń: 342
  • nazwa arkusza w excellu - zmiana dowolnej nazwy arkusza w excelu

    Zmieniaj przy otwarciu (Workbook_Open) pliku. Jeśli nazwa "z głowy", to wykorzystaj InputBox.

    Programowanie Początkujący   09 Maj 2016 06:21 Odpowiedzi: 5    Wyświetleń: 2202
  • VBA - Excell: Mini program (Dodaj, szukaj, wyczyść..)

    Hej, kochani. Zwracam się o pomoc z makrami, które opiszę zaraz poniżej. Kilka dni temu postanowiłem zrobić sobie program, który nieco ułatwiłby mi pracę. Uczę się VBA od zera i o ile z początku fajnie łapałem i po kilku-kilkunastu próbach drobne problemy rozwiązywałem, tak teraz zaczęły się schody. Makra, w dalszym ciągu są banalnie proste, lecz zagmatwałem...

    Programowanie   21 Lut 2021 12:53 Odpowiedzi: 4    Wyświetleń: 351
  • Excel VBA - Wyłączenie chrony udostępnionego arkusza z poziomu VBA

    Kurcze, jeżeli chodzi o VBA to jestem zaczynającym samoukiem. Nie znam reguł stosowania wszystkich funkcji. Mogę prosić Cię o rzucenie okiem na mój kod i poradzenie w jaki sposób użyć Twojej funkcji? [syntax=vbscript] Private a As Integer 'zmienna globalna Private haslo As String Sub MsgBox_error1() 'wyświetla omunikat o błedzie MsgBox "Wypełnij wszystkie...

    Programowanie   22 Lut 2016 09:45 Odpowiedzi: 8    Wyświetleń: 6708
  • Excel- automatyczne kopiowanie większej zawartości pól

    Usiadłem (wreszcie) nad tym i tak sobie myślę: Jeśli pierwszy dzień miesiąca wypada w środę, to w systemie 5/1 dzień wolny ma brygada, która pracowała w ostatni czwartek poprzedniego miesiąca. Nie ma tu stałych, więc po czym w takim razie biedny Excel ma się orientować? Systemu 6/2 nawet nie próbuję analizować :) Należałoby mu jakoś (InputBox, wartość...

    Software serwis   30 Cze 2011 21:48 Odpowiedzi: 64    Wyświetleń: 13427
  • Automatyczny wydruk stron z dodaniem numeru - Excel.

    Witaj, Można napisać proste makro, które: - wczyta ilość stron do wydruku (z komórki poza drukowanym arkuszem, albo inputbox z klawiatury) - powtórzy się zadaną parametrem uzyskanym wcześniej ilość razy wykonując dokładnie dwie rzeczy - inkrementację numeru oraz szybki wydruk na domyślną drukarkę (bez zadawania pytań). Nie testowałem takiego rozwiązania,...

    Software serwis   04 Lip 2011 12:02 Odpowiedzi: 3    Wyświetleń: 2238
  • Arkusz kalkulacyjny excel na hasło

    W załączniku masz plik XLS z Excel-a 2003. Po zmianie arkusza, wyskakuje okienko do wprowadzenia hasła. Na wszystkie arkusze jest 12345. Po wpisaniu prawidłowego można pracować a arkuszem, po wpisaniu błędnego następuje przekierowanie na pierwszy arkusz, który może być arkuszem tytułowym z opisem obsługi całego dokumentu. Edytując kod VBA zajrzyj do...

    Software serwis   27 Lip 2011 22:00 Odpowiedzi: 14    Wyświetleń: 6515
  • Excel. wstawianie do komórek -

    Zamiast Range("A1") można użyć komórki zaznaczonej (Selection), a po wpisaniu danych przesunąć zaznaczenie np. Selection.Offset(1,0).Select. Jest to oczywiście tylko jedna z możliwości. Przykład załączony, ale trzeba go dopasować, ja użyłem funkcji InputBox, bo podany fragment kodu jest wyrwany z kontekstu.

    Software serwis   11 Lip 2013 12:56 Odpowiedzi: 1    Wyświetleń: 1065
  • Jak zrobić makro odnajdujące i wypisujące określone dane? Excel.

    ) chce porównac jak czesto pada dana kombinacja liczb Problem był nie tyle o Lotto, zarówno o tym, gdzie makro zobaczy dana kombinacja liczb. (InputBox, zakres komorek, czyli inne) Nie będzie to sztywno 6, 19, 3 , 22

    Software serwis   16 Mar 2015 10:07 Odpowiedzi: 8    Wyświetleń: 1116
  • Jak zrobić makro wrzucające tekst do pierwszej, wolnej komórki? VBA i Excel.

    Czyta wartość z InBox-a i wpisuje ją w pierwszą wolną komórkę w kol. A. [syntax=vbscript]Sub Test() Dim arkusz As Worksheet Set arkusz = ActiveSheet Dim wartosc As Variant wartosc = InputBox("Wprowadź wartość") For Each komorka In arkusz.Columns(1).Cells If IsEmpty(komorka) Then komorka.Select: Exit For Next komorka ActiveCell.Value = wartosc End Sub[/syntax]...

    Programowanie   23 Sie 2018 21:41 Odpowiedzi: 3    Wyświetleń: 402
  • Excel prosze o podpowiedź jak napisać program/funkcje

    Najprościej wykorzystać MsgBox i InputBox. Procedura wg schematu: If MsgBox("czy jest to kolejny protokól z serii", vbQuestion + vbYesNo) = vbYes Then Cells(wiersz, kolumna) = WorksheetFunction.Max(zakres) + 1 Else Range(zakres).Find(What:... podać Nr protokołu"), LookAt:=xlWhole).Select...

    Programowanie   10 Maj 2010 17:56 Odpowiedzi: 4    Wyświetleń: 3745
  • [Excel, Vba] Usuwanie całego wiersza.

    Jeśli jednocześnie to For ark = 1 To 2 With Sheets(ark) For i = .Cells(65536, "a").End(xlUp).Row To 2 Step -1 If .Cells(i, "a").Value = "" Then .Rows(i).Delete shift:=xlUp End If Next End With Next Jeśli uruchamiasz w pierwszym a usuwać ma w drugim to With Sheets(2) For...

    Programowanie Początkujący   28 Sie 2010 13:00 Odpowiedzi: 8    Wyświetleń: 22137
  • VBA EXCEL - Edycja txt, generuje dodatkową pustą linijke

    gdyż mam makro które tworzy mi CSV Napisałem na szybko takie coś: [syntax=vb] ''' <summary> ''' Zapisuje bierzący arkusz do pliku CSV ''' </summary> Sub SaveCSV() Dim R As Range Dim cmax As Integer Dim rmax As Integer Dim srow As String Dim fname As String cmax = Excel.ActiveSheet.UsedRange.Columns.Coun... rmax = Excel.ActiveSheet.UsedRange.Rows.Count.....

    Programowanie Początkujący   30 Gru 2012 12:52 Odpowiedzi: 3    Wyświetleń: 2703
  • VBA / EXCEL - Przenoszenie danych + tworzenie etykiet

    Witam, Szukam rozwiązania na tworzenie prostych wydruków w Excelu. W zakładce Arkusz1 jest lista komponentów które przyjmujemy na magazyn. Codziennie dochodzą nowe pozycje. Do każdej musimy wydrukować drobna "etykietę" (zakładka Etykiety2, szare pola) Etykieta to tylko 3 komórki z Arkusza1 - za każdym razem jest to zakres B2:D2 lub B3:D3 ; B4:D4 i itd...

    Programowanie Początkujący   07 Paź 2014 11:57 Odpowiedzi: 2    Wyświetleń: 1218
  • Excel - Excel 2013, blokowanie powtarzających się wartości.

    Podałem pomysł, a nie gotowe rozwiązanie, niemniej pasujący do obu. Jak *zlepić* komórki w jedno - zakałdając, że zaczynamy od pierwszego wiersza (oraz, że jakieś dane są już wpisane): dim max%, wiersz% max = Arkusz1.UsedRange.SpecialCells(xlCel... For wiersz=1 to max Arkusz2.Cells(wiersz,1)=Arkusz1....

    Software serwis   16 Wrz 2014 17:59 Odpowiedzi: 13    Wyświetleń: 4038
  • Excel-porównywanie liczb

    :arrow: marek003 Można wpleść coś takiego kol = Cells.Find(What:="Kod Wewnętrzny").Column i mamy numer kolumny w postaci liczby dla Cells :arrow: agentka83 Większość prostych makr "tworzymy" przez nagrywanie. Przykład: Musisz zamienić tekst A0012 na 0306 w kolumnie "F". 1. Włączasz rejestrator makr 2. Naciskasz Ctrl+H wypełniasz...

    Software serwis   17 Cze 2009 19:55 Odpowiedzi: 12    Wyświetleń: 5621
  • Excel data w kolejnym arkuszu w tej samej komórce

    Nie pisałeś wcześniej, że będziesz latał z datą po arkuszu jak "przedstawiciel mniejszości narodowej po pustym sklepie. Użyj drugiej procedury z mojego postu. Do uzupełnienia daty możesz wykorzystać którąkolwiek komórkę arkusza wpisując do niej to co jest w cudzysłowie. Można też wykorzystać InputBox. Tak na marginesie to pomysł z 31 lutym to chyba...

    Software serwis   14 Lut 2011 19:42 Odpowiedzi: 26    Wyświetleń: 3213
  • Excel-VBA - ComboBox-lista

    Na pierwszym arkuszu umieszczamy listę Combo. Żeby wyświetlić listę arkuszy można to zrobić w makro, które ładuje listę Combo przy otwarciu skoroszytu, w obsłudze zdarzenia Workbook_Open: [syntax=vb] Option Explicit Private Sub Workbook_Open() Dim iWiersz As Integer Dim ws As Worksheet iWiersz = 1 'Utwórz listę arkuszy w pierwszym arkuszu od drugiego...

    Programowanie Początkujący   06 Lis 2012 13:17 Odpowiedzi: 2    Wyświetleń: 3783
  • Excel VBA - Dane z plików *.BIN do arkusza

    Moje rozwiązanie wyglądałoby jakoś tak: W kodzie w miejscu debug.print masz dostępne już wartości buf (dwubajtowy bufor z zapisanymi danymi) oraz zmienne L1 i L2 skonwertowane do wartości heksadecymalnych z zerami wiodącymi.

    Obsługa oprogramowania   22 Paź 2019 07:33 Odpowiedzi: 7    Wyświetleń: 591
  • Excel - makro , zastosowanie do wielu arkuszy.

    Witam, mam problem. Na jednej ze stron znalazłem makro które działa w jednym arkuszu. Chciałbym je zastosować do kilku jednakowych arkuszy, nie mam doświadczenia z makrami i dlatego proszę o poradę jak to zrobić. Z góry dziękuje. Option Explicit Dim Zakres As Range Private Sub Workbook_Open() Call Ustal_zakres End Sub Private Sub Workbook_SheetChange(ByVal...

    Software serwis   14 Sty 2012 22:10 Odpowiedzi: 32    Wyświetleń: 8937
  • Excel-makro zmieniające dane znaki na polskie litery

    Może InputBox? Np tak przeróbka makra wyżej[syntax=vb](...) On Error Resume Next wrs = InputBox("Podaj Nr wiersza początkowego", "Proszę wpisać liczbę", 6) max = InputBox("Podaj Nr wiersza końcowego", "Proszę wpisać liczbę") On Error GoTo 0 If wrs < 2 Then Exit Sub If wrs > max Then max = Rows.Count Do While Cells(wrs, 4) <> "" And wrs <=...

    Software serwis   12 Lip 2012 17:35 Odpowiedzi: 18    Wyświetleń: 10629
  • Excel - VBA - wprowadzanie danych dodatkowym arkuszem

    tylko że nie mam pojęcia większego o VBA i nie wiem jak zrobić lub jakiego hasła poszukać dla wyboru lub dodawania arkusza pytanie czy makro z openoffica zadziała: Sub WstawNazwanyArkusz() Dim Nazwa As Variant Nazwa = InputBox("Wpisz nazwę dla nowego arkusza:", "Nazwa nowego arkusza") If Nazwa = "" Then GoTo brak Else Sheets.Add.Name = Nazwa Exit Sub...

    Software serwis   26 Lip 2014 08:33 Odpowiedzi: 7    Wyświetleń: 2373
  • VBA Excel - Transpozycja tabeli (macierzy)

    Cześć, mam na warsztacie ostatnio temat związany z transpozycją tabeli. W tabeli w załączniku potrzebuję przepisać wartości kolumn od 0-9 (stałe - w sensie ilość się nie zmieni, bo po osiągnięciu każdej 9 licznik przeskakuje o kolejny wiersz) przyporządkowane do serii wierszy, do układu dwóch kolumn, otrzymując w pierwszej kolumnie licznik z połączenia...

    Programowanie   15 Cze 2015 19:44 Odpowiedzi: 14    Wyświetleń: 2961
  • VBA Excel - Aktualizacja tabeli z pominieciem pustych pol

    Hej, Mam problem z excelem. Raz w miesiacu musze uzupelniac tabele ze szkoleniami jakie odbyli 200 osob 37 roznych szkolen. Dane dostaje w wersji Jan Kowalski szkolenia HR 20/01/2019 musze je przepisac do tabeli gdzie w kolumnie mam nazwe szkolen, a wiersze odpowiadaja danym pracownikom. Jestem w stanie do pustej tabeli przy pomocy formul przeniesc...

    Obsługa oprogramowania   13 Lut 2019 09:58 Odpowiedzi: 2    Wyświetleń: 420
  • VBA Excel - Aktualizacja tabeli z pominieciem pustych pol

    Hej, Mam problem z excelem. Raz w miesiacu musze uzupelniac tabele ze szkoleniami jakie odbyli pracownicy w danym miesiacu- 200 osob 37 roznych szkolen. Dane dostaje w wersji Jan Kowalski szkolenia HR 20/01/2019 musze je przepisac do tabeli gdzie w kolumnie mam nazwe szkolen, a wiersze odpowiadaja danym pracownikom. Jestem w stanie do pustej tabeli...

    Programowanie Początkujący   16 Lut 2019 06:45 Odpowiedzi: 1    Wyświetleń: 387
  • Excel Visual Basic - Zaawansowany Formularz

    UserForm1 Wartość/Szanse na powodzenie: W polu wartość wpisywana jest kwota - jak zrobić, żeby po wpisaniu liczby, automatycznie formatowałaby się ona 0000,00 ZL? W przypadku pola Szanse na powodzenie - liczba automatycznie formatowana do procentów. Komentarz: Czy można wprowadzić automatyczne zawijanie tekstu? UserForm3 Zakładka Inwestycje/Projekty...

    Programowanie Początkujący   10 Maj 2012 11:38 Odpowiedzi: 2    Wyświetleń: 1616
  • VBA/MAKRO/EXCELL - Wstawianie i usuwanie pustych wierszy w konkrentych miejscach

    Wygląda mi to na jakieś "kombinowanie" i, znając życie, nie będzie to działało tak, jak chcesz - bo zaistnieją jakieś warunki, których teraz nie przewidzisz, ale tak na szybko można próbować takim makrem, jak w załączniku. Cała "sztuka" to dodawanie / usuwanie wierszy od końca, żeby zakres się w pętli nie przesuwał. Usuwanie zakłada, że usuwasz wiersze,...

    Obsługa oprogramowania   27 Lut 2019 22:42 Odpowiedzi: 14    Wyświetleń: 1488
  • [makro] Excel drukowanie - potrzebuję pomocy

    Tak na szybko spróbuj : Sub Makro1() arkuszdane = InputBox("podaj nazwę arkusza z danymi") kol = CInt(InputBox("Podaj kolumne z danymi")) wier = CInt(InputBox("Podaj pierwszy wiersz z danymi")) ile = CInt(InputBox("Podaj ile jest wierszy z danymi"))...

    Programowanie Początkujący   10 Gru 2009 14:52 Odpowiedzi: 3    Wyświetleń: 5906
  • [Excel/VBA] Rentowność obligacji

    Witam. Czy ktoś mógłby mi wyjaśnić dlaczego poniższy program nie działa? [syntax=vb]Sub rentowność_obligacji() MsgBox "Program obliczający rentowność obligacji", vbOKOnly, "OBLIGACJE" a = InputBox("podaj wartość nominalną obligacji") b = InputBox("podaj żywotność obligacji w latach") c = InputBox("podaj wartość bieżącą obligacji") d = InputBox("podaj...

    Programowanie   06 Lut 2013 20:33 Odpowiedzi: 2    Wyświetleń: 924
  • VBA/Excell - filtr zaawansowany +msgbox

    Dzięki za pomoc. Mam teraz dwa nowe problemy/pytania: 1.Czy da się przerobić ten kod aby [syntax=vb]Private Sub CommandButton2_Click() Dim tekst As String tekst = InputBox("Nazwisko i imiê") Cells(19, 9) = tekst zerujszukaj szukaj1k szukaj1g szukaj1p szukaj1z End Sub[/syntax] aby: a) wyskakujące okienko msg box miało oprócz "Nazwisko i imię" dodatkowo...

    Programowanie   23 Maj 2014 18:53 Odpowiedzi: 8    Wyświetleń: 1779
  • Excel - kopiowanie wartości z komórki w zależności od daty w innej komórce

    Yogi (przypominasz mi dzieciństwo) ;). Nie pamiętam, czy był to 'Zwierzyniec', czy też 'Ekran z bratkiem'. Ale autor napisał: potrzebuję makro A do Autora. Może ten kod będzie wygodniejszy (jest bez obsługi błędów, sam się pobaw): [syntax=vb]Sub Przenies() Dim d As Date, p As Date, k As Date ow = Cells(Rows.Count, "B").End(xlUp).Row y = Sheets("Arkusz2").Cells(Rows.Count,...

    Software serwis   04 Lut 2015 16:11 Odpowiedzi: 13    Wyświetleń: 2202
  • Excell - Kopiowanie wierszy z jednego pliku do drugiego spelniajac warunki

    Piszę poniekąd w imieniu Autora i swoim. Okazało się, że na Windows 7 i Office 2007 kod: [syntax=vb] Sub ImportujRaporty() Dim pl As String Application.ScreenUpdating = False Application.DisplayAlerts = False iw = ActiveWorkbook.Name Dim Rap As Workbook, Out As Workbook pl = "C:\Wynik.xlsx" inf = MsgBox("Nowy miesiąc?", vbYesNo, "UWAGA") If inf = vbYes...

    Programowanie Początkujący   05 Maj 2015 16:44 Odpowiedzi: 19    Wyświetleń: 1248
  • Excel 2013 - Listbox wstawianie wartości z listy do komórki arkusza

    Dzięki Clubs, Zrobiłem coś takiego ' Pokazanie okna do wprowadzanaia wartości Range("A2").Value = InputBox("Podaj datę paragonu") Range("B2").Value = InputBox("Podaj kwotę paragonu") Range("C2").Select KategorieWydatków.Show Range("D2").Value = InputBox("Wybierz podkategorię paragonu") Range("E2").Value = InputBox("Uwagi") W odpowiednim miejscu wyskakuje...

    Programowanie Początkujący   16 Maj 2016 07:50 Odpowiedzi: 6    Wyświetleń: 2358
  • VBA Excell - wprowadzanie danych o prawidłowym typie

    Poszerzając jeszcze to, co napisał clubs w VBA istnieje zarówno funkcja InputBox, wywoływana wprost, ale również metoda InputBox wywoływana z prefixem Application. Służą właściwie do tego samego, ale ich działanie nieco się różni. Funkcja zwraca wynik zawsze w postaci tekstu i nie jest zlokalizowana (np. na przycisku jest Cancel po angielsku). Metoda...

    Obsługa oprogramowania   20 Lut 2020 10:11 Odpowiedzi: 5    Wyświetleń: 267
  • Excel/Word automatyczna numeracja wydruku

    To zastosuj zwykłe dodawanie. Na pierwszej stronie Np w E1 wpisujesz Nr gwarancji (lub robi to zał. makro), na drugiej Np w E54 =E1+1, na następnej =E54+1 itd. W drugim arkuszu zapisuj sobie tylko aktualny numer, żeby nie zginąć lub użyj Sub Druknij2() ileStr = InputBox("Ile stron drukować? ", "Pytanko...") If ileStr...

    Software serwis   27 Paź 2009 18:00 Odpowiedzi: 7    Wyświetleń: 14980
  • Problemy z wartościami Excel

    Do każdej komórki bieżącego arkusza masz dostęp przez Cells(wiersz, kolumna).Value gdzie wiersz jest liczbą w zakresie od 1 do 65536, kolumna to liczba od 1 do 255 (w arkuszu są to litery A, B,...,Z, dalej pary liter AA, itd di IV). Zatem komórka B5 to Cells(5,2) , a U5 to Cells(5,21). Jeśli chcesz pobierać dane z (wpisywać dane do) innego arkusza...

    Programowanie Początkujący   22 Gru 2009 21:45 Odpowiedzi: 9    Wyświetleń: 1803
  • Sortowanie w Microsft Excel

    Dodano po 20 Dodano po 1 A tak wygląda zoptymalizowany kod po zjedzonym obiadzie: ;) [syntax=vb]Sub Sortuj() Dim OstW As Long, s As String Sheets("Dane").Select OstW = Cells.SpecialCells(xlCellTypeLastCell).R... s = InputBox("Podaj wartość do sortowania:", "Sortuj wartość") Range(Cells(2, 1), Cells(OstW, 2)).Select ActiveSheet.Range(Cells(1, 1), Cells(OstW,...

    Software serwis   06 Gru 2012 16:16 Odpowiedzi: 6    Wyświetleń: 1173
  • Excel - Wykres przestawny i makro

    Z drugim zadaniem poradziłem sobie tak: [syntax=vb]Sub Data() ' ' Data Makro ' 10 myday = InputBox("Podaj dzień.") If myday <> "" Then If IsNumeric(myday) Then Selection.FormulaR1C1 = myday Else MsgBox "Nie podales dnia." GoTo 10 End If End If 20 mymonth = InputBox("Podaj miesiąc.") If myday <> "" Then If IsNumeric(mymonth) Then Selection.FormulaR1C1...

    Software serwis   31 Maj 2013 11:10 Odpowiedzi: 5    Wyświetleń: 1518
  • Excel - Wprowadzanie danych TYLKO I WYŁĄCZNIE za pośrednictwem listy rozwijanej

    Witam ponownie :) Międzyczasie, wpadłem na inne rozwiązanie. Porzuciłem listę rozwijaną i napisałem takiego oto makro: Sub Raportowanie_kompletacji() Dim Zlecenie As String, i, j As Long, Status As String, Komponent As String j = 0 'odblokowanie arkusza ActiveSheet.Unprotect Zlecenie = "" Do Zlecenie = InputBox("Podaj numer...

    Software serwis   05 Mar 2014 15:39 Odpowiedzi: 10    Wyświetleń: 5397
  • [VBA Excel] - Protect/Unprotect, a udostępnienie skoroszytu

    Witam, W momencie, gdy udostępniam skoroszyt excel innym użytkownikiem, przy wywołaniu makra mam poniższy błąd: Run-time error '1004': Metoda Unprotect z klasy Worksheet nie powiodla sie. Do wyboru przyciski End i Help.... Wie ktoś jak to ominąć? Dodatkowo: poniższy kod powstał tylko i wyłącznie, by użytkownicy mogli edytować daną kolumnę jedynie przez...

    Programowanie Początkujący   05 Mar 2014 19:16 Odpowiedzi: 1    Wyświetleń: 2193
  • VBA Makro - InputBox wstawiający tekst do aktualnie zaznaczonej komórki

    Cześć! :) Mam taki problem: Mam plik Excela z listą osób: Liczba porządkowa (kolumna B), imię i nazwisko (kolumna C), potem miesiące (od stycznia do grudnia) i suma w kolumnie P. Chciałbym zrobić makro, za pomocą którego wyskoczy mi InputBox, w którym będę mógł dopisać na końcu listy nową osobę. Ponadto chciałbym, aby obok nazwiska tej osoby pojawiała...

    Programowanie Początkujący   05 Gru 2018 15:45 Odpowiedzi: 1    Wyświetleń: 1308
  • [VBA Excel] - Filtr po zakresie ze zmiennymi

    Próbuje zrobić makro które po wprowadzeniu w inputbox dat od i dat do założy filtr na dane i zapisze go do PDF problem jest z filtrem. Po wprowadzeniu nie wyświetla żadnych danych mimo iż kryteria się wprowadzają, dopiero jak kliknę "ok". Dane się wyświetlają, poniżej kod: Dim data_Od As Date data_Od = InputBox("Podaj date od:") Dim data_do As Date...

    Obsługa oprogramowania   30 Sie 2019 21:18 Odpowiedzi: 1    Wyświetleń: 327
  • Pobieranie danych z Excela do 15000 wierszy poprzez VBA - kod i rozwiązanie

    Witam, mam plik Excela z ok 15000 wierszy. Znalazłem poniższy kod, ale pobiera mi tylko ok 10000. Poradzi ktoś coś? Dim wkbCrntWorkBook As Workbook Dim wkbSourceBook As Workbook Dim rngSourceRange As Range Dim rngDestination As Range Set wkbCrntWorkBook = ActiveWorkbook Sheets.Add After:=ActiveSheet Sheets(2).Name = "EXPORT" With Application.FileDialog(msoFileDialogOpen...

    Obsługa oprogramowania   03 Cze 2022 11:32 Odpowiedzi: 1    Wyświetleń: 162
  • Makro excel znajdywanie danych i zamiana

    To pewien "mankament" VB dla VB liczba z przecinkiem jest "ciągiem" a z kropką jest wartością. W związku z tym trzeba takie przecinki zamieniać "ręcznie" Poniżej kod [syntax=vb]Sub ChgInfo() Dim WS As Worksheet Dim Search, Search2, Replacement, Prompt, Title, Zakres As String Dim MatchCase As Boolean Dim Kom As Range Dim Stara, Nowa As Double Zakres...

    Software serwis   25 Sty 2012 12:28 Odpowiedzi: 25    Wyświetleń: 3552
  • Excel jak zrobić formułę lub odnośnik

    Może spróbuj przez podstawianie formuł. Makro przetestowałem na arkuszu "Zmiana N". Jeśli to jest to, to masz już z górki.[syntax=vb]Sub Proba() For j = 6 To 10 Step 2 zmF = InStr(Cells(3, j).Formula, "KW") zmF = Mid(Cells(3, j).Formula, zmF, 4) zmR = InputBox("W kolumnie " & j & " " & zmF & " zamienić na:", "podaj symbol") If zmR <>...

    Programowanie Początkujący   10 Kwi 2012 06:36 Odpowiedzi: 5    Wyświetleń: 5062
  • [VBA][Excel]Przesuwający się zakres komórek do wykresu

    (...) przesunięcia zakresu DataRangeOBAYield o 7 wierszy w prawo dla każdego z dwóch zakresów (...) Chodzi o wiersze w dół, czy kolumny w prawo? Można zastosować InputBox, gdzie wpisywane będzie przesunięcie: 0 - B1:H1,B31:H31 1 - o siedem wierszy/kolumn w z góry upatrzoną stronę itd, jeśli jest taka potrzeba Zmienną obiektową masz zadeklarowaną......

    Programowanie Początkujący   15 Sie 2012 12:36 Odpowiedzi: 2    Wyświetleń: 2432
  • Excel - Ekstrakcja Danych

    Okay, to moze innaczej. Moze ktos by mi pomogl tak przerobic ten skrypt, zeby szukal w okreslonej stalej lokalizacji i zawsze zwracal wartosci do okreslonej lokalizacji? Teraz wszystko trzeba manualnie okreslac. Dzieki. [syntax=vb]Sub ListUniqueValues() Dim SearchRng As Range Dim ResultRng As Range Dim Cel As Range Dim iRow As Long Set SearchRng = Application.InputBox("Select...

    Software serwis   05 Lis 2012 20:56 Odpowiedzi: 6    Wyświetleń: 1803
  • Excel 2010 - Makro -wypełnianie i drukowanie

    Jeśli nie miałeś do czynienia z formularzami, to najprościej zamknąć InputBox w pętli w Thisworkbook, przy zdarzeniu Open. Coś jak[syntax=vb]With Sheets("NazwaArkusza") For i = to 10 .Cells(i, 2)= Inputbox ("Wpisz wartość dla komórki B" & i) Next .activate End With[/syntax]Dograj sobie rejestratorem polecenie drukowania, lub po aktywowaniu arkusza naciśnij...

    Programowanie Początkujący   04 Gru 2012 10:17 Odpowiedzi: 5    Wyświetleń: 1671
  • Excel Makro pętla z kopiowanie -

    Spróbuj z InputBox'em: [syntax=vb]w = 14 ile = Int(InputBox("Ile?", "Wpisz liczbę całkowitą", 3)) If ile < 1 Then Exit Sub Application.ScreenUpdating = False Range("A16:V29").Copy For i = 1 To ile Range("A" & 16 + w).Select ActiveSheet.Paste w = w + w Next Application.CutCopyMode = False Application.ScreenUpdating = True[/syntax]

    Programowanie Początkujący   24 Lip 2013 08:13 Odpowiedzi: 2    Wyświetleń: 1353
  • VBA Excel - błąd w funkcji

    Witam, czy mógłby mi ktoś pomóc znaleźć błąd w tej funkcji? Sub zad16() Dim x As Single Dim y As Single Dim z As Single x = InputBox("Podaj swoją wagę w kilogramach") y = InputBox("Podaj swój wzrost w metrach") z = x / Sqr(y) If z > 0 And z < 20 Then MsgBox "Niedowaga" Else If 20 <= z And z < 24 Then MsgBox "Waga prawidłowa" _ Else If 25...

    Programowanie Początkujący   23 Maj 2014 19:41 Odpowiedzi: 6    Wyświetleń: 1236
  • [VBA] [Excel] - podział pliku

    Witam serdecznie, Potrzebuje napisać makro, które znacząco przyspieszy mi prace. Chodzi o to by dzieliło gotowy raport na części i każdą z nich zapisywało w oddzielnym pliku pod nazwą taką jak wartość w kolumnie. Dla ułatwienia (w celach poglądowych) stworzyłem mocno uproszczoną wersję tego raportu. Chodzi o to żebym mógł szybko podzielić ten raport...

    Programowanie Początkujący   30 Lip 2014 21:25 Odpowiedzi: 2    Wyświetleń: 2286
  • sql / excel - zmienna sql pobierana z tabeli

    Witajcie, Połączyłem sobie excela z sql. To mi troszkę pomogło w pracy natomiast przydałoby mi się jeszcze pobierać wartość zmiennej bezpośrednio z poziomu excela lub inputboxa. Wyczytałem, że cos takiego jest mozliwe ale nie wiem jak to zrobić by działało w moim przypadku. Dodano po 7 Najlepiej jak by dana była pobierana z komórki b1 akrusza1 (aktywnego...

    Programowanie Początkujący   26 Lis 2015 11:36 Odpowiedzi: 22    Wyświetleń: 2934
  • Excel vba -komórki z Alt+Enter - Rozbijanie komórek z Alt+Enter i odwrotnie

    makro działające w drugą stronę Wg tę samą wartość pola 'Pozycja' ? Zanim można sortować je? W tabeli zawsze 5 kolumn? Alt+Enter tylko w ostatnich trzech kolumnach? Dodano po 1 [syntax=vb]Sub Rozbijanie() Dim bs As Range, bd As Range Dim rs&, rd& rs = CLng(InputBox("Rozbij tabelu od wiersza Nr", "Rozbijanie", 4)) Set bs = ThisWorkbook.Sheets(1).Range("A:E").Cell...

    Programowanie Początkujący   19 Sie 2015 21:40 Odpowiedzi: 2    Wyświetleń: 1482
  • Polecenia do makra plus inputBox

    Ważne plik z Makrem trzeba zmienic format na xlsm. bo tutaj jest jakas blokada i nie pozwala dodac takiego pliku jako załącznik:( W makrze zagniezdzonym w pliku powinny kopowiac sie dane do arkusza o nazwie CSV, wedlug poniżych założeń, nie wiem czemu nie przekleja mi tych danych [syntax=vbscript]Sheets("Arkusz1").Selec... Columns("BV:CZ").Select Selection.Copy...

    Programowanie Początkujący   29 Wrz 2017 21:04 Odpowiedzi: 1    Wyświetleń: 651
  • Excel,VBA - zamiana wyszukanego tekstu i podmiana

    Nie próbujesz nawet realizować sugerowanych najprostszych rozwiązań :cunning: Wszyscy, którzy mają jakiekolwiek doświadczenie z VBA doskonale wiedzą co to znaczy nagrywania makra :D Chodzi o utworzenie samodzielne np takiego makra: [syntax=vbscript]Sub Makro1() ' ' Makro1 Makro ' ' Klawisz skrótu: Ctrl+s ' altStr = InputBox("Fraza do wymiany?", "Zamień...

    Programowanie Początkujący   16 Kwi 2018 10:51 Odpowiedzi: 9    Wyświetleń: 3630
  • Jak mozna zmienic/ulepszyc/poprawic ten kod excel vba

    Witajcie po raz kolejny potrzebuje waszej pomocy Szczerze mowiac to nawet nie za bardzo wiem jak opisac ten przypadek , ale sprobuje. W userform1 wpisuje kwote zakupu ktora jest przerzucana do userform11 jako label58 oraz textbox_punkty, nastepnie w TextBox_Klient wyszukuje klienta i po podwojnym kliknieciu dodaje punkty dla danej osoby w zaleznosci...

    Programowanie Początkujący   10 Mar 2018 17:41 Odpowiedzi: 0    Wyświetleń: 465
  • Excel - VBA - zmiana danych wpisanych po przecinku

    Cześć, na początku napiszę, ze dopiero zaczynam swoją przygodę z VBA więc byłabym wdzięczna za w miarę dokładne odpowiedzi. Mój problem polega na tym, że potrzebuję dla dużej ilości danych zastosować coś w rodzaju słownika. Przykładowo: w jednej kolumnie w kolejnych komórkach mam dane w języku angielskim: art art, history, real life story real life...

    Obsługa oprogramowania   20 Sie 2019 08:21 Odpowiedzi: 7    Wyświetleń: 414
  • Excel VBA Tworzenie wykresu z wypełnionych komórek

    A jak w takim razie zrobić to w tym makrze gdy moją pętla ma dodatkowo określony krok a ja chce żeby wykres obejmował każdy obszar zależnie od tego jakie t podamy? Możesz konstruować zakresy w różny sposób. Jeśli wykorzystujesz obiekt Range, to adres musi być tekstem, a tekst ten może być zbudowany z dowolnych kawałków połączonych operatorami łączenia...

    Programowanie Początkujący   09 Cze 2020 10:11 Odpowiedzi: 8    Wyświetleń: 846
  • Excel - Filtrowanie w excelu

    Owszem to filtrowanie danych ale w żadnym wypadku nie powinno być powiązane z auto-filtrem, tym bardziej jak masz excel 2003 i poniżej. Tu masz kod. Tłumaczyć? [syntax=vb]Sub Makro1() Dim ostWrs As Long, x As Long Dim tekst As String, szukane As String ostWrs = Range("B" & Rows.Count).End(xlUp).Row tekst = InputBox("Podaj szukany ciąg", "Podaj szukaną")...

    Software serwis   15 Mar 2013 18:01 Odpowiedzi: 5    Wyświetleń: 2055
  • Excel VBA - Excel - makro służące do blokowania wklejania/kopiowania

    Tak i to na kilka sposobów. Najprostsze, byłoby zadeklarowanie zmiennej globalnej typu Boolean, warunkowe uruchomianie procedury i makro z inputbox'em zmieniające stan zmiennej.

    Software serwis   20 Lis 2014 08:08 Odpowiedzi: 5    Wyświetleń: 4230
  • Excel - Wyszukiwarka danych w Excel

    [syntax=vb]Sub wyszuk() Set bs = ActiveSheet.UsedRange.Offset(1) slowo = InputBox("Slowo do wyszukiwania", "Szukaj") If slowo <> "" Then For Each r In bs.Rows r.Hidden = r.EntireRow.Find(slowo) Is Nothing Next End If End Sub [/syntax] P.S. Jurowska?

    Software serwis   27 Sty 2016 17:00 Odpowiedzi: 6    Wyświetleń: 864
  • VBA excel Pojawiający się i znikający CommandButton

    Z góry uprzedzam że jestem kompletnym laikiem w VBA – brakuje mi podstaw. W pracy miałam do czynienie z arkuszem obliczeniowym napisanym x lat temu w VBA w excelu który musiałam przystosować do zmieniających się przepisów i norm. Sprawiło mi to wiele frajdy, ale było to – najpierw delikatne grzebanie w cudzym kodzie, później pisanie na tej...

    Obsługa oprogramowania   19 Kwi 2020 11:52 Odpowiedzi: 12    Wyświetleń: 1056
  • Excel VBA pobieranie danych z innego pliku excel o zmiennej nazwie

    Sposobów na otwarcie pliku w VBA jest wiele. Można użyć: [syntax=vbnet]Pthnm = ActiveWorkbook.Path Workbooks.Open Pthnm & "\TMP.xlsx"[/syntax] a nazwę pliku podać przez InputBox lub pobrać z jakiejś komórki w arkuszu. Inny sposób to użycie FileDialog i wybranie pliku przy jego pomocy. Wybór należy do Ciebie.

    Programowanie Początkujący   24 Kwi 2022 22:09 Odpowiedzi: 11    Wyświetleń: 3324
  • Excel: Automatyczne wprowadzanie i sumowanie danych przy wyborze daty i wpisywaniu sztuk

    Witam, przychodzę z lekkim pytaniem. Zarys: - posiadam tabelę z danymi ( 5 kolumny ) - pierwsza z nich data( rozpisany cały miesiąc, dzień po dniu), druga - linia produkcyjna , trzecia - sztuki wszystkie sprawdzone, czwarta - sztuki zatwierdzone, piąta - sztuki odrzucone. - w każdej z kolumn istnieją dane. Pomysł: Czy istnieje szansa napisania kodu,...

    Programowanie Początkujący   03 Sie 2022 11:37 Odpowiedzi: 5    Wyświetleń: 285
  • Magicy od excela i VBA - wyzwanie

    1. Zmienne te muszą być liczbami, np. musi być: kol_pocz = 1 wiersz_pocz = 1 kol_fine = 27 ' (27 jest nr kolumny "AA") wiersz_fine = 100 2. "ZZ" - nie ma takiej kolumny (excel 97). 3. Makro to dla dużych zakresów będzie liczyło bardzo długo (musi przejść wszystkie komórki) 4. Należy usunąć wywołanie okien INPUTBOX i zmiennych z nim związanych (lub poprzedzić...

    Software serwis   12 Mar 2011 10:56 Odpowiedzi: 34    Wyświetleń: 7630
  • [Excel 2003 VBA] - proste zadanie...

    Witam! Mam wykonać takie coś: Wypełnić zaznaczony prostokątny zakres komórek arkusza liczbami losowymi z przedziału <100,1000>. Napisać makro, które nadaje zakresowi nazwę wprowadzaną przez użytkownika w oknie InputBox, oblicza sumę kwadratów liczb z tego zakresu i wyświetla wynik w oknie dialogowym MsgBox. Przypisać makro do obiektu w arkuszu....

    Programowanie   17 Kwi 2008 13:02 Odpowiedzi: 12    Wyświetleń: 7876
  • Excel - formatowanie warunkowe

    Ta linia ostwiersz = .UsedRange.Rows.Count liczy ile zajmujesz wypełnionych wierszy. W załączonym pliku post wyżej masz wstawione 3 puste wiersze nad nagłówkiem tabelki i stąd problemy. Makro wiersz Nr 50 "widzi" jako 47... Jeśli musisz je tam mieć to wpisz dowolny tekst w dowolną komórkę każdego wiersza i zmień czcionkę na białą (będzie niewidoczny)...

    Software serwis   01 Lip 2009 07:44 Odpowiedzi: 21    Wyświetleń: 6025
  • vb excel - program magazynowy pomoc

    Dodano po 4 Ad1 w nowym arkuszy kod poniżej działa!!! Private Sub CommandButton1_Click() Dim a a = InputBox("Podaj nazwę") For i = 1 To ThisWorkbook.Sheets.Count If Sheets(i).Name = "M-" & a Then MsgBox "Arkusz o takiej nazwie istnieje", vbOKOnly, "Zmień nazwę arkusza" Exit Sub End If...

    Software serwis   04 Mar 2014 10:41 Odpowiedzi: 116    Wyświetleń: 28001
  • [Excel] VBA makro - problem

    Sub Marko4() Dim Osoby As Object ostatniWiersz = Range("I1").End(xl... pierwszyWiersz = 2 nazwisko = InputBox ("Podaj nazwisko osoby do zliczenia punktów") For i = pierwszyWiersz To ostatniWiersz Set Osoby = Range("B" & I) For Each nazwisko In Osoby If IsNumeric(Range("I"...

    Programowanie Początkujący   28 Paź 2009 00:58 Odpowiedzi: 21    Wyświetleń: 11095
  • Excel skrypt symulujący losowanie multilotka.

    For i = 1 To 10 wybrane(i) = InputBox("Podaj liczbę nr " & i & " z przedziału 1 - 80", i) If wybrane(i) = i Then MsgBox ("Liczba została już wybrana, wybierz inną.") End If If wybrane(i) > 80 Then MsgBox ("Podana liczba jest za duża, podaj inną.") i = i - 1 ElseIf wybrane(i) < 1 Then MsgBox ("Podana liczba jest za mała, podaj inną.")...

    Software serwis   19 Sty 2010 19:21 Odpowiedzi: 10    Wyświetleń: 3659
  • [EXCEL][VBA] zmienna nazwa pliku

    Hmm. Ciekawe. To skorzystaj z inputa. np.: plik = InputBox("PODAJ ŚCIEŻKĘ DO PLIKU") lub tak jak chciałeś wcześniej z komórki.

    Programowanie Początkujący   13 Lut 2010 01:28 Odpowiedzi: 6    Wyświetleń: 10815
  • excel - kopiowanie wierszy i usuwanie diplikatów do arkusza

    Witam Czy ktoś miałby chwilkę i mógłby mi pomóc? (może być makro lub jeśli się da to funkcje z arkuszem pomocniczym). Mam problem z kopiowaniem wierszy i ich dublowaniem do gotowego arkusza. Mam skoroszyt, który zawiera 3 arkusze robocze: "Re_1", "Re_2" , "Re_3" oraz arkusz wynikowy "Wynik". Do "Re_1", "Re_2" , "Re_3" dopisywane są nowe wartości. Potrzebuje...

    Software serwis   08 Maj 2010 11:41 Odpowiedzi: 4    Wyświetleń: 5287
  • [VBA][Excel] Analiza zapisów partii szachowych

    Witam. Udało mi się stworzyć część analizującą dane. Na razie na pewno zawiera jeszcze dużo błędów. Roboczo dodałem pytanie o ilość analizowanych debiutów ponieważ strasznie długo to trwa. Analiza wszystkich pewnie potrwała by koło godziny. Proszę o dalsze sugestie, poprawki. Oto kod: Option Explicit Private Sub CommandButtonImportujPlik_Click()...

    Programowanie   14 Cze 2010 18:16 Odpowiedzi: 28    Wyświetleń: 5271
  • [VBA Excel] Jak wybrać zakres danych do makra?

    To jest to makro: Sub DataLabelsFromRange() Dim DLRange As Range Dim Cht As Chart Dim i As Integer, Pts As Integer ' Określenie wykres Set Cht = ActiveSheet.ChartObjects(1).Char... ' *********** Wyświetlenie pytania o zakres On Error Resume Next Set DLRange = Application.InputBox _ (prompt:="Zakres zawierający etykiety danych?",...

    Programowanie   09 Wrz 2010 07:56 Odpowiedzi: 12    Wyświetleń: 9792
  • Excel - pole wyboru i kilka możliwych odpowiedzi

    Najprościej byłoby użyć zwykłe InputBox. Bardziej "eleganckie" rozwiązanie z formularzem w załączniku.

    Programowanie   21 Sie 2010 20:39 Odpowiedzi: 9    Wyświetleń: 5391
  • Excel - działanie w zaznaczonym obszarze

    Najprościej zastosować Inputbox. x = InputBox("Podaj Nr wiersza", "Inputbox1") y = InputBox("Podaj Nr kolumny", "Inputbox2")

    Software serwis   16 Wrz 2010 09:21 Odpowiedzi: 9    Wyświetleń: 1872
  • VBA Excel - makro z zapytaniem do użytkownika

    Chciałbym żeby makro zapytało mnie Zależnie od tego w którym momencie masz do wyboru obsługę zdarzeń arkusza: Activate Change SelectionChange Nazwy mówią same za siebie :D najlepiej w formie wyskakującego okienka Tu najprostszym rozwiązaniem jest InputBox() W przypadku braku zakresu danych wybranego przez użytkownika, najlepiej żeby makro napisało...

    Programowanie   09 Lis 2010 20:58 Odpowiedzi: 6    Wyświetleń: 3064
  • Excel jak zablokować wiersz po wpisaniu danych.

    Czy można je blokować do edycji po wpisaniu danych lub odblokować jeżeli zajdzie taka potrzeba. Z tym pierwszym to żaden problem, wystarczy wykorzystać zdarzenie Worksheet_Change . Natomiast jak chcesz zrealizować odblokowanie? CheckBox w każdym wierszu? Trochę proszenie się o kłopoty. Chyba, że wszyscy solennie przyrzekną: "Nie będę usuwał wierszy"....

    Software serwis   10 Gru 2010 07:15 Odpowiedzi: 6    Wyświetleń: 6436
  • Excel - sumowanie cyfr. Jak obliczyć sumę cyfr w komórce?

    Jeżeli chodzi o sumowanie cyfr w liczbie to zostaje tylko makro, moge troszkę podpowiedzieć: Sub main() Dim c, x As Integer x = InputBox("") While x <> 0 c = c + x Mod 10 x = x \ 10 Wend MsgBox(c) End Sub

    Software serwis   13 Gru 2010 13:56 Odpowiedzi: 10    Wyświetleń: 19858
  • Funkcja VBA w Excelu nie działa przy przełączaniu arkuszy

    Mam jeden arkusz który ma działać przy uruchomieniu i następnie po uruchomieniu, wygląda to tak: 'to jest działanie po uruchomieniu Private Sub Worksheet_Change(ByVal Target As Range) Dim Symbole Application.EnableEvents = False With Target Symbole = UCase(.Value) Select Case Symbole Case "PS1" .Value = "Ps1" Case...

    Programowanie Początkujący   28 Sty 2011 17:50 Odpowiedzi: 4    Wyświetleń: 2746
  • Excel - odkrywanie kolumn tylko przez wybranych użytkowników

    Witam ponownie. Jak to zwykle bywa, plany sobie a życie sobie. Narobiłem się jak dziki osioł a pod koniec, gdy doszło do haseł, dowiedziałem się że oprócz naszej (nocnej zmiany) ten skoroszyt jest edytowany jeszcze przez rzeszę ludzi z dniówki. A w związku z tym zakładanie haseł na poszczególne osoby mija się z celem. Jako że dla nas najważniejsze jest...

    Programowanie Początkujący   01 Mar 2011 18:42 Odpowiedzi: 19    Wyświetleń: 13915
  • Excel, Makro - ścieżki do plików

    Rozdziel ścieżkę i nazwy plików. Argumentem metody Open jest string, więc możesz podstawić ze zmiennych. Np Workbooks.Open sciezka & "\" & plik Gdzie wartość dla "sciezka" pobierana jest z komórki, inputbox'a, browsera, etc.

    Programowanie   12 Sie 2011 14:02 Odpowiedzi: 7    Wyświetleń: 7985
  • Jak to zrobić - Vba Excel?

    Skleciłem taki kod. Sub wyszukaj() Dim tekst As String Dim dana As String Dim w As Integer Set ark1 = Sheets("dane") For i = w To ark1.Range("a65536").E... j = 1 Do While j < 2 On Error GoTo koniec Cells.Find(What:=w, After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart,...

    Programowanie Początkujący   31 Sie 2011 13:31 Odpowiedzi: 30    Wyświetleń: 5678
  • vba excel - kopiuj i drukuj

    Znalazłem i przerobiłem coś takiego: [syntax=vb] Sub Kopiuj_Do() a = Val(InputBox("Soort numer")) Cells.Select Selection.ClearContents y = 2 x = 1 Worksheets("Blad2").Cells(1, 1).Value = "Baan" Worksheets("Blad2").Cells(1, 2).Value = "Pos" Worksheets("Blad2").Cells(1, 3).Value = "Bcode" Worksheets("Blad2").Cells(1, 4).Value = "Artikel" Worksheets("Blad2").Cells(1,...

    Programowanie   29 Gru 2011 09:44 Odpowiedzi: 7    Wyświetleń: 2113
  • vba excel - kopiowanie do istniejacej listy

    Mam taki kod i teraz nie wiem jak mam go zmienić żeby kopiowało mi dane ale nie usuwało tych które już były wcześniej skopiowane. Kod ma dodawać już do istniejącej listy. Może mi ktoś pomoc? [syntax=vb] Sub Kopiuj() a = Val(InputBox("Soort numer")) Cells.Select Selection.ClearContents y = 2 x = 1 Application.ScreenUpdating = False Worksheets("Scanlijst22").Cells(1,...

    Programowanie   30 Gru 2011 07:30 Odpowiedzi: 4    Wyświetleń: 1237
  • VBA. Projekt wyszukiwanie z użyciem inputBoxów i MsgBoxów.

    Witam serdecznie. Od krótkiego czasu zajmuję się pracą z Excelem oraz VBA i mam do wykonania pewien projekt. Sęk w tym, że nie mam wystarczających umiejętności do wykonania go. Ogólnie moja praca polega na stworzeniu panelu startowego, w którym będą przyciski. Po ich naciśnięciu powinny pojawiać się MSGboxy, wybierające dane z tabeli (w moim przypadku...

    Programowanie Początkujący   17 Sty 2012 17:36 Odpowiedzi: 3    Wyświetleń: 1115
  • VBA EXCEL Filtrowanie na podstawie zakresu daty

    A w czym problem? Wpisz w inputbox wartość w odp. formacie i powinno być OK.

    Programowanie Początkujący   26 Lut 2012 17:05 Odpowiedzi: 4    Wyświetleń: 5928
  • EXCEL VBA - Kopiowanie danych ze starego pliku do nowo utworzonego

    1. Edit: Do otwarcia pliku za pomocą dialogu można użyć [syntax=vb]Plik = Application.GetOpenFilename(FileFilter, FilterIndex, Title, ButtonText, MultiSelect)[/syntax]

    Programowanie Początkujący   29 Lut 2012 09:08 Odpowiedzi: 7    Wyświetleń: 2672
  • Excel - Pobieranie danych z dwóch plików i porównanie zmian w %

    Witam, mam jeszcze jedno pytanie co do tego tematu. Otóż zmieniła się jedna rzecz. Mianowicie, Kolumna w plikach PlikA i PlikB okazuje się, że nie jest stała i ta sama. W każdym pliku i w każdym arkuszu kolumna, z której ilość powinna być pobierana jest inna, ale można ją rozróżnić po nagłówku. Nagłówek zawsze znajduje się w trzecim wierszu. I teraz...

    Software serwis   03 Lip 2012 07:34 Odpowiedzi: 6    Wyświetleń: 2800
  • [EXCEL][VBA] Makro wklejające seryjnie zdjęcia z textboxem

    Witam forumowiczów. Napotkałem pewien problem z makrem, które wkleja mi zdjęcia jedno po drugim, a następnie na wysokości każdego wklejonego zdjęcia umieszcza textbox'a z tytułem pliku. Już myślałem, że wszystko jest ok i nawet makro ruszało z folderu testowego i tu nagle zonk.. Nie bardzo wiem, czemu teraz nie chodzi. Komunikatów o błędzie nie mam...

    Programowanie   05 Lip 2012 14:06 Odpowiedzi: 2    Wyświetleń: 1698
  • Excel - Pierwsza komórka z wpisana wartością

    Obecnie przedstawię poczynione przeze mnie próby. Na marginesie - wydaje mi się , że marek033 oraz adams_nt są na urlopie (i to całkiem słusznie) W przedstawionej tabeli w komórkach znajdują się formuły (= = jeżeli( - co prawda komórki w tabeli mam puste (w których miesiącach nie wpłacono) - ale (uwaga), makro ich nie traktuje jako puste. Jedynie te...

    Software serwis   13 Sie 2012 19:16 Odpowiedzi: 10    Wyświetleń: 2075
  • Excel - makro kopiujące kolumnę z pominięciem pustch komórek do nowego pliku

    podłączę sie pod temat bo mam podobny roblem ;/ potrzebuje makro ktore kopiowaloby komorki z kolumny z bazowego pliku do nowego skoroszytu ale co ktoras komorke (przesuniecie 'r' docelowo podawane z inputbox'a) mam cos takiego: [syntax=vb]Sub zot() Dim wrs As Integer, r As Integer r = 10 Set newWkb = Workbooks.Add For Each kom In Range("A1:A10") If...

    Software serwis   22 Sie 2012 17:02 Odpowiedzi: 22    Wyświetleń: 10690
  • Excel - Wyszukiwanie pustych wartości w zbiorze

    W tym przypadku trzeba sprawdzać po kolei. String dla porównania należałoby składać z litery (A-Z, wg. potrzeb, lub z InputBox'ów) i liczby (1-999), wypełniając zerami do długości 4 znaków. Dwie zagnieżdżone pętle For i metoda Range(zakres).Find(argumenty) . Jeżeli wyszukiwanie zakończy się błędem (Err>0), mamy wolny...

    Software serwis   02 Wrz 2012 12:31 Odpowiedzi: 13    Wyświetleń: 4092
  • excel - Obliczanie ilości zmian z dat

    Proste rozwiązania są najlepsze :0 Dzięki wielkie Jak to już mam to znowu kolejny etap. Potrzebuje Rekord gdzie liczba zmian jest większa niż 1 skopiować na sam dół arkusza pod dane. Próbowałem sklecić jakiś kod ale mi nie wychodzi. Co jest nie tak? Sub Przycisk19_Kliknięcie() Dim emptyRow As Long Dim ile As Integer emptyRow = WorksheetFunction.CountA(Range(&...

    Programowanie Początkujący   08 Paź 2012 22:15 Odpowiedzi: 10    Wyświetleń: 1746
  • Excel vba - wyszukanie i kopiowanie wierszy do arkusza vba

    W takim przypadku potrzebne są dwie pętle. Pierwsza For dla wszystkich arkuszy, których nazwa <>"RAPORT", wewnętrzna Do While...Loop z licznikiem dla Nr wiersza i instrukcją porównująca zawartość komórki, Np: If Instr(Cells(wiersz, 5).text, szukany_fragment)>0 Then i tu kopiowanie. Szukaną można pobrać przez InputBox.

    Programowanie   12 Lis 2012 08:12 Odpowiedzi: 12    Wyświetleń: 8694
  • VBA Excel - Kopiowanie danych z innych plików do pliku zbiorczego-poprawa kodu

    Witam serdecznie Napisałem makro które kopiuje dane z wgranego pliku xls to arkusza zbiorczego. Jednak kod jest mało efektywny (kopiowanie trwa długo) oraz niekiedy nie kopiuje wszystkiego ;( Można jakoś poprawi kod aby działanie makra było szybsze? Z góry dzięki za pomoc [syntax=vb] Sub Wgrywanie_plików() Dim strPlik As String Dim Dane As Workbook...

    Programowanie   22 Sty 2013 09:22 Odpowiedzi: 13    Wyświetleń: 11115
  • [Visual Basic/Excel] Mnożenie zakresu liczb.

    [syntax=vb] Sub Generuj() Dim i As Integer Sheets("Liczby").Select Randomize For i = 1 To 4 Cells(2, i + 1) = Int(Rnd() * 30) + 15 'B2:E2 Next End Sub Sub CommandButton2_Click() Call Generuj Range("F20").FormulaLocal = "=SUMA(B2:E2)" Call Mnozenie MsgBox "Oto suma: " & Range("F20") End Sub Sub Mnozenie() Dim Mnoznik As Single, i As Integer Mnoznik =...

    Programowanie Początkujący   29 Sty 2013 04:57 Odpowiedzi: 1    Wyświetleń: 1854
  • Excel - kreator grafiku pracy

    hmm, nie za bardzo o to chodziło, ale dzięki za odpowiedz. zmiany pracują w systemie i rzadko dwa lata z rzędu wypadają tak samo :( ja zrobilem cos takiego lopatologia ale dziala czy ktos jest w stanie doradzic co do kodu? [syntax=vb]Option Explicit Sub dniowki() With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter End With With...

    Software serwis   04 Sty 2016 19:57 Odpowiedzi: 3    Wyświetleń: 14973
  • Excel VBa - jak sprawdzić podzielność?

    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...

    Programowanie Początkujący   10 Maj 2013 09:00 Odpowiedzi: 4    Wyświetleń: 5136
  • Excel - listy rozwijane, filtr -

    Przepraszam, ale co to jest? (zaznaczone na żółto) sprawdź to: [syntax=vb]Sub filtr_listy() szukana = InputBox("Wpisz ciąg znaków którego szukasz") Selection.AutoFilter Field:=1, Criteria1:="=*" & szukana & "*", Operator:=xlAnd End Sub[/syntax]

    Software serwis   24 Maj 2013 23:33 Odpowiedzi: 17    Wyświetleń: 7041
  • VBA MAKRO - Proste makro Excel

    Skoro ma być w VBA... Przykład z tablicą i... InputBox'em ;) [syntax=vb]Sub aver() tekst = InputBox("Wpisz liczby oddzielając średnikiem", "Obliczanie średniej") tekst = Replace(tekst, " ", "") 'wyrzucamy spacje tekst = Replace(tekst, ":", ";") 'mogło się komuś omsknąć tekst = Replace(tekst, ".", ",") 'to sie często zdarza tablica = Split(tekst, ";")...

    Programowanie Początkujący   30 Maj 2013 20:30 Odpowiedzi: 2    Wyświetleń: 2847
  • Excel - Sumowanie z wielu plików

    Najprościej: 1. Dołożyć pętlę z "gumką myszką" 2. Potraktować Offsetem z InputBox'a 2a. Jeśli zakres źródłowy jest ciągły, zamiast Array też można podstawić InputBox i w pkt.2 pytać o przesunięcie, a nie Nr kolumny (nie uwzględniłem w przykładzie) [syntax=vb]Sub Makro2() MyPath = "C:\magazyn\" myname = Dir(MyPath & "*.xls", vbNormal) rang = Array("A1",...

    Software serwis   10 Wrz 2015 07:56 Odpowiedzi: 18    Wyświetleń: 7857
  • VBA/Excel - makro - wstawianie obrazu przy wyborze nazwy pliku z listy

    ważne jest aby zdjęcia były wstawiane w wybrane komórki po kolei Tu masz przykład kodu wyjściowego który powinien Ci pomóc napisać to co chcesz: [syntax=vb] Sub imgInsert() Dim picpath As String picpath = InputBox("Podaj ścieżkę do pliku obrazka", "LOL") If picpath = "" Then Exit Sub With ActiveSheet.Pictures.Insert(picpath) With .ShapeRange .LockAspectRatio...

    Programowanie Początkujący   23 Wrz 2013 18:50 Odpowiedzi: 5    Wyświetleń: 11211
  • EXCEL VBA - sortowanie scalonych komórek

    Mniej efektywnie, za to prościej ;) [syntax=vb]Sub SortE() Dim wrsOst As Long Dim rw As Long Dim lista() As Variant Dim poz As Integer Dim i As Long, j As Long Dim ile As Integer Dim Temp As String Dim knyps As Integer wrsOst = Range("E1").End(xlDown).Row rw = wrsOst + 1 poz = 1 'zapisujemy do tablicy For i = 2 To wrsOst ReDim Preserve lista(poz) lista(poz)...

    Programowanie Początkujący   13 Wrz 2013 12:54 Odpowiedzi: 10    Wyświetleń: 6408
  • [Excel 2007] - makro do pobierania danych z innych plików *.xlsx

    Potrzebna byłaby formuła oparta o ADR.POŚR, ale tu znowu zbyt wiele niewiadomych. Jeśli makro, mogłoby być coś podobnego do[syntax=vb]Sub Wkb_From_SubDirs() Dim path1 As String, path2 As String Dim plik As String, tekst As String Dim i As Long, folder As Object, pfolder As Object 'jeśli ktoś wpisze byle co Err = 1 Do While Err <> 0 On Error Resume...

    Software serwis   11 Cze 2016 19:47 Odpowiedzi: 17    Wyświetleń: 14523
  • Excel - pobieranie danych z innych plików.

    Witam, przygotowuję makro, które kopiuje określone wiersze z wielu plików xls i zapisuje je do jednego arkusza tworząc swojego rodzaju bazę. Niestety nie jestem zbyt zaawansowana jeśli chodzi o VBA, wiec moja metoda jest dość chałupnicza:( najpierw podaję nazwę pliku Excel go otwiera ale problem polega na tym, że kopiując wartości z pliku źródłowego...

    Software serwis   06 Gru 2013 10:05 Odpowiedzi: 5    Wyświetleń: 5569
  • VBA Excel - Filtrowanie datą

    E2007PL, ustawienia systemowe "dd-mm-rrrr"> Trzeba podstawić datę w formacie US. Postać polecenia musi mieć formę (dla 1 do 2 listopada 2013)[syntax=text]ActiveSheet.ListObject... Field:=2, Criteria1:= _ ">=11/1/2013", Operator:=xlAnd, Criteria2:="<=11/2/2013"[/syntax]Nale... w InputBox wpisywać daty w takim formacie,...

    Programowanie Początkujący   10 Gru 2013 13:19 Odpowiedzi: 6    Wyświetleń: 4650
  • Excel VBA - kod w którym liczba pętli zależy od podanej przez użytkownika liczby

    W ostateczności (syntax wybierz: Visual Basic) [syntax=vb]For i = 0 To InputBox("wpisz liczbę")[/syntax] lub podstaw z komórki (po wymnożeniu *10, jeśli step 0.1)

    Software serwis   11 Gru 2013 07:14 Odpowiedzi: 4    Wyświetleń: 1305
  • zamiana liczby na slowo excel

    Potrzebuje programu na zmiane liczby na slowo w vba. Wiem zarowno w necie jak i u was na forum byly podobne watki z zamiana kwoty na slowo, ale chodzilo o to zeby nie bylo wlasnie tego zloty/grosz a dodatkowo ma byc to procedura a nie funkcja. Mam cos takiego jak ponizej. Kod dziala jednak jest tam pelno smieciowego kodu, ktorego nie umiem zmienic gdyz...

    Software serwis   17 Mar 2014 23:22 Odpowiedzi: 2    Wyświetleń: 1770
  • Makro - Dane z EXCELa do WORDa -

    Witam wszystkich forumowiczow, z gory przepraszam za brak poslkich znakow (zycie zmusilo do emigracji). Widzialem ze skutecznie pomogliscie juz wielu osobom w stworzeniu praktycznych i przede wszystkim poprawnie dzialajacych makr. Ja, jak kazda z tych osob rowniez z powodu swoich ogranicen w tej dziedzinie nie potrafie poradzic sobie z ulepszeniem mojego...

    Programowanie Początkujący   03 Sie 2018 13:46 Odpowiedzi: 30    Wyświetleń: 13689
  • Excel - Wyszukiwanie danych z ostatnich 3 dni

    Tak jak już napisał Maciej Gonet bez załącznika to trochę wróżenie z fusów, ale spróbuj dostosować do Twojego pliku taki kod: [syntax=vb]Sub TrzyOstatnieDni() Dim rRng As Range Dim lLstRw& Dim sData$ Dim dData As Date sData = InputBox("Podaj Datę w formacie dd/mm/rrrr):") sData = Format(sData, "dd/mm/yyyy") dData = CDate(sData) lLstRw = Cells(Rows.Count,...

    Software serwis   15 Mar 2014 20:32 Odpowiedzi: 5    Wyświetleń: 1032
  • VBA Auto-filtr w Excelu definiowany z UserForm

    Troche pozmienialam koncept i kod wyglada nastepujaco: [syntax=vb]Sub filt() Dim sh As Worksheet, init As String Set sh = ActiveSheet init = InputBox("Enter the initials to find.", "SEARCH CRITERIA") If init = "" Then MsgBox "Invalid Entry" Exit Sub End If sh.AutoFilterMode = False sh.Range("A5:DD100").AutoFilter 17, init End Sub[/syntax] Teraz moj...

    Programowanie Początkujący   24 Mar 2014 19:57 Odpowiedzi: 4    Wyświetleń: 2226
  • Wstawianie kolumny w określonym miejscu w excelu w kodzie vba

    Witam, mam pewien problem, którego samodzielenie nie potrafie rozwiązać. Mam w arkuszu excela w jednym wierszu, w poszczególnych komórach daty, które odpowiadaja poszczególnym datą reprezentujacycm soboty, niedziele i swieta w danym roku kalendarzowym. W te dni pracuje pewna grupa pracowników. Pod każda data zaznaczam, czy pracownik pracował, czy tez...

    Programowanie Początkujący   08 Paź 2015 17:45 Odpowiedzi: 14    Wyświetleń: 3180
  • makro - excel vba stworzenie makra

    Myślałam, że można to zapisać jakoś przy użyciu activecell, że gdy użytkownik zaznaczy dowolne dwie komórki to uzyska wynik, bez użycia inputbox.

    Programowanie Początkujący   18 Maj 2014 12:47 Odpowiedzi: 7    Wyświetleń: 1176
  • Excel VBA - Wstawienie Range() do Range()

    Sub NPV() ' ' ' stopa = InputBox("Podaj stopę.") Range("D2").Select ActiveCell.FormulaR1C1 = "=-R2C2+NPV(" & stopa & ", R2C3:RC3)" Range("D2").Select Selection.AutoFill Destination:=Range("D2:... Type:=xlFillDefault Range("C3").End(xl...

    Software serwis   02 Cze 2014 11:26 Odpowiedzi: 2    Wyświetleń: 1068
  • VBA EXCEL userform a msgbox -

    Panowie jeżeli to możliwe proszę o pomoc w podpięciu pętli do userform. Jeżeli w pętli używam msgboxa i przycisków TAK i NIE /TAK-szukaj dalej, NIE-przerwij szukanie/ to wszystko jest ok. Stworzony userform ma zastąpić msgboxa. Problem polega na tym, że nie wiem jak zatrzymać wyszukiwanie po uruchomieniu makra w którym jest pętla oraz z którego uruchamia...

    Programowanie Początkujący   03 Paź 2014 15:36 Odpowiedzi: 8    Wyświetleń: 2169
  • Excel kopiowanie z wyborem arkusza

    Możesz zobaczyć to z inputboxem: [syntax=vb]Sub Przycisk2_Kliknięcie() Dim plik As Variant Dim openFile As Workbook Dim Nazwa_Pliku As String Nazwa_Pliku = ActiveWorkbook.Name MsgBox Nazwa_Pliku plik = Application.GetOpenFilename( _ FileFilter:=",*.xl*", _ Title:=" Wczytaj plik z danymi") If plik = False Then Exit Sub Set openFile = Workbooks.Open(Filename:=plik)...

    Software serwis   19 Paź 2014 18:01 Odpowiedzi: 30    Wyświetleń: 2175
  • vba - Hiperłącze w vba excel

    Według mnie, a mogę się mylić, nieprawidłowo używasz argumentu. 'SubAdres' musi być String, nie może reprezentować obiektu. Pod adres podstawiasz:"C:\Documents and Settings\slawomir.kozak\Pulpit\gnom.xls" Pod SubAdres powinno być Np: "Arkusz1!A1" z InputBox'a (rng as String) rng = Application.InputBox(prompt:=&qu... komórke")...

    Programowanie Początkujący   19 Lis 2014 15:11 Odpowiedzi: 2    Wyświetleń: 1413
  • Excel VBA - wyszukiwanie wartości - makro

    Witam. Mam prośbę odnośnie stworzenia makro. W arkuszu "dane" potrzebuje wyszukać wartości powyżej 9 i poniżej -9 w kolumnie "cena". Tych kolumn "cena" jest kilka w arkuszu "dane". Gdy znajdzie takie wartości zaznaczy je kolorem na czerwono i wytnie cały wiersz i przeniesie na początek kolumny. Nie potrafię stworzyć makro z wyszukaniem takich wartości....

    Software serwis   28 Lis 2014 15:33 Odpowiedzi: 10    Wyświetleń: 2868
  • excel vba - makro vba lastRow

    Mam pewien problem z lastRow. Napisałem poniższe makro do przeszukiwania wszystkich arkuszy w celu znalezienia "szukanej". W każdym arkuszu makro szuka od wiersza 7 do lastRow. I tu mam problem taki, że jak w Sht 1 lastRow = 7 ,a w Sht 2 lastRow =2 i załączę makro w Sht 2 to makro przeszukuje mi także w Sht 1 tylko 2 wiersze. Rozumiem to, ale szukam...

    Programowanie   17 Gru 2014 09:29 Odpowiedzi: 1    Wyświetleń: 1062
  • [VBA/Excel] - Wyszukiwanie tekstu w arkuszu

    hmm... a nie było by łatwiej i przyjemniej (a napewno szybciej) gdyby użyć filtrów? [syntax=vb]Sub wyszukiwarka() Dim wartosc As String Dim zakres As Range wartosc = InputBox("Wpisz tytuł filmu, który chcesz wyszukać", "Wyszukiwarka filmów", "", 500, 500) Set zakres = Worksheets("filmy").Range("F4:F327") zakres.AutoFilter Field:=1, Criteria1:="=" &...

    Programowanie Początkujący   29 Gru 2014 05:25 Odpowiedzi: 13    Wyświetleń: 3063
  • Excel, makro - kopiowanie wielozakresowe

    Witam mam mały problem z makrem, a mianowicie chciałbym żeby to makro kopiowało tylko wartości komórek, a nie całe komórki nawet z ramką i kolorem czcionki, da się je jakoś przerobić.[syntax=vb]Option Explicit Sub CopyMultipleSelection() Dim SelAreas() As Range Dim PasteRange As Range Dim UpperLeft As Range Dim NumAreas As Integer, i As Integer Dim...

    Software serwis   02 Lut 2015 17:47 Odpowiedzi: 3    Wyświetleń: 828
  • VBA Excel, makro wyszukanie nr kolumny z określoną wartością

    Zrobiłem coś takiego i śmiga: Sub Wkleja_dane Dim akt_wiersz As Long Numer_prac = InputBox("Podaj numer karty") Windows("XXX.xlsx").Activate Sheets("XXX").Select Columns("A:A").Select Set cell = Selection.Find(What:=Numer_prac, After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False,...

    Software serwis   18 Mar 2015 11:12 Odpowiedzi: 2    Wyświetleń: 2478
  • Excel - Makro zapisujące plik pod określoną nazwą oraz z możliwością podania

    Witam, usiłuję przerobić makro zapisujące plik pod określoną nazwą na dwa inne makra, które: 1. zapisuje plik pod określoną z góry nazwą, 2. zapisuje plik pod predefiniowaną nazwą (część jest ustalona, resztę wprowadza się w wyskakujące okienko). Oto kod, który usiłuję przerobić: [syntax=vb] Sub zapisz_jako_cesja_0_5() Call zapisz_arkusz("nadstany_0,5-wydr")...

    Software serwis   09 Kwi 2015 20:39 Odpowiedzi: 6    Wyświetleń: 4548
  • VBA Excel - kopiowanie danych do innego arkusza

    Witam, początkująca jestem więc może dlatego nie mogę przejść wydawałoby się prostej sprawy z makrem. W arkuszu "plan" mam dane zaczynające się zawsze od dnia bieżącego. Chcę kopiować codziennie wskazany zakres do arkusza "konsolidacja danych" w zależności od daty. Wskazuję szukaną datę w "konsolidacji danych" przez InputBox od któej chcę zacząć kopiowanie...

    Programowanie Początkujący   26 Kwi 2017 22:31 Odpowiedzi: 8    Wyświetleń: 7332
  • [VBA Excel] - Makro do kopiowania ilościowych danych pod 2 warunkami

    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...

    Software serwis   18 Maj 2015 20:49 Odpowiedzi: 2    Wyświetleń: 963
  • Excel VBA - Makro kopiujące komórki z wybranego wiersza

    Witaj [syntax=vb]Sub kopije() r = Val(Trim(InputBox("Podaj numer wiersza do skopiowania"))) If r = 0 Then Exit Sub Sheets(1).Range("A" & r & ", B" & r & ",D" & r & ",G" & r).Copy Sheets(2).Range("A1") End Sub [/syntax]

    Software serwis   21 Maj 2015 09:26 Odpowiedzi: 2    Wyświetleń: 1656
  • Excel makro do kopiowania kilku zakladek do jednej

    A może chodzi o coś takiego: [syntax=vb] Option Explicit Sub Posklejaj_Klik() Dim i As Long Dim Wprowadzone As String Dim IloscArkuszy As Long Dim OstWierszArkusz1 As Long IloscArkuszy = ThisWorkbook.Sheets.Count Do While Not IsNumeric(Wprowadzone) Wprowadzone = InputBox("Wprowadź od którego arkusza chcesz sklejać dane", "Sklejanie", "2") Loop i = Wprowadzone...

    Software serwis   21 Maj 2015 11:39 Odpowiedzi: 2    Wyświetleń: 1041
  • VBA Excel - Kopiowanie wartości komórki do komentarza

    Witam, Potrzebuję funkcję w excelu, która kopiuje wartości z danego zakresu danych, a następnie tworzy komentarz w innej komórce i wkleja owe wartości do tej komórki. W internecie znalazłem taką funkcję: Sub CellToComment() Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set...

    Programowanie   27 Cze 2015 13:46 Odpowiedzi: 12    Wyświetleń: 2625
  • makro VBO EXCEL wyszukiwanie nazwisk w kolumnie

    Witam Mam takie makro. W kolumnie A w arkuszu są wpisane nazwiska . 1-Zadaniem makra jest wyszukanie wszystkich takich samych nazwisk i wyświetlenie ich . 2-jeśli jest pusty wiersz w kolumnie ; to ma przejść do następnego z nazwiskiem 3- jeśli są trzy kolejne puste komórki to makro ma się zakończyć Teraz makro szuka, ale zatrzymuje się jak jest puste...

    Software serwis   14 Lis 2015 15:08 Odpowiedzi: 5    Wyświetleń: 1710
  • [excel][vba] Kopiowanie wierszy jezeli okreslona wartosc

    [syntax=vbscript]Sub ZnajdzDodaj() Set a1 = Sheets("Arkusz1") Set a2 = Sheets("Arkusz2") a = InputBox("Znajdź :", "Szukanie") owa2 = a2.Cells(Rows.Count, "A").End(xlUp).Row If Application.CountIf(a2.Range("A1:A" & owa2), a) > 0 Then MsgBox a & " istnieje już w bazie." Exit Sub End If owa1 = a1.Cells(Rows.Count, "H").End(xlUp).Row For x = 1 To owa1 If...

    Programowanie Początkujący   06 Kwi 2023 10:25 Odpowiedzi: 14    Wyświetleń: 3597
  • Excel VBA makro - Scalanie plików

    Prace nad kodem makra posunęły się naprzód :D . W chwili obecnej jest już gotowe wpisywanie ścieżki dostępu i wpisywanie zakresu danych do kopiowania. Pozostaje jeszcze problem, że musze wpisywać zakres danych do kopiowania dla każdego pliku osobno (zakres danych do kopiowania mam taki sam we wszystkich plikach). Chciałbym aby raz podany zakres danych...

    Programowanie Początkujący   02 Maj 2016 13:24 Odpowiedzi: 7    Wyświetleń: 2427
  • Excel - Przycisk z wstawieniem komentarza

    Co prawda zrobiłem macro i wstawia ono komentarz ale to jest już "gotowy" komentarz z tekstem albo pusty, a chciałbym żeby po naciśnięciu przycisku można było wpisywać komentarz. Możesz też wykorzystać inputbox [syntax=vbnet]ActiveCell.AddComment ActiveCell.Comment.Text Text:="Bob:" & Chr(10) & Application.InputBox("podaj tekst", Type:=2)[/syntax]

    Software serwis   29 Wrz 2016 06:25 Odpowiedzi: 3    Wyświetleń: 606
  • Korespondencja seryjna z poziomu Excela

    Niestety nie mam programu Word 2007 lub nowszy, tylko Excel, zaskakująco ze Word dziala zastąpienie pliku bez żadnych pytan Dodano po 1 Sprobuj tak zamiast[syntax=vb]wd.ActiveDocument.Save... lokaliz & txtFullname & ".docx"[/syntax] zrob [syntax=vb]nazwa = lokaliz & txtFullname & ".docx" While Dir(nazwa) <> "" nazwa = InputBox("Plik...

    Programowanie   04 Kwi 2017 14:41 Odpowiedzi: 6    Wyświetleń: 1869
  • Excel VBA Przeszukiwanie kolumn X,Y za pomocą SUMA WARUNKÓW wtedy suma kolumny Z

    Pewien jesteś, że to chciałeś powiedzieć? SUMA w logice to alternatywa czyli słowo 'lub', a iloczyn to koniunkcja czy 'i' Do tej pory jest tak zrobione że jest wpisana formuła SUMA WARUNKÓW kolumn X i Y żeby były dodawane wszystkie liczby z kolumny Z jeżeli oba warunki są spełnione. Chciałbym to tylko mieć w VBA żeby nie zmieniać przy każdej nowej...

    Programowanie Początkujący   23 Lut 2018 11:57 Odpowiedzi: 3    Wyświetleń: 1665
  • [VBA Excel] Wyszukiwanie rekordu przy 2 zmiennych

    np: [syntax=vba]Option Explicit Sub bbb() Dim w As Long Sheets("Historia_ZLEC").Select On Error Resume Next w = Columns(4).Find(What:="kierowca", LookAt:=xlWhole).Row On Error GoTo 0 If w = 0 Then MsgBox "Nie znaleziono", vbOKOnly, "Uwaga": Exit Sub If Cells(w, 6).Value = "NIE" Then Range(Cells(w, 4), Cells(w, 6)).Select Else MsgBox "Nie znaleziono",...

    Programowanie Początkujący   06 Maj 2018 11:10 Odpowiedzi: 5    Wyświetleń: 1152
  • VBA - separacja liczb z InputBoxa

    Prawdopodobnie zaprzyjaźnisz się z funkcją split

    Programowanie   24 Wrz 2018 11:14 Odpowiedzi: 2    Wyświetleń: 333
  • Excel pomoc w utworzeniu makra - Makro kopiujące pewną komórkę i wklejające go w

    Temat do zamknięcia. Poradziłem sobie sam. Chodziło mi dokładnie o takie coś: Dodano po 2 [syntax=vbscript]Sub Makro1() ' ' Makro1 Makro ' ' Klawisz skrótu: Ctrl+d ' ile = Int(InputBox("Ile? ", "Wpisz liczbę całkowitą", 3)) If ile < 1 Then Exit Sub l = 1 Range("C4:D17").Copy ActiveCell.Range("A1").Select ActiveSheet.Paste For i = 1 To ile ActiveCell.Offset(0,...

    Software serwis   23 Paź 2018 11:32 Odpowiedzi: 4    Wyświetleń: 840
  • Excel - VBA prosty schemat magazynowy

    Ja bym zrobił tak, że po wpisaniu nazwy urządzenia wyskakuje okno gdzie podajsz ilość pobrania lub oddania. With Target If .Address(0, 0) = "E2" Then Application.EnableEvents = False ilosc = InputBox("Ile pobrano?") If .Value <> Empty Then On Error Resume Next wrs = Columns(1).Find(what:=.Value, lookat:=xlWhole).Row Err.Clear If wrs <> Empty...

    Obsługa oprogramowania   08 Gru 2018 09:13 Odpowiedzi: 19    Wyświetleń: 1701
  • Excel - powtarzanie kilku wierszy na każdej stronie

    Odświeżam temat, ponieważ ma podobny problem a nie potrafię należycie wykorzystać żadnego z zamieszczonych plików. Potrzebuję, aby tabela mogła rosnąć w nieskończoność, jednak po wydruku na dole każdej strony musi zostać 3 wiersze dla kontroli dokumentów. Znalazłem taki kod VBA, jednak po wybraniu wierszy, które mają się powtarzać nic się nie dzieje....

    Obsługa oprogramowania   08 Sty 2019 21:54 Odpowiedzi: 10    Wyświetleń: 5265
  • [Excel, VBA] kopiowanie danych z wielu plików do jednego zbiorczego

    Witajcie Potrzebuję pomocy przy napisaniu kodu VBA. Mam w folderze: "zestawienia" kilkanaście plików .xlsm i .xlsx. Wszystkie pliki mają po jednym arkuszu (różne nazwy), ale nagłówki i liczba kolumn jest taka sama (kolumn jest od A do N). W tym folderze mam też utworzony plik: 2017_zbiorczy.xlsm w którym chciałabym aby dane z pozostałych plików zostały...

    Programowanie   22 Mar 2019 08:27 Odpowiedzi: 4    Wyświetleń: 714
  • excel - lista + funkcja vlookup z możliwością edycji

    Ewentualnie można zastosować makro zdarzeniowe, np. takie: [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) Dim cel As Range If Intersect(Target, Range("C3:C15")) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub Set cel = Target.Offset(, 1) Select Case Target.Value Case "Inne", "Konto klienta" cel.Value = Application.InputBox("Podaj...

    Obsługa oprogramowania   26 Mar 2019 19:48 Odpowiedzi: 6    Wyświetleń: 645
  • Excel VBA Makro do kopiowania danych między plikami i tworzenie arkuszy

    Dziękuję za sugestie. Dodano po 16 Z kopiowaniem sobie poradziłam. Jednak mam problem z automatycznym stworzeniem arkuszy dla wszystkich osób z listy. Dla jednej osoby, pojedynczej aktywnej komórki wiem jak stworzyć. A czy jest możliwość stworzenia makra, które po kliknięciu przycisku stworzy automatycznie arkusze dla wszystkich osób (i nada nazwy takie...

    Obsługa oprogramowania   15 Maj 2019 05:27 Odpowiedzi: 4    Wyświetleń: 1215
  • EXCEL VBA wyszukanie tekstu z kopiowaniem

    [syntax=vbscript]Sub DoNotatnika() Dim B As Long A = InputBox("Znajdź: ", "Podaj") If IsNumeric(A) Then A = CLng(A) If A = "" Then Exit Sub On Error Resume Next B = Application.Match(A, Range("A1:A10"), 0) If B > 0 Then Plik = ActiveWorkbook.Path & "\Kopia.txt" Open Plik For Output As #1 Print #1, Cells(B, 1) Print #1, "Imię: " & Cells(B, "B") Print...

    Obsługa oprogramowania   09 Paź 2019 12:37 Odpowiedzi: 3    Wyświetleń: 777
  • Excel - zabezpieczenie poszczególnych arkuszy hasłem

    [syntax=vbscript]Private Sub Workbook_Open() For x = 2 To Sheets.Count Sheets(x).Visible = False Next a = InputBox("Podaj hasło:") For x = 2 To Sheets.Count If Sheets(x).Range("AA1") = a Then Sheets(x).Visible = True Next End Sub[/syntax]

    Obsługa oprogramowania   29 Sty 2022 13:29 Odpowiedzi: 15    Wyświetleń: 3858
  • EXCEL - VBA - Case, zmienna w nazwie pliku

    Witam, myślę nad uproszczeniem kodu, żeby nie powielać go kilkadziesiąt razy - mam dwie zmienne w nazwie: 1 _ ... Styczeń ... .xlsm. Proszę o pomoc, tak aby przy wyborze Case np. 2 - dane pobierały się z pliku: 2_ ... Luty ... .xlsm oraz analogicznie przy wyborzez Case: 12 - dane pobierały się z pliku: 12_ ... Grudzień ... .xlsm. Dziękuje za pomoc....

    Programowanie Początkujący   04 Gru 2019 02:00 Odpowiedzi: 8    Wyświetleń: 546
  • [ACCESS + EXCEL] Zapytanie do bazy

    ominąć jawne podanie hasła Da się, zwykły InputBox przed skonstruowaniem zmiennej połączenia, ale będzie widoczne, gdyż InputBox (w standardowym użyciu) nie maskuje wpisów lub własna formatka z polem tekstowym z nałożoną maskownicą.

    Programowanie Początkujący   31 Sty 2020 08:31 Odpowiedzi: 14    Wyświetleń: 585