range address

Makro VBA do otwierania pliku źródłowego z hasłem bez okienka hasła

[syntax=vbnet]arg = "'" & ActiveWorkbook.Path & "\" & "[" & "1.xls" & "]" & "Arkusz1" & "'!" & Range("A3").Range("A1").Address(, , xlR1C1) a = ExecuteExcel4Macro(arg) [/syntax]

Nagrywarka LG GSA 4176B - błąd LOGICAL BLOCK ADDRESS OUT OF RANGE przy nagrywaniu

LOGICAL BLOCK ADDRESS OUT OF RANGE ** Possible poor disc; Attempting to write over 650MB of data to the CD; mastering software bug or conflict.

Nie znalazłeś odpowiedzi? Zadaj pytanie Sztucznej Inteligencji

Excel - Makro do sumowania danych z 500 plików xls do UŻYWANE.xls

Prawie dobrze ;) Spróbuj: [syntax=vb]Sub Makro2() MyPath = "C:\magazyn\" myname = Dir(MyPath & "*.xls", vbNormal) rang = Array("D1:F10") 'tu dopisz ile trzeba ark = "Arkusz1" On Error Resume Next 'If ofs > -1 And Err = 0 Then With Sheets("Arkusz1") 'nazwa arkusza docelowego w UŻYWANE.xls For Each rn In rang .Range(rn) = Empty Next Do While myname...

Exel - makro do odkrywania wierszy po wyborze z listy rozwijalnej

Jest to zrobione makrem zdarzeniowym Worksheet_Change, reagującym na zmianę wartości w komórkach B9:D9. Makro jest w module arkusza, w którym jest formularz. Treść makra: [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target(1).Address = Range("f_rodz_nieruchomosci").Address Then Rows("33:76").Hidden = True With Worksheets("Legenda")...

[tyny13][c]AVRDUDE: ERROR: address 0x0410 out of range.

mirekk36 ma tu oczywiście rację. Dodatkowo użycie rand() bez inicjalizacji przez srand() zawsze po resecie zwróci taką samą "losową" liczbę. Generator liczb pseudolosowych trzeba jakoś zainicjalizować.

VBA - archiwizacja - Sprzężenie dwóch skoroszytów

wartość w komórce "B18" była kopiowana z komórki "B18" pierwszego arkusza skoroszytu "Karty C-34 [syntax=vb]Private Sub Workbook_Open() sPath = ThisWorkbook.Path & "\" sFile = "Karty C-34.xls" sShName = Range("C2") sAddress = "'" & sPath & "[" & sFile & "]" & sShName & "'!" & Range("B16").Address(ReferenceStyle:=xlR... '" vData = ExecuteExcel4Macro(sAddress)...

MAKRO - Jak zmodyfikowac proste makro tak by działało w nowych arkuszach?

Stoję przed ostatnim w zasadzie problemem mianowicie w jednym z pól mam taką formułkę: ='10-07-13'!C25+'11-07-13'!C24 która jak widać opiera się na pobieraniu wartości z pola z poprzedniego dnia+wartość z pola z obecnego dnia. czy mogę jakimś sposobem zmodyfikować tą formułe (lub powyższe makro) tak aby sama wiedziała że ma korzystać z zadanych pól...

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

ale ja nie widzę tutaj błędu Usuń kropkę :) [syntax=vbnet] Range("BZ3").End(xlDown).Address[/syntax...

VBA: Ładowanie danych z tabeli Excel do ListBox w formularzu użytkownika

Witam jeszcze raz Ja mam tak i działa. Private Sub UserForm_Activate() CB_REJON.RowSource = Sheets("Arkusz1").Range("TAB_REJON[REJON... URZADZENIE.RowSource = Sheets("Arkusz1").Range("TAB_URZADZ[URZA... CB_TYP.RowSource = Sheets("Arkusz1").Range("TAB_TYP[TYP]").... CB_SYMBOL.RowSource = Sheets("Arkusz1").Range("TAB_SYMBOL[SYMB...

Jak zsumować zakres od Q5 do dynamicznie wstawianej kolumny w VBA?

[syntax=vbscript]Range(kol2 & 5).Formula = "=SUM(" & Range(Cells(5, "Q"), Cells(5, Range(kol2 & 1).Column - 1)).Address & ")"[/syntax]

EXCEL - Kopiowanie danych do arkusza z wcześniejszego, z wykorzystaniem wartości

Proponuję: 1) Zamiast formuły z funkcją JEŻELI zastosować formułę z funkcją MAX. Uniknie się w ten sposób dwukrotnego odwołania do tych samych danych. 2) Jeżeli będziesz przestrzegał zasady, że nowe arkusze są dodawane zawsze na początku (a nie na końcu, jak robi się zazwyczaj), to będziesz potrzebować zawsze odwołań do następnego arkusza w kolejności....

VBA: Błąd w pętli For Each przy wyszukiwaniu słowa kluczowego w Excelu

No masz rację. Zapomniałem na śmierć o ParamArray. Spróbuj [syntax=vb]Function SEARCH_KLUCZ(klucz As Range, ParamArray lista()) Dim kom As Range, i As Integer For i = 0 To UBound(lista) For Each kom In Range(lista(i).Address) If kom.Value = klucz.Value Then SEARCH_KLUCZ = SEARCH_KLUCZ & " " & kom.Offset(0, 1).Value End If Next Next End Function[/syntax]

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

[attiny2313] [attiny2313][C] Optymalizacja kodu sterującego diodami LED

ERROR: address 0x0810 out of range Kod wyszedł za duży. Masz włączoną jakąś optymalizację?

Jak naprawić błędy 91 i 424 w makrze VBA SUMIFS między plikami Excel?

Czemu muszę zrobić SET na wart? Bo to zmienna obiektowa. Podobnie jak inne zmienne typu Excel.ObjectName, Np Worksheet, Workbook, etc Możesz oczywiście podstawić String, Np[syntax=vbscript]Dim strRn As String strRn = "B1:B2" 'przypisanie MsgBox Range(strRn).Address 'test[/syntax] 2. Niepoprawnie deklarujesz: "Dim ok, ostk As Integer" Tylko "ostk" jest...

Zrzut pliku dla Flash 25Q40CL su TV Samsung UE55MU6120KXZT

Hello my friend. I also had a corruption problem once on this TV in low address range. I had put this memory content. Good repair

Makro VBA: Dynamiczna lista sprawdzania poprawności w Excelu (kolumna B)

[syntax=vbnet]With Range("H3:H200").Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=$B$3:" & Range("B3").End(xlDown).Address .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With[/syntax]

vba makro pętla do kopiowania i wklejania komórek

Jeśli adresy w podglądzie są prawidłowe, to podstaw kopiowanie. [syntax=vbscript]Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets("Arkusz2") wdst = 3 With ws For w = 2 To 812 Step 6 For k = 11 To 24 Step 3 'podgl = Range(Cells(w, k), Cells(w, k + 2)).Address(0, 0) & " kopiuj do " & Cells(wdst, 8).Address(0, 0) .Range(.Cells(w, k), .Cells(w, k +...

VBA - Jak ustawić zakres drukowania z użyciem zmiennych?

Temat odrobinę podpada pod "zaniżanie poziomu". Jeśli argumenty są w cudzysłowach, to znaczy, że są typu String. Prawda? Podstaw je pobierając z komórek lub InpuBox'a... Przeanalizuj taki[syntax=vb]Dim zmienna As String, zmienna2 As String zmienna = Range(InputBox("wpisz Np a1:g65")).Address MsgBox zmienna 'adres zakresu zmienna2 = Range(InputBox("wpisz...

Lista dynamiczna hiperłączy do wrzystkich arkuszy

Spróbuj zmienić kod na: [syntax=vbscript] Sub Przycisk1_Kliknięcie_2() Dim xSheet As Worksheet Dim xRow As Integer, xCol As Integer Dim calcState As Long Dim scrUpdateState As Long Application.ScreenUpdating = False xRow = 1 xCol = 1 With Me .Cells.ClearContents .Cells(1, 1) = "INDEX" .Cells(1, 1).Name = "Index" End With For Each xSheet In Application.Worksheets...

VBA Excel - porównanie listy użytkowników podczas otwarcia pliku

:) [syntax=vbscript]Sub Log_Ok() Dim ostkomzakr As String Dim LogOk As Range With ThisWorkbook.Sheets("Jakiś_arkusz").Rang... ostkomzakr = Split(.Address(0, 0), ":", -1, 1)(1) Set LogOk = .Find(Environ("Username"), .Range(ostkomzakr), xlFormulas, xlWhole, xlByRows) If LogOk Is Nothing Then Set LogOk = .Find(Environ("Username"), .Range(ostkomzakr),...

Makro VBA do tworzenia i zapisywania etykiet z pliku DANE ETYKIET

Rety! Po kolei. Nie chcesz otwierać pliku, OK. Ale po co przepisywać jeśli można pobrać do zmiennych, albo od razu do wzorca (tu trzeba zdecydować i ustalić kolejność). Krok 1 - pobieranie danych z pliku. Wypróbuj takie coś (katalog z plikiem skopiowałem sobie na pulpit) [syntax=vbscript]wrs = 2 pth = Environ("USERPROFILE") & "\Desktop\Etykiety\" plik...

Ograniczenie internetu na routerze Edimax BR-6204WG

Rozumiem, że chcesz ograniczyć pasmo połączenia z Internetem. Local IP address: IP komputera, który chcesz ograniczyć - musisz na nim ustawić stały IP - wyłączyć dhcp Local port range: 0-65535 Remote IP address: adres bramy domyślnej z pierwszego obrazka Remote port range : 0-65535 traffic type: puste Jeżeli w polu bandwidth możesz wybrać jednocześnie...

Automatyczne uruchomienie makra w Excelu po zmianie wartości w kolumnie O

A czy można i jak zapisać aby działało w całej kolumnie? W kolumnie, wierszu, zakresie, poza zakresem. Jak sobie życzysz. Po wpisaniu 'Target' i postawieniu kropki w edytowanym kodzie, otworzy się lista rozwijalna z własnościami i metodami. M.in. Address, Column, Range, Row, itp. W niemal każdym przypadku będzie nieco inna składnia zapisu. Można o...

Jak wywołać ListBox z innego arkusza w Excelu? Błąd przy UserForm.

Potrzebna jeszcze nazwa arkusza. Np "Baza!" & Range("Firma").Address lub po prostu: ListBox1.RowSource = "Firma"

Horizon Go UPC, ustawienie DDNS

Rozumiem, że to przekierowanie włączam na Horizonie w zakładce Forwarding, tam trzeba podać Public Port Range, Target IP Address, Target Port Range, Protocol. Nie wiem zbytnio jak to poustawiać.

[exel] VBA Excel: Dlaczego czasami ComboBox jest pusty mimo ustawionego RowSource?

Prawdopodobnie nie zawsze masz aktywny właściwy arkusz. Uzupełnij odwołanie Np Me.ComboBox9.RowSource = Sheets("Arkusz1").Rang... 21), Cells(33, 21)).Address ' data

Jak stworzyć makro do otwierania skoroszytów i kopiowania danych z komórki D3?

Makro nie musi otwierać skoroszytu Szybsze (w działaniu) rozwiązanie tj bez otwierania i zamykania plików może wyglądać tak: [syntax=vbscript]Public Sub wypisz() Set a = ThisWorkbook.Sheets(1) x = a.Cells(Rows.Count, "A").End(xlUp).Row + 1 Set objFSO = CreateObject("Scripting.FileSystemObject... Set objFolder = objFSO.GetFolder("C:\testfolder") 'Tu...

Kopiowanie odpowiadających komórek z jednego skoroszytu do drugiego- VBA

Prototyp. Chcemy aby, po wpisaniu danych w dowolną komórkę pustego skoroszytu, excel sprawdził, czy w skoroszycie pierwszym To nie jest dobry pomysł, żeby za każdą zmianą w jakiejkolwiek komórce przeszukiwać arkusz z pliku z danymi. No chyba, że plik otworzymy przy otwieraniu pliku głównego.

Błąd address out of range przy wgrywaniu bootloadera na Arduino Mega

Próbuje wgrać bootloader stk500v2 przy pomocy kabla usb i wprowadzenia arduino w tryb dfu. 😛

makro połączenie w pętli sprawdzenia poprawności z formułą

Bez sprawdzania [syntax=vbscript]Dim kom As Range For i = LBound(tblArkusze()) To UBound(tblArkusze()) With Sheets(tblArkusze(i)) Set rngTmp = .Range("O2:O" & Cells(.Rows.Count, "B").End(xlUp).Row) With rngTmp.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=$BY$2:" & Range("BY2").End(xlDown).Address...

Jak dokonać zmiany danych wg drzewka?

Zdaje się, że o coś takiego (kod wkleić do modułu) - przetestować, dostosować do własnych potrzeb. [syntax=vb]Sub bla() Dim psc As String, adr1 As String, adr2 As String Dim kom As Range, ile As Integer, msg As String psc = "100239b" 'psc = "100238b" 'psc = "elektroda" 'to w pętli po kolumnie A z Arkusz2 With Sheets("baza danych") On Error Resume Next...

Linksys WRT54Gl - Jak zmienić IP routera z wgranym Tomato 1.28?

Jak zmienić IP routera z wgranym Tomato 1.28 ? google nie pomógł :( Aktualni router ma fabryczny 192.168.1.1 a chcę zmienić na 192.168.10.1 W zakładce Basic => network => Router IP Address zmiana nie skutkuje. Wskazuje wtedy jakieś błędy na: IP Address Range192.168.1.100 - 192.168.1.149. po odhaczeniu "DHCP Server" to "IP Address Range" znika i po zapisaniu...

ComboBox-dlugość listy rozwijana zależnie od ilosci pozycji

jedna z możliwości [syntax=vbscript]Private Sub UserForm_Initialize() ComboBox1.RowSource = Range("A1:A" & Sheets("Arkusz1").Cells(Rows.Count, 1).End(xlUp).Row).Address End Sub[/syntax]

Jak stworzyć makro drukujące Arkusz 2 w Excel 2007?

[syntax=vbscript] Range(f, [ActiveCell.Row].Address).Select [/syntax] Wynalazłem coś takiego ale coś jest źle.

ATtiny13 - błąd podczas programowania "Mismath at location 0x00000000"

To pamięć EEPROM po jej odczytaniu Flash :) Programowanie obydwiema nakładkami kończy się takim błędem? Jaka wersja AVRDUDE? Próbowałeś użyć linii poleceń? A błąd ERROR: address 0x0050 out of range at line 5 może też sugerować że jest coś nie tak z plikiem HEX, możesz go wrzucić? Twój plik ma (powinien) 102 bajty więc powinno być ok.

"VBA" hiperłącze/hiperlink do odpowiedniego arkusza

Nagraj makro "Wstaw hiperłącze". Dość prosto je potem zmodyfikować. Powinno być coś podobnego do[syntax=vbscript]ActiveSheet.Hyperlink... Anchor:=Range("C3"), Address:="", SubAddress:= _ Sheets(Sheets.Count).Name & "!C3", TextToDisplay:="Jakaś Nazwa"[/syntax] i doklej gdzieś za 'Sheets("Lista").Select'

Excel - Makro automatyczne sortowanie dat oraz budowanie zestawienia

ad.1 [syntax=vbscript]Sub NumerujTabele() Sheets("Wydruk").Select For x = 2 To 4 adr = Split(Range("Tabela" & x).Address, ":") pw = Range(adr(0)).Row ow = Range(adr(1)).Row If ow > pw Then Range("A" & pw) = 1 Range("A" & pw + 1).Formula = "=A5+1" pw = pw + 1 Range("A" & pw).AutoFill Destination:=Range("A" & pw & ":A" & ow) Else Range("A" & pw) = 1 End...

Makro do sprawdzania poprawności w kolumnie O w wielu arkuszach Excel

Można zdefiniować tablicę z nazwami arkuszy w których mają być dokonywane zmiany i przejść pętlą po arkuszach wpisanych do tej tablicy: [syntax=vb]Sub zz() Dim tblArkusze() Dim i& Dim rngTmp As Excel.Range tblArkusze() = Array("I L", "II L", "III L") 'nazwy arkuszy w których mają być wykonane zmiany For i = LBound(tblArkusze()) To UBound(tblArkusze())...

[VBA Excel] - Plik inwentaryzacyjny - operacje na polach tekstowych

Jeżeli zliczasz dane po numerze w kolumnie 5 to zauważ, że masz tam spacje na końcu - najpierw musisz się ich pozbyć. Natomiast samo zliczanie można zrealizować w ten sposób (jak rozumiem w komórkę R2 chcesz wpisywać wartości ręcznie): [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) With Target If .Address = "$R$2" Then If .Value <>...

Router 8level WRT 150A przerywa połączenie po przerwie w dostawie prądu

Jeśli WAN hula to w LAN ustaw na 172.16.0.0 IP address: 172.16.0.1 subnet: 255.255.0.0 DHCP - ON/enable IP range: 172.16.0.1 - 172.16.0.100 Wszystkie karty-klienckie na auto-config

RTL8720DN, RTL8710B, RTL8710BX Kompatybilność z OpenBeken?

Muszę go jeszcze dostroić, gdy próbuję zrzucić z 0x0, to nie flash jest zrzucany. Flash zaczyna się od 0x080000, a kiedy próbuję ustawić go na tę wartość, gdb drukuje to: Using memory regions provided by the target. There are no memory regions defined. dump_bw16.txt:5: Error in sourced command file: Invalid memory address range (start...

Jak skonfigurować zdalny dostęp do kamery IP AC5089 przez NETGEAR DG834G?

OK.W takim razie napewno coś jest nie tak. Ponieważ po wpisaniu jednej i drugiej kombinacji brak dostępu do kamerki. A co najciekawsze po wyłączeniu routera zmienił się adres IP i nie została zmiana przekierowana na dyndns-a.Na podgląd kamery wchodzę wpisując nowy adres w pasku przeglądarki.W zakładce routera Remote Mangament jes tak : http:\\xx.xx.xxx.xxx:8080...

ukrywanie ilości kolumn po wpisanie wartości w komórkę

[syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Range(Cells(1, Target), Cells(1, 120)).EntireColumn.Hidden = True End Sub [/syntax]

Excel - makro do automatycznej aktualizacji łączy w plikach xls

Spróbuj [syntax=vb]Sub przeplywy() MyPath = "e:\przeplywy\" myname = Dir(MyPath & "*.xls", vbNormal) Do While myname <> "" ark = "raport" rn = "G7" arg = "'" & MyPath & "[" & myname & "]" & ark & "'!" & Range(rn).Range("A1").Address(, , xlR1C1) a = ExecuteExcel4Macro(arg) If IsNumeric(a) Then b = b + a End If myname...

Router Planet BM 500 – konfiguracja przekierowania portów i poprawa wydajności

Witam wszystkich userow tego forum. Byc moze nie jest to odpowiedni temat do mojego pytania(za co przepraszam jesli tak). Otoż problem polega na tym ze jestem adminem sieci i ostatnio pojawiły sie problemy bo niektorzy naduzywaj swobody p2p. Duzo czytałem o Qos. Moj ap to planet WRT-414. Oczywiscie ma on obsługe Qos ale nie umiem jej obsługiwać. Jak...

[VBA Excel] - Podgląd zdjęć z serwera zewnetrznego

Spróbuj z obsługą błędu:[syntax=vb]Sub wstawfoty() Dim Filename$, place As Range, myPic As Object, kom$ Dim zakreszdjec As Range, sciezkazdjec As String Set zakreszdjec = Range("A1:A10") For Each place In zakreszdjec kom = place.Offset(, 1).Address Filename = sciezkazdjec & place 'If FileExists(Filename) = True Then On Error Resume Next Set myPic =...

Excel: Jak automatycznie dodawać/odejmować wartości z C2 do A2?

[syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$2" Then [A2] = [A2] + [C2] [C2] = Null End If End Sub [/syntax]

Jak skonfigurować QoS na routerze Planet WRT-414 dla kontroli p2p?

Witam wszystkich userow tego forum. Byc moze nie jest to odpowiedni temat do mojego pytania(za co przepraszam jesli tak). Otoż problem polega na tym ze jestem adminem sieci i ostatnio pojawiły sie problemy bo niektorzy naduzywaj swobody p2p. Duzo czytałem o Qos. Moj ap to planet WRT-414. Oczywiscie ma on obsługe Qos ale nie umiem jej obsługiwać. Jak...

[c] PetitFS pf_read() – jak działa odczyt pliku na AVR, przykład użycia w kodzie C

To działa dokładnie tak samo jak w funkcjach ReadFile lub WriteFile z WinAPI. Trzeci argument to wskaźnik na WORD, ponieważ funkcja zwraca ile bajtów faktycznie odczytano właśnie poprzez tą zmienną. Może być tak, że chcesz czytać 1024bajty (btr=1024) a funkcja odczyta tylko 1000 bajtów (z dowolnego powodu, np. address out of range). I jak inaczej ma...

Excel VBA - Pobieranie danych spółek WIG20 do arkuszy

Witaj. [syntax=vb] Sub HtmlConnection() Dim myURL As String, myQuery As String Dim bCancel As Boolean aspo = Array("bdz", "wig20", "wig30", "wig50") For i = 0 To UBound(aspo) myQuery = "?s=" & aspo(i) myURL = "http://stooq.pl/q/d/l/" & myQuery ' zapytanie On Error GoTo ErrOpenURL Sheets(i + 1).Activate With Sheets(i + 1).QueryTables.Add(Connection:=...

Makro Excel - Makro zapisujące plik z nazwą z danej komórki, które kopiuje zazna

[syntax=vbscript]Sub Makro() p = [A1] 'Nazwa pliku jest w komórce A1 Cells.Copy Workbooks.Add ActiveSheet.Paste Application.CutCopyMode = False Range("B21:E21,G21:V21,AB17:AB18,B17:V20... With Selection.Validation .Delete .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _ :=xlBetween .IgnoreBlank = True .InCellDropdown...

Firma++ na Windows XP nie rozpoznaje klucza LPT - jak uruchomić?

Firma++ w wersji 2.71, może być problem w wersji? UserPort.zip - UserPort 2.0. Full port address range support nic nie daje. Straciłem juz niestety nadzieje, chyba że macie jakis pomysł.

Excel VBA - ComboBox - błąd podczas pobierania zawartości listy z tablicy

Witam Od dłuższego czasu nie mam żadnej odpowiedzi. Bardzo proszę o pomoc !!! Postaram się uprościć moje pytanie. Dlaczego w niżej podanym kodzie nie jest przekazywany adres? [syntax=vb] Dim i As Integer Dim y As String ' lista wyboru Dim ListaArray As Variant Dim Ctr As Integer ListaArray = Array(RodzajLiniiLista, RodzajDodReaktLista) RodzajLiniiLista...

Automatyczne dodawanie obrazków i hiperłączy w Excelu po wpisaniu kodu

No oczywiście że nie:) musiałam posprzątać.... więc tak był mały problem z offset ale dałam radę sama to poprawić.. Proszę się nie śmiać tu powinno być wielkie wow dla mnie :D czepiał się o Address bo offset był ustawiony (0,-1) no ale szczegół. ActiveSheet.Hyperlinks.Add anchor:=Range(aktywna).Offse... 4), Address:="Zdjęcia/"...

Brak połączenia z internetem na Windows 10 z routerem TP-link tl-wr743nd od lokalnego dostawcy

Router to. TP-link tl-wr743nd Wpisuje 192.168.0.1 i nie otwiera się okno z ustawieniami. "If the Router's IP address is 192.168.0.1, your PC's IP address must be within the range of 192.168.0.2 ~ 192.168.0.254". "The default domain name of the TL-WR743ND 150Mbps Wireless AP/Client Router is http://tplinklogin.net, the default IP address is 192.168.0.1,...

Excel VBA - porównywanie wartości ComboBox'ów z różną ilością cyfr

wartości są brane z listy rozwijanej, a do list rozwijanych wprowadzane sa z tabeli exel przy użyciu: Me.ComboBox1.RowSource = Range(Cells(5, 3), Cells(16, 3)).Address 'ilosc godzin pracy Me.ComboBox2.RowSource = Range(Cells(4, 3), Cells(a, 3)).Address 'ilosc godzin uciazliwych Me.ComboBox3.RowSource =...

Excel - makro czyszczące listy rozwijalne, błąd przy obróbce danych

Żeby się pozbyć skutecznie tego problemu zastąp: Target - Target.Address i Range("x17") - Range("x17").Address Upierdliwość powinna ustąpić. Edit: adamas_nt jak zwykle szybszy :D Masz teraz dwie możliwości do wyboru. Żadna z nich jednak nie spowoduje wyczyszczenia y17 w przypadku wyboru z listy w x17. Do czyszczenia zmusi Del lub edycja rzeczonej komórki....

D-link DSL-2740B, TP-Link TL-WA501G - podział internetu między dwoma budynkami

Tragedia Local Network/DHCP Server setting(optional)/DHCP IP Address Range podaj oba adresy IP z tych 2 okienek Jaką masz przepustowość łącza od ISP??

PROBLEM - przypisanie konkretnego mac adresu w Cisco router 2800 - DHCP

Gdzie masz address range zdefiniowany? Dopisz dns-server i default-router w konfigu tego statycznego hosta. Zobacz czy ci zadziala jak zmienisz jego hardware-address z 01a4.4e31.d01d.50 na a44e.31d0.1d50 ale chyba tak jak masz jest dobrze. Edit: nie zauwazylem od razu ze kolega wyzej napisal. Zamiast hardware-address powinno byc client-identifier.

Excel - VBA - Uruchamianie makra poprzez VBA na podstawie tekstu

Private Sub Worksheet_Change(ByVal Target As Range) Dim Komorka As Range If Not Application.Intersect(Rows(5), Range(Target.Address)) Is Nothing Then For Each Komorka In Target.Cells Select Case Komorka.Value Case "TAK": . . . End Select Next End If End Sub

Excel VBA - Jak zablokować i modyfikować wartość w komórce?

Myślę, że sprawdzanie czy [syntax=vbscript]If Range("C1") = "" Then Range("C1") = Range("A1") Else ...[/syntax] jest tu niepotrzebne - pusta wartość C1 będzie potraktowana jako 0. Ja bym to widział nieco krócej: wersja "jednokomórkowa"[syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" And IsNumeric(Target.Value)...

Brak dostępu do AP Planeta przez router Asmax - jak się zalogować?

"Please also make sure your PC's IP address is in the same IP range with WAP-4033" - fragment z instrukcji obsługi.

Jak skonfigurować router CellPipe 7130 do udostępniania internetu tylko jednemu PC?

Super, rozwiązanie jest już blisko :) A pokierowałbyś mnie jeszcze, co uzupełnić w poszczególnych opcjach w IP filtering? W protocol - TCP/IP? jeśli coś takiego będzie tam w tej liście rozwijanej Source IP address (Range) - ten zakres ip, który ma być blokowany? Source Subnet Mask - maska podsieci? Source Port - tutaj?? Destination IP address - tutaj??...

VBA, excel, pojawiające się wiersze, w zależności od zawartości komórki

To się baw. Sprawdzanie PESELa znajdziesz w sieci. [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$12" Then If Target = "Tak" Then Range(Rows(13), Rows(14)).Hidden = True Else Range(Rows(13), Rows(14)).Hidden = False End If End If If Target.Address = "$C$15" Then If Target = "Tak" Then Range(Rows(16), Rows(17)).Hidden...

Jak połączyć router Hitron z D-Link DIR-615, by uzyskać internet?

wpisuje ten adres klikam zapisz i wyskakuje mi takie cos The 3rd range of "Start IP Address" must be between 22 ~ 22

Naprawa pendrive: nie można formatować, błąd zapisu, brak dostępu

OK pomogło mi :D oba sformatowały się i mogę na nie wgrywać pliki itp. Tylko mam problem z pierwszym bo wydaje mi się, że przed formatem miał 4gb a teraz pokazuje mi że ma ok 200mb. W programie Check Flash pokazuje takie błędy: Error at range [0C853600h..0C93A000h]: device write error. Error at address 0963A000h: expected "10101010",...

VBA Excel - Makro do kopiowania arkuszy z wielu plików bez otwierania

Cześć. Przepisałem jeszcze raz makro do poniższej postaci: [syntax=vb] Application.DisplayAlerts = False Application.ScreenUpdating = False Dim myPath As String Dim myFile As String Dim myPass As String Dim mySfrom As String Dim mySto As String Dim address As String Dim wbk As Excel.Workbook Dim k As Integer Dim row As Integer row = Cells.SpecialCells(xlCellTypeLastCell).r...

Router Linksys nadaje IP spoza zakresu 192.168.1.2-51 dla drukarki - 192.168.0.12

Mój router Linksys ma zdefiniowane nadawanie adresów IP: IP Address Range:192.168.1.2 to 51 Tymczasem jak podłączyłem do niego kablem sieciowym drukarkę i wchodzę w jej właściwości to widzę adres IP: 192.168.0.12, drukarka ma ekran LCD i na niej także mogę sprawdzić adres IP i jest to właśnie: 192.168.0.12 - dlaczego?

VBA - Jak scalić kolumny z wielu skoroszytów do jednego pliku?

Najprościej policzyć ilość kolumn/wierszy. Usuń (zaapostrofuj) przed pętlą przypisanie zmiennej 'ObszarWejsciowy', podmień zawartość pętli i wypróbuj: [syntax=vbscript] Workbooks.Open FileName:=Katalog & Plik Sheets(ArkuszWejsciowy).Select kolumn = Range("A1").End(xlToRight).Column wierszy = Range("A1").End(xlDown).Row ObszarWejsciowy = Range(Cells(1,...

Jak skonfigurować UPC Horizon z routerem Linksys WRT1900 i dostępem do dysku zdalnie?

2. Co do opcji Forwarding to jest: Public Port Range - tu podaje 1194-1194 Target IP Address - 192.168.1.62 (IP Linksysa) Target Port Range - tu podaje 1194-1194. No i podaje UDP. tak

Excel - Odwołanie do innego arkusza z nazwą z wybranej komórki

Jednak uwielbiam proste rozwiązania :) Wklej w kod arkusza wynikowego takie makro [syntax=vbscript]Option Explicit Option Compare Text Private Sub Worksheet_Change(ByVal Target As Range) Dim myPath As String, myFile As String Dim ark As String, rn As String, arg As String If Target.Address(0, 0) = "A3" Then myPath = "G:\TP\01. Administration\1.1 Work...

[VBA] - Makro do sprawdzania i kolorowania wartości w komórce B5 na czerwono

Albo:[syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$5" Then If Application.CountIf(Range("A1:A4"), Target) = 0 Then Target.Interior.Color = vbRed Else Target.Interior.ColorIndex = xlNone End If End If End Sub [/syntax]

Sortowanie unikatowe z hiperłączami według przyjaznej nazwy [Excel]

Sprawa jest trochę skomplikowana, bo hiperłącza w Excelu nie lubią sortowania, a sortowanie nie przesuwa odpowiednio hiperłączy. Do tego jeszcze funkcja HIPERŁĄCZE nie obsługuje tablic, tylko pojedyncze komórki. Być może jest to do zrobienia z wykorzystaniem funkcji LAMBDA, nie próbowałem, ale obawiam się, że mogłoby to być dość powolne rozwiązanie....

Konfiguracja DHCP na FreeBSD dla dwóch podsieci - różne adresy dla urządzeń

Mam nadzieje ze konfiguracja daemona dhcp jest identyczna jak dla linucha a sporo na to wskazuje... moj konfig #dhcpd.conf allow booting; allow bootp; default-lease-time 3600 ; max-lease-time 36000 ; option domain-name-servers 10.0.0.1; shared-network eth1 { subnet 10.0.0.0 netmask 255.255.255.0 { range 10.0.0.20 10.0.0.23; option subnet-mask...

ULTRAVNC - "Failed to get server address" - co to znaczy?

wpisuję swoje ip i działa tylko jak zrobić aby mieć cały czas podgląd na swoje ip. Po 24h dzierżawa się wygasza i powstaje nowe ip. Za każdym razem musiałbym dostawać info jakie dziś jest ip:( Dodano po 20 Takie coś znalazłem w internecie- możecie mi pomóc zrozumieć co autor miał na myśli:) Failed to get server address Solution 1: . Symtom: If windows...

[Excel 2007] - makro do pobierania danych z innych plików *.xlsx

Witam, stworzyłem makro które pobiera dane z zamkniętego pliku i wkleja dane w wyznaczone miejsce w drugim pliku. Z makrami dopiero początki, więc kopiuje gotowe kody i próbuje je odpowiednio dopasować [syntax=vbnet]Option Explicit Private Function GetValue(path, file, sheet, ref) Dim arg As String If Right(path, 1) <> "\" Then path = path &...

Excel - makro dodawanie kolejnego wiersza w puste miejsce

[syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$2" Then Application.ScreenUpdating = False nw = Sheets("Baza").Cells(Rows.Count, "A").End(xlUp).Row + 1 Range("A2:C2").Copy Sheets("Baza").Cells(nw, 1).PasteSpecial xlPasteValues Range("A2").Select Application.CutCopyMode = False Application.ScreenUpdating =...

Excel VBA - jak podpiąć listę towarów do ComboBox i wstawić dane do arkusza?

W UserForm1 wystarczy zrobić 3 proste rzeczy: 1. Aby załadować dane do comboboxa, dodaj: [syntax=vb]Private Sub UserForm_Initialize() Dim ostTowar As Long With Arkusz2 ostTowar = .Cells(.Rows.Count, "A").End(xlUp).Row + 1 cmbTowar.RowSource = "Towary!" & Arkusz2.Range("A2:A" & ostTowar).Address End With End Sub[/syntax] 2. Aby przepisywać towar do textboxa...

VBA - Otwieranie plikow z katalogu -> kopiowanie danych + kolumna z nazwa pli

A co z nagłówkami, powtarzanymi wielokrotnie ? Ma być tylko jeden, czy ileś tam za każdym razem nowy i w wyniku nagłówkowy przekładaniec ? Edycja: Nie przyjrzałem się ... kopiujesz bez nagłówka ... Ale może przy pierwszym kopiowaniu powinien on być przenoszony jednorazowo ? Ręczie go wklepujesz/kopiujesz ? Edycja: Sprawdź: [syntax=vba] Option Explicit...

Videoporadnik wyświetlacze NEXTION

Czcionka Lucida Console jest ok. Ta nie dała dobrego efektu ale zacząłem sprawdzać inne i sprawdziłem u kolegi wyżej :D Najlepiej sprawdziła się czcionka "consolas" i "courier news" https://obrazki.elektroda.pl/9985339800_... Jeszcze mam takie może głupie pytanie, ale nie rozumiem tego: Store value/string to EEPROM – EEPROM valid...

Excel 2010 - Makro do kopiowania danych z wielu plików do jednego pliku B

Nie jest oczywiste, że pliki będą otwierane kolejno wg nazwy. Sortowanie w Windowsie nie jest liczbowe, a tekstowe (1, 10, 2, 20, etc) Jeśli z nazwy pliku można wyciągnąć adres docelowy (z offsetem), wtedy[syntax=vb]Sub Importuj2() Dim wbDst As Workbook, wbSrc As Workbook Dim strPath As String, plik As String, rng1 As String, rng As String strPath =...

Dlaczego _delay_us() w WinAVR nie akceptuje zmiennej jako argumentu?

avrdude: ERROR: address 0x0810 out of range at line 129 0x810 to jest 2064 dziesiętnie, czyli chyba więcej niż 2048 (2KB)

DHCP nie wszystkim przydziela adresy (Tomato na WRT54GL)

Witam. Mam router wrt54gl z zainstalowanym Tomato Firmware v1.28.1816. DHCP jest ustawiony: IP Address Range10.100.1.10 - 10.100.1.254 (245) Problem w tym, ze nie wszystkie urzadzenia pobieraja prawidlowo ustawienia z DHCP. Zauwazylem, ze zawsze te same urzadzenia maja problem z pobraniem ip, nie pomaga ustawienie Static DHCP na routerze. Dziala wpisanie...

Excel: Jak zapisywać automatyczne zmiany w komórce A1 z datą i czasem?

Podmień i zobacz [syntax=vbscript]Public Sub updateOldValue(ByVal Target As Range) With Target If .CountLarge = 1 Then If .Address = "$B$10" And oldVal <> .Value2 Then oldVal = .Value2 Application.EnableEvents = False Sheets(1).Range("C" & Application.Rows.Count).End(xlUp).Offset... 0) = oldVal Sheets(1).Range("D" & Application.Rows.Count).End(xlUp).Offset...

Excel VBA: Jak wymusić wypełnienie komórki przed przejściem dalej?

Proszę[syntax=vb]Dim komTmp As String Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("A1:B4")) Is Nothing Then Application.EnableEvents = False If komTmp = "" Then komTmp = Target.Address If Range(komTmp) = Empty Then Range(komTmp).Select Else komTmp = Target.Address End If Application.EnableEvents = True...

STM32L151 - Debugger nie zatrzymuje się w main po dodaniu FatFS

tak linux, jak podpialem sie telentem do opencd to przy łądowaniu wyrzuca dokladnie taki komunikat: [syntax=c] accepting 'gdb' connection from 3333 acknowledgment received, but no packet pending target state: halted target halted due to debug-request, current mode: Thread xPSR: 0x01000000 pc: 0x08000130 msp: 0x20000400 STM32L: Enabling HSI address range...

EXCEL - Jak stworzyć makro do generowania PDF z arkusza i pobierania danych?

Punkt dwa był już niejednokrotnie na elektrodzie przerabiany. Np Wydaje mi się, że stworzona tu funkcja może być rozwiązaniem mojego problemu. Ale.. nie działa mi. :-( - błąd argumentu. Nie panuję nad składnią definicji argumentu, tam chyba siedzi jakiś knyf... Function GetValue(path, file, sheet, ref) 'path - Scietka zamkniqtego pliku (np. "a:\pliki...

MS Excel 2010 - Obliczenie formuły zapisanej w sąsiedniej komórce

Jeśli nadzorowane zmiany mają być w Arkuszu2, to procedura Worksheet_Change powinna być umieszczona w module Arkusza2. W tej procedurze można odwoływać się do Arkusza1 bezpośrednio (przez nazwę kodową) albo pośrednio przez kolekcję Worksheets jako Worksheets(1) albo Worksheets("Arkusz1"). Przykładowy kod: [syntax=vbscript]Private Sub Worksheet_Change(ByVal...

BSOD'y i podejrzenie uszkodzenia HDD - co może być przyczyną?

kości są dwie jednakowe 2x2GB GOODRAM, tylko screen'a dałem z jednej ,bo jadę tylko na jednej i sprawdzam, tą drugą na której komp chodził 10 dni bez BSOD'a wypiołem. Na laminacie na płycie pisze tak: GIGABYTE GA-G31M-ES2C a bios płyty aktualizowałem w maju na taki: motherboard_bios_ga-g31m-es2c_f8.exe Wykonaj pełny test według mojego postu #7 w tym...

Jak zautomatyzować pętlę VBA w Excelu i czy .Value jest konieczne?

Możesz też użyć takiego zapisu, chyba częściej spotykany, tylko należy pomiętać o dolarach w adresie komórki: Overflow . Możesz użyć typu Long, co znacznie rozszerzy ten zakres, lub nie deklarować ich w ogóle / zadeklarować je jak Variant, pozwalając kompilatorowi (?) samemu dobrać odpowiedni typ. Teoretycznie będzie to mniej wydajne niż bezpośrednia...

Wstawienie wiersza nad komórką, w której właśnie została wpisana zawartość

Wklej w kod arkusza (nie w moduł) [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = "N7" Then If Target.Value <> Empty Then Rows(7).Insert Shift:=xlDown End If End Sub[/syntax]

Jak stworzyć makro VBA w Excelu do skanowania kodów kreskowych?

To był przykład. [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then w = Application.Match(Target, Range("C1:C" & Cells(Rows.Count, "C").End(xlUp).Row), 0) If Not IsError(w) Then For x = 5 To 9 If Cells(w, x) = "" Then Cells(w, x).Select Exit For End If Next End If End If End Sub [/syntax]

VBA Excel 2003 - Jak wyświetlić MsgBox dla wartości w przedziale 0-10?

A w taki sposób próbowałeś? [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$2" And Target.Value <= 10 Then MsgBox "Wartość poniżej 10!", 64, "Wesołych Świąt" End If End Sub[/syntax]

Excel - jak automatycznie przewinąć do komórki z literą w kolumnie F?

zrobic jedna komorke w ktorej bede wpisywal litere Np komorka jest "G1" [syntax=vb] Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$G$1" Then If Not Application.CountIf(Range("F:F"), Target) = 0 Then ActiveWindow.ScrollRow = Application.Match(Target, Range("F:F"), 0) End If End If End Sub [/syntax]

VBA - Kopiowanie zakresu z innego skoroszytu do aktywnego skoroszytu

Dokładnie tu nie ma nic co by mogło nie zadziałać, chyba że jest to jakiś wycinek z większego kodu (jak w pierwszym poście). Możesz sprawdzać po kolei czyli zaczynając, potem od ptaszkuj rng1 sprawdź itd. [syntax=vbscript]Sub second() Dim rng1 As Variant Dim rng2 As Variant Dim box1 As Range Set box1 = Application.InputBox("Select column", , , , , ,...

Pentagram cerberus plus. Czy jest możliwe zdalne sterowanie PC?

Zakupiłem taki piękny routerek i jest wszystko ok. Mam natomiast pytanie czy jest możliwe zdalne sterowanie kompami po stronie LAN z innego kompa. Chodzi mi o dostęp do wszystkich danych na kompach. Jest zakładka configuration - system - remote acces - Remote Access Control mam włączone, a do czego jest Allowed Access IP Address Range? wpisałem ip własnego...

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

kopiować dane najlepiej z pliku zamkniętego Poniżej najprostszy (czyli najwolniejszy: 1000 wierszy i 3 kolumny w 45 sekund) mechanizm kopiowania z zamkniętego pliku, wykorzystujący zwykłe odniesienie do pliku na dysku, postaci: 946005 Ps.: Przy wykorzystaniu np. ADO/SQL wyniki szybkościowe na pewno byłyby lepsze, ale mechanizm obsługi bardziej "skomplikowany".

Wyszukiwanie zleceń po roku z comboBoxa w VB - jak to zrobić?

Na chwile obecna mam cos takiego nie wiem czy wrzucić instrukcje warunkową czy while. Wgl. mam wątpliwości czy to dobrze. Chce to porównać i wyświetlić za jednym razem z innymi kryteriami za pomocą przycisku szukaj Private Sub cbSzukaj_Click() 'Pobieranie kryteriów wyszukiwania i wyświetlanie w liście On Error GoTo errHandler: Set DataSH = Arkusz1 DataSH.Range("T6")...

SAIA PCD4 - Konfiguracja bloczków Modbus jako SLAVE, znaczenie skrótów Err, ErS

Def Unit Server ma opcję Active default mapping: Yes lub No. Domyślnie Yes - wtedy działają automatyczne mapowania adresów. Domyślnie "Coils" z Modbusa są mapowane na flagi w PCD. Ale w Modbus są też "Discrete Inputs" - łatwo można się pomylić. Które są używane przez Twojego mastera? "Coil 1" może być mapowany na F 0 lub F 1 - zależnie od ustawienia...