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
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...
: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ę...
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...
[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*;...
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=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...
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...
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,...
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...
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...
[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 =...
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...
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...
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...
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...
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...
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...
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 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...
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\"...
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...
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",...
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...
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...
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...
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...
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, 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)...
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")...
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...
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ę.
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...
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...
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...
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 (*.*),*.*"...
Dzieki bardzo za pomoc raz jeszcze. Probowalem pokomilowac co niec i zrobilem sobie arkusz z dwoma przyciskami. Kod wyglada nastepujaco " 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",...
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:...
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...
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...
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)...
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...
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...
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 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...
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...
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...
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....
Proszę o pomoc, chłopak mojej koleżanki jakimś cudem widzi co ona ma otwarte na swoim komputerze. Podejrzewam że zainstalował jej szpiega. Jak sprawdzić czy na pewno i ewentualnie jak inaczej on może mieć dostęp do jej komputera. Komputery nie są w sieci, ona ma internet z neostrady. Poniżej Wklejam HT z jej komputera, rzućcie okiem i powiedzcie o co...
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...
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...
Jedna z metod na ustalenie ostatniego wiersza, którą ja stosuję: [syntax=vb]If FilterMode Then ShowAllData ost_w = Cells(Rows.Count, "A").End(xlUp).Row[/syntax] W tym wypadku - ustala wiersz z ostatnią komórką w kolumnie A. W zmiennej ost_w masz wtedy numer wiersza, który znaczkiem & możesz dokleić do adresu w VBA.
: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...
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 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...
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 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...
To jest mój log: Logfile of HijackThis v1.99.1 Scan saved at 18:40:13, on 2007-11-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\winlogon.exe C:\WINDOWS\system32\services.exe C:\WINDOWS\system32\lsass.exe C:\WINDOWS\system32\svchost.exe...
Jakby ktoś był łaskaw.Komputer strasznie muli.W załączniku OTL a poniżej Hijackthis. Logfile of Trend Micro HijackThis v2.0.2 Scan saved at 19:26:26, on 2014-04-09 Platform: Unknown Windows (WinNT 6.01.3505 SP1) MSIE: Internet Explorer v10.0 (10.00.9200.16843) Boot mode: Normal Running processes: C:\Windows\System32\smss.exe C:\Windows\system32\csrss.exe...
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 ?
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...
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...
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...
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...
no to lipa chyb bd musial formata zrobic bo do serwisu nie powioze a 2 kompa nie mam. Dodano po 11 a logi mozna zrobic przez wiersz polecen? Dodano po 4 bo znalazlem skrypt ktory po wklejeniu do otl uruchomi komputer i ten gosc to robil przez wiersz polecen a ja nie wiem jak to zrobic. Dodano po 5 wpisalem explorer w wierszu i mam pulpit wiec moze cos...
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...
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
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:...
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...
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ę...
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...
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()...
A więc wyjaśniam : Byłem u kuzyna który ma komputer totalnie w ten sposób zablokowany - może wchodzić tylko na niektóre strony. Jakimś cudem udało mu się odblokować skype i tą drogą podesłałem mu antyspyware . Ale obawiam się że "zwrotnie" dostałem jakiś syf który teraz mój komputer zaczyna blokować. Logfile of HijackThis v1.99.1 Scan saved at 09:31:04,...
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...
filter solution filter voltage filter results
amica pokrętło regulacji temperatury lustro prądowy audio cambridge
traktorek ursus traktorek ursus
Honda PH-1552L Clarion 428 TA – schemat płytki PCB, serwisówka, rozmieszczenie elementów Daewoo-FSO Lanos 1.6 – podłączenie węży kolektora ssącego, schemat króćców, podciśnienia