A skąd kolego masz ten pik z makrami "Skoroszyt.xlsm" ? Odpowiedz na pytanie Excela - czy masz go z zaufanego źródła ? :?: Zaufane źródła - z reguły nie ukrywają żadnych makr ani arkuszy typu "sheet8.xml" :D Otwórz sobie jakiś nowy skoroszyt, wprowadź jakieś dane i zapisz go raz jako zwykły skoroszyt(1) xlsx, a potem zapisz ten sam skoroszyt(2) jako...
Wcześniej znalazłem komendę którą wpisywało się do do okienka uruchom, która aktywowało plik vba6.dll Pewnie chodzi o rejestrację biblioteki w systemie - sęk w tym, że rejestrujesz w ten sposób jakąś starszą wersję biblioteki, która nie istnieje/lub nie jest zarejestrowana/ w systemie. Pisząc makro od początku w nowym pliku nie powinieneś mieć żadnych...
W drugim (UserForm1) formularzu pod przyciskiem bo próbuję i nie wychodzi.. Napisz co nie wychodzi. Jakiś komunikat o błędzie? Dane lądują nie tam gdzie trzeba?
Sformatowałeś dane jako tabela, nazwy w nagłówku tabeli muszą być unikalne...
Zakres docelowy musi zawierać zakres źródłowy. Tak, jak gdybyś to robił "ręcznie" przez Ctrl+d. Wg Twojego opisu powinno być [syntax=vb]Range("c99:g99").AutoFill Destination:=Range("c99:g1200"), Type:=xlFillDefault[/syntax]Jeśli rzeczywiście do końca arkusza [syntax=vb]Range("c99:g99").AutoFill Destination:=Range("c99:g" & rows.count), Type:=xlFillDefault[/syntax]
Jakie wersje Office na tych komputerach? Sprawdź (w komputerze "w pracy") w referencjach (Tools>References), czy któraś nie jest "missing". Jeśli tak, odznacz.
Czyżby taki prosty błąd?[syntax=vb] For i = 3 To ostWrs If (InStr(1, etat, "| " & .Cells(i, 5) & " |") > 0 Or .Cells(i, 5) Like etat) And _ (InStr(1, firma, "| " & .Cells(i, 9) & " |") > 0 Or .Cells(i, 9) Like firma) And _ (InStr(1, szef, "| " & .Cells(i, 10) & " |") > 0 Or .Cells(i, 10) Like szef) And _ (InStr(1, kopalnia, "| " & .Cells(i, 11) & "...
Kod z załączonego pliku ma błąd logiczny, bo po przejściu przez wybór zmienna pk_select_case ma wartość, która nigdzie dalej nie jest wykorzystana. P.S. Mój kod działa, ale jest bez sensu właśnie ze względu, który opisałem. Powinno być tak, jak napisałeś [syntax=vbscript]this.Cells(i, 9) = "SEC"[/syntax]
W przykładzie, gdzie Wziąłes formuła, została funkcja zdefiniowana przez użytkownika(Suma_Koloru), przepisz je do Twojego skoroszytu
Suma jest prawidłowa tylko trzebaby było "odsłonić" dni. Jeżeli mają być tylko godziny zmień format komórki na niestandardowy: [g]:mm
sprawdź teraz
Jeśli pod przyciskiem, to je połącz, a nie wpisuj formułę...[syntax=vb][d1] = [a1] & " " & [b1] & " " & [c1][/syntax]A dokładniej[syntax=vb]For i = 1 To zasieg Cells(i, 4) = Trim(Cells(i, 1) & " " & Cells(i, 2) & " " & Cells(i, 3)) Next[/syntax] Edit: Odwrotnie :) poprawiłem...
Plik jest istotny, tylko Ty zdaje się sprawy nie potraktowałeś zbyt poważnie, a to przecież Twój interes, nie nasz. W ramach drobnej złośliwości podrzuciłeś nam plik o "wadze" prawie 8 MB. Na innym forum to by nie przeszło. Czy Twój plik faktycznie tak wygląda? W kolumnie wyników są tylko zera, teksty albo błędy zamienione na "Brak"? Po co wobec tego...
Z jakiegoś powodu masz dziwnymi arytmetycznych - Sqr - pierwiastek kwadratowy z 2=1,41 30/1,41=21,28 co jest =>20 i <24 Być może trzeba z=x/y^2
>10000));"błąd";"ok") Masz błąd w nawiasach. Ten podwójny po 10000 powinien być pojedynczy czyli ...">10000);"błąd""....
[syntax=vbscript]Formula1:="=OFFSET($D$2...
...ListView, który jest inną kontrolką niż ListBox (ma inne właściwości i inaczej się do niego ładuje dane). Ten sposób ListView2.ListItems = "'BAAN 3'!G8:K97" ładowania danych NIE JEST poprawny dla ListView, zapomnij o nim. To działa tylko z ListBox'em. USUŃ z formy wszystkie ListBoxy które tam miałeś... Zamiast nich wstaw i skonfiguruj...
Weż dla pustego arkusza zastosuj: Dodano po 6 Reusso: Kolega sugerował użycie innej nazwy dla zmiennej, która przechowuje pierwszy wolny wiersz. Jeśli skasowałeś +1 to kolejne kopiowania będą nadpisywać ostatni wiersz. Nieprawda. Sugerowałem inny sposób znajdowania indeksu ostatniego używanego wiersza. A to, że się przyczepiłem, że LastRow + 1 jest...
Ta wersja firmware to chyba Bridge. Czyli przejście między starymi a nowymi softami. Powinieneś dograć do tego najnowszy firmware 57.73.92 wydany 10/03/2023 Nie wiem czy to rozwiąże Twój problem ale warto spróbować. Dziwne że serwisant nie zaktualizował softu. Maszyna w umowie?
Sam arkusz trochę dziwnie zaprojektowałeś. Przetestuj załączone rozwiązanie.
... Kiedy nie miałem filtrowania poprzez przycisk z makrem vba ukrywanie oraz chronienie komórki pomagało, lecz kiedy ma m filtrowanie z przycisku, to VBA wyrzuca błąd iż arkusz jest chroniony A czy w kodzie vba jest gdzieś taka linia (?): True , to po zablokowaniu arkusza dana czynność jest dozwolona. Tam gdzie jest False , jest ona zabroniona. ......
Jeżeli obsługuje tylko 7 zagnieżdżeń. Ale można inaczej: Spróbuj: =WARTOŚĆ(JEŻELI(H11<600;0,145... & JEŻELI(ORAZ(H11>600;H11<69... & JEŻELI(ORAZ(H11>699,9;H11<... & JEŻELI(ORAZ(H11>799,9;H11<... I tak dalej, nie chciało mi się...
Jeśli używasz słowa kluczowego preserve, można zmienić rozmiar tylko ostatni wymiar tablicy i nie można zmienić liczby wymiarów. Dodano po 1 np.[syntax=vb]ReDim X(10, 10, 10) '. . . ReDim Preserve X(10, 10, 15) [/syntax]
Jaka wersje Excel ? Jaky komunikat?
Jest przypisanie, jest wyszukiwanie wolnego wiersza, brakuje tylko instrukcji warunkowej. Napisz najpierw samą instrukcję, następnie podstaw wyszukiwanie i przypisanie. Przeanalizuj: [syntax=vb]If usfdiplomaden.ComboBoxprefix3.Value = "Frau" Then MsgBox "Kobieta, czyli ""in""" 'sprawdzimy czy dobrze. Później linię usuniemy 'wyszukanie1 'przypisanie1...
Przeciez masz komunikat ze jest tam Project VB Nie mam 2013, zrob zrzut ekranu VBA edytora
[syntax=vb]ListaArray = Array(RodzajLiniiLista, RodzajDodReaktLista)[/syntax] Elementy tej tablicy są typu variant, którym nie nadano wcześniej wartości, stąd mają wartość null. Kolega pewnie googla i wkleja, prawda?
Podmień na [syntax=vbscript]Sheets("TEST_2").ListOb... colStart), Cells(row, colEnd)).Value = Sheets("DoPowołania").Range("L1").Value[... lub [syntax=vbscript]Sheets("TEST_2").ListOb... colStart).Resize(, colEnd).Value = Sheets("DoPowołania").Range("L1").Value[...
Jak już wspomniałem, funkcje w Twoim arkuszu muszą działać na liczbach. Data w Excelu (wpisana jako data w formacie systemowym) też jest liczbą. Znając tą zasadę, przy odrobinie "inwencji twórczej", jesteś w stanie dokończyć zadanie samodzielnie. Obliczenia (odejmowanie dat) wykonuj w komórkach pomocniczych. Komórki zawierające wartości tekstowe będą...
Innymi słowy nazwy plików jak i nazwy arkuszy w "" a poprawnie jest wokbooks a nie workbook
Dzięki za linka.:)
Prawdopodobnie ta linijka powinna wyglądać tak: [syntax=vb]Cells(b + 2, 1).Formula = "=IRR(A1:" & Cells(b + 1, 1).Address & ")"[/syntax]
Proszę bardzo. :)
Zastąp [syntax=vb]iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, _ SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1[/syntax]poleceniem:[syntax=vb]iRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row + 1[/syntax]
Dobry wieczór, Zastosowana funkcja ILE.NIEPUSTYCH (COUNTA) pomija przy zliczaniu tylko komórki faktycznie puste, a te które zawierają formułę już nie są puste (nawet jeśli formuła zwraca pusty tekst). Inaczej zachowuje się funkcja LICZ.PUSTE (COUNTBLANK), która zlicza nie tylko komórki faktycznie puste, ale również te, które zawierają puste teksty....
Napisałeś pętlę nieskończoną. Nie do końca łapię co chcesz zrobić. Może wystarczy licznik pętli przesunąć poza gałąź If Do Until ActiveSheet.Range("A" & i) = "" Or ActiveSheet.Range("A" & i + 1) = "" If Range("A" & i).Value = 37258 Then Range("A" & i + 1).EntireRow.Insert...
Oj, kolega coś chyba dzisiaj niewyspany Nie spałem dziś dobrze.. :) To fakt. Dla potomnych :wink: - błędne okazały się argumenty funkcji COVAR(), które nie mogą być kolumnami, a muszą być z zakresu Range Nigdy jej nie używałem, ale miło się dowiedzieć :)
Użyj prostszego polecenia i się nie męcz: [syntax=sql]select ... from table1 A,table2 B where A.Id=B.Id[/syntax]
Nadal przy otwieraniu wyskakuje błąd: Compile error.
Zaraz zerknę. Dodano po 1 Faktycznie, był błąd - literówka w kodzie. Przepraszam. Poprawiłam i dołożyłam nowy arkusz grupujący wszystko. Zobacz teraz. Sprawdź, bo muszę wyjść na chwilę i nie mam czasu dokładnie sprawdzić. Jakby co - to pisz.
jak napisać regułę, która by podczas sumowania pomijała te komórki w których jest: #DZIEL/0! Możesz przechwycić/obsłużyć błąd korzystając z funkcji Czy.błąd - zwraca Prawda/Fałsz, które można ładnie związać z funkcją Jeżeli. W wersjach Excela od 2007 jest funkcja Jeżeli.błąd, która robi to "od razu". Wtedy bez względu co było wcześniej liczone i jakim...
Jaki błąd wyskakuje?
moze ktos ma pomysł jak to prosto ogarnąć Obawiam się, że przy pomocy Excela i VBA trudno to będzie funkcjonalnie zrealizować ;-) tym bardziej, że jak widać mamy tu do czynienia z jakimiś produktami spożywczymi i każdy błąd kodu może mieć poważne konsekwencje. Jak sam piszesz: przy uruchomieniu excel aktualizuje baze z zewnatrz to dlaczego nie wykorzystać...
To trzeba wykonywać program krokowo i gdy wystąpi błąd sprawdzić wartości wszystkich zmiennych. Opis błędu wskazuje, że nie ma arkusza o wskazywanej nazwie, więc trzeba dokładnie sprawdzić jakie są nazwy arkuszy, a co jest w komórkach. Jeśli nie znajdziesz sam przyczyny błędu, załącz przykładowy plik, bo tak to można tylko zgadywać.
Office 365 nie używa formatu VML. https://www.badsender.com/en/2024/0... VML (wektorowy język znaczników) to zastrzeżony język oparty na XML dla grafiki wektorowej w programie Outlook. Ten język służy również do wstawienia obrazów tła do programu Outlook. VML można użyć do tworzenia zaokrąglonych lub w pełni klikalnych...
Witam! A czemu nie załączyłeś "takiego" nietypowego pliku :?: :cry: IMHO - możliwości są co najmniej dwie :D : błąd pliku (np uszkodzony szablon nowego pliku), albo błąd aplikacji Excel :?:
Hej, Używam tego kodu do odczytu z Excela, odczytuje mi jedynie napisy, a gdy napotka na cyfrę, to wyskakuję błąd: unable to cast object of type system.double to system.string No i nie wiem jak to poprawić.. [syntax=csharp]using System; using System.Windows.Forms; using Excel = Microsoft.Office.Interop.Excel; namespace WindowsApplication1 { public partial...
zużycie paliwa w jakich jednostkach? L/100 km ? formuły musi wypełnić w werszach, po pierwszym "P" ale istnieje błąd w przypadku N po P
Przyjżałem się dokładnie i już myślałem że excel 2010 ma błąd a to autor wprowadza wszystkich nieuważnie patrzących w błąd. :) Taki test na inteligentną spostrzegawczośc. :) Wszystko działą dobrze i liczy dobrze (pierwsza formuła autora) tylko że 01-01-2012 to niedziela nie wtorek i wszystko się wyjaśnia. Na przyszłość formatuj datę niestandardowo na...
Arkusz zbiera bezpośrednio dane pomiarowe z urządzenia. Zbieranie danych w programie zewnetrzym i export do excela jest rozwiązaniem mniej korzystnym, niż wstawienie danych do konkretnej komórki wskazanej przez użytkownika.
Witam, Mam pewien problem. Od razu mówię, że nie jestem zbyt biegły od technicznej strony excel'a. A więc tak: Mam takie oto narzędzie do pracy: http://art30a.ucoz.pl/news/narzedzia_ana... Przy próbie wygenerowania 'plików gromadzenia danych" pojawia się błąd: "Microsoft Visual Basic. Run-time error '1004'. Method 'Open'...
Witajcie, Przy otwartym pliku wynikowym otwieram plik źródłowy (znajduje się w tej samej lokalizacji) i dane w pliku wynikowym zmieniają się w błąd #ADR! a w samej ścieżce informacja o nazwie arkusza w pliku źródłowym zmienia się na #ADR!. Przy otwarciu plików w odwrotnej kolejności błąd nie występuje. Spotkaliście się z czymś podobnym?
Witam, czy możecie mi powiedzieć dlaczego jak wykonuję poniższy kod to pojawia się błąd. Wykonanie kodu dla pliku o nazwie: 13012012.rpt przebiega poprawnie a jak wczytuję plik 14012012.rpt to pojawia się problem. Oba pliki załączyłem. [syntax=vb] Sub Czytaj() Dim PLU As String, Temp As String, J As Double, FullFileName FullFileName = Application.GetOpenFilename("Raport...
Chciałbym prosić o pomoc w poradzeniu sobie z błędem jak w temacie. Pracuje nad excelowym makrem w którym wykorzystuję metodę „AfterUpdate()” , w trakcie wykonywania makra pojawia się czasem powyższy błąd czego efektem, najczęściej jest zawieszenie się excela i ekran odzyskiwania dokumentu. Przyczyną błędu wydaje mi się, że wiem co jest....
Witam. Mam w/w błąd gdy próbuję odpalić ten oto kod. Proszę o szybką odpowiedź.
Na działających kilkunastu plikach od lat, w jednej chwili podczas aktualizacji wyskakuje ten sam błąd: Run-time error '3704': Operacja nie jest dopuszczalna gdy obiekt jest zamknięty.. cały system pobierania danych w jednej chwili padł. Proszę o pomoc, domyślam się, że może problem tkwi z sterownikami, zewnętrzną bazą danych. Nikt z pracowników nie...
Witam poproszę o pomoc w następującej sprawie pracuje na arkuszu Excel, który znajduje się na dysku wspólnym i dane do niego wprowadzają jeszcze inne osoby z różnych lokalizacji, osoby te wprowadzaja dane często kopiując je z jeszcze innego arkusza excel i co jakiś czas pojawia sie w arkuszu komunikat: " W skoroszycie istnieje zawartość, która powoduje...
Witam, Jestem w trakcie pisania pierwszego w życiu kodu w VBA i napotkałem pewien problem. Generalnie w programie chodzi o to, aby po naciśnięciu przycisku dane z formularza zamówienia dodawały się do historii zamówień na innym arkuszu, a następnie aby formularz zamówienia się drukował. Dokładnie co drugie wciśnięcie guzika robi to co zamierzone a w...
Witam, mam problem gdy kopiuję tabelkę z formułami z jednego pliku i chcę wkleić do innego pliku pojawia się komunikat o błędzie i wklejają się tylko wartości. Adresy komórek nie są zabezpieczone, ale w każdym dokumencie są te same, wersje excela są te same, tryby chronione są wyłączone, nie za bardzo wiem co się dzieje.
Cześć, jakieś tam makra pisze ale tego nie mogę przeskoczyć i proszę o pomoc. KOD: Sub Copy() Dim DNR_Ha As String Dim rok_Wniosku As Integer Dim poziom As Integer Dim wiersz_Ha As Integer Dim wiersz_Ba As Integer wiersz_Ha = 11 wiersz_Ba = 5 rok_Wniosku = Workbooks("HARMONOGRAM (makra).xlsm").Worksheets("Harmonogram")... 7) poziom = Workbooks("HARMONOGRAM...
Witam Nie wiem czemu, dlaczego obsługa błędu: [syntax=vb]On Error GoTo ErrTrap[/syntax] Nie przechwytuje mi błędów. Procedura która pobiera wartości z komórek w momencie gdy napotka wartość "Null" powinna przeskoczyć do obsługi błędu lecz tak sie nie dzieje. wyskakuje mi błąd "94". Czy jest to spowodowane brakiem biblioteki .DLL? Proszę o pomoc Poniżej...
Prośba o sprawdzenie kodu. Kod składa się z 5 "oddzielnych" programów, które pojedynczo (1 z nich zostawiam, a resztę zakomentuję) działają. Problem pojawia się, gdy chcę go uruchomić jako całość. W 60% przypadkach coś nie działa. Program wykona się cały bez errorów, ale 1) często wczytuje dane, a potem nie usuwa pustych wierszy 2) źle porównuje obie...
Zrobiłem funkcję, która wyszukuje wartość "150" i jeśli znajdzie taką wartość, to zapisuje dane do tablicy dwuwymiarowej w zakresie st do kc. Podczas uruchamiania wywala mi błąd Run-time error "9" w linii [syntax=vbscript] tablica(7, k) = wart[/syntax]. Jak zrobię mniejszy zakres pętli to jest ok. [syntax=vbscript] Sub Tace2() ' liczy tace Dim tablica(1...
[Początkujący] Dzień Dobry, Problem mam taki, że jak kopiuje komórkę wynikową to w docelowej komórce otrzymuje błąd #ADR!. mój kodzik na samo kopiowanie: Sub kopiuj() Range("J6").Select Selection.Copy Range("A36").Select ActiveSheet.Paste Application.CutCopyMode = False End Sub Z góry dziękuję za informację jak można pozbyć się problemu związanego z...
Nie daję już rady i proszę o pomoc. Wpisywanie nowych danych działa poprawnie, natomiast gdy dam Odśwież pokazuje mi błąd. Już siedzę nad tym z miesiąc i noga. Nie jestem mocny w te klocki i już myślę nad rezygnacją wpisywania nowych danych przez wywołanie UserForm, i wpisywaniu ręcznie kolejnych pozycji. Tylko że będzie ich docelowo ok 2000. Proszę...
Cześć, mam sobie takie odwołanie do innego pliku: =FRAGMENT.TEKSTU('J:\FOLDER\[PLIK]NAZWA_... kiedy plik źródłowy (PLIK) jest zamknięty wszystko jest ok, natomiast kiedy go otwieram, oczywiście formuła zmienia się, ale zamiast nazwy arkusza pojawia się błąd #ADR. =FRAGMENT.TEKSTU('[PLIK]#ADR'!a1;2;2) Jakieś pomysły czemu tak?
Witam mam problem z fragmentem kodu: Dim WierszPoczZakr As Integer Dim KolumnaPoczZakr As Integer Dim WierszKonZakr As Integer Dim KolumnaKonZakr As Integer Dim WierszNazwy As Integer Dim Numer As Long WierszPoczZakr = 3 KolumnaPoczZakr = 1 WierszKonZakr = 3 KolumnaKonZakr = 2 WierszNazwy = 3 KolumnaKonZakr = 3 Numer = Dane.Cells(7, 5).Value...
błąd excel excel błąd pomiarowy excel formatować błąd
lexmark regeneracja tuszu zostawać płyn dozownik ustawienia fabryczne lumia
nawiewnoki akustyczne samsung np900x3c
VW Passat B7 1.6 TDI 2011 – maska otwiera się podczas jazdy, zamek, linka, naprawa Falownik Huawei SUN2000, Sofar, Growatt – czerwona środkowa dioda, alarm/FAULT, diagnostyka