Příspěvky uživatele
< návrat zpět
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.
...dokud nepride nejaky cislo vetsi jak nula...
A čo keď tam bude číslo menšie ako 0 ? Tak to nesedí, a ani v prípade, že sú v riadku len 0. Potom napr. takto, ošetruje chybu pri nulovom riadku, a záporné číslo neukončuje súčet núl.
Ale to len zo srandy, možno také situácie nenastanú...
Takto ?
Len doplním, že cez mail sme to ešte máličko upravili. Nemám čas študovať iné metódy, sry :(
Ešte musím zakopnúť o rozpracované veci, čo som tu sľúbil ešte pred mojím "výpadkom" :) ...
Takto jednoducho, ak sa bude jednať o daný príklad. Každú z položiek možno prečítať podľa mena. Ak sa bude jednať o inak napísanú stránku, tak "vyhľadávacie" reťazce treba vo funkcii zmeniť, alebo prispôsobiť funkciu tak, aby boli voliteľné. V každom prípade ich ale musíme poznať (nazretím do kódu).
Len zbrucha, nemam na nič iné čas, a nemôžem z tabletu overiť. Nahraďte
... InStr(Subor, C) ...
Za
... InStr(Left(Subor, 6), C) ...
alebo za
... InStr(Left(Subor, InStr(Subor, "_")-1), C) ...
Pozrite sa na makro v Module2 vo Vami uvedenom súbore, a na makro v Module1 v tom mojom. Nájdite 30 rozdielov 
Dosť srandy. Uvidím, možno Vám na to pozriem, ale nejako mi to nejde do hlavy. Asi sa na data zle pozerám, ale ako ste vypočítali počet 21 ks pre DILNA 1 položku M52 (DESTICKY JINE)?
Pre túto dielňu sú tam práce:
A-1,01
B-8,05
D-6,03 (položka M52 obsahuje 3 ks)
D-1,01
Teda výdajka bude 4x3 = 12 ks.
Keď teda môže byť nejaký materiál vo viacerých prácach, je potrebné na výdajku uviesť iba súčet tohto materiálu, bez ohľadu na prácu a Spec ? Iba s ohľadom na dielňu, tak už si matroš rozoberú, kto koľko potrebuje. Dobre som to pochopil?
Ďalej, môže nastať situácia, keď v OHL bude napr. DILNA 1 aj pomedzi inými dielňami?
Môže sa použiť ten filter v OHL, alebo je to len pre Vás, a už tieto "zdrojové" údaje v OHL budú filtrované pre tú výdajku ?
Uvidíme, no ... povedal slepý...
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