Příspěvky uživatele

Dobry den,

v priloze snad opraveno.

syd

Dobry den,

Zkuste prilozeny soubor. Pridany ctyri pojm. oblasti.

syd

Ja silne nesouhlasim prave tim zpusobem, kterym to pan Honza53 prezentuje... jako ja jsem mistr a vim to nejlip, podivejte se na me, jak to umim...
Jako definovani promenne dim s$ a Function FolderSize&(strFolderName$), proboha, na co si to hrajete...
A dim s as Sheet ... to snad ani neexistuje.

Ja si bohuzel myslim, ze to bude nejaky neuznaly expert, rozhodne ne mentor a clovek schopny nekoho naucit. Timto stylem ne.

diky
syd

Uz drive jsem si vsimnul, ze pan Honza53 si plete zdejsi forum za nejaky jo vedecky seminar o programovani v Basicu.
Pane, to takhle reagujete i na dalsich webech a forech o Excel a VBA a vyucujete tam vasemu normalnimu zpusobu programovani?? Jestli tak komentujete kazdy trivialni kus kodu, pane to klobouk dolu, to se musite upsat.
Ale zrejme mate za sebou mnoho napravenych a vyskolenych programatoru, kteri diky vam vedi, jak spravne a co nejkratseji to v Basicu udelat, kdyz mate takove superego a tlacite sem sva moudra.

Pane, pokud nevite k cemu forum slouzi, tak radsi nekomentujte. Na internetu mate prostoru dost, zalozte si web a online vyuku, a jestli uz takovy mate, hodte sem link.. (cekam, ze ho mate, kdyz jste tak prevzdelany)
Za me je hned prvni odpoved spravna, jasna, srozumitelna a musi tazateli vyhovovat.
Kazdy ma svuj zpusob psani kodu. Vy mate svuj, nikdo vam ho nebere, ale netlacteho ho prece ostatnim lidem... Pokud je tazatel zacetecnik, a sem, do fora chodi predevsim zacatecnici, tak potrebuje prave ten typ kodu, ktery v druhem prispevku dostal. Az potom, co pochopi kod, a bude mit vic zkusenosti, muze svuj kod prizpusobovat atd. Vase hrozna jednoradkova slitina ho spise zmate a uskodi.

Vazne pochybuji o vasem lektorskem programatorskem umeni...
Vasi proceduru ani funkci, postradajici error handler, bych urcite nepouzil.

syd

Dobry den,

nastavit to nejde. Co se napise do textboxu, bude string - textovy retezec - i kdyz tam napisete cislo.
Je potreba provest nejake overeni.

A jeste pozdavavek na vlastni funci (UDF) zde.

Zdravim,

nejaka komunikace probehla pres PM, tak pro uplnost vlakna doplnuji i zde, kdyby to nekdo nekdy cetl.
Muj predchozi prispevek (makro) OP vyhovovalo, ale objevil nedostatky v situaci, kdy nebude zadny 'minusovy' obchod anebo 'nulovy' obchod. Zde je oprava.

Zdravim,
vyzkousejte poupraveny pokus. Pouzita je excel Tabulka a v druhem sloupci poradi. Je tam ale opravdu hooodne skulinek, kdy to muze a pravdepodobne selze.
Nevim, trochu postradam uzitecnost nejakeho takoveho makra - automaticke poradi listu...

Zdravim,
zajimavy priklad. Zkuste muj pokus. VBA je tedy hroznej bordel, delal jsem to rychle. Jde mi o to, jestli dava vysledek spravny pro vsechny mozne varianty.
Velice pravdepodobne se to nekde zadrhne a hodi error. Ale schvalne, otestujte (co nejvic moznosti) a dejte vedet.

Dd,
upraveno do vaseho kodu. Ale moc to nechapu.
Otestovano jen z rychliku.

Sub Doplnit()

Dim Name As String
Dim Poèet As Long
Dim a As Byte
Dim rMyCell As Range

Application.ScreenUpdating = False

List2.Activate
List2.Range("B8:H19").ClearContents
List2.Range("N8:O19").ClearContents

List3.Activate

Poèet = Application.InputBox("Zadejte poèet øádkù", "Doplnìní dat", , , , , , "1")

Name = List3.Cells(ActiveCell.Row, 8) 'Poslední 4 pozice z èísla zakázky
Name = Right(Name, 4)
List2.Range("N2") = Name
Set rMyCell = ActiveCell

For a = 0 To Poèet - 1
If Rows(rMyCell.Row).Hidden Then
Do
Set rMyCell = rMyCell.Offset(1, 0)
Loop While Rows(rMyCell.Row).Hidden
End If

List2.Range("B8").Offset(a, 0) = List3.Cells(rMyCell.Row, 7) 'Typ
List2.Range("D8").Offset(a, 0) = List3.Cells(rMyCell.Row, 5) 'èíslo
List2.Range("F8").Offset(a, 0) = List3.Cells(rMyCell.Row, 2) 'Výrobní èíslo
List2.Range("N8").Offset(a, 0) = List3.Cells(rMyCell.Row, 6) 'Datum expedice
Set rMyCell = rMyCell.Offset(1, 0)
Next a

Application.ScreenUpdating = True

Sheets("tisk").Select

End Sub

syd

Zdravim,

jsem tady z vas asi registracne nejmladsi, v Praze pracuji (jinak jsem Jihocech) a take z casti diky Wall excel foru (a dalsich) jsem se odvazil zmenit profesi a povedlo se mi "zivit se" psanim kodu VBA... ac se tedy za kovaneho "ajtaka" vubec nepovazuju:) a jsem na zacatku...
Mozna by bylo dobre vas poznat osobne. Tedy pokud bude cas, rodina me pusti, tak bych take mel zajem :)

syd

Zdravim, scrolovat nahoru :) nebo F2, ale to hodi zpet do edit modu A1 a pak ESC.
Nebo kliknout do do NameBoxu a ESC, v tomto pripade se to nescroluje.
Dalsi moznost MIN a MAX a sup a je tam.
No a ted - obycejne stisknuti ALT 2x.
Vskutku dobry challange... doted jsem jiste scroloval na zacatek vyberu :)

Dd,
zkuste. Pokud vyhovuje, zkopirujte si vzorce pro stavy/skore. Krizkovani je makrem.

... tak tedy zde muj soubor.
Do sloupcu A a B excel zapisuje stav behu makra.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje