Witam, mam napisane makro na kopiowanie całych arkuszy z jednego pliku do nowego. Wszystko mi działa i funkcjonuje poza jednym. W pewnym momencie wyskakuje mi informacja, że zasoby fizyczne do obliczeń są za małe i wyskakuje błąd. Spowodowane to jest tym, że z pliku głównego, gdzie są kopiowane...
Z VBA w Excelu mam do czynienia od niedawna i chciałbym prosić o pomoc z kodem jakim dysponuję. Powstał on poprzez rejestrację makra i skopiowanie pewnej części z sieci. Ta zarejestrowana część nie daje mi spokoju bo można to osiągnąć w bardziej uniwersalny sposób dla wszystkich arkuszy w pliku. Tak...
Witam serdecznie, Próbuje sie uporać z pewnym problemem i nie mogę sobie dać rady, dlatego że nigdy wcześniej nie miałem styczności z MaKRAMI w Excelu ani językiem VBA. Problem jest następujący: Tygodniowo generuje raport z maszyny. Raport ma 27 kolumn (liczba niezmienna) z czego intersują...
Witam serdecznie W excelu zrobiłem sobie formularz umowy, połączony z bazą osobową, rachunkami i oświadczeniami. Wisienką na torcie byłoby, gdyby jeszcze w osobnym arkuszu prowadził sie rejestr tych umów. Zrobiłem w VBA prostą formułę, żeby mi archiwizowało z poszczególnych komórek formularza dane,...
Dzień dobry Wszystkim, Chcę poprosic Was o pomoc. Chciałbym wysyłać maile z załącznikami (pojedyncze zakładki) oraz okresloną treścią z poziomu EXCELA na podstawie danych z tabeli przestawnej. Moja tabela wyglada mniej więcej tak: Po podwójnym kliknięciu na komórkę C6 Excel tworzy...
Witam, mam problem z programem napisanym w Excelu 2003, sprawa wygląda tak: mam jeden arkusz z danymi zaprojektowany w ten sposób że każda kolumna zawiera dane jednej grupy produktów w początkowych wierszach następnie jest jeden wiersz z typem danej grupy produktów a następnie znajdują się kody poszczególnych...
Cześć, mam problem.. mianowicie mam listę 80 comboboxów wg których użytkownik docelowo ma wybierać błędy, następnie za pomocą buttonów, obok ma wybrać zdjęcie ilustrujące dany problem. W poniższym kodzie z wykorzystaniem kształtów wyskakuje błąd, Nie widzi ścieżki zdjęcia : zdj = (wskazplik_metodaexcel)...
Witam, W pracy wyciągam raport w Excelu zawierający 35 kolumn (A-AI) i zmienną liczbę wierszy. Stworzyłam plik w Excelu do analizy tych danych, tak więc jedna zakładka zawiera wklejone dane a kilka innych tabele i wykresy przestawne zrobione na ich podstawie. Ponieważ nie wszystkie kolumny z raportu...
Na działających kilkunastu plikach od lat, w jednej chwili podczas aktualizacji wyskakuje ten sam błąd: Run-time error '3704': Operacja nie jest dopuszczalna gdy obiekt jest zamknięty.. cały system pobierania danych w jednej chwili padł. Proszę o pomoc, domyślam się, że może problem tkwi z sterownikami,...
Zapomnialem zaznaczyc ze jestem troche zielony.. Dodano po 24 Ohm, juz zamkniete, zrobilem, dziekuje. Wszedlem po prostu w makra, nagralem makro - edytowalem je w visual basicu i wkleilem kod do przycisku :)) wyglada on tak: ActiveCell.FormulaR1C1 = "=VLOOKUP(R23C12,Podsumowania!R3C1:R32C5...
Witam, Mam porblem z zamknięciem Excela po skopiowaniu danych z Accessa, niby wszystko jest w kodzie, ale proces "Excel" nie zamyka się po wykonaniu poniżeszgo kodu (gdy usunę fragment kodu pod "formatowanie" proces Excel się zamyka - ale jest on niezbędny): [syntax=text] Function eksport1() Dim...
Mam dwa zeszyty excel, jeden jest bazą z jakimiś danymi a drugi jest eksportowany z jakiegoś programu. Mój cel to skopiować z eksportowanego pliku dane do zeszytu z bazą. Z tym że eksportowany plik posiada komórki w których dane są udzielone enterem(może to nie chr10 ale makro tak wypisuje nie wiem)...
Witam serdecznie, Próbuję zrobić makro w excelu ale ciagle jakieś błędy. Oto moje poczynania: Sub BMIstudentki() ActiveCell.Offset(1, 0).Select m = 80 For p = 50 To m actrivecell.Value = p Selection.Interior.ColorIndex = 3 ActiveCell.Offset(1, 0).Select Next...
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 ...
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...
Rozwiązanie generowania wykresu, które spełnia moje wymogi, gdyż długość serii jest automatycznie pobierana bez określania zakresu [syntax=vbscript] Sub AutomatycznyGENERATORwykresow() If ActiveSheet.ChartObjects.Count >= 1 Then For i = ActiveSheet.ChartObjects.Count To 1 Step -1 ActiveSheet.ChartObjects(i).Delete ...
Cześć, potrzebuje napisać makro VBA w Excelu które: - będzie otwierać wszystkie pliki *.xlsx w katalogu w którym znajduje się uruchamiany plik skoroszytu (ew. będzie można wskazać kilkanaście plików w oknie wyboru) - z każdego pliku zostanie skopiowany zakres $$ i doklejony do arkusza "zaimportowane"...
Cześć, mam napisane makro do wgrywanie danych z pliku typu .csv. Wszystko mi się przegrywa tak jak chce (jeżeli rozchodzi się o miejsca) Jednak zauważyłem jeden problem - polskie znaki znikają, a format godziny np. 00:10 zamienia mi się na dane np. 0.3456. Czy ktoś może wie czemu tak się dzieje i...
Cześć, potrzebuję pomocy w napisaniu makra, które dzieli 1 zbiorczy excel z kilkoma arkuszami na wiele plików z takimi samymi arkuszami. Wprowadzam numer wiersza i kolumny po której ma dzielić pliki oraz lokalizację wejściową i docelową. Poniżej wklejam kod, działający dla pojedynczego arkusza,...
Potrzebne jest mi makro które będzie dzielić zawartość komórki wklejona z pliku *.txt na kolumny. Próbowałem przerobić na własne potrzeby makro znalezione w sieci jednak wyskakuje mi jakiś błąd i nie mogę nawet sprawdzić czy działa nie znam się kompletnie na Visual Basicu wiec nie zdziwię się jeśli wszystko...
Witam, tak jak napisałem w temacie piszę makro w celu umożliwienia sobie kopiowania warunkowo danych na przecięciu konkretnej kolumny z konkretnym wierszem, warunkiem jest to by na przecięciu wiersza i kolumny znajdowała się jakakolwiek wartość. Muszę tym samym sprawdzić wszystkie wiersze po kolei,...
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,...
Winna była spacja. Dzięki. Skupiałem się na sprawdzaniu nazwy pliku, sciezki a spacja mi się nie rzucała w oczy. Masakra ... Teraz mam coś takiego : Sub Makro3() ' ' Makro3 Makro ' ' Dim i As Integer For i = 1 To 10 ChDir "D:\wodociagi\dane z ankiet\zbiorcze" Workbooks.Open Filename:="D:\wodociagi\dane...
Witam. Proszę o poprawę stworzonego przeze mnie makra. [syntax=vb]Sub Macro1() ' usunięcie kolumn Columns("F:H").Select Selection.Delete Shift:=xlToLeft Columns("G:L").Select Selection.Delete Shift:=xlToLeft Sheets(1).Select Sheets(1).Name = "owssvr" '...
Witam. Szukam makra, do excela, które będzie przeszukiwało cały wiersz numer 1, w celu znalezienia wartości np.: MSISDN oraz KOD SPRZEDAWCY I kiedy znajdzie taki wpis - usunie całą kolumnę "MSISDN" oraz "KOD SPRZEDAWCY" wraz z wartościami i danymi, które znajdują się poniżej tej komórki. Dodam,...
witam dane sa generowane przez urządzenie na serwer w takiej postaci jak napisałem wyżej.Niestety nie mam możliwości ingerencji w sposób rejestracji tych danych. Nie ma problemu impotem wszystkich lub jednego pliku *.dat do excela - robię to identycznie jak z importem *.txt Import z folderu o zmiennej...
Sub makro1() ' ' makro1 Makro ' blokowanie komórek i ochrona arkusza' ' Klawisz skrótu: Ctrl+r ' Cells.Select Range("C3").Activate Selection.Locked = True Selection.FormulaHidden = False Range("C9:F13").Select Selection.Locked = False Selection.FormulaHidden =...
Poniżej cały kod. Kwoty, które schodzą się do 0 zawsze są 2. Chodzi o to, że w danym subtotalu nieraz jest więcej tych pozycji (które się "zerują") o takiej samej nazwie, ale różnej kwocie i wtedy nie wszystko zostaje usunięte i przekopiowane do innego arkusza. [syntax=vbscript]Sub Porzadkowanie2() Dim...
Witam. Stworzyłem takie o to prościutkie makro, które obrabia mi dane do porządanego efektu. Jednakże chciałbym dodać mu jeszcze jedną regułę. Mianowicie na samym końcu mam subtotala i chciałbym aby w kolumnie A w przypadku gdy jest w komórce tekst "AT0JD" i komórka po nią jest pusta to makro dawało...
Witam, łamię sobie głowę jak napisać makro, aby kopiowało mi kolejno komórki z jednego pliku do innego. Otóż w pliku Zeszyt1 mam kolumnę cyfr A1:A100. W pliku Zeszyt2 mam w komórce D1 formulę przykładowo =C1*100. Potrzebuję utworzyć takie makro, które pobierało by kolejno wartości z Zeszytu1 kolumny...
Witam Mam problem ze zrobieniem pętli dla poniższej procedury w Excelu: Sub Przycisk30_Kliknięcie() Rows("3:3").S... Selection.NumberFormat = "General" Range("A2").Select ActiveCell.FormulaR1C1 = "=Arkusz2!R W tej chwili zmieniam R[1] na R[2], R[3] .... R[500], i...
Witam wszystkich forumowiczów! Jestem absolutnie początkujący jeśli chodzi o programowanie w VBA w Excelu, a potrzebne mi jest makro, które (po jego aktywowaniu np. kombinacją klawiszy) wytnie jeden wiersz z jednego arkusza i wstawi go do drugiego, w pierwsze wolne miejsce. Skoroszyt będzie się składać...
[syntax=vb][/syntax] Sub Makro1() ' ' Makro1 Makro ' ' Klawisz skrótu: Ctrl+l ' Dim PT As PivotTable Dim PRange As Range Dim FinalRow As Long Dim FinalColumn As Long For Each PT In Arkusz1.PivotTables PT.TableRange2.Clear Next PT 'określenie zakresu danych tabeli wjściowej FinalRow...
Tak jak wspominałem zakresu danych nie mogę modyfikować w żaden sposób przez sortowanie itp. rozchodziło mi się mniej więcej o coś takiego /od razu chciałbym zaznaczyć jest to moje pierwsze zetknięcie z VBA i może być sporo błędów więc proszę o pomoc w dojściu jak poprawić to cudo które stworzyłem...
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 ...
Mam problem dotyczący excela. Piszę makro, które ma usprawnić przeszukiwanie dokumentu. Każdy wiersz to jeden rekord. W kolumnie F mam różne wpisy: książka, film, muzyka itp. Jeśli znajdzie w tej kolumnie wpis film to ma zaznaczyć z tego wiersza komórki A,B, E, ,H, I, J oraz Z(nie wszystkie informacje...
Sub NPV() ' ' ' stopa = InputBox("Podaj stopę.") Range("D2").Select ActiveCell.FormulaR1C1 = "=-R2C2+NPV(" & stopa & ", R2C3:RC3)" Range("D2").Select Selection.AutoFill Destination:=Range("D2:...
Cześć, nadal próbuję sił w VBA. Idzie jak krew z nosa. Tym razem potrzebuję odczytać wartość komórki lub sekwencji z ciągu znaków, która zaczyna się na konkretną cyfrę (znak) "7". Dla rozjaśnienia. Mam zestaw danych w pliku kod.txt, który zawiera zestawy: - złożone z kilku wierszy (ilość...
Chce zautomatyzowac process kopiowania zawartosci komorki do pola tekstowego (w tym samym akruszu i stronie), ale nie znam skladni VBA. Nagralem makro, i robi to co chce, ale jak zmienie zawartosc komorki A1, z ktorej ma kopiowac (tekst jest tam zmieniany dynamicznie), to on dalej kopiuje tekst na...
Jest to makro czyli program napisany w języku Visual Basic. [syntax=vbscript] Function kwota_slownie(kwota As Double) As String Dim do_konwersji As String, kwota_groszy As String Dim zlote As String, cala_kwota As String cala_kwota = Application.WorksheetFunction.Text(kwota...
Potrzebuje makro które będzie łączyć tekst z komórek w jedną ,z zachowaniem formatu w komórkach, a dokładnie pogrubienia tekstu . Mam tutaj działające makro ale strasznie obciąża komputer ,potrzebuje to zmodyfikować i zeby działało sprawnie dla 120 komórek Private Sub CommandButton61_Click() Application.Scr...
Mam tyle bez importu obrazka: Sub Przycisk1_Kliknięcie() ' import danych z pliku bazy Dim Filt As String Dim FilterIndex As Integer Dim Title As String Dim Filename As Variant Dim wb As Workbook ' Tworzenie listy filtrów plików Filt = "Pliki Excel 97-2000 (*.xls),*.xls,"...
takie coś wymysliłem że jeśli ktoś sobie założy filtry to potem skopiuje CRM do innego nowo powstałego arkusza i wtedy bedzie wklejac... ale jeszcze pętle bym potrzebował bo ja zrobilem sobie na A2 A3 A4 tylko tak zeby zboaczyc czy bd chodzic [syntax=vb]Sub drukuj() ' ' drukuj Makro ' '...
Niestety już nie mam, zginęło na przestrzeni lat, ale właściwie każde makro powstawało przez zapisanie czynności (opcja "zarejestruj nowe makro") a potem edycji i wstawiania . W excellu to naprawdę działa (przynajmniej do wersji 2003 ;) Właśnie to zrobiłem - prosta rejestracja - ostatnie linijki...
OK mam juz wyszukiwanie dla 2 pozycji teraz to tylko powielić żeby można było wykorzystać dla 10 pozycji, zmienić kopiowane obiekty i wrzucić w pętelkę :D [syntax=vb]Sub () Worksheets("Baza").Activate Works...
Proszę o pomoc w stworzeniu pętli w makrze, które będzie przekopiowywało komórki z Arkusz2 do Arkusz1 i zapisywało plik o nazwie B4 (jak w pliku) Wiem jak przekopiować komórki oraz zapisać plik w przypadku kiedy mam jeden wiersz w tabelce natomiast napotykam błąd przy stworzeniu warunków, w których...
Witam, mam makro dzielące dane po kolumnie A1 na pliki, a następnie zapisujące do nowego folderu wskazanego w kodzie. Chciałabym udoskonalić, owe makro o funkcję dzielenia danych jeszcze na arkusze w nowo utwiorzonych plikach po kolumnie A2 z dodaniem nagłówka. Poniżej kod: Private Sub Podziel_Click() ...
Witam ponownie Dzisiaj proszę o pomoc w zwiazku z tematem, który czesciowo rozwiazalem. Mam kilkanascie plikow o nazwie: litera alfabetu.xlxs, czyli: a.xlxs, b.xlxs, ... W nich sa zapisane wartosciami 3 kolumny: A B C Z tych kolumn potrzebuje skopiowac kolumny B i C (jedno pod drugim)do nowego...
w excelu jest na to funkcja, cos takiego =percentyl(zakres;k) Percentyl 60 stopnia (0,6), zwróci wartość powyżej której znajdzie się 40% danych z zakresu, oraz poniżej, której znajdzie sie 60% wartości zakresu. Tak by wyglądało makro dla tego pliku który wrzuciłem poprzednio, tylko miałoby liczyć...
Witam. Mam problem z jednoczesnym zaznaczeniem w kilku arkuszach różnych zakresów komórek. Jest mi to niezbędne do wydrukowania odpowiednich części arkuszy do plików PDF. Chciałem do tego użyć funkcji union. Jednak moje makro nie działa. Kiedy używam funkji union dla jednego arkusza wszystko jest...
.. jednak na coś mnie naprowadziłeś okazało się tylko że zamiast usuwać wiersz po stworzeni wydruku muszę go nadpisać nowym może być ctrlC,ctrlV .. Nie naprowadziłem, ale dokładnie Ci o tym napisałem :) Arkusz z poprzedniego posta ma nawet przycisk po ktorego nacisnieciu wykonuje cala operacje. A...
Wstaw na początku makra [syntax=vb]Application.ScreenUpda... = False[/syntax]a na końcu, przed wiadomością: [syntax=vb]Application.Scr... = True[/syntax]Dzięki temu unikniesz przeskakiwania między arkuszami. Druga sprawa: cały taki przykładowy fragment: [syntax=vb]Sheets("instrukcja...
[syntax=vb]Sub ImportujPliki() Application.ScreenUpdat... = False Dim Plik As String, Katalog As String, Arkusz As String, x As Integer, k() As String Dim lw As Long, nw As Long Sheets("Sciezki").Select lw = Cells(Rows.Count, "A").End(xlUp).Row ReDim k(lw - 1) For x = 0 To lw - 1 k(x) = Cells(x...
Hejka, mam pilną sprawę, bardzo trywialną ale niestety jestem zielona w temacie. Potrzebuję stworzyć makro, które będzie zbiorem wszystkich wierzy w arkuszu1 z arkuszem2. Oczywiście zakresy w obu arkuszach codziennie się zmieniają, więc potrzeba mi dynamicznego odniesienia a nie do stałych adresów. No...
Witam mam tabelkę w excelu kolumny od "A" do "V" i chcę żeby po znalezieniu w komórce "A" tekstu "FZ" kopiowało do komórki "w" tyle razy ile jest do następnego FZ kod na samo kopiowanie mam ale nie wiem jak go dalej rozwinąć. Potrzebuje pomocy. oto mój kod: [syntax=vbnet]Sub FZ() ' ' FZ Makro '...
Witam, Proszę o pomoc w napisaniu makra - wydaje się być proste, ale nie mogę znaleźć sposobu na jego rozwiązanie. Chcę zrobić formularz do wpisywania przepisów i umieszczania ich w bazie (jeden wiersz = jeden przepis. Każdy produkt to kolejna kolumna) Utknąłem na pkt 4 - Wyszukaniu produktu (Input...
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...
masz zresztą jak to mówią ... "u mnie działa" Sub dodawanie() nazwa_arkusza = ActiveWorkbook.Name plik_txt = Application.GetOpenFilename("Pl... txt(*.txt),*txt") If plik_txt <> False Then MsgBox "Wczytuję plik plik " & plik_txt Workbooks.OpenText...
Witam, od razu mowie ze od rana szukam po google i po tym forum aby znalesc rozwiazanie mojego problemu ale nigdzie nie umie znalesc konkretnie tego co potrebuje a domyslam sie ze jest to kilka linijek kodu. W skrocie potrzebuje zrobic wywyolanie otwarcia pliku tekstowego badz to csv ktory mi wczyta...
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...
Ponieważ miałem chwilkę czasu to pozwoliłem sobie pobawić się z rozwiązaniem. i proponuje np tak: [syntax=vb]Sub przestaw() 'czyszczenie Sheets("Tabe... Shift:=xlUp 'Obliczenia graniczne ost_wiersz = Sheets("Dane_wyjściowe").UsedRange.Rows.... = Sheets("Dane_wyjściowe").UsedRange.Colum...
*adamas_nt dzieki, sprawdze co do pkt.2 cos mam, ale bede mial prosbe o weryfikacje oraz pomoc w dodaniu kilku rzeczy. mam takie makro: Sub Arkusz3_Przycisk1_Kliknięcie() ... LastRow As Long Range("B2:AI2"...
Niezbyt dokładnie opisane... Co znaczy "itd"? Pierwsza myśl - Application.OnKey W kod arkusza wklej[syntax=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.OnKey Chr(13), "Makro" End Sub[/syntax] W module[syntax=vb]Sub Makro() Application.EnableEvents = False Select...
Ulepszony kod, o który pytałeś na PW: [syntax=vb]Sub Podziel() Dim a(100) As String Application.ScreenUpdating = False Sheets.Add.Name = "Wynik" Sheets("Data").Select ow = Cells(Rows.Count, "A").End(xlUp).Row ok = Cells(1, Columns.Count).End(xlToLeft).Column pp = Cells(2, 1) For x = 2 To ow ...
Witam! Problem mój polega na błędnym funkcjonowaniu poniższego makra, a mianowicie: - z niewiadomych przyczyn "przeciąganie" funkcji (...Range("D2:D" & OstSpend)...) działa prawidłowo dopiero przy dwukrotnym uruchomieniu makra, - potem mam problem z tabelą przestawną - może błąd wynika z powyższego...
Korzystałem z kodu zamieszczonego na forum z drobniutkimi modyfikacjami. Jeśli dobrze pamiętam to autorstwa PRL (dzięki). Sub ImportujPlikizWieluLokalizacji() Appl... = False Dim Plik As String, Katalog As String, x As Integer, y As Integer, NowyWiersz As Long Dim NazwaPliku...
Chciałbym uściślić. Mam w skoroszycie bazowym (nazwę go DD) kilka tabelek w której formuły są typu B7=B5-B6, C7=C5-C6 itd. Zrobiłem makro, które przenosi dane z pierwszego skoroszytu z pozycji B6 na pozycję B5 w następnym skoroszycie i kopiuje skoroszyt. Przy pierwszym kopiowaniu (JA1) jest ok, ale...
Witam, potrzebuję pomocy w ramach pisania kodu w VBA. Mam już napisane makro, które pozwala mi wpisywać dane z Excela do Worda w ramach list wyboru. Jednak tych danych jest dużo i boję się, że przy uzupełnianiu formularzy pojawią się błędy. Dlatego też chciałabym, żeby po wyborze pierwszej zmiennej...
Błąd rozwiązany! Zapomniałem, że należy podawać numery kolumn zamiast liter. Oto ostateczny kod Dodano po 33 [syntax=vba]Private Sub save_Click() Dim done As Boolean, emp As Integer emp = 2 done = False Sheets("Booking & Events").Select Do While done = False If IsEmpty(Cells(emp, 2))...
Kurcze, nie umiem sobie dać z tym rady tak aby wykonywało się to po kliknięciu na button "export do excela" Mógłbyś mi poradzić/pomóc/powklejać to prawidłowo ? :) Całość, po wielu próbach wygląda tak (możliwe, że wszystko już jest źle): [syntax=csharp] using System; using System.Collections.Generic; using...
Zamiast nazwa = ThisWorkbook.Sheets("zam_od_han... 4).Value // tutaj chciałem przypisac do zmiennej nazwę pliku, jest inna od Application.ScreenUpdating = False // nazwa_pliku ze wzgledu na potrzebny format Set plik = Workbooks.Open(Filename:= _ nazwa_pliku) Sheets("dy...
Zarejestrowałem poniższe makro, które miało za zadanie tworzyć kopię arkusza "CZAS PRACY" i zapisanie go na "pulpicie", z tym że nazwa pliku pobierana jest z komórki (w tym wypadku AQ3). Makro działa dobrze z tym wyjątkiem że nazwa pliku jest przypisana na stałe. Jak należny zmodyfikować kod, aby nazwa...
Ale dlaczego tak? 1. Rozmiary różnią się o 1. 2. Przesuwasz tabelę o 1 w lewo i 1 w górę. Dwa skrajne wiersze i dwie skrajne kolumny zostają nienadpisane. Chyba, że tak ma być. Sprawdź Dim i As Integer, j As Integer, tabl As Variant Dim wynik As Long If UserForm1.TextBox1.Value = 1 Then 'jesli...
Chciałbym umieszczać wiersze jeden pod drugim wg LP Tak samo chciałbym usuwać wiersze puste z zakładki "Sprawy" Procedura zdarzeniowa, którą sugerujesz byłaby jeszcze lepszym rozwiązaniem. Tak jak pisałem wcześniej, vba to dla mnie póki co magia, ale robię co mogę aby stała się nauką :) Poniżej...
Dostałeś przykład, potrzeba trochę inwencji własnej. Kolejny przykład[syntax=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range) Static oldRange As Range Application.EnableEvents = False If Not oldRange Is Nothing Then Select Case oldRange.Address(rowabsolute:=False, columnabsolute:=False) ...
Witam, jak moglibyście się spodziewać nie mam zielonego pojęcia o VBA. trochę coś tam łyknąłem kiedyś, ale jak jeszcze do tego dorzucić mam excelowskie komendy to wymiękam. potrzebuję Waszej pomocy. Mam w Arkusz1 cztery kolumny (od D do G) z różnymi danymi tekst / liczba1/ liczba2 / liczba3 okraszone...
Witajcie! Mam następujący problem - zaznaczam pierwszą komórkę w wierszu (A1) i przeszukuje go do momentu, gdy któraś komórka będzie mieć wartość "XYZ". W tym momencie chciałbym, aby ta komórka została zaznaczona, bo 10 wierszy poniżej względem niej, chciałbym skopiować zakres ("zak") z innej części...
[syntax=vb] Sub SzukajCiagu() Application.ScreenUpdatin... = False Dim x As Long, y As Long, z As Long, SzukaneSlowo As String x = 1 z = 1 Sheets("1").Select While Cells(x, 1) <> "" y = 1 While Sheets("Lista").Cells(y, 1) <> "" SzukaneSlowo = UCase(Sheets("Lista").Cells(y,...
W procedurze Importuj jest błąd. Powinno być: [syntax=vb]Sub Import() Application.ScreenUpdating = False Dim Plik As String, OstW As Long Plik = Application.GetOpenFilename("Pliki XLS (*.xls),*.xls", , "Wybierz plik z danymi") If Plik = "False" Then Exit Sub Workbooks.Open Plik Sheets("Arkusz1").Select OstW...
Przetestuj w Excelu poniższe makro [syntax=vb]Sub x() Dim lOstRw& Dim lOstRwDst& Dim a$ With Application .ScreenUpdating = False .DisplayAlerts = False .Calculation = xlCalculationManual End With lOstRw = Cells(Rows.Count, 1).End(xlUp).Row With ActiveSheet .AutoFilterMode...
Przede wszystkim powiąż sobie checkbox z polem arkusza np. tak jak to napisane tutaj: Potem ustaw (dodatkowo) we wszystkich polach chkbox, aby zdarzenie wskazywało jedno makro. W nim wpisujesz kod. Przykładowy kod ukrycia jednej kolumny w zależności od wybrania chkbox'a wygląda tak: [syntax=vb]Public...
tytuł tematu trochę zagmatwany, ale już wyjaśniam. Mam takie testowe makro: [syntax=vb]Sub agregacja() ' ' agregacja Makro ' ' Sheets("agregacja").Select Range("A3").Select Sheets("kohezja").Select Range("G1").Select Selection.Copy Sheets("agregacja").Select ...
Jeżeli ten kod też nie zadziała, to szukaj problemu w zabezpieczeniach. [syntax=vb]Sub PobierzCSV() Sheets("Arkusz1").Select ... Katalog As String, Plik As String, Zeszyt As String, s As String, nw As Long Katalog = ActiveWorkbook.Path & "\" Application.Calculation = xlCalculationManual Application.EnableE...
Poprawiłem błąd... [syntax=vb]Sub ImportujPlikizWieluLokalizacji() Appl... = False Dim Plik As String, Katalog As String, x As Integer, y As Integer, NowyWiersz As Long Dim NazwaPliku As String, Zeszyt As String, i As Integer Dim ArkuszWejsciowy As String, ObszarWejsciowy...
Pobaw się tym. Chyba nie masz problemu, jak skopiować komórkę z pliki źródłowego do docelowego. Jeżeli tak to podpowiedź: [syntax=vb]Sheets(ArkuszW... Range(ObszarWejsciowy).Select Selection.Copy Windows(Zeszyt).Activate Sheets("Import").Select [/syntax] do...
Jakis czas temu prosiłem o pomoc przy stworzeniu [url=[tutaj]wariacji bez powtórzeń wszystko działa pięknie jednak zbyt wolno, postanowiłem stworzyć coś podobnego jednak przy pomocy tablic wiec aby sobie to łatwo wyobrazić przyłóżmy że wiersze to nieznana dla nas liczba lat, a kolumny to hmm 5...
Korzystając z ciekawostki kolegi PRL chciałbym przestawić rozwiązanie mojego problemu z kilku postów wyżej. Chodzi o to, że po usunięciu pozycji dwuklikiem móc cofnąć operację usunięcia wiersza. Makro poniżej sprawia, że po podwójnym kliknięciu w arkuszu "szablon" w pierwszej kolumnie w danym wierszu...
ok - bardzo ciekawa opcja jeżeli rozchodzi się o brak VBA. jednak jak by to wyglądało gdybym chciał to wmieszać w język VBA ? Ponieważ w przypadku dużej ilości danych wersja bez makra będzie powodowała dużą ilość formuł oraz zwiększanie się wielkości pliku excel. Przykład w załączniku zgrywania...
Moje skrypty są troche słabe, coś tam znalazłem w necie, troche poprzerabiałem i nawet działa, nie działa natomiast usuwanie wiersza jeżeli w kolumnie A mam coś takiego: "05-lut-2016 17:23 Start Template Page 3" z tego wszystkiego zawsze w zawartości stałe...
Witam, Zaczęłam korzystać z makr, uczę się ich pisać na wlasne potrzeby, są one jak narazie bardzo proste. Niestety mam problem, który mi przerósł. Mam gigantyczną bazę danych w excelu stworzyłam makro które działa ale bardzo długo I na poczatku wszyscy się cieszyli ze sami moga sobie korzystac z...
Dzień dobry, Zawracam się z prośbą o pomoc. Starałem się przeszukać forum, niestety nie znalazłem pomocy dla rozwiązania problemu. Chciałbym utworzyć makro, które znacznie usprawniłoby moją pracę. Mianowicie, (jak w załączonym pliku) potrzebowałbym kodu, który kopiowałby po kolei każdą komórkę...
Czyli po prostu wg matematycznej zależności... Zmyliło mnie to, bo przecież to się wzorem opisuje :) For I = 1 To 400 Sheets("Zduńska Wola K.").Select Cells(I, 7).Copy Sheets("Arkusz3").Sele... Cells((I - 1) * 63 + 18, 3).Select ...
Jak zrobić, by makro kontynuowało pracę i przeszło do następnego gdy produkt z pierwszego pliku nie zostanie znaleziony w drugim... Tylko tyle mi do szczęścia potrzebne... Obecnie wygląda to tak i pracuje do momentu gdy szukany produkt z pierwszej tabeli nie znajduje się w drugiej. Sub...
Wielka prośba o pomoc ,gdyż jestem początkującym adeptem VBA Excel . Robię programik w VBA pobierający dane do arkusza poprzez userform przy użyciu textboxów .Po naciśnięciu commandbutton1click na formularzu dane mam pobrać z komórek ,które wcześniej przesłałem do arkusza akcelerometr poleceniem Range("D3")...
Sub wykres() ' ' wykres Makro ' x = 1 Sheets("Druk").Se... While (Cells(x, 1).Value <> "") x = x + 1 Wend Sheets("Wykresy"&#...
Musisz jakoś wskazać z którego arkusza chcesz usunąć dane. Excel (makro) to nie jasnowidz. Albo ustawisz stałą nazwę abo jak radził kolega walek wykorzystasz indeks arkusza (lub jego nazwę w VBA) Czyli zastąp Sheets("1").Select Sheets(2).Select (ale wtedy arkusz z którego usuwamy musi być...
Witam, Jeżeli chodzi o VBA to jestem nowicjuszem i mam problem bo muszę zrobić pewne zadanie na T.I. Generalnie mam zrobić makro które będzie analizowało warunki. n-liczba porządkowa komórki Jeśli w kolumnie An = 1 i Bn >=630 Jeżeli powyższy warunek jest spełniony to ma przejść do komórki C, gdzie...
Private Sub CommandButton2_Click() 'luty Sheets("Godzinówka").Select Sheets("Godzinówka").Copy Before:=Sheets(8) Range("D6").Select ActiveCell.FormulaR1C1 = "2/1/2012" Czesc tego kodu odpwiada skopiowaniu innego arkuszu ok, dlaczego wyskakuje mi blad przy Range("D6").Select ??...
W skoroszycie główny.xls dodaję nowy arkusz o nazwie "dane" Jak mam z innego skoroszytu (np.: a.xls) skopiować cały pierwszy arkusz i wkleić jego zawartość do arkusza "dane". Skoroszyt a.xls ma stałą ścieżkę (znajduje się na dysku d:\a.xls), są to dane potrzebne do obliczeń i nie będą przesuwane czy...
Witam. Posiadam makro ale chciałbym, żeby zaczytywało pliki nie tylko ze wsakzanego folderu ale również ze wszystkich plików w podfolderach. Czy jest taka komenda? Proszę umieszczać kod w znacznikach syntax . Opcja Listing kodu .