• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Zdravim vsechny potreboval bych momost s jednim makrem ktere by umelo nasledujici. Ve slouoci H je seznam materialu a ve sloupci I se knim dotahuje text. Pokud text skonci err tak bych potreboval dany material ve slpupci H pouze vymazat (delete). Pokud nekdo elegantne dokaze budu rad. Děkuji moc viz priloha

Stalker: Ouu to je presne ONO a funguje dokonale Ouuje Díky moc za pomoc oboum.

elninoslov: DÍKY za pomoc, to je presne ono co myslim jen s jednou chybou ze to neumi rozlisovat vice rozdilnych artiklu najednou (pak to blbne viz priloha přiklad). pokud byto slo jeste doladit byla by to pecka díííky

Zdarvim vsechny resim jeden problem kde bych potreboval aktualizovat sloupcec s materialem ve na liste data. Logika by mela porovnat ktere materialy chybi oproti listu zdroj a tyto chybejici artikly pridat nakonec pod stavajici materialy na liste data. Kdyby nekdo dokazal budu rad . Příloha

elninoslov: vzdy mam vice promenych do vypoctu takze SUMIF nevyuziju, ale dekuju za napad. Reseni pridam do sve sbirky.

elninoslov : DÍKY moc skvělé řešení a lítá to dobře, budu používat DĚKUJUUU

Zdravím všechny,
makro v priloze pracuje tak ze si ve sloupci B najde posledni radek a pak rozkopiruje dane vzorce do cele oblasti. Jen mi prijde ze je vypocet docela pomalej kdybych ho chtel pouzit na vetsi databazi. Zde je moje otazka je mozne vypocet nejak optimalizovat nebo s tim uz nic nedelam?
Dekuji za rady

Parkrat uz tu neco takoveho bylo. V D2 se meni promena.
Nasledne se volaji nazvy maker.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D2")) Is Nothing Then
Application.EnableEvents = False
Select Case Range("D2")

Case 0: Call Makro1: GoTo ex
Case 5: Call Makro2: GoTo ex

End Select
ex:
Application.EnableEvents = True
End If
End Sub

Amor007: Musíš ještě upravit nastavení tlačítka v UserFormu viz příloha.

elninoslov: TAk to je bomba presne jak jsem potreboval DÍKY moc za pomoc.

TAK JSEM VYRESIL NASLEDOVNE MASAKR díky merline

Sub Test()
Dim s As Shape
On Error Resume Next
For Each s In ActiveSheet.Shapes
s.Placement = xlMoveAndSize
Next
End Sub

Zdravim, posledni dobou se setkavam s hlaskou "Objekty nejde přesunout mimo list" stim ze mam excel kde mam tlacitka a seskupeni na nejake sloupcee. Kdyz se snazim seskupeni zavrit vyskoci tato hlaska... zalezi na zoomu obrazovky kdyz jsem blizko tak nevyskoci. Netusite jak to potlacit a odstarnit dost to otravuje zivot.. DÍKY za rady

*PS v UserForm jsem v příloze pouzi spatne tlacitka k vyberu chtel jsem vybrat ty druhe aby slo klasicky ve vsech tlacitkach volit zapnout vypnout. DÍKY

Zdravím všechny hezké Vánoce. Resim jeden problem ktery neumim vyresit. Potreboval bych v UserForm vybirat ktere sloupce nechat odkryte a ktere schovat (ne klasicky skryt ale potreboval bych aby se jen zestihlovaly a vracely do dane sirky dle vyberu neco jako

Selection.ColumnWidth = 0.01.
Selection.ColumnWidth = 10

Děkuji za pomoc

Prosím prosím neuměl by někdo to nahrane makro upravit tak jak popisuje Pavlus problem. Danou upravu bych vyuzival casto opravdu by se to hodilo umet..

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse