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...
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...
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)...
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...
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()...
Witajcie, również odświeżę temat, zacznę od początku, byście mieli jasność ... Mam pewien zakres liczb, które zbieram do jednej kolumny kolejno w dół od wiersza 7 do 150. Nazwijmy ją kolumna I. Zakres liczb zawiera się od 0 do 50. Następnie w kolumnie A mam zrobioną formułę sprawdzającą mi ilość występowania każdej z liczb w tym zakresie. Dotąd wszystko...
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...
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...
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...
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))...
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,...
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
[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...
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=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...
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ć...
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]"...
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...
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",...
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...
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...
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...
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....
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...
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,...
Albo takim: [syntax=vbscript]Sub brw_fdg_sdg_fdg() Application.ScreenUpdating = False Application.DisplayAlerts = False On Error Resume Next Sheets("Baza1").Delete On Error GoTo 0 Sheets("Baza").Copy After:=Sheets("Baza") ActiveSheet.Name = "Baza1" Range("A1:H2").MergeCells = False Range("A1:H2").Clear Rows("1:1").Delete Shift:=xlUp Range("A2").CurrentRegion.Sort...
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...
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...
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,...
Czy ten kod jest ogólnie poprawny? Jeśli działa... Można go zoptymalizować przez rozszerzenie bloku With-End With. Zauważ, że każdy wiersz zaczyna się tak samo. Wtedy: [syntax=vbscript] With ActiveWorkbook.Worksheets("dane źródłowe").Sort .SortFields.Clear .SortFields.Add Key:=Range("A2:A" & lastRow), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal...
Wszystko to chyba jest dość proste, tylko przedstawione w jakiś dziwnie zagmatwany sposób. Po pierwsze nadal nie jest jasne czy masz jeden plik czy dwa pliki. W pierwszym pliku jest Makro1. Wywołujesz to makro w kodzie, który nie ma nazwy, bo nie pokazałeś całego makra, tylko kawałki. I teraz czy ten kod bez nazwy jest w osobnym pliku, ale z takimi...
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()...
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",...
To chyba pierwszy na tym forum wątek dotyczący poziomów prywatności w PQ. W skoroszycie są kwerendy PQ, które pobierają dane z adresów NBP: https://nbp.pl/podstawowe-stopy-procento... ora... Bezpośrednia odpowiedź - To blokada Zapory Prywatności Danych (Formula.Firewall) w Power Query: łączysz dane z Excela (Excel.CurrentWorkbook) z internetem...
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...
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")...
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...
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...
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....
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...
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,...
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...
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...
audio header displaye header header flash
schemat lodówka liebherr wałek balansowy smarowanie łańcucha
aparat słuchowy schemat bezpieczników skoda octavia
Iveco 35-10: Wysokie obroty silnika - przyczyny i diagnostyka Cofanie się brudnej wody do zmywarki - przyczyny i rozwiązania