na komputerze z wersją 2003 poniższe makro działa bez problemu to samo makro na komputerze z excelem 2010 Chyba jest raczej odwrotnie, to na 2003 makro z ".Sort.SortFields" nie będzie działać. Excel 2003 obsługuje co najwyżej składnię ".Sort Key1:=, Order1:=, Key2:=, Order2:=, Key3:=, Order3:=, Header:= ..." Excel 2010 obsługuje zarówno powyższe ,...
Spróbuj wyłączyć odświeżanie: Application.ScreenUpdating=False za linią z Windows(rap).Activate. Włącz na końcu =True Jeśli nie zadziała można przerobić kod tak, żeby nie było potrzeby "biegania" po arkuszach (bez activate, select, etc)... Np fragment z sortowaniem (nie odwołuj się do okna instancji, tylko do konkretów). W przykładzie przypisanie i...
Próbowałem pozmieniać nazwy arkuszy na "ActiveSheet" A tak? [syntax=vbscript]Sub Sort1() With ActiveSheet .Range("F607:J617").Select .Sort.SortFields.Clear .Sort.SortFields.Add Key:=Range( _ "H607:H617"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _ xlSortNormal End With With ActiveSheet.Sort .SetRange Range("F607:J617") .Header = xlGuess...
Tak. Nie zauważyłem. [syntax=csharp] private void buttonExport_Click(object sender, EventArgs e) { Microsoft.Office.Interop.Excel.Applicati... ExcelApp = new Microsoft.Office.Interop.Excel.Applicati... ExcelApp.Application.Workbooks.Add(Type.... //Change proporties for Workbook ExcelApp.Columns.ColumnWidth = AutoSize; //Storing header part in...
[syntax=vbscript]Sub Makro1() ' ' Makro1 Makro ' ActiveWorkbook.ActiveSheet.Sort.SortFiel... ActiveWorkbook.ActiveSheet.Sort.SortFiel... Key:=Range( _ "L8:L99"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _ "wyjechało,nie wyjechało", DataOption:=xlSortNormal With ActiveWorkbook.ActiveSheet.Sort .SetRange Range("B8:U99") .Header...
Sprawdz to makro Sub sortowanie() Range("b2").Select Range("a2:Z7000").Sort Key1:=Range("b2"), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Sub
W pierwszej linii wywala bo nazwałem zmienne tak samo jak były nazwane i zadeklarowane wcześniej. Zmień na: end with choć włąściwie dla zasady powinien za end with bo i tak z "tego" nie korzysta Zauważ że w tej linii kodu jest zmiana ze zmiennej z której ja nie korzystam dstW na jj
Nie pokazałeś w pliku przykładowym spodziewanego wyniku, ale mam nadzieję, że o to chodziło. W mojej propozycji makra wykorzystuję na zmianę formatowanie warunkowe i filtrowanie, a następnie usuwam wyfiltrowane wiersze, aby w końcu uzyskać efekt, o którym pisałeś. [syntax=vbnet]Sub Duplikaty() Application.ScreenUpdating = False Sheets("Arkusz1").Copy...
firma z przypisanym kodem z kolumny A kod_2 nie ma znaczenia? Dodano po 43 [syntax=vb]Sub kokos() Dim bs As Range, bd As Range, bt As Range Dim rs&, re&, rd& Set bs = Sheets(1).Range("A:J").Cells Set bd = Sheets(2).Range("A:D").Cells re = bd(Rows.Count, 1).End(xlUp).Row + 1 Range(bd.Rows(2), bd.Rows(re)).Delete bs.Sort key1:=bs(1, 3), key2:=bs(1,...
Jeżeli używasz Excela >=2007 to możesz użyć narzędzia "usuń duplikaty" [syntax=vb]Sub zz() Dim lLstRw& Dim iLstCol% Dim rRng As Range With Application .ScreenUpdating = False End With iLstCol = Cells(1, Columns.Count).End(xlToLeft).Column For i = 1 To iLstCol lLstRw = Cells(Rows.Count, i).End(xlUp).Row Set rRng = Range(Cells(1, i), Cells(lLstRw, i))...
Pomysł Macieja Goneta chyba najekonomiczniejszy i do rękodzieła i do automatyki - połączyć dwie listy, wysortować, usunąć duplikaty, skopiować wynik na dwa obszary i mamy dwie listy. [syntax=vba]Option Explicit Sub ListaA_ListaB() Dim wB&, k% k% = 3 Application.ScreenUpdating = False wB = Range("F3", Range("F" & Rows.Count).End(xlUp)).Rows.Count Range("A"...
[syntax=vb] Sub Porzadkowanie() ww2 = Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row + 1 'wolny wiersz arkusz2 With Sheets("obroty") .Cells(1, 1).CurrentRegion.Sort key1:=.Range("a1"), key2:=.Range("e1"), Header:=xlYes ow = .Cells(Rows.Count, 1).End(xlUp).Row .Range("A2:H" & ow).Copy Sheets(2).Range("A" & ww2) End With Sheets(2).Activate With...
Jeśli dane są w kolumnach A każdego arkusza, to można zastosować metodę usuwania duplikatów po połączeniu danych. Kod jest trochę dłuższy, ale to powinno być szybsze od sprawdzania rekord po rekordzie. [syntax=vbscript]Sub BrakujaceRekordy() Dim znak As Range Application.ScreenUpdating = False With Sheets("ArkuszA") ' krótsza lista najpierw .Range("A1",...
Dobra chyba wiem gdzie się mijamy, ja nazywam pierwszą komórkę każdej kolumny nagłówkiem. Komórka z wartością /Delivery-Header/Delivery-Number (F1) i wszystkie komórki pod nią które mają wartość inną niż pusta komórka mają trafiać do kolumny A w pliku B. Jeśli w pliku Order, /Delivery-Header/Delivery-Number zmieni położenie do np XZ1 także ma trafić...
Cześć! Proszę o pomoc! Jestem nowy w Accessie i porywam się na zrobienie bazy danych produktów. Doszedłem do problemu, którego nie mogę przejść. Otóż nie mogę wyeksportować jednego rekordu do Excela. Co chcę osiągnąć: W formularzu wybieram/dodaję produkt. Klikam w przycisk i eksportują mi się jego parametry tylko tego jednego rekordu do Excela. W internecie...
Bardzo dziękuję. Tak zrobiłam i działa. Mam jeszcze jedno pytanie. Chciałabym za pomoca makra posortować dane, ale niestety pojawia mi się błąd. Mam tabelkę zawsze tak samo zbudowaną, natomiast akrusz, w której ona się znajduje ma różne nazwy. Próbowałam usunąć Worksheets("reporting 27.01"), zmieniałam ActiveWorkbook.Worksheets("reporting 27.01") na...
No to teraz mam coś takiego, ale to wypuszcza taki sam plik jak oryginał: [syntax=vbscript]Sub SplitRowsToFiles() Dim wb As Workbook Dim wrkSht As Worksheet Dim saveFile As String, name As String Dim WR As Range, header As Range Set wrkSht = ActiveSheet Set header = wrkSht.Range("A1:BN64") saveFile = Application.GetSaveAsFilename Dim last As Integer...
Dziękuję za podpowiedź, zadziałało :) Dodano po 1 [syntax=vbscript]Sub ClearFilterDataPFSFromTime(wbN As Workbook) Application.ScreenUpdating = False wbN.Sheets("PFS FROM time").Range("A8:NN8").AutoFilter '- turn off AutoFilter wbN.Sheets("PFS FROM time").Range("A8:NN8").AutoFilter '- turn on AutoFilter wbN.Sheets("PFS FROM time").AutoFilter.Sort.SortFields.Clear....
Błagam o pomoc :) Ja to zrozumiałem tak (uszczuplone do granic możliwości :) na dwóch najprostszych pętlach ) [syntax=vbscript]Sub test() plik = "h:\macro\" & "zamowienie CRC 4-2" & lp & ".mac" Open plik For Output As #1 Print #1, "[PCOMM SCRIPT HEADER]" Print #1, "Language = VBSCRIPT" Print #1, "DESCRIPTION=" Print #1, "[PCOMM SCRIPT SOURCE]"...
Witam, jak w temacie czy ktoś wie jak exportować dane z Excela do programu as400?? Nagrałem makro w AS400 podczas kopiowania danych z Excela do AS, lecz niestety w makrze są polecenia i parametry do którego wiersza i rzędu wkleić dane. Pytanie czy idzie Excelem sterować program IBM AS 400 poniżej zarejestrowane makro : [syntax=vbscript][PCOMM SCRIPT...
Przed sortowania musisz zastąpić formułę na wartość, ponieważ funkcja LOS() zawsze daje nową wartość w obliczeniach No właśnie, makro, które testowałem działało tylko po wpisaniu konkretnych wartości. Private Sub Worksheet_Change(ByVal Target As Range) Range("AC65:AF65").Select ActiveWorkbook.Worksheets("EW").Sort.Sor... ActiveWorkbook.Worksheets("EW").Sort.Sor...
Przepraszam, że odświeżam tak stary temat ale mam podobny problem, a zasugerowane w wątku rozwiązanie nie jest skuteczne. Chodzi mi o to, że mam zakres danych, który chciałbym podawać do makra parametrem (makro umieszczone w komórce nad zakresem), a makro miałoby sortować zakres za każdym razem gdy ktoś wprowadzi do niego dane. Makro postaci: Function...
Jak najbardziej należy się uczyć i VBA ale z kolei nie wszystko na raz. Piszesz że słabo znasz excela (funkcje) a chcesz się brać od razu za VBA. Można ... tylko boje się że się wcześniej zniechęcisz całkowicie do excela nie tylko do VBA (tym bardziej jak nie miałeś do czynienia z jakimkolwiek programowaniem). Poniżej kod i przykład który za przyciśnięciem...
Zauważ, że arkusz niue nazywa się "mm.dd.yyyy" tylko ma konkretną datę jako nazwę więc lepiej w ten sposób: select.end ale tak też można. I druga rzecz. Ta funkcja też ma pewien błąd. Trzeba podać datę początku i datę końca. Nie wiem co chciałeś osiągnąć chyba że jakimś kodem którego akurat ja nie stosuje/nie znam. [syntax=vb] Range("H2").FormulaR1C1...
Witam, Mam makro, które zaciąga dane z 30 różnych exceli z jednej konkretnej zakładki. Chce to zrobić bez otwierania każdego pliku na dysku sieciowym, co sporo czasu zajmuje. Znalazłem w sieci przykładowe makra na podstawie ExecuteExcel4Macro oraz ADO, ale mam problem, gdyż pliki, które chce otworzyć są zahasłowane (niewiem gdzie w kodzie dać hasło)...
Wiadziałem w innych topikach że trochę kumasz VBA więc czego sam nie dołożysz sortowania? Przecież to nie jest trudne. Jak czegoś nie rozumiesz to nagraj makro i przeanalizuj jak jest zbudowane. Wprowadź swoje poprawki i ... tadam ... :) proste :) Poniżej dołożyłem sortowanie po A i po E Po E bo chyba o to głównie chodzi - gdyż funkcja w kolumnie B...
Nie jestem pewny, czy dobrze zrozumiałem ale chyba chodzi o to: [syntax=vb]Sub Wynik() Application.ScreenUpdating = False Sheets("Dane").Select ow = Cells(Rows.Count, "B").End(xlUp).Row y = 1 a = Cells(2, 1) For x = 2 To ow If Cells(x + 1, 1) = "" Then If Cells(x + 2, 1) <> "" Then a = Cells(x + 2, 1) Sheets("Wynik").Cells(y, 1) = a Sheets("Wynik").Cells(y,...
Możesz spróbować takim makrem: [syntax=vbscript]Sub Makro2() Sheets("Baza1").Select ActiveSheet.UsedRange.Clear Sheets("Baza").Select Intersect(Range("A3").CurrentRegion, Columns("A:G"), Rows("3:103")).Copy Sheets("Baza1").Select Range("A2").PasteSpecial Paste:=xlPasteValues Range("A2").PasteSpecial Paste:=xlPasteFormats Application.CutCopyMode = False...
Na początek proponuję posortować dane wejściowe wykorzystując filtr niestandardowy. Wg mnie najpierw powinno się sortować rosnąco kolumny: A, B, D, K, L Następnie wstawić wiersze dla podsumowania klienta i nip i na końcu dokonać scalenia potrzebnych komórek. Taki byłby scenariusz makra. Proszę poprawić jak jestem w błędzie. tutaj mój kod sortowania:...
Nie jestem guru od makr w VBA, ale coś takiego powinno zadziałać (zrobiłem testy na prostym arkuszu wklepanym z palca). [syntax=vb] Sub Makro1() Dim xo As Integer xo = 2 Columns("A:B").Select Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") _ , Order2:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False _ , Orientation:=xlTopToBottom,...
Usuń duplikaty ani tabela przestawna tu się nie przyda bo dochodzi warunek że usuń gdy puste ale nie gdy puste w Re_3 Stworzyłem w sumie proste makro (ono tylko tak wygląda) Pierwsza część kodu przepisuje wszystkie linie mające to samo zlecenie. Później następuje sortowanie. Następnie warunek sprawdza czy (w moim przypadku coś1) się powtarza jeżeli...
A po co takie pojedyncze klikanie w każdy nagłóweczek. Trzeba było wszystko razem. Poniżej kod do formatowania nagłówków we wszystkich tabelach w skoroszycie (we wszystkich arkuszach tego skoroszytu). Dodano po 1 ...aby formatował tylko wybrane nagłówki: [syntax=vbscript] Sub test_formatowanie_wszystkich_tabel() Dim ListaTabel As ListObject Dim ListaArkuszy...
Może przeróbka Twojego makra? Dorobiłem pętlę, czyszczenie filtru, utworzenie i zapisanie nowego pliku, etc. Działa z plikiem z załącznika, wymaga "dopieszczenia".[syntax=vb]Sub Max() Dim lngLastRow As Long Dim rngToCheck As Range Dim varList As Variant Dim WorkRange As Range Dim ostWrs As Long, vList As Variant 'ostWrs = Sheets(3).Range("c65536").End(xlUp).Row....
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ć dla wszystkich zmiennych w kolumnie "aa", to makro działa...
mam makro, które działa w starszych wersjach exela, ale w wersji 2003 już nie. Czy ktoś mógłby powiedzieć jak je przystosować do exela 2003?? pokreśla mi na żółto:Wokrsheets("Arkusz1").Range("AI1", "AI9").Value = Worksheets("Arkusz1").Range("B33", "B42").Value Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'tu masz kopiowanie Wokrsheets("Arkusz1").Range("AI1",...
Witam. Niestety nie mam teraz czasu na naukę VBA a potrzebna mi pomoc w modyfikacji kodu. Mam takie oto makro kalendarza. [syntax=vbscript]Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Range("I4:J1003"), Target) Is Nothing Then Range(ActiveCell.Address) = CalendarForm.GetDate( _ SelectedDate:=Date, _ FirstDayOfWeek:=Poniedziałek,...
Witam, mam mały problem z wyszukaj.pionowo w VBA - bazuje na 2 plikach, które otwieram w trakcie trwania makra, nie mam jak przechowywać nazw pliku, bo to użytkownik je wybiera i jak się odnieść do drugiego pliku przez tą funkcję. Ewentualnie czy jest jakaś inna funkcja, która może to rozwiązać? Jak rozwiązać coś takiego: A a A c A n By wyszukać pionowo...
Wrzuć ten eprom jak możesz, postaram się napisać program EDIT: Proszę, odtwarza Dla Elizy z instrukcji. Można przerobić, żeby odtwarzał z pliku, jets to trywialne. Warto by poprawić obliczanie czasu trwania danej nuty, aby zmniejszyć 'pykanie' pomiędzy nutami(generowanie tonu powinno się zaczynać i kończyć w 0 sinusa). Nie użyłem Beep, bo przerwy między...
Dzien dobry. Zalaczam plik Excel. Na gorze mamy automatyczny przycisk NEW LINE, i chodzi o to, ze wciskajac ten przycisk tworzyl sie nowy wiersz z zawartoscia formul. Czyli majac, np. 100 osob i klikajac kolejno na NEW LINE aby otwieral sie wiersz kolejny po juz istniejacym. Na dzien dzisiejszy mam tak ze otwiera sie zawsze wiersz "2", tak jak zreszta...
No tak jest tam jedna dwójka, ale choćbym zmienił ją nawet na dziesięć to i tak zapis idzie od wiersza drugiego i nie wiem dlaczego. To jest oryginalny kod wyciągnięty z okna dodawania tematów: [syntax=vb]Private Sub cmdDodaj2_Click() Dim ostWrs As Long, i As Long Dim ark1 As String If txtTydul.Value = "" Then MsgBox "Brak nazwy tytułu. Popraw.", vbCritical,...
Witam, Potrzebuję kod makro który podzieli scalone komórki i posortuje zakres A4:E150 według kolumny od E4. Mam kod który sortuje nie scalone komórki http://obrazki.elektroda.pl/4190262600_1... Sub Sort() Dim oneRange As Range Dim aCell As Range Set oneRange = Range("A3:E200") Set aCell = Range("E3")...
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 produktów każdy w osobnym wierszu (jeden...
Wielkie dzięki za odpowiedź, ale niestety w dalszym ciągu nie działa... Pewnie robię coś źle, ale makro nie otwiera mi plików txt z wywołanej funkcją ścieżki. Całość wygląda tak: [syntax=vb]Function pobranie() As String Dim sciezka As String Dim Wybor As FileDialog Set Wybor = Application.FileDialog(msoFileDialogFold... With Wybor .Title = "Wybierz...
Wszystko jest ok kiedy produkty się różnią jednak kiedy występuje tylko jeden, wyskakuje mi błąd Potrzebna tylko drobna modyfikacja :spoko: : [syntax=vbscript]Sub xxx() Application.ScreenUpdating = False With ActiveSheet datar = Cells(2, 9).Value klient = Cells(2, 4).Value produkt = Cells(Rows.Count, 5).End(xlUp).Row .Range("E1:E" & produkt).Select...
Cześć, próbuję przenieść dane z formularza w jednym arkuszu do raportu w drugiej. Udało mi się przenieść dane z ListBoxów, ale nie mogę przenieść tekstu wpisywanego do TextBoxów. Próbowałam zrobić coś takiego: [syntax=vbscript]Sub textbox() Dim Ark As Worksheet Dim Sciezka As textbox Dim Raport As Worksheet Set Ark = ThisWorkbook.Sheets("Formularz")...
Witam , Tworzę makro które kopiuje unikalne dane z Kolumny A od komórki A3 (w komórce A2 są nagłówki) i wkleja w nowo stworzonym arkuszu. Jednak Problem się zaczyna gdy chce skopiować do każdego z tych arkuszy nazwy z wiersza pierwszego (A1:A11) wkleja w nowo powstałym arkuszu tylko komórkę A1 a cała tabela się rozjeżdża . Oto kod: [syntax=vb]Sub Copy_To_WorkbooksB()...
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,...
Zrobiłem coś takiego Plik zewnętrzny o nazwie formularz.xls w tym samym katalogu musi być plik zeszyt.xls z danymi ułożonymi jak w podanym wyżej przykładzie (nazwy i kolejność kolumn). otwieramy plik formularz wciskamy przycisk i już mamy wyliczone godziny dla każdego pracownika w zależności od wyróżnika. Jeżeli to by miało być piękniejsze to trzeba...
Sortowanie zrealizujesz pisząc ogólną procedurkę: Sub Sortowanie(Klucz As String) Selection.Sort Key1:=Range(Klucz), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom End Sub i wywołując ją w obsłudze przycisku z odpowiednim adresem. Dla Nazwisko będzie: Sub Makro3()...
Moje makro uruchomione na Twoich danych daje taki wynik: Jan Kowalski2013-04-031/1 Pawel Nowak2012-06-051/1 -> 1/2 Z czego linia druga jest czerwona. Makro pozostawia wpis z najświeższą datą oraz wstawia wcześniejszy wymiar zatrudnienia (gdzie aktualny zostaje najbardziej z prawej strony). W taki sposób można łatwo odfiltrować sobie jednych (np w...
Czy mógłby któryś z kolegów spojrzeć i sprawić by to małe makro sortowało liczby do A 200 lub więcej, nie mam pojęcia jak to napisać, na ten moment sortuje tyko wiersz 2 w kol A do K. [syntax=vbnet]With ActiveWorkbook.Worksheets("wysłane liczby").Sort .SortFields.Clear .SortFields.Add Key:=Range("A2"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal...
Cześć. Dalej nie udaje mi się uruchomić tego modułu (RFM22B). Po tym jak staram się wysłać dane odczytuję rejestr przerwać i okazuje się, że mam błąd FIFO overflow/underflow. Nie wiem też jak sterować GPIO_0 i GPIO_1 dla tx i rx states. Czy ktoś kto już przeszedł przez podobne sprawy mógłby coś mi podpowiedzieć. Rejestry ustawiałem zgodnie z excelem...
skopiowalam twoj kod i dostosowalam do kolumn i teraz mam w formularzu w odpowiednich listach odpowiednie kolumny ale jak mam zrobic zeby mi zawezalo te listy czyli jak wybiore Suchbegrif to zostana mi przefiltrowane Selektion i tak samo Stärke tak jakbym filtrowala w Tabeli.. i teraz wyswietlaja mi sie Artikel przefiltrowane tylko przez Suchbegrif...
Witam, Proszę o pomoc w napisaniu makra, które będzie usuwało całe wiersze, w których data będzie starsza niż 2016-05-02 (kolumna z datą to kolumna B) we wszystkich arkuszach. Znalazłam na jakiejś stronie kod z pętlą, która przechodzi przez wszystkie arkusze, ale nie potrafię napisać kodu odpowiadającego za usuwanie wierszy. Proszę o pomoc :) Dodano...
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 wiersz ten zostanie najpierw skopiowany do arkusza...
Prośba o skrócenie kodu tak aby makro działało szybciej oraz działało również w excel 2010 Podaję jeden z kodów oraz plik [syntax=vbscript]Sub Zestawienie() Dim lastRow As Long Sheets("USUNIĘCIE ZAGROŻEŃ").Select Application.Run "Hide_DeleteRows" Sheets("ZESTAWIENIE").Select j = 3 For Each c In Worksheets("zestawienie").Range("aa1:aa1... If c = "1"...
Witam Jestem początkujący w VBA i mój problem (dla innych pewnie żaden) polega na ty, że stworzyłem sobie kod, który ma formatować i przepisywać dane z innego pliku excela. Stworzyłem sobie zmienną, która zawiera nazwę aktualnie wybranego pliku. Moje pytanie: jak spowodować, żeby do poszczególnych komórek procedura przepisywała komórki z pliku, który...
po poprawkach wygląda to tak: Sub Macro1() 'deklaracje tablic grup POTS,DSL,inne dopisać Dim POTS(1 To 2) As Variant POTS(1) = "0.2" POTS(2) = "0.3" Dim DSL(1 To 2) As Variant DSL(1) = "0.4" DSL(2) = "0.5" Dim inne(1 To 2) As Variant inne(1)...
Witam, - w czasie epidemii koronawirusa, w czasie robienia zapasów artykułów spożywczych, pomyślałem, że dla zinwentaryzowania tego co w lodówce, na regale w spiżarni i wszystkiego co może się zmarnować - bo mija data przydatności do spożycia, napiszę żonie makro. Myślę, że może się przydać, tym bardziej, że zauważyłem, iż ludzie z braku tego po co...
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,...
A więc mam już wszystko prawie gotowe poza... No właśnie pojawił się kolejny problem. Mianowicie w każdej nowo tworzonej zakładce dodają się wartości z poprzedniej i sumują z wartościami pliku. Czy ktoś wie moze dlaczego? Dołączam spakowany plik a w nim przykładowe pliki oraz arkusz. Z góry dziękuję za pomoc. Dim Data As String Sub ProCollector()...
(at)dragoslav78, nie bierz sobie do serca wszystkich podpowiedzi. :) [syntax=vbscript]Sub Przenies() y = 2 Sheets("Arkusz1").Select Rows(1).Copy Sheets("Arkusz2").Cells(1, 1) ow = Cells(Rows.Count, "A").End(xlUp).Row For x = ow To 2 Step -1 If LCase(Cells(x, 5)) = "zakończone" Then Rows(x).Copy Sheets("Arkusz2").Cells(y, 1) Rows(x).Delete Cells(x, 2)...
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,...
W odniesieniu do mojego wcześniejszego wykrycia izobutanu, ChatGPT zauważa, co następuje po przeanalizowaniu arkusza danych Winsen Dodano po 8 Przylutowałem urządzenie z powrotem do dwóch adapterów USB-TTL, aby przyjrzeć się zachowaniu MCU. Oto włączanie zasilania, wstępne podgrzewanie i wreszcie krótkie serie płynu do zapalniczek do czujnika. dpID5...
Super :D Tylko mam mały problem bo jak dodam jeszcze dwie kolumny: Private Sub UserForm_Initialize() Dim listItem As listItem With Worksheets("BAAN 2") ost_wiersz = 97 For i = 8 To ost_wiersz Set listItem = ListView1.ListItems.Add(, , .Range("G" & i)) listItem.SubItems(1) = .Range("H"...
[syntax=vb]Sub Baza() Dim lngLastRow As Long Dim rngToCheck As Range Dim k As Byte Application.ScreenUpdating = False Sheets(1).Select With ActiveWorkbook.Sheets("Opiekunowie") 'find the last row in column D lngLastRow = .Cells(.Rows.Count, 4).End(xlUp).Row Set rngToCheck = .Range(.Cells(2, 4), .Cells(lngLastRow, 4)) End With For k = 5 To 1 With rngToCheck...
Witam, czy któryś z szanownych forumowiczów jest wstanie pomóc mi skrócić makro ? [syntax=vb]Sub KP() ' ' KP Makro ' ' Sheets("LICZENIE I SORTOWANIE").Select Columns("A:K").Select Range("A573").Activate Selection.Copy Sheets("DRUKI SORTOWANIE").Select Range("A1").Select ActiveSheet.Paste Columns("G:G").Select ActiveWorkbook.Worksheets("DRUKI SORTOWANIE").Sort.SortFields.Clear...
Rewelacja Bardzo dziękuje, ale jest problem. Bardzo zależy mi aby wartości z tabeli były pobierane przez zapytanie z power query. Więc dodałem w kodzie wiersz odświerzania zapytania. Teraz po zmianie wyboru z listy rozwijanej wartości się "podbierają" ale nagłówek już nie. Czy mozna z tym coś zrobić ? Private Sub Worksheet_Change(ByVal Target As...
Jeśli mowa o obiekcie lista w arkuszu (Dane\Lista\Utwórz listę) to rządzą nią trochę inne zasady wyliczania ilości wierszy, z powodu dodatkowego "gotowego do wprowadzania" wiersza z "gwiazdką", inne podejście. Trzeba było dać załącznik, to podstawa do "ewentualnego" rozwiązania problemu. Jeśli masz jakie takie obycie z vba to zerknij np. na: [syntax=vba]...
Hej, jestem poczatkująca w temacie VBA i mam problem: chcę skopiować dane do nowego sheet'a w formie tabelki i wiem gdzie powinnam wstawić petle. Dodano po 3 Wszystko jest dobrze i ładnie wkleja się pierwszy wiersz do nowego sheet'a, ale nie ma pętli żeby zczytalo wszystko.
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 pliku I dostawac konkretne informacje, teraz narzekaja...
Dzień dobry , Chciałabym poprawić makro, żeby zamiast sztywnego przypisania powtarzanego w drukowaniu wiersza wstawiana była zmienna. Fragment nagranego makra wygląda tak: .PrintTitleRows = "11:11" ' powtarza wiersz 11 na każdej stronie Moje nieudane próby, gdzie x to numer wiersza .PrintTitleRows = Chr(34) & x & ":"...
Wszystko jest opisane w pliku README. Wystarczy rozpakować archiwum do katalogu ze zdjęciami. Ewentualnie można użyć do tego zmiennej "directory", podając ją do skryptu metodą GET, wtedy skrypt może być w dowolnym katalogu. Pozdrawiam, Krzysztof. Problem polega tylko na tym, że nie znam angielskiego ni w ząb. Widziałem demo na stronie autora, jeśli...
Witam. Nagrałem makro z ustawieniami wydruku. Mam pytanie gdzie tu wstawić lokalizację wydruku Drukarka znajduje się: \\Ivos-2-PC\DYMO LabelWrier 450 (musiałem zmienić na dymo ale to pewno bez zanczenia) I zauważyłem że jak już mam ustawiony obszar wydruku dla całego arkusza to żeby wydruk etykiety był właściwy to muszę podać zakres komórek w tym wypadku...
Odszukaj w kodzie taki fragment: 'jeżeli nie istnieje utwórz zakładkę o nazwie kolumny B If Not jest_zakl Then wbNowy.Sheets.Add(After:=wbNowy.... = nazwa_zakladki Set wsNowy = wbNowy.Sheets(nazwa_zakladki) wiersz = 1 'kopiowanie nagłówka wsZrodlo.Range("A1:C1"...
markoz7874, robię dokładnie tak jak mówisz mam x arkuszy, dla których chcę zastosować ten sam format wydruku więc nagrałam makro [syntax=vb] With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "Strona &P z &N" .RightFooter = "" .LeftMargin = Application.InchesToPoints(0.70866141732... .RightMargin...
Witam Próbuje stworzyć makro które będzie kopiowało dane z excela do pliku csv a następnie wysyłało go na serwer ftp, ale że jestem zielony z VBA idzie mi to bardzo opornie, proszę o pomoc. O co dokładnie chodzi? Plik źródłowy wygląda tak: [syntax=tex] A B C D E F 1 Header Date Hour inflow outflow other 2 3 Name1 2016-03-03 06:00 20,0 1,0 text1 4 Name2...
Aktualizacja firmwaru do wersji 15.807 powinna rozwiązać problem poniżej lista skorygowanych problemów przez nową wersję Release Memo FS-3820N (B-28) FS-3830N (B-21) Version 158.07 Release: 2005/04/19 (Status date:2005/4/19) REFERENCE CHECK SUM LABEL NAME U-NO ROM TYPE PPC750CXe 1C75 SB21K15807 YS01 4MB-DIMM This is the latest official version firmware...
Dzień Dobry Zwracam się do wszystkich uprzejmych i chcących pomóc osobie która zaczyna przygodę z makrami, ale zapotrzebowanie na dobre makro jest większe niżwiedza moja w obecnym czasie. Nie proszę o zrobienie gotowca tylko wskazanie błędów, lub o podpowiedź co mam zmienić w pliku którym się posiłkuję by : ad.1 W arkuszu Dane na zielono ( brane pod...
zmiany w programie po uwagach Krissa: błąd z plikiem .zofzproj - save występował w przypadku elementów o zerowej wielkości. już miałem ten problem, prawdopodobnie eagle zaznacza jakieś dodatkowe informacje zerową linią, najwidoczniej zapomniałem o "save". błąd z nie dopasowaniem wierceń do gerbera - excelon ma "szczątkowy header" nie zawiera niestety...
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" w pliku w którym jest makro - po zaimportowaniu wszystkich...
dziękuje, Mam jeszcze jedno pytanie , chciałabym, aby w pliku działała walidacja na brak danych. A dokładniej w sytuacji kiedy w której z komórek kolumny H zostanie wybrana pozycja "Oględziny inne" to wówczas w odpowiadającej komórce z kolumny I (ten sam wiersz ) trzeba będzie wybrać powód, jeżeli nie zostanie on wpisany przy próbie wysłania e-maila...
Zrobiłem LOG programem EasyRecovery Home 10.0.5.6 i go dołączam.Nie mogę nim odzyskać plików. 09:02:41 00000B88 INFO : setting loglevel=INFO 09:02:41 00000B88 INFO : -----------------------logger started-------------------------- 09:02:41 00000B88 INFO : args: 09:02:41 00000B88 REPORT : -----------------------Compiler info--------------------------...
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 "D", a jeśli coś innego, to "K". Bardzo by mi się...
Witam, Mam zarejestrowane takie oto makro: Sub Makro4() ' ' Makro4 Makro ' ' Columns("A:D").Select Application.CutCopyMode = False Selection.Delete Shift:=xlToLeft Columns("G:G").Select Selection.Delete Shift:=xlToLeft Range("A1").Select ActiveWorkbook.Worksheets("BI").Sort.Sor... ActiveWorkbook.Worksheets("BI").Sort.Sor... Key:=Range("A1"),...
header connector audio header displaye header
kasowanie sterownika poduszki instrukcja seata altea przyczyna braku nawiewu
Czujnik temperatury spalin Opel 1.7 CDTI – lokalizacja, numery OEM, diagnostyka EGT Navitel R2 Dual, RC2 Dual – wymiana baterii Li-Po 3,7V krok po kroku