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..
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.