Příspěvky uživatele
< návrat zpět
Dobrý den Elninoslov. Děkuji za pomoc. Aktualizoval jsem data i proceduru a vše proběhlo jak mělo.
Nerozumím tomuto:
Pozor, polka kódu je tam na vytváranie neexistujúcich listov, kontrolu a mazanie dát na existujúcich listoch.
Vyskúšajte, popis urobím dodatočne.
ale Vaší proceduře předchází procedura, která vytváří nejprve listy, podle jmen která jsou v kontingenční tabulce na listu celkem.
Každopádně je nyní vše v pořádku.
Děkuji
Lidičky prosím pomoc, trápím se tím už druhý den.
Děkuji moc
Dobrý den.
Po delší době, kdy procedura fungovala a nijak do ni nebylo zasahováno, z ničeho nic začala zase padat.
Při snaze opravit tento pád jsem zjistil, že při rozkopírováni dat do jednotlivých listů, nevezme u jména "Šrot" všechny řádky.
Mohl by jste se tedy na to prosím ještě podívat?
V příloze aktuální data.
Děkuji moc
Mohlo by toto být řešení?
rng.SpecialCells(xlCellTypeVisible).Copy
With NewWB.Sheets(1)
.Cells(1).PasteSpecial Paste:=8
.Cells(1).PasteSpecial xlPasteAll
.Cells(1).Select
Application.CutCopyMode = False
End With
na místo rng.copy bych použil rng.SpecialCells(xlCellTypeVisible).Copy
a pro vložení
.PasteSpecial xlPasteAll
Dobrý den.
Pro rozesílání úkolů na jednotlivé kolegy, používám rozdělovník v příloze.
Nevím proč, ale někdy se stane, že po provedení procedury a odeslání emailem se změní adresa hypertextového odkazu.
Mohl by se na to prosím někdo podívat a napsat mi co dělám špatně?
Původní adresa odkazu:
\\dc1\Dokumenty\28_Analýza kvality\SLOŽKY_REKLAMACE_PT_LC\8D\2021\Interní 8 D -reklamace\007_8D Report_PT_Špatný svár.xlsx
Adresa odkazu po proceduře
007_8D%20Report_PT_Špatný%20svár.xlsx
V proceduře zkopíruji odkaz a následně vkládám takto:
rng.Copy
With NewWB.Sheets(1)
.Cells(1).PasteSpecial Paste:=8
.Cells(1).PasteSpecial Paste:=xlPasteAll
.Cells(1).Select
Application.CutCopyMode = False
End With
Už jsem zkoušel vkládat i jinak, ale marně 
Elninoslov jako vždy jste pochopil správně a kód pracuje na jedničku. Děkuji.
Spíše nechápu proč se mi to zastavilo v okamžiku, když se čísla ve sloupci N shodovala s předešlým řádkem.
Mohl by jste mi objasnit příčinu?
Teď to prosím neberte tak, že bych si chtěl něco vymýšlet a podobně, jsem rád za každou pomoc.
Jde o to, že Vaše kódy jsou pro mě jako začátečníka jednou velkou neznámou a tak by mi hodně pomohlo, pokud by jste mohl provést nápravu v mém kódu, ve kterém se orientuji mnohem lépe.
Jinak děkuji i tak.
Problém je v tom, že se procedura zastaví v okamžiku když se čísla v listě "Data" ve sloupci "N" shodují. Opět nechápu proč když mám zadáno, že má projít celý list.
Potřeboval bych, aby projela všechny řádky a je jedno jestli jsou čísla ve sloupci "N" stejná.
Prostě když je číslo stejné tak budou i stejné nakopírované hodnoty.
Už to mám 
Sheets("Nabídka").Range(("B" & Radek), Sheets("Nabídka").Range("BG" & Radek)).Copy
Ahoj.
Potřeboval bych pomoci s relativní oblasti.
Cyklus prohledává čísla z listu "Data" ze sloupce "N" v listě "Nabídky" ve sloupci "A". Pokud číslo najde, měl by z listu "Nabídky" do listu "Data" nakopírovat všechny buňky od "B" po "BG" z řádku kde se nalezené číslo nachází.
Snažím se využít toto, ale nějak mi to nejde.
Sub Najdi_kopiruj()
Dim Radek As Integer
Dim posledni As Long
posledni = Sheets("Data").Cells(Rows.Count, 1).End(xlUp).Row
For Radek = 1 To posledni
If Sheets("Data").Range("N" & Radek).Value2 = Sheets("Nabídka").Range("A" & Radek).Value2 Then
Sheets("Nabídka").Range(("B" & Radek), Range("B:BG" & Radek)).Copy
Sheets("Data").Range("BY" & Radek).PasteSpecial xlPasteAll
End If
Next
End Sub
Mohl by mi prosím někdo pomoci? Měla by to být prkotina, ale nějak mi to prostě nejde.
Vzhledem k citlivosti dat, pošlu když tak přílohu do PM.
Děkuji za ochotu a přeji pěkný zbytek svátků.
Ahoj.
Omlouvám se že píši až teď, ale nebyl jsem u PC celý den.
Jiří497 - děkuji za skvělou práci, šlape jako hodinky.
Poslední chybějící údaj jsem si již doplnil.
Děkuji moc, všem.
No namyslel jsem jak by to mohlo jít, teď bych to potřeboval pomoct s realizací.
Kdykoli by se změní hodnota buňky "K37" tak by se spustila procedura která by:
a) otevřela určitý excel třeba "databáze" (to si zajistím) nyní nahrazeno listem v sešitu
S níže uvedeným bych potřeboval pomoct
b) do něj by nakopírovala hodnoty z podbarvených buněk do prvního prázdného řádku, tak jak jsem udělal nyní ručně do listu "Databaze".Pokud by řádků bylo více, tak by se musely nakopírovat všechny. Někdy se cení jeden artikl a někdy třeba deset.
-tady hlavně nevím jak kopírovat sloučené buňky do nesloučených
c) do sloupce "A" listu "Databaze" by v každém řádku byl datum a čas kdy nakopírovalo (to bych asi také zvládl sám).
Výsledkem by byla vznikající databáze cenových nabídek, do které by plánovač koukal před zaplánováním.
Sešit v příloze.
Mohl by mi s tím někdo pomoct, prosím?
Děkuji
Ale byl viz příloha.
Pro tvorbu nabídek používáme tento excel viz příloha.
Jde o to, že se vygeneruje cenová nabídka, která je odeslána zákazníkovi a pokud s cenou souhlasí tak pošle objednávku.
Tu dostane do ruky plánovač a zaplánuje ji.
Jelikož obchodník, který vytváří cenové nabídky je hodnocen podle toho kolik tzv. zakázek přinese a dle obratu, stává se občas, že udělá nabídku na 500 ks zde je nabídka OK díky množství, ale následně dojde objednávka na 10 ks a ta je již pro nás prodělečná.
Ale obchodník si mne ruce.
Představoval bych si, že když tedy obchodník vytvoří cenovou nabídku tak se zapíše do nějakého seznamu, který už obchodník neovlivní a plánovač na základě tohoto seznamu před zaplánováním zkontroluje zda je objednávka dle původní cenové nabídky.
Snad je srozumitelné co potřebuji.
Ale jak jsem psal, než vytvářet něco nového, klidně bych se spokojil s něčím co by pracovalo na podobném způsobu.
I tak děkuji za ochotu.
Dobrý den.
Nejsem si jistý zda to sem úplně patří, ale možná se někteří z vás s tím již setkali.
A proto než vymýšlet něco nového tak se raději zeptám.
Potřeboval bych v excelovém sešitu vytvářet kalkulace pro vyrábění dílů.
Dejme tomu 1-5 operací.
Nevíte prosím někdo o něčem?
Už jsme koukal na internet, kde je toho spousta, ale ve většině případů se jedná o demo či placené verze.
Děkuji alespoň za informaci.
No jsem rád, že to není chyba mezi klávesnici a židlí, protože jsem to zkoušel různě cca 2 hodiny, ale stejně jsem na to také nedošel proč to nejde.
Ještě jednou děkuji za úpravu procedury a hlavně za ochotu.
Toto je fakt skvělý web, hlavně pro začátečníky co se chtějí něco naučit.
Myslím si, že i pokročilí si zde přijdou na své, když se nám pomalejším snaží pomoct vyřešit naše dotazy. Dost věcí si zde zopakujete a procvičíte.
Díky vám všem.
Elninoslov děkuji.
Opět perfektní práce a šlape jak má.
Jinak pokud nenajde hledané hodnoty tak se nic neděje a procedura se ukončí po kontrole všech řádků.
Nejde mi do hlavy, kde byla chyba u mě.
Mohl by jste se na to podívat prosím?
Myslím tu prvotní proceduru, viz příloha.
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