Napisałam proste makro kopiujące zakres komórek z aktywnego arkusza do archiwum. Chciałabym, aby tabela z aktywnego arkusza po zapisaniu do archiwum automatycznie "się wyczyściła". Dodatkowym problemem jest również makro działające w arkuszu "BAZA" - zaznaczam tu dowolne pozycje w kolumnie K poprzez...
Nagraj makro i dostosuj do swoich potrzeb. Dzięki. Nie pomyślałem i rzeczywiście udało się. Będę tylko wdzięczny jak ktoś mi podpowie co należy dopisać jeżeli chcę np edytować komórkę w kolumnie C pod ostatnią wypełnioną komórką (w kolumnie są też puste komórki) Dodano po 1 Mam takie teraz...
Cześć, Chcę stworzyć makro, który sumuje dane w komórkach kolumny P i w momencie gdy suma przekroczy 20 otwiera nowy skoroszyt i wkleja do określonego arkusza zakres komórek A1:Sn+1 lub całe wiersze 1:n+1. Po czy sprawdza dalej, aż do ostatniej aktywnej komórki. Udało mi się stworzyć coś takiego,...
Chodzi o to, że w arkuszu "Rejestr" mam komórkę do której kopiuje się wartość z innego arkusza: Cells(Rows.Count, 3).End(xlUp).Offset(-NrR... + 1, -1).Select ActiveCell.Value = strNrZP I ten moment jest ok..., ale następnie chciałem aby od tej aktywnej komórki (która...
Witam:) Nie wiem czy to dobre miejsce na ten temat ale jakoś nie mogę połapać się na tym forum a tym bardziej założyć nowy temat Bardzo proszę o pomoc, mam zadanie tego typu chciałbym aby makro wyszukiwało mi zakres aktywnych komórek np (A1:A2) z przykładowymi wartości np 1,2,3,4,5...20 i chciałbym...
Dzień dobry, od dłuższego czasu szukam sposobu na zaznaczanie w Excelu wiersza i kolumny aktywnej komórki. Internet jest pełny rozwiązań wykorzystujących formatowanie warunkowe lub wprost kolorujących te wiersze i kolumny, znalazłem jednak leciwy już, ale fenomenalny w swojej istocie kod, który zamiast...
To znaczy, że coś nie zgadza się z założeniami. Prawdopodobnie nazwy plików. Zapuść takie makro (aktywny arkusz z przyciskiem) [syntax=vb]Sub sprawdz() sciezka = Range("G11") plik = Dir(sciezka & "*.xls") While plik <> "" licz = Len(plik) - Len(Replace(plik, " ", "")) If licz >...
Potrzebuję pomocy przy stworzeniu makra do kopiowania zakresu komórek z Arkusza1 do Arkusza 2. Wybieram np. komórkę Arkusz1:D7. Makro kopiuje komórki C7, D7,E7,F7,G7 i H7 i wkleja je do Arkusza2(C15, H15). Wybieram drugą komórkę np. Arkusz1:D25 i makro wkleja zaznaczony obszar do Arkusza2 w kolejny...
[syntax=vbscript]ActiveCell.Copy[/sy... możesz kopiować aktywnej komórki, bo ta znaleziona nie zostaje aktywowana. [syntax=vbscript]Sub Przycisk3_Click() Dim plik As Variant Dim i As Byte Set a = ThisWorkbook.Sheets(1) Application.Scre... = False plik = Application.GetOpenFilename(filefilter:=...
Witam Mam do uzupełnienia dość spory arkusz. Zazwyczaj chodzi o wpisanie wartości w dwóch komórkach, ale często sprawy się komplikują i muszę wstawić nowy wiersz, skopiować kilka potrzebnych komórek z wiersza powyżej (nie wszystkie), wprowadzić zmianę w jednej komórce i sformatować wiersz. Jako, że...
Cześć, Jestem początkujący w VBA, ale porwałem się, by przygotować skoroszyt obsługujący raporty kasowe i druk KP w szkole muzycznej. W załączonym pliku nie wiem jak napisać taki skrytp: W arkuszu "dane" wpisuję kwotę, którą za dany miesiąc wpłacił uczeń np. w komórce J8, i pozostawiam tę komórkę...
Nie mam zabardzo czasu na siedzenie nad tym problemem, ale w zamian podaję parę różnych przydatnych rozwiązań do tego programu. Myślę że sobie poradzisz, analizując pewne chwyty w VBA. Uwaga! podane przykłady nie są rozwiązaniem problemu, są tylko fragmentami mozliwymi w większej lub mniejszej części...
Trzeba zmienić sposób adresowania w makro z bezwzględnego na względny . A najlepiej związać z aktywną komórką i wtedy nawet nie trzeba go kopiować - jedno makro będzie obsługiwało wszystkie wiersze. :D
Dzień dobry, korzystam z kodu, który kopiuje mi wybrane komórki ze skoroszytu (o zmiennej nazwie) i konkretnego arkusza w tym skoroszycie (nazwa arkusza jest zawsze stała) do skoroszytu "zbiorczego" o stałej nazwie (w tym wypadku ZEST_ZAM.xlsx). W kodzie mam wpisaną "na sztywno" nazwę skoroszytu, z...
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...
Witam To jest makro wyszukane w jakiejś książce nie pamiętam. Tworzy nowe skoroszyty dla filtra z tabeli przestawnej. Zmień fragment aby tworzyło nowe arkusze Dodano po 6 Proponuję stronę helion.pl Tam do książek są przykłady na FTP. Skarbnica przykładów ;-)
W nich sa zapisane wartosciami 3 kolumny: A B C jak widac czescia wspolna jest: Kod: Workbooks.Open Filename:="D:\NIPY\STRONA\XLSX\a.xlsx" Selection.End(xlDown).Select ActiveCell.Offset(0, 1).Range("A1").Select Range(Selection, Selection.End(xlToRight)).Select ...
Może to dlatego, że w takiej formie jak to podałeś teraz, funkcja aktualizuje dane tylko z otwartego arkusza o takiej nazwie. Żeby aktualizować dane z arkusza umieszczonego w jakiejś konkretnej lokalizacji, powinieneś podać pełną ścieżkę do niego. Spróbuj przerobić kod w podobny sposób jak przykład poniżej...
Dobra poradziłem sobie z tym makrem hehe, a z tą aktywną komórką to nie wypał bo wywala mi makro jak chce wkleić: [syntax=vb] Sub Przycisk2_Kliknięcie() Dim plik As Variant Dim openFile As Workbook Dim Nazwa_Pliku As String Dim varInput As Variant Dim myChoice As Integer Application.ScreenUpdating...
Udało mi się nieznacznie poprawić kod. Wszystkie potrzebne dane po użyciu makra uzupełniają się w danym wierszu formularza ale dzieje się to w sposób niekontrolowany. Oznacza to że raz pobiera dane w sposób pożądany a raz nie pobiera wcale lub kopiuje dane w zupełnie inne miejsce. Może wynikać...
Witam, proszę o pomoc w następującym problemie. Mam pewne koncepcje na realizację ale dopiero chcę rozpocząć naukę VBA i nie potrafię jeszcze tego oprogramować. Widziałem rozwiązania, które wydają się podobne ale nie potrafię ich zaimplementować. Założenie: 1) Istnieją dwa zbiory/foldery plików...
Poradziłam sobie w taki sposób, ponieważ Wasze rozwiązania ciągle wywalały mi błędy:/ Sub CopySheet() ActiveSheet.Select ActiveSheet.copy Before:=ActiveSheet ActiveSheet.Select Range("G17:AA22").... Selection.ClearContents ...
Witam. Domyślam się że to co potrzebuję jest bardzo proste. Mianowicie potrzebuję pomocy żeby stworzyć przycisk dzięki któremu będę mógł kopiować wartości z jednego arkusza do aktywnego arkusza (w którym znajduje się przycisk) do konkretnej kolumny z tym żeby jak będzie kopiować do kolejnego pustego...
jak coś napiszesz to spróbuj przeczytać kod tak jak to robi makro Range("D6:H10").Select - zaznacz komórki D6:H10 Selection.Copy - skopiuj selekcję Sheets("X2").Select - zaznacz arkusz X2 ActiveSheet.Cells(6, 4).Select - w akrtwnym skoroszycie zaznacz D6 (ponieważ wyżej zaznaczyłeś arkusz...
Niestety nie. Chodzi o to aby po wykonaniu makra w komórce A1 (jako aktywnej) zostało TR a do B1 przeniosło lodówka .
Jak rozumiem, dane masz w arkuszu Wk (aktywnym) i chcesz je przekopiować do arkusza Ww (zestawienie)? Jeśli tak, po lewej stronie musi być odniesienie do arkusza, do którego kopiujesz dane (Ww), a po prawej - arkusza źródłowego (Wk). Dlatego też dziwię się, że piszesz że to zdziałało odwrotnie. Jeden...
Możesz zastosować takie makro: [syntax=vbscript]Sub Kopiowanie2() ' ' Kopiowanie2 Makro ' Dim lw As Long, i As Long, j As Long Sheets("Arkusz1").Activate '1 lw = Cells(Rows.Count, "A").End(xlUp).Row '2 j = 1 '3 For i = 2 To lw '4 Range("A" & i &...
1. Następnym razem rozpocznij nowy wątek. 2. jak już makro zadziała, to dane się kopiują Jakim cudem? Kolejność działań: 1. Open (po otwarciu skoroszyt jest aktywny) 2. Wybranie arkusza - Sheets().Select 3. Kopiowanie - Range().Copy 4. Wybranie skoroszytu docelowego - Workbooks().Activate 5....
Siema, Mam napisane makro vba, żeby kopiowało mi dane z komórki zawartej w aktywnym pliku excel do drugiego aktywnego. Pisałem to na dwa sposoby i za każdym razem wywala mi błąd. Poradźcie proszę. Będę wdzięczny za każdą pomoc! 1. Tutaj wywala błąd - Compile Error: Sub or Function not defined. Sub...
Kopiuje z pojedynczej komórki do zakresu scalonego który ma swoją nazwę. //wcześniej pomyliłem zmienne wksz,wksdo //status to nazwa scalonego zakresu //arkusz wksdo - jest aktywnym otwartym arkuszem fpath = ActiveWorkbook.Path fname = ActiveWorkbook.Name Workbooks.Open FileName:=fpath & "\Baza.xlsx" Set...
Moim skromnym zdaniem niepotrzebnie aktywujesz kolejne obiekty. -szukanie pierwsze pustej najlepiej zrealizować przez skok z ostatniej komórki kolumny: end(xlUp).row +1 (nagraj Ctrl+strzałka w górę). Szkoda czasu na pętlę. -arkusz można sortować odwołując się do nazwy/indeksu (nie musi być aktywny) Najwięcej...
Chcę zrobić coś takiego: jestem w wierszu powiedzmy 4 obojętnie w której kolumnie i chcę po naciśnięciu przycisku aby kopiowało mi zawartość komórki o adresie kolumna F i zaznaczony wiersz ( w tym przypadku F4) do innej komórki. Dodano po 13 Dodano po 2 Błąd jest w tym zapisie Dodano...
Hej wartości taka jak cena i wartość na tej PZ nie są potrzebne i nie muszą być drukowane. Te wartości dostawca zobaczy na fakturze wedle umowy podpisanej. Na PZ ma znaleźć się ilość netto z komórki E3. Sucha liczy się sama ale ona jest potrzebna jako dana w biurze a nie dla dostawcy także tylko ta...
Witam, Pierwsza sprawa - szybkość kodu... Ja stosuję dość uniwersalny trik z blokadą odświeżania zawartości na czas wykonania pętli, co znacznie przyspiesza szybkość działania każdego kodu. Przed pętlą wstawiasz: Application.Calculation = xlCalculationManual Application.ScreenU... = False ...
Cześć, przejrzałam podobne tematy do mojego problemu ale niestety nie potrafię tego odzwierciedlić w moim zadaniu. Chodzi o to że mam dwa pliki A i B. Plik A jest aktywny i w nim chcę żeby działało makro, które ma na celu: -otworzyć plik B Arkusz2 i wyszukać liczb które znajdują się w plikuA w...
'zdefiniowanie ostatniego wiersza w arkuszu "Inne" OstatniWiersz = Sheets("Inne").Range("D65535").End(xlUp)... właściwie Range D65535 definiuje mi maxymalny zasięg kolumny D ? , a 65535 jest to maxymalana ilość wierszy jaką potrafi "przetrawić" excel ? Range("A2:B5") - z tej podpowiedzi wnioskuję...
Serdecznie dziękuję! Teraz jest idealne! Ja co prawda sam wróciłem do kopiowania ostatnich trzech kolumn w ostatnim kodzie poprawionym przez Ciebie bo poległem przy zaokrągleniach , a tak było prościej. Nie mogłem też na razie dojść do tego jak zaznaczyć cały zakres nowo powstałej tabelki aby zrobić...
Witam, będę wdzięczny za pomoc w napisaniu formuł lub makra. W pliku wklejane będą dane do arkusza Total dla trzech zmian I zmiana 6:00-13:00 II zmiana 14:00-21:00 III zmiana 22:00-05:00 Teraz chodzi o to, aby dane z tego arkusza automatycznie kopiowało do poszczególnych arkuszy w zależności...
A ewentualnie taka opcja? W pliku A(o stałej nazwie) jest Makro, które: Otwiera wskazany(przez userform) plik B ze zeminną nazwą. W pliku B filtrowane są dane i kopiowane do pliku A(o stałej nazwie) do nowo utworzonej zakładki - do tej chwili wszystko mam. Teraz chciałbym aby makro przechodziło...
Moim zdaniem wychodzisz z błędnego założenia. Sugeruję kolejność: 1. Kliknięcie przycisku w arkuszu otwiera formularz (i nic więcej). 2. Wypełnienie formularza przez użytkownika. Koniecznie zablokuj kontynuowanie bez wypełnienia kluczowych pól. Po wypełnieniu formularza można pobrać wartości potrzebne...
Czy można zmodyfikować poniższe makro Pewnie można ... jak się komuś będzie "chciało chcieć" ... : ) ... ale wpierw parę uwag dla przyszłych twoich "modyfikacji": 1. xlOpenXMLWorkbook - podawałbym kody liczbowe (w tym przypadku jest to 51) zamiast nazwy stałych, będzie bezpieczniej jeśli plik...