Příspěvky uživatele

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.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje