Příspěvky uživatele
< návrat zpět
Ja teda vôbec neviem prísť na to, na čo sa pýtate. Pozerám na ten Váš obrázok z "popisu" ako Ďuro do makových slížov.
-V prvom rade, sem s prílohou - Exceláckou prílohou.
-Vy neviete ani stĺpec ani riadok, v ktorom sa hľadané ID nachádza ? Alebo som to prehliadol.
-Z ktorej z tých dvoch tabuliek a ktorej oblasti čerpáte vstupnú (vyhľadávanú hodnotu), a z ktorej chcete vytiahnuť nájdený údaj/e ?
-Môže nastať, že v prehľadávanej oblasti nastane viac výskytov jedného ID?
Vzorce - Zobraziť vzorce - klik na spojnicu označenia riadkov a stĺpcov - dvojklik na hociktorú hranicu medzi hlavičkami stĺpcov.
Stĺpce sa rozšíria na takú hodnotu, akú má najširší vzorec v stĺpci. Pohľadom to musíte nájsť...
Palooo ukázal tú sofistikovanejšiu cestu.
Tu som urobil aj "blbú" BruteForce metódu. Ak bude treba urobím popis... Skúste.
Tak ?
Na číselník nepotrebujete kód. Napr.
Alebo "hrubou silou" ...
Ja som to riešil trošku inak, žiaľ som to už včera nestihol.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim R As Long, RNG As Range, TR As Long, TC As Integer, TV
With Target.Cells(1)
TV = .Value: TR = .Row: TC = .Column
If TC < 3 And TR > 2 And TV <> "" Then
Set RNG = Cells(3, TC).Resize(Cells(Rows.Count, TC).End(xlUp).Row - 2)
On Error Resume Next
R = WorksheetFunction.Match(TV, RNG, 0)
If R <> 0 And R + 2 <> TR Then
MsgBox ("Skok na 1. nájdený zhodný " & Choose(.Column, "kód", "ean") & " na riadku " & R + 2)
Cells(TR, 1).Resize(, 2).Value = Array("zadaj kód", "")
Application.Goto RNG(R)
End If
End If
End With
End Sub
Reaguje to aj na kód aj na ean, maže hodnotu, preskakuje na predošlú, chcel som ale ešte doriešiť situáciu ak nastane zmena vo viacerých bunkách naraz.
Inak to vypíše správu aj s riadkom kam pôjde, ale vidím ešte neduhy, napr. čo pri zmene vo vnútri tabuľky (nie na konci), treba doriešiť pokračovanie v hľadaní za aktuálne zmeneným riadkom, ak nieje posledný a ak nebol nález... Proste vždy hľadám možné problémy.
No tu asi nepôjde o zlučovanie listov, ale iba prepojenie dát. Ale ak chcete pripojiť data z jedného lisťu do druhého, a potom neskor znova, len na prvy voľný riadok.
Urobte peílohu kde bude cca 10riadjo dát, a vysledky alé by mali byť v tej druhej tabulke. Na reálnom príklade sa bude praxovať lepšie.
Zmente v procedúre listu "zaznam"
Private Sub Worksheet_Change(ByVal Target As Range)
riadok
If Not IsNumeric(Bunka.Value) Then
na
If Not IsNumeric(Bunka.Value) Or Right(Bunka.Value, 1) = "+" Or Right(Bunka.Value, 1) = "-" Then
Skúste pridať nejakú krátku prílohu s príkladom (vymyslené dáta).
Presne takto si myslím, že to janci.bris tým nelogickým popisom myslel. Len som nevedel prísť na takýto parádny vzorček. Suprový.
Ja som si to urobil ešte na skúšku aj s pomocnými stĺpcami bez makra. Ale toto nemá chybu.
Do IF si ho už hádam obalí 
Pred časom som použil CDO, niečo takéto, tak si to upravte. Máte tam obe verzie aj z formuláru aj z listu.
Nemyslíte Vy náhodou niečo takéto ?
Pokúsil som sa aj o maticové riešenie, ale zatiaľ neúspešne. Problém u VBA zase je, že pri jednoduchšom riešení (Match a polia) nedokáže porovnať tie Vaše "antiznaky".
Ak to myslíte iba takto jednoducho, tak nech sa páči jedno z riešení.
pridajte prílohu, a zajtra sa Vám na to ja alebo hocikto iný mrkneme. Lebo ťahať zase všetky info, či je okolo tabuľky ešte niečo, aká je široká, ako sa volá... Z prílohy to bude snáď jasné. Takže hocikde aj v strede tabuľky ak napíšete niečo do B tak sa všetko pod týmto riadkom posunie dole.
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články