Příspěvky uživatele

Dobrý den,

ve VBA jsem začátečník a nevím si rady. Prosím o pomoc s vytvořením makra:
Mám tabulku se seznamem smluv (rozpočet), kde lze přidat libovolný počet smluv, jednu smlouvu lze rozdělit do dvou řádků s různým příznakem (typem výdajů) ve sloupci E, viz příloha. Potřebuji, aby makro na jiném listu vytvořilo pro každý jedinečný název smlouvy ve sloupci C samostatný řádek a do něj vložilo vybrané hodnoty ze smlouvy (dodavatele a cenu s a bez DPH). Např. u smlouvy 101/2016 má makro do jednoho řádku sečíst hodnoty z řádků 6 a 11, atd., viz soubor "výsledek makra".

Děkuji za pomoc.

Lukáš Urban

...pardon, nepřiložil jsem sešit, tak nyní.

Dobrý den, potřeboval bych pomoci s následujícím problémem v zápise maker.

Na základě hodnoty "5.1a" v buňce B2 (hodnota se sem vkládá přes ověření dat) se mi vytváří 6 checkboxů na buňkách A4 až A9. Pokud zvolím v B2 jinou hodnotu, tyto CB se vymažou. Dále po zatržení prvního CB (na buňce A4) se vytváří další CB na buňce B4. Opět po odtržení CB A4 se opět vymaže.

Problém je v tom, že pokud CB na A4 zatrhnu (vytvoří se CB na B4) a potom změním hodnotu na B2 (prvních 5 CB zmizí), checkbox na B4 zůstává. Potřebuji aby také zmizel.

Nejsem zkušený a opravdu si s tím nevím rady.

Dále bych potřeboval napsat makro, které by na základě zatržení checkboxu na buňce A4 vytvářelo pole se seznamem

Mohl by mi, prosím, někdo poradit?

Přikládám sešit s makry.
Děkuji.

Dobrý den, potřebuji poradit s tímto problémem: Mám makro, které do listu vloží tři ovládací prvky.
Sub Makro1()
'
' Makro1 Makro
'

'
Range("A4").Select
ActiveSheet.CheckBoxes.Add(1.5, 45, 93.75, 17.25).Select
Selection.Characters.Text = "Zateplení"
With Selection
.Value = xlOff
.LinkedCell = "A4"
.Display3DShading = True
End With
Range("C4").Select
ActiveSheet.CheckBoxes.Add(96, 45, 91.5, 17.25).Select
Selection.Characters.Text = "Výměna zdroje"
With Selection
.Value = xlOff
.LinkedCell = "B4"
.Display3DShading = True
End With
Range("E4").Select
ActiveSheet.CheckBoxes.Add(191.25, 44.25, 99.75, 17.25).Select
Selection.Characters.Text = "Využití odpadního tepla"
With Selection
.Value = xlOff
.LinkedCell = "C4"
.Display3DShading = True
End With
Range("B2").Select
End Sub

Je podmíněně spouštěno dalším makrem na základě hodnoty v buňce B2. Když je B2="5.1" vloží se ovládací prvky.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

Dim VRange As Range

Set VRange = Range("B2") 'hlídaná buňka

If Union(Target, VRange).Address = VRange.Address Then

If VRange = "5.1" Then Call Makro1 'zavolá makro vase_makro

End If

End Sub

Nyní ale potřebuji, aby když se hodnota B2 změní, ovládací prvky zase zmizely. Zkoušel jsem přes záznam makra, ale nefunguje to

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje