excel filter

excel - Ukrywanie wierszy ktore mają puste komórki

Dane - Filter nie dziala ?

Makro do filtrowania danych po dacie z ostatnich 30 dni - poszukiwane

Przede wszystkim załącz plik z przykładowymi danymi i pokaż co i jak chcesz filtrować. Napisz też jaką masz wersję Excela i jaki domyślny format daty w systemie operacyjnym. Ogólny schemat postępowania jest tu.[url=https://pl.extendoffice.com/docu...

Nie znalazłeś odpowiedzi? Zadaj pytanie Sztucznej Inteligencji

Excel - jak znaleźć liczby o 1 większe lub mniejsze w dużym pliku?

1. skopiować wszystkie kolumny w jednym (jeden pod drugim) 2. sortowania tej kolumny 3. obok formula (np =E2-E1) przeciagnij w dol 4. Filter po kolumnie E (=1) Dodano po 12 liepsza formula(począwszy od drugiego wiersza) =LUB(E2-E1=1; E3-E2=1) Filter po PRAWDA

excel2003pl - wyszukiwanie po kilku znakach / modyfikowanie / dodawanie nowych

:arrow: makary1 Nie dość że dajesz niedziałające badziewie (z błędami) bez żadnej instrukcji, to jeszcze żądasz "zapłaty" za stworzony plik. :cry: Nieładnie. :cry: Zanim coś dodasz przetestuj czy u ciebie to działa. Tworzysz okno filtra Kol A Filter, a w kodzie piszesz Kol B Filter Zaznaczasz (Range) jedną kolumnę a piszesz Field:=2 Wprowadzasz nazwę...

Excel 2010 - Usuwanie duplikatów i pozostawienie unikatowych rekordów

Witam Tutaj jest to opisane: http://office.microsoft.com/en-us/excel-... Pozdrawiam Krystian Tokarski

Re: Niemieckie OZE a obciążenie polskich sieci przesyłowych

Wykres: http://www.litgrid.eu/index.php/dashboar... Excel: http://www.litgrid.eu/index.php/generate...

[VBA Excel] Jak stworzyć makro sprawdzające i usuwające autofiltr?

[url=https://www.mrexcel.com/forum/excel...

Excel - Jak przefiltrować 13 tys. produktów według listy 1000 ważnych?

Jak sie robi filter po kolumnie? W filtracji mozna wpisywac tylko znaki..

[Excel/VBA] Wczytanie danych z txt do dwóch Combobox'ów

No fakt średnik :) Sam sobie klocki pod nogi podrzuciłem, dając przecinek... Dzięki za pomoc. Teraz biorę się za przeszukiwanie ListBoxa według danych wczytanych z pliku txt. Pomysł jest teraz tylko aplikacja kodu. Jeśli ktoś mógłby mi tylko powiedzieć czy bez problemu jestem w stanie wykorzystać do mojego pliku polecenie FILTER aby przeszukać LISTBOXA.

Excel - dynamicznie rozwijana lista z filtrowaniem projektów według poddziałania

PRZESUNIĘCIE jest ciagly zakres i nie filter, dlatego w tu ilosc komorek(LICZ.JEŻELI) trafily inni projekty

EXCEL Filtr tabeli na podstawie zawartości komórki

Da się filtrować od A do Z wszystko co jest w komórkach za pomocą "Sort& Filter"I gdy się rozwinie to jest od a do z Screenshot na dole może pomoże też 😎

Zapis pliku - wybór folderu i sugerowana nazwa z komórki

Chciałbym zwrócić uwagę na jedno zdanie z dokumentacji metody GetSaveAsFilename: When InitialFilename is used with an extension and a filter is applied, this extension must match the filter extension, otherwise the effective InitialFilename displayed in the dialog box will be an empty string. Według tego, jeżeli 'initialfilename' jest używane z rozszerzeniem...

VB.Net operacje na DataGridView - pobrane z pliku Excela

Działa. Teraz chciałem jeszcze dodać wyszukiwanie dynamiczne dla Dgv1 oraz Dgv3. Dla Dgv1 mam kod pobierania danych z Excela: Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click With OpenFileDialog .Title = "Importieren" .InitialDirectory = TextBox1.Text .Filter = "All Files (*.*)|*.*|Excel...

VBA: Ekstrakcja parametrów z nazwy produktu do oddzielnej kolumny - Excel

Proponuję użycie funkcji UDF: [syntax=vbscript]Function Par(where As String, list) As String Dim elem, tabl, arr, res arr = Split(where) For Each elem In list tabl = Filter(arr, elem) If UBound(tabl) >= 0 Then For Each res In tabl If elem = res Then Par = elem: Exit Function Next wyn End If Next elem End Function[/syntax]Wywołanie: [syntax=text]=Par(tekst_do_sprawdzenia;....

Excel/VBA - Wyszukiwanie niepustych komórek z różnymi wariantami

Znacznie prościej napisać taki filter w C czy C++ lub innym przyzwoitym języku. O ile 1,2,3 itp nie puste to można załatwić nawet formułami, to z ostatnim jest problem.

kopiowanie arkuszy z wybranych plików Excela (VBS)

Np filedialog: .Filters.Add "Pliki Excel", "*.xls" Można i bez otwierania. Spróbuj coś z makr Excel4 arg = "'" & p & "[" & f & "]" & s & "'!" & Range(r).Range("A1"... , xlR1C1) ExecuteExcel4Macro(arg) Gdzie p to ścieżka do pliku, f nazwa...

EXCEL VBA - Makro tworzące arkusze i nadające im nazwę według wierszy ?

Zgadzam się ze zdaniem kolegi Prot . Po jakimś czasie uzbiera się tych kopii tyle, że zrobi się bałagan. Wg mnie, kopię takiego zestawienia można zmieścić w jednym wierszu arkusza (jednej linijce pliku tekstowego). Do podglądu/wydruku archiwów wystarczy odwrócić makro zapisu + jakaś zgrabna wyszukiwarka/filter. Jeśli z jakiegoś powodu będzie potrzebny...

Uproszczenie makra przenoszącego wartości w Excelu - sugestie optymalizacji

[syntax=vbnet]Sub Pobieranie_IL2() 'otwieranie pliku źródłowego Dim fd As FileDialog Dim wkb1 As Workbook, wkb2 As Workbook Application.ScreenUpdating = False Set wkb1 = ThisWorkbook Set fd = Application.FileDialog(msoFileDialogFile... With fd .InitialFileName = Environ("HOMEPATH") & "\Desktop\" .Filters.Clear .Filters.Add "Pliki Excel", "*.xl*;...

Edycja makra do aktualizacji kolumny E w wielu plikach Excela

[syntax=vb] Sub PobierzDane() Application.ScreenUpdating = False Dim Sciezka As String, Plik As String, nw As Long, wbk As Workbook, fl As Boolean Sciezka = "C:\Users\kowalczyk.marek\Desktop\sss\" Plik = Dir(Sciezka & "*.xlsx") fl = False While Plik <> "" Set wbk = Workbooks.Open(Sciezka & Plik) With ActiveSheet If .FilterMode Then .ShowAllData...

VBA Excell - Brak polskich znaków z użyciem CMD/DIR

Potrzebuję w VBA excel szybko wyszukać we wszystkich podkatalogach na dysku sieciowym pliki spełniające określone kryteria. I tak znalazłem fajny, czyli bardzo szybko działający kod. Niestety jest problem z polskimi znakami. Wynik działania tego kodu jest na przykład taki jak, poniżej. C:\Users\Andrzej\Desktop\vba \Dzieä31.xlsm Literka ń jest zmieniona,...

Wklejanie wykresu z excela w tresc wiadomosci mailowej outlook (jako obraz)

ok to faktycznie działa. tylko prawde mówiąc nie wiem jak to zalączyć do html body Musisz zmienić na nazwę twojego wykresu. [syntax=vbscript]Sub elka() Dim oOutlook As Object Dim oEmail As Object Dim email As String Dim tytul, powitanie, linijka1, linijka2, linijka3, linijka4, linijka5, linijka6, linijka7, linijka8, linijka9, pozegnanie As String wykres...

[Excel VBA] Makro -po kliknieciu w przycisk otwierało by nowe okno z katalogiem

W poście niżej masz to opisane Ale tu zrobiłbym ciut inaczej, Np [syntax=vb]Sub otworz() 'otwieranie pliku z okna dialogowego z filtrem Dim fd As FileDialog Dim wkb As Workbook Set fd = Application.FileDialog(msoFileDialogFile... With fd .InitialFileName = "H:\CCC\ccc\" .Filters.Clear .Filters.Add "Pliki Excel", "*.xl*; *.xls*" .AllowMultiSelect...

Makro w Excelu zamienia format daty DD/MM/YYYY na MM/DD/YYYY - jak to naprawić?

Jak w Ciebie widac date w InputBox? w formacie "01/09/2015" lub innym? U mnia domyslnie jest "01.09.2015" A w jakim formacie Pan wpisuje? 01/09/2015 lub innym? Jak jest prawidlowo data w Polsce? ps Ponadto: Selection.AutoFilter Field:=4, ale data jest w kolumnie 3 Storyboard i w kolumnie 5 Main... Na ktorym arkusze chcesz Filter? Na Main SETTLE_DT -...

VBA Excel - Usuwanie danych w arkuszu za pomocą ListBox

Witam, Przygotowuje narzędzie dzięki któremu druga osoba będzie mogła w prosty sposób dodać albo usunąć dane z arkusza. Dodawanie jest proste, gorzej z usuwaniem Stworzyłem UserForm a w nim TextBox1 gdzie użytkownik wpisuje wartość, którą chce usunąć. Po wpisaniu tej wartości w ListBox1 wyświetla się ta wartość lub sugeruje odpowiedź. Przykład: Użytkownik...

Excel VBA - kopiowanie unikalnych danych i nagłówków do nowego arkusza

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()...

Jak zsumować wyfiltrowane usługi w Excelu i łączyć zeszyty?

Próbowałem w ten sposób zrobić makro. W zeszycie 2 zaznaczam to co mnie interesuje następnie kopiuje do ostatniego filtrowanego wiersza w zeszycie 1, tylko coś mi to nie wychodzi mógłby ktoś zerknąć? Poniżej kod: (powstały w oparciu o to co udało mi się wyszukać jeżeli bardzo źle to wygląda proszę o wyrozumiałość :)) Range("A1:H4").Select Application.CutCopyMode...

[Visual C++] Jak uzyskać listę plików w katalogu i zmienić kolor tekstu w Edit Box?

Polecam MSDN Library - tam jest wszystko i nie tytlko o MFC!! Zobacz CFileDialog::CFileDialog This constructor creates an instance of a standard Windows CE file dialog box-object. Either a Open or Save As dialog box is constructed, depending on the value of bOpenFileDialog. The following code example demonstrates how to use CFileDialog to rename or...

Excel - Jak przenieść dane między tabelami o różnym układzie?

https://obrazki.elektroda.pl/9396852000_... Wstępna ocena dostępnych informacji Na załączonym ekranie widoczne są dane zapisane w arkuszu kalkulacyjnym Excel. Arkusz zawiera trzy główne tabele: 1. Tabela 1 (kolumny A-D): zawiera dane liczbowe pod nagłówkami „LO”, „CW”, „ZW”, „CO”. 2. Tabela 2 (kolumny E-H): na razie wypełniona jedynie w...

Otwieranie wybranego okna VBA excel i zamknięcie starego okna

Witam A gdzie masz [syntax=dos]Workbooks.Open?[/syntax] [syntax=vbscript]Sub WybierzPacjenta() Dim plik As Workbook Dim wybierzPlik As Workbook Dim fDialog As FileDialog, result As Integer Set fDialog = Application.FileDialog(msoFileDialogFile... Set plik = ActiveWorkbook With fDialog .Title = "Wybierz Plik" .InitialFileName = desktop & "\Dietetyk\Pacjenci\"...

Excel VBA: filtrowanie arkusza przez UserForm – imię (kolumna Q) i miasto (kolumna L)

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 = False sh.Range("A5:DD100").AutoFilter 17, init End Sub[/syntax] Teraz moj...

Excel - jak stworzyć uniwersalny skrypt do obliczania godzin pracy?

Każdy otwarty plik ma swój indeks w kolejności otwierania. Plik, w którym zaczynasz: Workbooks(1), następnie (2), (3) itd. Można otworzyć bodaj 256, ale tego jeszcze nie próbowałem :) :arrow: marek003 Wypróbuj otworzyć kilka takim Sub otwórz() Dim fdiag As FileDialog Dim plik As Variant Dim ostatni As Byte Set fdiag = Application.FileDialog(msoFileDialog...

[Excel] VBA - Jak wczytać dane z pliku txt z separatorami do arkusza?

Spróbuj z rozdzieleniem po wczytaniu całej linii. Np[syntax=vb]Sub wczytajPlikTekstowy() Close #1 'dla pewności Open ".\dane.txt" For Input As #1 wrs = 1 Do Until EOF(1) kol = 1 Line Input #1, liniatekstu tbl = Split(liniatekstu, "|") For i = 0 To UBound(tbl) Cells(wrs, kol) = tbl(i) If IsNumeric(Cells(wrs, kol)) Then Cells(wrs, kol) = Cells(wrs, kol)...

Program do usuwania z tekstu kolejnych powtarzających się wyrazów

Jeśli korzystasz z arkusza kalkulacyjnego Excel, to można w nim napisać własną funkcję tzw. UDF, która może wykonać to zadanie. Zakładam, że dane są w jednym ciągu tekstowym, rozdzielone spacjami, i można je umieścić w komórce arkusza. Listing funkcji jest taki: [syntax=vbscript]Function Unikaty(src As String) As String Dim lista, wyn, i As Long lista...

Excel, koperty - Makro lub formułą pozwalająca dodać adresata z listy

Niestety nie interesuje mnie wysyłanie do wszystkich tylko do pojedynczych osób.. Do korespondencji seryjnej możesz wykorzystać bazę z jakimś polem od którego będzie zależało czy adres się drukuje czy nie.(wstawiasz w to pole np. jakiś krzyżyk) Nie musisz drukować całej bazy za każdym razem. Tu na pewno coś znajdziesz Korespondencja seryjna jest mi...

Excel - makro do kopiowania danych z Plik2 do Arkusza1 na podstawie ID klienta

Wklej do modułu pliku "Glowny_Plik.xls" Option Explicit Sub Pobierz() On Error GoTo koniec Dim fd As FileDialog, ark As Workbook, i As Long Dim plik As Variant, modulo As String Dim thWkb As String, ostWrs As Long, wrs As Long Set fd = Application.FileDialog(msoFileDialog... Application.ScreenUpdating = False With fd .Filters.Clear...

Algorytm wygładzania temperatur w piecu do palenia kawy

Podsumowując to jeszcze raz: Płomień załącza się/wyłącza gdy SH/SL odbiega dla T-air o 5 C od SV..Filtrowanie T-bean może być z tym mechanizmem ściśle powiązane..amplituda T-bean WYRAŻA histerezę T-air stosowaną do mechanizmu włącz/wyłącz..a Giesen wyprowadził tę wartość na panel, jako "pomiar" T-bean.. Moje pytanie jest następujące: skąd system "wiedział",...

VBA Excel - Kopiowanie konkretnych komórek między dwoma arkuszami

Wyszła podwójna (coraz gorzej z moim "okiem" ;) "słoik" (wzór) został "słoniną" (wynik). Cóż, zdarza się :) Zastąp poprzednie, poniższym [syntax=vb]Option Explicit Sub KopiujAle() Dim fd As FileDialog, wkb As Workbook, test As String Dim shSrc As Worksheet, wrs As Long, kol As Integer, wrsDst As Long Set fd = Application.FileDialog(msoFileDialogOpen...

Excel 2010: Automatyczne pobieranie danych z pliku o zmiennej nazwie

[syntax=vbscript]Sub Import() Set a = ActiveWorkbook nw = a.Sheets("Arkusz1").Cells(Rows.Count, "A").End(xlUp).Row + 1 Set fd = Application.FileDialog(msoFileDialogFile... With fd .InitialFileName = Environ("USERPROFILE") & "\Desktop" .AllowMultiSelect = False .Title = "Wybierz plik" .Filters.Add "Excel", "*.xls*" If .Show = True Then Plik =...

EXCEL/VBA wyszukiwanie fragmentu tekstu na bazie listy

Witam. Mam dwie bazy danych - TABELA OBCA I MOJA TABELA. Dla przykładu są one w załączonym pliku w jednym arkuszu, ale docelowo będą w oddzielnych arkuszach (20 - 30 tysięcy wierszy). Chcę stworzyć własny indeks, który będzie zawierał informacje z MOJA TABELA po znalezieniu ich w TABELA OBCA. Chcę aby znalazł dane z MOJA TABELA (kol C-D) w TABELA OBCA...

Excel (VBA) - wyszukiwanie komórki w tabeli przestawnej

Można tak: [syntax=vbscript]Sub Elipsa2_Click() Application.ScreenUpdating = False If Not Arkusz5.ListObjects(1).DataBodyRange Is Nothing Then Arkusz5.ListObjects(1).DataBodyRange.Del... lokal = Cells(1, ActiveCell.Column) koszt = Cells(ActiveCell.Row, "A") With Arkusz2 If .FilterMode Then .ShowAllData ost_w = .Cells(.Rows.Count, "A").End(xlUp).Row...

Excel VBA – automatyczne drukowanie formularzy dla podzleceń z bazy zewnętrznej

Rozwiązań jest naprawdę sporo Zgadzam się z tym poglądem i choć autor postu chyba zasypał się w tych rejestrowanych makrach :-) to podsuwam nieco inne rozwiązanie tego zadania marek003 obawiam się uruchomienia takiego masowego wydruku na nieokreślonej drukarce (jednostronna czy dwustronna) i dlatego proponuję rozwiązanie z exportem wszystkich podzleceń...

Szukam artykułu z Elektora 6-8.2000 o przedwzmacniaczu na lampach ECL86

Witam Powiedz mi jeszcze gdzie on jest :P ? Elektor UK | 2000 | DE || UK 2000 June Intelligent Door Lock Kinetic Auto Relay One-Wire Spy Make Your Own Mini DVDs Magnetic Card Reader Valve Preamplifier (1) Electronics OnLine: Tiny Webservers PC Interface for CAN Bus Wireless Application Protocol (WAP) DVD - The Megastore OCX Instruction Set (Lego) Lego...

Wzmacniacze mocy audio - zdjęcia, dane techniczne.

http://obrazki.elektroda.net/62_12899044... P Series FPA-P12000 1、 P series are professional amplifiers with dual channel power amplification circuit. 2、 Stereo, bridged, parallel three connection modes(factory setting is steteo). 3、0dB、+4 dB、+10 dB three Input: sensitivity for adjustment(factory setting is +4...

Pobieranie danych z Excela do 15000 wierszy poprzez VBA - kod i rozwiązanie

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 Sheets.Add After:=ActiveSheet Sheets(2).Name = "EXPORT" With Application.FileDialog(msoFileDialogOpen...

Jak napisać makro w Excelu, które dodaje kod do innego pliku?

Witam Przeanalizuj [syntax=vbnet]Sub Proba() Dim fd As FileDialog Dim wkb1 As Workbook, wkb2 As Workbook Dim VBProj As VBIDE.VBProject Dim VBComp As VBIDE.VBComponent Dim CodeMod As VBIDE.CodeModule Dim LineNum As Long Const DQUOTE = """" ' cudzysłów " Set wkb1 = ThisWorkbook Set fd = Application.FileDialog(msoFileDialogFile... With fd .InitialFileName...

[VBA] EXCEL 2010 - kopiowanie z wielu wierszy spełniających podany w

Można zwykłą pętlą For + kopiowanie komórek, np. [syntax=vb]Sub kopiowanie_danych() 'Arkusz1 to jest Worksheets("DANE") 'Arkusz2 to jest Worksheets("WARUNEK") 'Arkusz3 to jest Worksheets("DANE WYJŚCIOWE") Application.ScreenUpdating = False Dim war As String With Arkusz3 war = .Range("A1").Value If .FilterMode Then .ShowAllData .Range("C7:G" & Rows.Count).ClearContents...

Jak zaimportować plik *.txt do Excela z możliwością wyboru pliku?

Pomoc nadeszła z innego forum :-) http://forum.idg.pl/index.php?showtopic=... Kod zmodyfikowany do moich potrzeb Option Explicit Sub Import() ' ' Importu Makro ' Makro zarejestrowane 2008-06-13, ' ' 'zapobiega "migotaniu" ekranu podczas wykonywania makra: Application.ScreenUpdating = False Dim strFullName As String strFullName...

Excel: Makro do sumowania godzin dla unikalnych numerów klientów

To teraz caly kod wyglada tak "Private Sub CommandButton1_Click() Dim sciezka As String With Application.FileDialog(msoFileDialogOpen... .AllowMultiSelect = False .Filters.Clear .Filters.Add "Pliki Excel", "*.xls" .Filters.Add "Wszystkie pliki", "*.*" .FilterIndex = 1 .InitialFileName = "C:\" .Show For lngCount = 1 To .SelectedItems.Count sciezka = .SelectedItems(lngCount)...

Kopiowanie danych z jednego do drugiego arkusza w te same miejsca

Jak zmodyfikować kod, by mógł pobierać dane ze skoroszytu, który mam aktualnie otwarty i nie chcę go zamykać Zakładając, że rozpoczynasz od makra (makro w module), spróbuj tak: 1. Usuń zamykanie pliku i czyszczenie zmiennej 'wb' 2. Deklarację zmiennej 'wb' przenieś do nagłówka modułu 3. Zamknij przypisanie oraz 'FileDialog' w instrukcji warunkowej...

vba/excel - połączenie i porównanie dwóch arkuszy

Pewnie można by za pomocą funkcji i tabel przestawnych, ale tu aż się prosi o użycie jednego zapytania SQL. Usuń kropki z nazw kolumn, sformatuj wszystkie daty jako daty, plik zapisz jako .xlsm i użyj: [syntax=vbscript]Private Sub CommandButton1_Click() On Error GoTo myErr With Sheets("wynik") If .FilterMode Then .ShowAllData .Range("A2:G" & Rows.Count).ClearContents...

Excel VBA: Jak przefiltrować tabelę po dzisiejszej dacie i usunąć filtry?

Odnośnie filtrowania dzisiejszych: [syntax=vbnet]Sub pokaz_dzisiejsze() Dim oTable As ListObject Dim sDate$ sDate = Format(Date, "mm/dd/yyyy") With Sheets("Arkusz1") .Unprotect Set oTable = .ListObjects("Tabela1") oTable.Range.AutoFilter Field:=1, Criteria1:=Array("="), Operator:=xlFilterValues, Criteria2:=Array(2, sDate) End With End Sub[/syntax] Odnośnie...

makro-otwieranie plików wg kolejności alfabetycznej

Ale, ale. U mnie zmienna 'test' "pokazuje" posortowane, bez względu na kolejność zaznaczania.[syntax=vbscript]With fd .InitialFileName = Environ("HOMEPATH") & "\Desktop\" .Filters.Clear .Filters.Add "Pliki Excel", "*.xl*; *.xls*" .AllowMultiSelect = True .Show For i = 1 To .SelectedItems.Count test = .SelectedItems(i) Next End With[/syntax]Może toto...

Makro VBA Excel - Zwiększenie wartości w pierwszym pustym wierszu w kolumnach

Jak widać nie każdy lubi łowić ryby ;P Zwiększasz tylko numer dla ostatniej pozycji - dla VBA to co masz w komórce nie jest liczbą,a tekstem. Musisz go najpierw rozdzielić funkcją Split() po myślniku, następnie w ostatnim elemencie tablicy zwiększyć liczbę o jeden i na koniec - "skleić" tablicę na powrót w wymaganym formacie. Jak przedmówca wspomniał...

makro otwierające źródłowy folder i zapobiegający otworzeniu niewłaściwego pliku

Spróbuj tak [syntax=vbscript] Dim fd As FileDialog Dim wkb1 As Workbook, wkb2 As Workbook Const fileName As String = "A.xlsx" ' nazwa pliku do otwarcia Application.ScreenUpdating = False Set wkb1 = ThisWorkbook Set fd = Application.FileDialog(msoFileDialogFile... With fd .InitialFileName = ThisWorkbook.Path .Filters.Clear .Filters.Add "Pliki Excel",...

Formuła w Excelu co kilka wierszy - jak to zrobić?

1. Pomocniczu kolumnę =MOD(WIERSZ();6)=1 2. Filter po niej = PRAWDA 3. Wprowadź żądaną formułę i przeciągnij w dół 4. Kasuj filter 5. Kasuj Pomocniczu kolumnę.

Jak usunąć uporczywe pop-upy, gdy Avast 4.7 i Ad-Aware SE nie pomagają?

Prosze bardzo. Oto log z HiJackThis: Logfile of HijackThis v1.99.1 Scan saved at 14:32:35, on 2007-03-17 Platform: Windows XP Dodatek SP2 (WinNT 5.01.2600) MSIE: Internet Explorer v6.00 SP2 (6.00.2900.2180) Running processes: C:\WINDOWS\System32\smss.exe C:\WINDOWS\system32\winlogon.exe C:\WINDOWS\system32\services.exe C:\WINDOWS\system32\lsass.exe...

Jak napisać makro do kopiowania arkuszy między plikami Excel?

Ostatnio otwarty plik ma najwyższy indeks, więc wystarczy policzyć (Workbooks.Count). Pełną nazwę ze ścieżką możesz "wydłubać" zaraz za poleceniem Open. W przykładzie wstawiłem MsgBox'y w miejsce gdzie nazwę możesz przypisać do zmiennej Sub Otwarcie_skoroszytu() Dim fd As FileDialog Dim vrtSelectedItem As Variant Set fd = Application.FileDialog(msoFileDialog...

makro w excelu które po kliknięciu otwiera okno wyboru i wkleja zdjęcie

Witam, Mam taki problem. Nie jestem zbyt zaawansowany w pisaniu makr. Ostatnio próbowałem napisać w excelu takie, które po naciśnięciu przycisku, który wstawiłem do dokumentu przez formanty formularza, otworzy okno wyboru, gdzie będe mógł wybrać zdjęcie w formacie jpg lub mapy bitowej a następnie wklei do dokumentu to wybrane przeze mnie zdjęcie, w...

VBA Excel - Usuwanie wiersza jeśli jest w nim dane słowo, łączenie kilku makr

wyciągnąć z tych txt liczby pierwsze od lewej. Innymi słowy trzeba wyciągnąć rzeczywistej średnicy i zaokrąglenie? Oraz Rozmiar osi X? Dodano po 53 Spróbuj [syntax=vb]Sub Wybierz_wyniki_do_analizy() Dim plik As String, r&, c&, i&, krt krt = Array("Circle:*", "Diameter*", "Circularity*", "Plane:*", "X-axis*") Filt = "Wszystkie pliki (*.*),*.*"...

Jakie silniki do LPG w autach 5-drzwiowych do 2.0 i 45 tys. zł?

Dziękuję za sprawdzenie. Tylko upewniłeś mnie w przekonaniu że na papierze ten samochód wygląda bardzo dobrze bo ten MOT który napisałeś został zrobiony przez kolesia który go teraz sprzedaje i data i mile zgadzają się co do joty. Teraz zostaje mi go tylko zobaczyć, przejechać i się i podjąć decyzje. Koleś wysłał mi także informacje wszystkich rachunków...

[VBA] [VBA][Excel] Import wielu plików PGN do arkuszy z nazwami plików

Po sugerowanych poprawkach kod wygląda następująco: Option Explicit Private Sub CommandButtonImportujPlik_Click()... On Error GoTo myErr Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Dim i, j As Integer Dim fDialog As Office.FileDialog Dim varFile As Variant Set fDialog = Application.FileDialog(msoFileDialog...

Jakie dławiki do przetwornicy impulsowej? Wybór odpowiedniego rodzaju

Akurat te dławiki - serii DPU w TME - to niekoniecznie są dławiki przeciwzakłóceniowe. Za PDFem: "DP Series Power Inductors provide an excellent, low cost alternative to conventional chokes or inductors. Used in EMI filtering and energy storage, these compact, low radiation inductors are extremely effective in controlling AC output ripple of Switch...

EXCEL VBA - Kopiowanie danych ze starego pliku do nowo utworzonego

1. Edit: Do otwarcia pliku za pomocą dialogu można użyć [syntax=vb]Plik = Application.GetOpenFilename(FileFilter, FilterIndex, Title, ButtonText, MultiSelect)[/syntax]

[EXCEL] Jak użyć zmiennej dla nazwy pliku w VBA Excel?

Zacznijmy od tego że da się użyć zmiennej. Sub test() plik = "test.xls" //ten zmieniający się plik Workbooks.Open ("c:\test.xls") //tu jakaś ścieżka do niego Windows(plik).Activate //tu go aktywujemy ( nie widać bo jest 1szy ) Windows("glowny.xls").... // Tu aktywujemy plik...

Avast - ikona i komunikat błędu po kliknięciu, co się stało?

Logfile of HijackThis v1.99.1 Scan saved at 16:07:37, on 2007-06-07 Platform: Windows XP Dodatek SP2 (WinNT 5.01.2600) MSIE: Internet Explorer v7.00 (7.00.6000.16441) Running processes: C:\WINDOWS\System32\smss.exe C:\WINDOWS\system32\winlogon.exe C:\WINDOWS\system32\services.exe C:\WINDOWS\system32\lsass.exe C:\WINDOWS\system32\svchost.exe C:\WINDOWS\System32\svchost.exe...

VBA EXCEL - Jak zmienić nazwę i skopiować plik do OneDrive?

Okej a więc udało mi się uzyskać ścieżkę ale nadal jest coś nie tak + nie wiem jak zmienić nazwę pliku na nową. [syntax=vb]Sub upload() Dim fd As FileDialog Dim vrtSelectedItem As Variant Set fd = Application.FileDialog(msoFileDialogFile... With fd .AllowMultiSelect = False .Title = "Chose file to add" .Filters.Clear .Filters.Add "PDF", "*.pdf"...

excel VBA - Kopiowanie danych z innego pliku - co tu nie gra??

Witam Męczę się już kolejny dzień, nie wiem co zmienić w tym kodzie aby Dane z pliku "A" w którym jest tabela z danymi (A1:M30) - wiele komórek scalonych, kolorowa i w ogóle no i dane oraz formuły. Problem w tym, że formuła kopiuje tylko do pierwszego arkusza a di tego wyskakuje komunikat "subscript out of range" a ja chciałbym kopiować do arkusza w...

Analiza logu HijackThis - komputer się muli i resetuje, Windows XP SP2

Witam, ostatnio mam problemy z kompem,często sie muli bez powodu i resetuje.Robiłem skan mks'em ale nic nie wykrył.Poniżej jest logfile z hijackthis, problem w tym ze, nie nie wiem czy wszystko jest ok. Za pomoc z gory dziekuje,pzdr siwkins Logfile of HijackThis v1.99.1 Scan saved at 18:56:14, on 2006-02-24 Platform: Windows XP Dodatek SP2 (WinNT 5.01.2600)...

Makro Excel: Kopiowanie danych do arkusza CSV, problem z formatem pliku xlsm

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 As Worksheet: Set robWS = robWB.Worksheets("MAKRO") Dim fd As FileDialog...

Analiza loga HijackThis v1.99.1 na Windows 98 SE - prośba o sprawdzenie

Proszę o sprawdzenie Loga z hijackthis Dziekuje Logfile of HijackThis v1.99.1 Scan saved at 20:49:10, on 06-12-30 Platform: Windows 98 SE (Win9x 4.10.2222A) MSIE: Internet Explorer v6.00 SP1 (6.00.2800.1106) Running processes: C:\WINDOWS\SYSTEM\KERNEL32.DLL C:\WINDOWS\SYSTEM\MSGSRV32.EXE C:\WINDOWS\SYSTEM\MPREXE.EXE C:\PROGRAM FILES\COMMON FILES\MICROSOFT...

VB Excel - jak otworzyć okno wyboru pliku lub folderu?

Przykład pierwszy z brzegu z helpa vba excela Sub Main() Dim fd As filedialog Dim vrtSelectedItem As Variant Set fd = Application.filedialog(msoFileDialog... With fd .Filters.Clear .Filters.Add "All files", "*.*" .Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1 If .Show = -1 Then For Each...

Makro-otwieranie pliku i kopiowanie arkusza

[syntax=vbnet]Sub Otwieranie_pliku() Dim fd As FileDialog Dim wkb1 As Workbook, wkb2 As Workbook Application.ScreenUpdating = False Set wkb1 = ThisWorkbook Set fd = Application.FileDialog(msoFileDialogFile... With fd .Filters.Clear .Filters.Add "Pliki Excel", "*.xl*; *.xls*" .AllowMultiSelect = False If .Show = -1 Then Set wkb2 = Workbooks.Open(.SelectedItems.Item(1)).....

EXCEL VBA - Jak wywołać okno Zapisz jako z konkretną ścieżką?

aby okno przyjmowało konkretną ścieżkę z serwera połączyć okno z daną ścieżka na serwerze pracuje na serwerze jest problem z ścieżką do serwera i tak w kółko 1. Skąd jest plik, który próbujesz zapisać na serwer ? Z tegoż serwera, czy miejscowo, z DT ? 2. Czy mapowania ścieżek do serwera mogą się zmieniać w czasie ? 3. Spytaj admina, czy przypadkiem...

Jak edytować kod VBA do kopiowania danych między plikami Excel?

Znalazłam taki kod. [syntax=vbnet]Sub ImportDatafromcloseworkbook() 'Update 20150707 Dim xWb As Workbook Dim xAddWb As Workbook Dim xRng1 As Range Dim xRng2 As Range Set xWb = Application.ActiveWorkbook xTitleId = "KutoolsforExcel" With Application.FileDialog(msoFileDialogOpen... .Filters.Clear .Filters.Add "Excel 2007-13", "*.xlsx; *.xlsm; *.xlsa" .AllowMultiSelect...

Makro eksportujace do UTF8 - Jak dodac okno wyboru folderu zapisu ?

Spróbuj[syntax=vbscript]Sub ADODB_method() 'Apr 15, 2014 ' 1 kolumna slowo, 2 kolumna definicja badz tlumaczenie - pisac bezposrednio slowo w a1, i definicje badz tlumaczenie w b1 , makro eksportuje plik wsadowy do anki do tego samego folderu w ktorym jest arkusz excela Dim fd As Object Const myDelim As String = "," '<<< select comma or semicolon...

VBA EXCEL - Tworzenei makra do wczytywania części danych z pliku .txt

:arrow: PRL Nie prościej byłoby Split'em? Zobacz taki test [syntax=vb]strStr = Array("2011-01-12 00:00:00.000|bm2csrin|31310", "", "jakiś nagłówek", "2011-01-12 00:00:00.000|bm2csrin|") On Error Resume Next For i = 0 To UBound(strStr) p = Split(strStr(i), "|") test = p(UBound(p)) * 1 If test Then MsgBox test Else MsgBox "Linia " & i + 1 & ". Ciąg nie...

Makro w Excel: Wstawianie obrazu z dysku na podstawie wartości komórki

Metoda GetOpenFilename nie ma argumentu definiującego ścieżkę do pliku. Może zmień na dialog: [syntax=vb]Sub obraz2() Dim x As Double Dim y As Double Dim obraz As String Dim kom As Range Dim fd As Object Set fd = Application.FileDialog(msoFileDialogOpen... With fd .InitialFileName = "C:\" 'tu podstaw adres Np Range("A1") .AllowMultiSelect = False .Filters.Clear...

Jak dodać okno wyboru pliku do makra importującego pliki .txt w Excelu?

Oj, poszperać trochę, F1 nadusić :) [syntax=vb]Set fd = Application.FileDialog(msoFileDialogOpen... With fd .Filters.Clear .Filters.Add "Pliki txt", "*.txt" .InitialFileName = "C:\Documents and Settings\Administrator\Pulpit\lasy do mgr\strat\" .AllowMultiSelect = False If .Show = -1 Then plik = .SelectedItems(1) Else Set fd = Nothing Exit Sub End If End...

Excel - MAKRO VBA - porównuje i kopiuje. Kilka problemów.

Przerobilem znalexione w sieci makro tak ,że działa ale tylko na 2 plikach :/ nie wiem o co chodzi.. A chciałem aby działało na tylu plikach ile zaimportuje.. Możecie coś podpowiedzieć? I ewentualnie pomoc w jeszcze 2 rzeczach: 1) Wstawianie zer tylko tam gdzie: a) osoba jest zgodna ale nie ma wartości w całym wierszu b) tam gdzie nie znalazło nikogo...

Błąd NTVDM na Windows XP SP2 - analiza logów HijackThis i GMER

Witam Na kompie wyskakuje mi problem: NTVDM napotkał na błąd systemu ... . Z tego co zdążyłem poczytać to może to wynikać z infekcji kompa. Poniżej przedstawiam log-i z hijackthis i z gmera (skopiowane z okna rootkit/malware). Z góry dzięki za pomoc Logfile of Trend Micro HijackThis v2.0.2 Scan saved at 19:20:27, on 2011-04-10 Platform: Windows XP Dodatek...

CD-ROM - niska prędkość odtwarzania/nagrywania na Windows XP, tryb DMA włączony

Przeczyściłem dokładnie już kilka razy soczewkę lasera i problem nadal istnieje. Nie sądzę również, żeby była to słabnąca dioda, bo nagrywarka nie jest aż tak stara (niecałe dwa lata). Procesy są same domyślne dla Windowsa i żadnych innych. Czy mógłby ktoś podać jak ustawić CD-RW na Windows XP, pod kątem jak najlepszego transferu z CD? A to log z HijackThis:...

Czy Kenwood KAC-8105D wystarczy do głośnika JL 12W6 600W RMS?

Witam z wzmacniaczy które (tak przynajmniej deklaruje producent) 600W RMS oraz w kompaktowych obudowach <200$ znalazłem: 1) LANZAR MAX PRO MAXP1601D Max Pro Series 1-Channel Amplifier 1 x 750 Watts RMS at 4 Ohms 1 x 1500 Watts Max at 2 Ohms 1 x 3000 Watts Max at 1 Ohms Anti-Thump Turn-On Tri-Mode Configurable Soft Turn On/Off RCA Line Input and Output...

[VBA] VBA – Jak użyć zmiennej z nazwą pliku do kopiowania danych między plikami Excel?

Dim fDialog As Office.FileDialog Dim varFile As Variant tWkb = ThisWorkbook.Name Set fDialog = Application.FileDialog(msoFileDialog... With fDialog .AllowMultiSelect = False .Title = "Wybierz plik" .Filters.Clear .Filters.Add "Pliki Arkuszy Excela", "*.xls" If .Show = True Then For Each varFile In .SelectedItems...

[VBA] Wybór grafiki wyświetlanej w UserForm

Witam, mam taki kodzik na UserForm : http://obrazki.elektroda.pl/1634274300_1... i nie wiem bardzo co mam wpisać w polu ".Picture = LoadPicture("C:\Image Excel ActiveX Control Object.jpg")" '???' Aby ładował się wybrany plik przyciskiem "wybierz zdjęcie" Jakie pomysły ?

Jak usunąć AdwareSheriff z Windows XP SP2? Log z HijackThis v1.99.1

Logfile of HijackThis v1.99.1 Scan saved at 14:41:34, on 2006-02-12 Platform: Windows XP Dodatek SP2 (WinNT 5.01.2600) MSIE: Internet Explorer v6.00 SP2 (6.00.2900.2180) Running processes: C:\WINDOWS\System32\smss.exe C:\WINDOWS\system32\winlogon.exe C:\WINDOWS\system32\services.exe C:\WINDOWS\system32\lsass.exe C:\WINDOWS\system32\svchost.exe C:\WINDOWS\System32\svchost.exe...

Wyszukiwarka google! Przekierowanie na strony pornograficzne.

Witam A wiec tak odnośnie porad korzystania z programu, wklejam logi z tegoż programu Logfile of HijackThis v1.99.1 Scan saved at 13:11:22, on 2007-02-25 Platform: Windows XP Dodatek SP2 (WinNT 5.01.2600) MSIE: Internet Explorer v6.00 SP2 (6.00.2900.2180) Running processes: C:\WINDOWS\System32\smss.exe C:\WINDOWS\system32\winlogon.exe C:\WINDOWS\system32\services.exe...

Przewracający się ekran i przeskakujące wideo windows 8.1

Witam, przepraszam że tak długo, ale kompletnie nie miałem czasu... wymieniłem klawiaturę na nową i problem jest dalej. Robiłem rozmaite testy i problem pojawia się tylko w przeglądarce chrome. Nie chcę z niej zrezygnować , ale też nie chcę się "wk.. nerwować" bo nawet na sekundę nie odpuszcza. Próbowałem ze starszymi wersjami chrome ( teraz mam najnowszy)...

Jak usunąć dialer instalujący się samoczynnie na komputerze?

mam podobny problem, z tym ze nie moge wlaczyc IE, do netu wchodze przez 'moj komputer' i nie da sie go wylaczyc ani wylogowac! co mam zrobic? aha mi tez pojawiaja sie te pliki 12484.exe czy jakos tak i pisze mi ze to The Trojan horse TR/Dldr.Small.JZ.4 i The Trojan horse TR/Drop.Dialers.1 i uparcie daje DLETE FILE i te pliki mi sie co chwile pojawiaja...

Jak zablokować pobieranie zainfekowanego pliku cookie? Komputer się restartuje

Logfile of HijackThis v1.99.1 Scan saved at 16:30:32, on 2007-06-14 Platform: Windows XP Dodatek SP2 (WinNT 5.01.2600) MSIE: Internet Explorer v6.00 SP2 (6.00.2900.2180) Running processes: C:\WINDOWS\System32\smss.exe C:\WINDOWS\system32\csrss.exe C:\WINDOWS\system32\winlogon.exe C:\WINDOWS\system32\services.exe C:\WINDOWS\system32\lsass.exe C:\WINDOWS\system32\Ati2evxx.exe...

Analiza logów HijackThis - Windows XP SP3, komputer się zacina i zrzuca pamięć

komputer się zacina przy włączaniu i strasznie sie tnie podczas pracy, podczas włączania czasem pokazuje sie okienko trwa zrzucanie do pamięci fizycznej. Oto logi: Logfile of Trend Micro HijackThis v2.0.2 Scan saved at 17:29:32, on 2008-10-15 Platform: Windows XP Dodatek SP3 (WinNT 5.01.2600) MSIE: Internet Explorer v6.00 SP3...

Jak sprawdzić, czy komputer jest nadal zainfekowany po użyciu ComboFix?

Problem jest powszechnie znany ponieważ po otwarciu "mój komputer" i próbie otwarcia którejkolwiek partycji wyskakiwało mi okno Otwórz za pomocą. Wyczytałem gdzieś, że trzeba zainstalować kaspersky anti virus i to załatwi sprawę. Oczywiście nie załatwiło. Znalazłem informację żeby sprawdzić kompa HiJackThis. Tylko jak zaznaczyłem wszystko i zrobiłem...

[VBS][MAKRA] pobieranie danych z pliku i tworzenie wykresu

Można to osiągnąć np. taką kombinacją komend (do wywołania okna dialogowego potrzebujesz załączyć referencję do Microsoft Office 11 Object Library - w edytorze VBA tools->refrences) 'funkcja pobiera katalog z pełnej ścieżki Function GetDirName(ScanString As String) As String Dim intPos As Integer Dim intPosSave As Integer intPos = 1 Do intPos...

Makro vba Excel do wysyłania maila na adresy z kolumny

Dziękuję za odpowiedź, lecz coś nie chce działać. Jak dodałem ActiveSheet.AutoFilterMode nie resetuje filtra. 1. Ja użyłem nie ActiveSheet.AutoFilterMode lecz ActiveSheet.ShowAllData Gdzie jest błąd? Sub Clear_Filter() ' ' Clear_Filter Macro Sheets("BAZA").Select Range("A4").Select ActiveSheet.ShowAllData End Sub

[STM32] [STM32][C] Jak uruchomić moduły RFM12 na STM32 z programowym SPI?

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...

Zamykanie systemu (chyba blaster) - nic nie działa

Czytałem już parę wątkuów na ten temat i nie bardzo mi się to przydało. nadal Sxchost.exe zabiera mi mnóstwo pamięci a po jego zamknięciu "zamykanie systemu...(1 min)" po zamknięciu innych "svchostów" tak sie nie dzieję, dlatego podejrzewam, że to nie jest normalne?? mam log z hjt: Logfile of Trend Micro HijackThis v2.0.2 Scan saved at 00:12:07, on...

VBA Excel – wypełnienie szablo - VBA Excel – wypełnienie szablonu – działajšce m

Dzień dobry, Bardzo dziękuje za pomoc. Zapisywanie ze zmienioną nazwą już działa :-) Zmiana wielkości wykresów też działa :-) Jeżeli chodzi o zbudowania dwóch funkcji do uproszczenia makra, to rozumiem zasadę ale nigdy nie budowałem jeszcze funkcji w Exelu. Składnię chyba rozumiem ale nie wiem jak połączyć kilka poleceń w jeden argument. Bardzo poproszę...

VBA Excel - Program do Inwentaryzacji z wykorzystaniem czytnika kodów EAN

Przepraszam za post pod postem, ale chyba znalazłem przyczynę błędu i rozwiązanie jego, ale że jestem mało doświadczony w języku VBA proszę o pomoc doświadczonych programistów, aby pomogli mi ustawić poniższy kod do mojego, oto on : If Not IsError(aDataFromPivotFiltered(1, filteredCol) And Not IsError(aOutput(1, outputCol)) Then If aOutput(1, outputCol)...

VBA - Przypisanie do zmiennej ścieżki do pliku + nazwa arkusza

Niestety pomysł z odejmowaniem jednego dnia nie sprawdzi się gdyż sobota (zazwyczaj) i niedziela są dniami wolnymi od pracy. Dochodzą przypadki że np we wtorek jest święto i potrzebny jest w środę plik z poniedziałku a nie z wtorku. na forum znalazłem kod [syntax=vb]Sub test() Dim fDialog As Office.FileDialog Dim varFile As Variant Set fDialog = Application.FileDialog(msoFileDialogFile...

Makra Excel i Word - Jak zmodyfikować kod dla długiego łańcucha znaków?

owszem w komórce może być 32 767 znaków. Ale to jest inny problem. Chodzi mianowicie o to, że jeśli w komórce "H2" w "Arkuszu2" znajduje się powyżej 40 numerów PESEL przedzielonych przecinkiem i spacją. W momencie próby wykonania kodu pojawia się komunikat: "parametr typu string jest za długi". Poniżej cały kod: [syntax=vbscript]Private Sub CommandButton1_Click()...

Zwrotnice estradowe. Samodzielne wykonanie. Informacje. Filtry 12dB/oct.

RAczej nie ma problemu z różnicą impedancji, nie zagmatwa to obliczeń po prostu odejmie się 3 dB jesli wysokotonowy miałby 2x większą impedancję jak niskotonowy. Proszę zamieszczać ewentualne zwrotnice; a nie pisać że będą zamieszczane w jakimś czasie.... Między głosnikami jest jakies 10dB różnicy. Wstawiasz jeden filter 2-ego rzędu powiedzmy Linkwitz...