Človeče nešťastný ... najskôr popis, ktorému sa nedá porozumieť, potom bez prílohy, veď my si máme predsa vždy vytvárať prostredie a dáta a usporiadanie pre otestovanie riešenia sami, a následne ako čerešničku uvediete kód z iného listu. Tento nič predsa nehľadá. Dal som si tú prácu, pozrel Vaše príspevky, našiel vlákno ktorého sa to týka, tam prílohu, a v nej
TENTO VYHĽADÁVACÍ KÓDKód: Vybrat vše
Private Sub Worksheet_Change(ByVal Target As Range)
Dim BunkaKod As Range
Set BunkaKod = Intersect(Target, Range("J2"))
If Not BunkaKod Is Nothing Then
If Not IsEmpty(BunkaKod) Then
On Error Resume Next
With Worksheets("Sestava").Cells(WorksheetFunction.Match(Replace(BunkaKod, " ", ""), Worksheets("Sestava").Columns(IIf(Worksheets("Inventura").Range("F2").Value = 1, "F", "N")), 0), "Q")
If Err.Number = 0 Then
If .Value = 1 Then
MsgBox "Tento kód byl již v inventuře načten! Opakuj načtení"
Else
.Value = 1
End If
Application.EnableEvents = False
BunkaKod.ClearContents
Application.EnableEvents = True
Else
MsgBox "Neznámý kód! Produkt nenalezen. Opakuj načtení"
End If
End With 'Worksheets("Sestava").Cells(WorksheetFunction.Match(Replace(BunkaKod, " ", ""), Worksheets("Sestava").Columns(IIf(Worksheets("Inventura").Range("F2").Value = 1, "F", "N")), 0), "Q")
On Error GoTo 0
End If
End If
End Sub
Stačilo to
upraviť na
Kód: Vybrat vše
...Match(Replace(BunkaKod, " ", "")...
PS: Ak na fórum vkladáte nejaký kód, ktorý je formátovaný a usporiadaný tabulátormi a apostrofami, tak je tak urobený aby bol prehľadnejší, to sú základné vizuálne konvencie pri programovaní. A na to je vymyslená Tag značka "
". Do nej máte ten kód umiestniť. Aby ostal prehľadný, keď si ten kód niekto skopíruje do Excelu a ide Vám ho upraviť a vyskúšať. Vy keď ho nedáte do značiek/Tag-ov, tak sa to vizuálne formátovanie tabulátormi stratí, kód sa zneprehľadní, a dotyčný si to potom musí znovu sprehľadňovať aby sa mu ľahšie
Vám pomáhalo.
Je pravda, že niektoré fóra tabulátory v CODE neberú, ale tu áno, a treba to použiť.
Takže: Je toto, to, čo ste chcel?