Příspěvky uživatele
< návrat zpět
elninoslov napsal/a:
Akurát som odoslal EDIT do príspevku. Mal som preklep v oblasti C1:AA1 vs B1:AA1.
To čo upravujete Vy, teda AB na AA, neodpovedá požiadavke, ktorú ste napísal, a to, že chcete AB hodnoty ponechať.
To .Cells(i, "AB") v kóde slúži práve na to, aby sa uložili oblasti, ktoré sa majú previesť neskôr na hodnoty. Nie zmazať ani nie ponechať vzorec. V AB je totiž vzorec, nemôžete mu zmazať zdrojové hodnoty C,B,K,AA, nezostane mu výsledok.
Já výsledek nepotřebuji jen to chci smazat což teď už to maže a zanechá jen samotný vzorec, který u toho nepotřebuji. Potřebuji jen výsledky u toho kde není 703320
elninoslov napsal/a:
Dáta v stĺpci AB je možné zanechať iba za predpokladu konverzie vzorca, ktorý sa v AB nachádza na hodnotu. Teda ten výpočet bude v AB (v daných riadkoch) ďalej nefunkčný.
Sub Vymaz_B_AA()
Dim R As Long, i As Long, B(), rngCAA As Range, rngAB As Range, rng As Range, HLADAJ
HLADAJ = 703320
With ThisWorkbook.Worksheets("List1")
R = .Cells(Rows.Count, 2).End(xlUp).Row
B = .Cells(1, 2).Resize(R).Value2
For i = 1 To R
If B(i, 1) = HLADAJ Then
If rngCAA Is Nothing Then
Set rngCAA = .Range("C1:AA1").Offset(i - 1, 0)
Set rngAB = .Cells(i, "AB")
Else
Set rngCAA = Union(rngCAA, .Range("C1:AA1").Offset(i - 1, 0))
Set rngAB = Union(rngAB, .Cells(i, "AB"))
End If
End If
Next i
End With
If Not rngAB Is Nothing Then
For Each rng In rngAB.Areas
rng.Value2 = rng.Value2
Next rng
rngCAA.ClearContents
End If
End SubPříloha: 55182_odstraneni-urciteho-textu-pomoci-makra.zip (17kB, staženo 1x)
Díky moc
jen jsem přepsal AB na AA a funguje tak jak má.
ještě jednou díky Elninoslov
Zdravím,
Potřeboval bych poradit s makrem.
Chtěl bych odstranit určité data ve sloupích.
Za podmínky pokud najde ve sloupci B (označené červeně) 703320 odstranit data ve sloupích B až AA (označené oranžově a červeně), ale další data ve sloupci AB zanechat.
Díky za jakoukoliv radu.
Fantasyk
elninoslov napsal/a:
Ach áno, pri tvorbe riadkov jedinečných hodnôt a ich súčtov som zabudol ešte raz použiť podmienku VADA="Rozbité".Příloha: 54005_top5-vs2.xlsx (436kB, staženo 1x)
Děkuji velmi moc - funguje perfektně!
elninoslov napsal/a:
Tá Vaša výsledná tabuľka je zle. Nesprávne názvy aj zoradenie.Příloha: 53988_53984_top5.xlsx (13kB, staženo 2x)
Teď mi to ukazuje nějaké špatné čísla - mělo by být jen prvních 5 pokud najde třeba dva tak bych chtěl, aby byla prázdná buňka.
Zdravím, potřeboval bych pomoct s vybráním TOP5 z tabulky, které obsahují největší množství. Lépe to je ukázáno v tabulce.
Děkuji za jakoukoliv pomoc
Lugr napsal/a:
Osobní číslo zde je (viz předchozí příloha).
Ano, ale jak zapisuji ty data do tabulky, jestli mají k dispozici i osobní číslo. (v tom výkazu)
Chápu asi správně, že operator vypisuje nějaký pracovni výkaz kde píše jméno, příjmení, osobní číslo, vyrobené kusy a zmetky že? Jedná se mi hlavně o to osobní číslo, které ušetří mnoho času.
Lugr napsal/a:
Seš hodnej, děkuju. Já myslel, že to půjde nějak elegantně, třeba vytvořením vlastní funkce.
Nic nechme to otevřené, já si nějak poradím, ale kažkopádně moc děkuji za pomoc.
Já klidně udělám to co jsem psal výše
A pak existuje ještě dráha varianta ke každé lince koupit Gaben www.gaben.cz a napojit vše do systému, kdy kusy se zadávají automaticky nebo manuálně operátorem po přihlášení do gabenu.
A tam už by šlo sledovat úplně všechno
Tak bych to udělal takhle,
Začnou psát příjmení a vyskočí jim první co najde v databázi + ty časy a datum se zadává i zpětně jak Pepík dela noční že? (Když to vedoucí záda zpětně)
Tím pádem bych tam dal 1dwn zpětně v rolovací seznamu + aktuální datum.
Časy mají v hodinách i minutách? Jak jsi před tím psal třeba 14:40 nebo jen celé hodiny?
+ tam zadam pole kde napíšou linku, kusy, zmetky
První nástřel, jestli ti to vyhovuje..
ale pokud v docházce je více lidí tak můžu udělat, že začnou psát příjmení a bude jim vyskakovat první shodu, kterou to najde než hledat v rolovacím seznamu.
A jinak ID karty nemají ? bylo by to asi mnohem lepší...
Lugr napsal/a:
Děkuju
Promiň zapomněl jsem, že jdu s dcerou k doktorovi zítra mám školení a středa čtvrtek jdu do práce.. tak ve středu na to mrknu ;-)
Soubor musíš ZIPnout, jelikož to je xlsm jinak se ti to tu nevloží
Pokud si pamatuji tak u každého barcodu máš * na začátku i na konci
Lugr napsal/a:
Nechtěl jsem úplné přidělávat práci. Příloha: 52370_protokol-2.xlsx (49kB, staženo 1x)
Zítra ráno na to mrknu
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