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...
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...
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 Kategori... = InputBox("Wybierz podkategorię paragonu") Range("E2").Value...
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)....
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...
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... = InputBox("Podaj wartość do sortowania:", "Sortuj wartość") Range(Cells(2,...
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 ...
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 ...
Po mojemu powinno działać coś takiego (nie testowane)[syntax=vb]Sub Przycisk1_Kliknięcie() Dim path1 As String, path2 As String, plik As String Dim folder As Object, pfolder As Object Dim dta1 As Date, dta2 As Date, nazwaMin As String, nazwaMax As String Application.ScreenUpdating = False path2...
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ę....
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 ...
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 Zlecen...
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,...
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:...
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...
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....
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...
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 & "...
(...) 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...
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 ...
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...
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...
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...
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...
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...
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...
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...
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...
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...
...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...
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 ...
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...
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...
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...
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.
[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?
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...
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...
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ę...
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...
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() ...
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...
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...
Sub NPV() ' ' ' stopa = InputBox("Podaj stopę.") Range("D2").Select ActiveCell.FormulaR1C1 = "=-R2C2+NPV(" & stopa & ", R2C3:RC3)" Range("D2").Select Selection.AutoFill Destination:=Range("D2:...
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...
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,...
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 =...
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... lokaliz & txtFullname & ".docx"[/syntax] zrob [syntax=vb]nazwa = lokaliz & txtFullname...
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...
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...
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...
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ą.
A jaki sposób mogę "masowo" stworzyć chekboxa dla 1200 pozycji Możesz spróbować tak: zaznaczyć odpowiedni zakres w kolumnie dla checkboxów, a następnie uruchomić makro: [syntax=vbscript]Sub InsertCheckBoxes() Dim Rng As Range Dim WorkRng As Range Dim Ws As Worksheet On Error Resume Next xTitleId...
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...
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...
: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....
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...
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...
Sub Marko4() Dim Osoby As Object ostatniWiersz = Range("I1").End(xl... = 2 nazwisko = InputBox ("Podaj nazwisko osoby do zliczenia punktów") For i = pierwszyWiersz To ostatniWiersz Set Osoby = Range("B"...
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...
Hmm. Ciekawe. To skorzystaj z inputa. np.: plik = InputBox("PODAJ ŚCIEŻKĘ DO PLIKU") lub tak jak chciałeś wcześniej z komórki.
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...
p = InputBox("Podaj kapitał początkowy:") If IsNumeric(p) = False Then MsgBox "Zle dane" End If Nie wiem czy dobrze napisałem ale nie działa
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...
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 ...
Najprościej byłoby użyć zwykłe InputBox. Bardziej "eleganckie" rozwiązanie z formularzem w załączniku.
Najprościej zastosować Inputbox. x = InputBox("Podaj Nr wiersza", "Inputbox1") y = InputBox("Podaj Nr kolumny", "Inputbox2")
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...
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...
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
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...
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...
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...
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ę...
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.
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... = 1 Do While j < 2 On Error GoTo koniec Cells.Find(What:=w,...
Znalazłem i przerobiłem coś takiego: [syntax=vb] Sub Kopiuj_Do() a = Val(InputBox("Soort numer")) Cells.Select Selection.ClearC... = 2 x = 1 Worksheets("Blad2").Cells(1, 1).Value = "Baan" Worksheets("Blad2").Cells(1, 2).Value = "Pos" Worksheets("Blad2").Cells(1,...
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.ClearC... = 2 x...
Troche niejasno to opisałem Problem nie polega na formacie daty i samej konstrukcji inputbox'a. Nie wiem jak zapisać kod filtrowania po dacie, mając dwie zmienne data1 i data2 Chciałbym otrzymać taki sam efekt jak po rozwinięciu przysiku filtrowania w pierwszym wierszu i wyborze okreslonego zakresu ...
1. Edit: Do otwarcia pliku za pomocą dialogu można użyć [syntax=vb]Plik = Application.GetOpenFilename(FileFilter, FilterIndex, Title, ButtonText, MultiSelect)[/syntax]
Naciskając przycisk CANCEL chciałbym aby on nie wymazywał zapisu w Msg Box a jedynie opuszczał komórkę i nie przechodził do następnego Msg Box-a Niestety inputbox już taki jest że nie da się w nim "przechwycić" Cancel Po naciśnięciu Cancel "funkcja inputbox" zwraca pusty ciąg czyli "" Ostatecznie...
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...
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...
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...
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)?
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...
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...
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...
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...
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ą...
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...
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 ...
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...
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]
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,...
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...
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.
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...
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...
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...
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)
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...
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...
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,...
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...
Witaj Dim scieki, scieki_oczyszczone, scieki_nieoczyszczone As String - dziwne, dlaczego dane liczbowe przedstawiają jako tekst Makro sama nie mogę odgadnąć, w jakie komórki wprowadzona wartość. Należy określić, gdzie to zrobić. Można nadal używać pola wprowadzania WBA. [syntax=vb] scieki_oczyszczone=.....
Mam jeszcze jeden problem. Wasze podpowiedzi były super i dzieki, ale jak zrobic by po dodaniu juz kolumny w odpowiednim miejscu na podstawie podanej daty excel wstawiał w tej kolumnie w wierszu 2 formułę sumujaca dla tej kolumny wartosci od wiersza 4 do 3000. poniżej podaje pracujacy juz kod [syntax=vb]Private...
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 = ""...
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...
Z MsgBox można wybrać tylko Tak, Nie lub Anulować. Możliwość wprowadzenia jest w InputBox, ale trzeba wprowadzać ręcznie, możliwy błąd. Z RefEdìt można określić kursorem arkusza i komórki docelowej.
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"... SubAdres powinno być Np: "Arkusz1!A1" z InputBox'a (rng as String) rng = Application.InputBox(prompt:=&qu...
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...
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...
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 ...
Zrobiłem coś takiego i śmiga: Sub Wkleja_dane Dim akt_wiersz As Long Numer_prac = InputBox("Podaj numer karty") Windows("XXX.xlsx").Activ... Sheets("XXX").Select Columns("A:A... Set cell = Selection.Find(What:=Numer_prac, After:=ActiveCell, LookIn:=xlFormulas, _ ...
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...
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...
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...
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]
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) ...
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ć...
[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...
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()...
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...
Zmieniaj przy otwarciu (Workbook_Open) pliku. Jeśli nazwa "z głowy", to wykorzystaj InputBox.
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.Add... Text:="Bob:" & Chr(10)...
Witam. Męczę się już od dłuższego czasu nad tym zagadnieniem w VBA. Jeśli chodzi o formuły excel itd. mam wszystko zrobione. (Wrzucam do wglądu) Ale wolałbym aby to było zrobione za pomocą makro ze względu na to że codziennie przy nowym gatunku muszę ręcznie zmieniać formułę grubości z 2 na 3 lub...
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...
Witam Szybko ograniczymy inputboxa do samych liczb używając [syntax=vbscript]p1 = Application.InputBox("Liczba 1", , , , , , , 1) p2 = Application.InputBox("Liczba 2", , , , , , , 1)[/syntax]
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...
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 ...
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 ...
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...
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 ...
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...
[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...
[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]
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.
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:...
Witam Temat niestety oklepany - na swoje usprawiedliwienie powiem, że przeszukałam forum i usilnie staram się dopasować znalezione wskazówki i fragmenty makr do swoich potrzeb. W pewnym stopniu mi się udało, ale gdzieś jest błąd którego nie potrafię namierzyć. Zależy mi na tym, żeby wyszukiwana...
Rozwiązałem swój problem w nast. sposób: Sub drukowanieprawidlowe() ' ' drukowanieprawidlowe Makro ' ' Dim i As Integer i = InputBox("Numer wiersza") Workbooks.Open Filename:="C:\Users\Dominik\Desktop\Zesz... Application.Left = 1 Application.Top = 1 ...
Niestety wydaje mi się że przez to że ten tekst w tym momencie znajduje już się w wordzie. Może pokażę szerszy kontekst [syntax=vbscript]Sub Match() Dim SER As Variant SER = InputBox("Podaj nr") Dim wordDoc As Word.Document Dim wordSelection As Word.Selection ...
Dzień dobry mam problem z pętlą for. Mam poniższy kod: [syntax=vba]Sub m2() Dim s As Double t = InputBox("Podaj głębokość maksymalną [m]") Range("A2").Value = "Głębokość maksymalna:" Range("A2").EntireColumn.A... = t For s = 0 To t Step 0.2 Range("B6").Offset(0,1).Value =...
Poniżej kod, który działa i wyszukuje mi wiadomości, które w temacie mają wprowadzone przez użytkownika frazy. Dzięki licznikowi zwraca on tylko jednego maila, jeśli znajdzie już o owym temacie w skrzynce (a nie wszystkie, które znajdzie), aczkolwiek chciałbym, aby makro zwracało mi ostatni wysłany,...
W Twoim makrze w miejscu gdzie jest nazwa na sztywno zastosuj funkcję INPUTBOX. Wpisaną wartość (1 lub 2 lub 3 itd) wprowadzasz do nazwy pliku wg schematu" Folder_plików + stałay_przedrostek_nazwy + wprowadzana_wartość + ".xlsx" Jeśli chodzi o kopiowanie komórki to raczej nie pomogę bo ja stosuję...
Witam czy moge dolaczyc do watku, jak mozna zmienic komorki docelowe zeby byly w innym pliku i w roznych miejscach nie nastepujacych po sobie> dzieki za pomoc Witaj wielkie dzięki za pomoc. Działa dokładnie tak jak chciałem ;-) pozdrawiam Wydzieliłem jako nowy temat. Nie podpinaj...
Witam Szukam wszędzie i nie mogę znaleźć rozwiązania prostego problemu... Mianowicie za pomocą InputBox wpisuje jakiś numer i chciał bym wyszukać go w pierwszym skoroszycie (111) w kolumnie A Jeżeli znajdzie: to zwróci wartość tego samego wiersza z kolumny B przejdzie do skoroszytu...
Czy należy zmienić coś ...? No oczywiście zmienić :D , ale nie w tym miejscu, które wskazujesz :not: Można np tak (przykładowo dla przycisku 1): [syntax=vbscript]Sub e1() With Sheets("Dane1") Lr = .Cells(.Rows.Count, "A").End(xlUp).Row + 1 If Lr <= 20 Then .Cells(Lr,...
Chyba łatwiej zrobić dwuklik na wierszu, z którego chcesz kopiować. Równocześnie uruchamiasz makro i wskazujesz wiersz. Możesz też się upewnić, czy to właściwy wiersz. Oczywiście można też wstawić tam InputBox, tylko wtedy jak chcesz uruchamiać to makro? Jeśli chodzi o moją propozycję, to komórki docelowe...
[syntax=vbscript]Sub Zawiera() Sheets("Arkusz1").Select a = InputBox("Podaj tekst do szukania: ", "Wyszukaj") ow = Cells(Rows.Count, "A").End(xlUp).Row y = 1 For x = 1 To ow If InStr(1, Cells(x, 2), a) > 0 Then Range(Cells(x, 1), Cells(x, 2)).Copy Sheets("Arkusz2").Range("A" & y) ...
