Příspěvky uživatele


< návrat zpět

Strana:  1 2 3 4 5 6   další »

více info jsem popsal přímo v souboru i to jaký by v daném případě měl být výsledek. hodnota "5500" se vyskytuje 80x tudíž výsledek bude "80" duplicita se hledá v řádku (jakoby se sloučili všechny sloupce v řádku) a tato proměnná se hledá v ostatních řádcích

ve sloupci G se počet řádků bude měnit a stejně tak v každém řádku se bude měnit počet vyplněných sloupců, potřebuji nalézt duplicity kde originální řádek zůstane a přepíše se hodnota (celkový počet duplicit) viz. text v souboru (nelze mazat posouvat řádky , jelikož jsou ve sloupcích jiná potřebná data ). prosím o pomoc

já vím že to není uplně super, pro mě podstatné že funguje i když to je tak příšerný :-) tak trochu jsem čekal tuto reakci :-) nicméně díky za tu radu a pokusím se to vylepšit a zřejmě i zrychlit.

dobrý den, řeším jak zrušit dotaz na přepsání dat. v přiloženém souboru kliknout na "vyber měsíc" a napsat "2/23"
a tady mě jde o to že vyskočí dialog "tady už data jsou, chcete je nahradit" což bych chtěl zrušit aby makro proběhlo bez dotazu. poradíte ? díky moc

bude vždy přesný počet štítků tak jak to je. jediné co bude že v rámečku v prvním řádku kde jsou 2 sloupce, bude vždy zadaný vzorec. jinak sloučení buňky zůstanou tak jak jsou. jinak moc děkuji

dobrý den, podívejte se na moje makro. jde jen o formátování a trvá to poměrně dlouho než proběhne celé makro. díky moc

dotaz, našel jsem na webu toto makro. jen jsem upravit že ty obdélníky změní průhlednost což funguje, ale i v ten okamžik ztrácí info o RGB, tak když vrátím průhlednost opět na 100% (.Transparency = 0) už to má pouze jednu barvu. jde nejak ošetřit zachování RGB ?

Sub testDeleteInsertedShapes()
Dim ws As Worksheet, sh As Shape, shR As ShapeRange, rng As Range
Set ws = ActiveSheet
Set rng = ws.Range(ws.Range("A18"), ws.Cells(15, Columns.Count))

Application.EnableEvents = False
For Each sh In ws.Shapes
If sh.Type = 1 Then 'rounded rectangles
If Not Intersect(sh.TopLeftCell, rng) Is Nothing Then
If sh.TextFrame2.TextRange.Text = "Resize" Or _
sh.TextFrame2.TextRange.Text = "Clear All" Then
sh.Delete

End If
Else
sh.Select
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorAccent1
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0
.Transparency = 1
.Solid
End With
With Selection.ShapeRange.Line
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorAccent1
.ForeColor.TintAndShade = -0.5
.ForeColor.Brightness = 0
.Transparency = 1
End With
End If
End If
Next
Application.EnableEvents = True
End Sub

výsledek funguje

Private Sub ComboBox1_Change()
Set zacatek = Worksheets("zaklad").Range("c10:d1000").Find("V karta")
rad1 = (zacatek.Row)

Set konec = Worksheets("zaklad").Range("c10:c1000").Find("SUMÁŘ")
rad2 = (konec.Row)

Worksheets("zaklad").Cells(rad1 + 7, 6).Resize(rad2 - rad1 - 1, 1).Font.ColorIndex = 1

Dim ws As Worksheet, sh As Shape, shR As ShapeRange, rng As Range
Set ws = ActiveSheet
Set rng = ws.Range(ws.Range("A18"), ws.Cells(15, Columns.Count))
If Worksheets("data").Cells(11, 6) = "TEXT" Then
zobraz = False
Worksheets("zaklad").Cells(rad1 + 7, 6).Resize(rad2 - rad1 - 1, 1).Font.ColorIndex = 1
Else
Worksheets("zaklad").Cells(rad1 + 7, 6).Resize(rad2 - rad1 - 1, 1).Font.ColorIndex = 2
zobraz = True
End If
Application.EnableEvents = False
For Each sh In ws.Shapes
If sh.Type = 1 Then 'rounded rectangles
If Not Intersect(sh.TopLeftCell, rng) Is Nothing Then
If sh.TextFrame2.TextRange.Text = "Resize" Or _
sh.TextFrame2.TextRange.Text = "Clear All" Then
shp.Visible = zobraz
End If
Else
sh.Visible = zobraz
End If
End If

vyřešeno a ani to tak složité nebylo

dobrý den, hledal jsem na netu a bez úspěchu. mám několik obrazců(obdelník ...) a potřeboval bych aby se při najetí myši obrazec zvětšil třeba o 50% a nebo aby se zobrazil popis. díky za radu nebo nasměřování jak na to

ano přesně tak, funguje. děkuju

dobrý den, potřeboval bych vyřešit situaci. mám v buňce "A1" vzorec podmínku. pokud splňuje mám "ano" a pokud nesplňuje mám "ne" a ve chvíli kdy podmínka nesplňuje aby se mě zobrazilo tlačítko kterým spustím makro pro další zpracování.
tudíž pro "ano" aby bylo tlačítko skryté a pro "ne" bylo tlačítko viditelné. moc děkuji Martin

děkuju moc

Dobrý den, v userform mám listbox a do něj se načítá seznam xlsx souborů a následně kliknu na název souboru a otevře se mě daný sešit. A teď mám problém že sešit otevřený z listboxu nejde zavřít. Musím ukončit userform a pak můžu zavřít sešit. Já bych ale potřeboval abych daný sešit mohl zavřít, ale userform byl stále otevřený. Díky Martin

dobrý večer, máte pravdu že nesedělo načtení dalších dat v řádku. nicméně jsem to vyřešil vykopírovaním vašeho kodu s tím že jeden byl pro první 2 slupce a druhý kod jsem upravil pro zbytek. vy jste to vyřešil přímo, takže vám moc díky za strávený čas nad tímto řešením a děkuji.

Dobrý den, otestováno a funguje podle představ. Teď si to jen přebrat a pochopit jak to celé funguje. :-)


Strana:  1 2 3 4 5 6   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

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.

On-line nástroje