Dane - Filter nie dziala ?
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...
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
: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ę...
Witam Tutaj jest to opisane: http://office.microsoft.com/en-us/excel-... Pozdrawiam Krystian Tokarski
Wykres: http://www.litgrid.eu/index.php/dashboar... Excel: http://www.litgrid.eu/index.php/generate...
[url=https://www.mrexcel.com/forum/excel...
Jak sie robi filter po kolumnie? W filtracji mozna wpisywac tylko znaki..
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.
PRZESUNIĘCIE jest ciagly zakres i nie filter, dlatego w tu ilosc komorek(LICZ.JEŻELI) trafily inni projekty
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ż 😎
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...
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...
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;....
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.
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...
To ode mnie jeszcze taka propozycja funkcji (założyłem, że pozycje "X" są numerowane od 1, a nie odczytywane z arkusza): [syntax=vbscript]Function ZbierzX2(rZakres As Range) As String Dim wynik, i As Long ReDim wynik(1 To rZakres.Count) For i = 1 To rZakres.Count wynik(i) = IIf(rZakres(i).Value = "X", i, "-") Next i ZbierzX2 = Join(Filter(wynik, "-",...
Korzystać się nie da z tego po włączeniu (rozwala wyswietlane kolory). A jak "filter" jest wyłączony to oczy zaczynały boleć po około 30 minutach profesjonalnie monitor oceniony, na podstawie tego czy kogoś bolały oczy i ile ma "filtrów" światła... no tak... monitor za 300zł... Normalnie monitor kosztuje około 450–500 zł. Pewnie nie sprawdziłeś ceny....
[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 =...
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...
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...
[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*;...
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 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 -...
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...
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...
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...
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...
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,...
No to źeś teraz wszystkich zgasił. Tu się ludzie produkują i masz. To ja jedynie informacyjnie powiem, że Chiny już dawno rozwiązały problematykę obwodów w.cz. jako nieodzowny element klasycznego radia po prostu stosując w zamian cyfrową obróbkę DSP w jednym scalaku o bardzo wysokich parametrach. Przestrojenie takiego czegoś na interesujący zakres SW...
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...
Najprościej byłoby umieścić w tablicy/kolekcji i posortować (chociaż 'selecteditem' jest kolekcją, można więc spróbować sortowania "w locie").[syntax=vbscript]Dim fd As FileDialog Dim tablica As Collection Set tablica = New Collection Set wkb1 = ThisWorkbook Set fd = Application.FileDialog(msoFileDialogFile... With fd .InitialFileName = Environ("HOMEPATH")...
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...
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...
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ł",...
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...
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...
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ń...
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\"...
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...
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...
Na początek: Ad.1 i 3 Wstaw nowy moduł do pliku 'z_którego_kopiuje.xls' i wklej poniższy kod [syntax=vba]Option Explicit Sub KopiujAle() Dim fd As FileDialog, wkb As Workbook, test As String Set fd = Application.FileDialog(msoFileDialogOpen... With fd .InitialFileName = ThisWorkbook.Path .AllowMultiSelect = False .Filters.Clear .Filters.Add "Pliki Excela",...
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...
[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...
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)...
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...
Witam tu są Fideki od Chinola http://www.fidek.com.cn/e/default_home.a... 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...
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...
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...
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...
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ł...
Witam Pracuję nad pewnym excelem dla mojej firmy i potrzebuję odrobiny pomocy. Mianowicie zrobiłem formularz który uzupełnia tabelę, potrzebuję dodać możliwość wyboru pliku, zmiany jego nazwy na odgórnie ustaloną oraz skopiowanie tego pliku do innej lokalizacji(jeżeli to możliwe na dysk wirualny onedrive). Co udało mi się zrobić: do przycisku dopisałem...
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)...
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...
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...
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...
Dzięki, przejżę z pewnością wskazaną witrynę w poszukiwaniu rozwiązania tego i przyszłych problemów :) Jednakże, może ktoś pomogłby mi w poniższym problemie. Jest kod, który otworzy mi wskazany plik Excela, ale nie wiem co zrobić aby z tego otwartego pliku skopiować arkusze np.: Arkusz1, Arkusz2 i wkleić je na końcu w pliku z którego uruchamiałem makro....
Witam Procedura mojego zadanie wygląda następująco. 1. Wczytuje plik txt do excela 2. "Obrabiam do wg. swoich potrzeb 3. Eksportuje dane do txt, nadpisując plik importowany. 1 makro do wczytywania mam napisane. Problem jest jednak z drugim, ponieważ muszę wyeksportować tylko dane z kolumn od a do i. Problem drugi to jak nadpisywać plik txt bez konieczności...
Co powiecie o tej koncówce dobra będzie do basów waga 40 kg wygląd i opis wygląda na profesjonalny koniec gdzie można kupić ten model http://obrazki.elektroda.net/62_12899044... Fidek P Series FPA-P12000 1、 P series are professional amplifiers with dual channel power amplification circuit. 2、 Stereo, bridged, parallel three connection...
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:...
Witam, Podaję makro: Sub Logoeps() ' Logoeps Makro ' Option Explicit 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 = ActiveWorkbook.path & "\" & Range("M68") .AllowMultiSelect = False .Filters.Clear .Filters.Add "Picture Files", "*.png;...
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...
Udało się zrobiłem coś takiego, ponieważ przy każdym buttonie określam zakres kopiowanego arkusza. A jak wyłączyć pytanie o zapisanie danych w schowku?? pozdr [syntax=vb]Sub Kopiowanie_Danych() ' Dim fd As FileDialog Dim vrtSelectedItem As Variant Set fd = Application.FileDialog(msoFileDialogFile... With fd Filt = "Wszystkie pliki (*.*),*.*" FilterIndex...
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)...
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)...
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 są Start, Template i Page, reszta oczywiście zmienia się według daty i numeru strony, sam wiersz...
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...
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...
przeskanowałem dodatkowo komputer HijackThis o to log: Logfile of HijackThis v1.99.1 Scan saved at 11:38:02, on 2011-09-09 Platform: Windows XP Dodatek SP3 (WinNT 5.01.2600) MSIE: Internet Explorer v6.00 SP3 (6.00.2900.5512) Running processes: C:\WINDOWS\System32\smss.exe C:\WINDOWS\system32\winlogon.exe C:\WINDOWS\system32\services.exe...
Witam i proszę o sprawdzenie loga bo komputer mi troszkę zamula ;/ Logfile of HijackThis v1.99.1 Scan saved at 21:48:31, on 2007-10-18 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...
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...
Witam ponownie Mam problem z umieszczeniem procedury sprawdzającej czy jest włączony autofiltr i jeżeli jest, to wyłączający go. Znalazłem poniższy kod na forum [syntax=vbnet]If ActiveSheet.AutoFilterMode Then Cells.Select Selection.AutoFilter[/... nie potrafię włączyć go do swojego makra, żeby przed skopiowaniem kolumn z otwieranego pliku...
Logfile of HijackThis v1.99.1 Scan saved at 21:49:36, on 2005-12-28 Platform: Windows XP Dodatek SP. 1 (WinNT 5.01.2600) MSIE: Internet Explorer v6.00 SP1 (6.00.2800.1106) Running processes: C:\Program Files\Intel\Wireless\Bin\ZcfgSvc.exe C:\WINDOWS\system32\Ati2evxx.exe C:\WINDOWS\Explorer.EXE C:\Program Files\Apoint\Apoint.exe C:\Program Files\ATI...
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...
pipinet: po sfiksowaniu według Twoich zaleceń tj. O4 - HKUS\S-1-5-19\..\RunOnce: [nlsf] cmd.exe /C move /Y "%SystemRoot%\System32\syssetub.dll" "%SystemRoot%\System32\syssetup.dll" (User 'USŁUGA LOKALNA') O4 - HKUS\S-1-5-20\..\Run: [CTFMON.EXE] C:\WINNT\system32\CTFMON.EXE (User 'USŁUGA SIECIOWA') O4 - HKUS\S-1-5-20\..\RunOnce: [nlsf] cmd.exe /C move...
Witam Nie rozumiem tylko co to jest za skoroszyt Windows("Za+é¦ůcznik nr 2 rachunku umowy zlecenie.xls").Activate? Makro masz w jednym otwierasz drugi i kopiujesz do trzeciego pliku? Przepraszam może to jest mało zrozumiałe, ale ja próbuję metodą prób i błędów. Poniżej częściowy kod mojego makra, które wygląda teraz tak: [syntax=vbscript]Sub Pobieranie_IL()...
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)...
Temat bardzo ogólny głównie mi chodzi bardziej o to co otwiera ten proces i co zrobić aby się nie otwierał, gdyż zabiera mi 100% procesora. Może ktoś już się z czymś takim spotkał. Proces nazywa się update.tmp i nie idzie go zamknąc w menadżerze urządzeń oraz jakimś programem jeszcze próbowałem coś miał w nazwie kill. Z dysku też go oczywiście nie można...
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...
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...
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...
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...
Stworzyłem coś takiego, ale nie mogę sprawdzić, bo gdzie jest błąd i pokazuje się komunikat Block If without End If, ale nie potrafię znaleźć tego błędu.[syntax=vbscript]Sub wstawianie_IL_z_załącznikami() 'te dane mają być w makrze pobierającym arkusze 'otwieranie pliku źródłowego Dim fd As FileDialog Dim wkb1 As Workbook, wkb2 As Workbook Dim tblArkusze()...
kolego program po starcie windowsa wywala komunikat że nie może zostać uruchomiony, a następnie cały czas widzę go że jednak jest uruchomiony. Pisząc że nie dział dobrze - miałem na myśli że nie da się wejść do menu głównego programu, nie da się zmieniać opcji itp.. Logfile of Trend Micro HijackThis v2.0.2 Scan saved at 21:00:17, on 2007-10-16 Platform:...
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
Mam problem z komputerem który pracuje w marketingu więc ma niestety częsty kontakt z wirusami. wirusy oczywiście usunięte lecz skutek pozostał . Nie moge zmienić strony startowej i co jakiś czas włącza mi sie okno przeglądarki z reklamą. Próbowałem oczywiście Ad-Aware (uruchamia się ale po kilku minutach tak jakby sie wieszał, działa jedynie w trybie...
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",...
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ę...
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...
Logfile of HijackThis v1.99.1 Scan saved at 09:59:38, on 2007-11-23 Platform: Windows XP Dodatek SP2 (WinNT 5.01.2600) MSIE: Internet Explorer v7.00 (7.00.6000.16544) Running processes: C:\WINDOWS2\System32\smss.exe C:\WINDOWS2\system32\winlogon.exe C:\WINDOWS2\system32\services.exe C:\WINDOWS2\system32\lsass.exe...
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()...
Ludzie pomóżcie bo wymiękam. Jest problem tego typu. Od jakiegoś czasu jak chcę przeskanować kompa antywirem kasperskim, albo innym skanerem online np mks, norton, kaspersky, eset to mi wywala błąd explorer.exe jak dojdzie skanowanie do C:windows/temp. podejrzewam, że coś w nim siedzi ale ręcznie tego nie mogę usunąć, bo jak tylko najadę myszką na ten...
Witam bardzo proszę kogoś o sprawdzenie mojego loga z HijackThis z góry bardzo dziękuje. a oto log: Logfile of HijackThis v1.99.1 Scan saved at 12:15:26, on 2007-03-03 Platform: Windows XP Dodatek SP2 (WinNT 5.01.2600) MSIE: Internet Explorer v7.00 (7.00.6000.16414) Running processes: C:\WINDOWS\System32\smss.exe C:\WINDOWS\system32\winlogon.exe C:\WINDOWS\system32\services.exe...
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ę.
Witam serdecznie potrzebuje pomocy w dobraniu głośników, ich przeznaczeniem będzie granie spokojnej muzyki jak i okazyjna impreza okolicznościowa (muzyka wystarczająco głośna do tańcu). Sala jest rozmiarów 100m2 o kształcie prostokąta. Proszę o udzielenie rady odnośnie ilości głośników i ewentualny dodatkowe sprzęty wymagane do ich obsługi. Mam również...
Co jakiś czas otwiera mi się Mozilla i włącza się strona z jakąś toplistą. Nic nie rozumiem bo strona jest w innym języku. Przeskanowałem komputer różnymi programami i nic. Może log z Hijackthis coś wam powie: Logfile of HijackThis v1.99.1 Scan saved at 15:47:13, on 2006-06-11 Platform: Windows XP Dodatek SP2 (WinNT 5.01.2600) MSIE: Internet Explorer...
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...
Poniżej kod, który działa i wyszukuje mi wiadomości, które w temacie mają wprowadzone przez użytkownika frazy. Dzięki licznikowi zwraca on tylko jednego maila, jeśli znajdzie już o owym temacie w skrzynce (a nie wszystkie, które znajdzie), aczkolwiek chciałbym, aby makro zwracało mi ostatni wysłany, a nie pierwszy. Jakieś pomysły jak to można wykonać?...
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...
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...
filter głośnik filter design error filter
rysowanie charakterystyk filtra agregat lodówka polar podłączyć sterownik wentylatorów vectra
Demontaż miski olejowej Renault Espace IV 2.0 dCi - krok po kroku Wybór najlepszej anteny wewnętrznej 5G: pasma, MIMO, zysk
