Příspěvky uživatele
< návrat zpět
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
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články