Stránka 1 z 1
Excel - Pomoc s úpravou makra VBA
Napsal: 26 kvě 2012 19:50
od Jan Pašek
Poprosil bych o pomoc při úpravě
TOHOTO Makra
Základní funkce je v pořádku tzn. pojmenuje list při změně hodnoty buňky.
Požadovaná úprava:
Pokud jsou buňky B3 a B4 bez hodnot (čisté) pojmenuje list "Prázdný protokol"
Pokud je v buňce B3 nějaká hodnota (nejčastěji text - neplatí vždy) a buňka B4 je bez hodnot (čistá) pojmenuje list hodnotou buňky B3
Pokud je v buňce B4 nějaká hodnota (nejčastěji číslo - neplatí vždy) a buňka B3 je bez hodnot (čistá) pojmenuje list hodnotou buňky B4
Pokud je v buňce B3 a B4 nějaká hodnota pojmenuje list hodnotou buňky "B3 Odtržítko B4"
Dík za pomoc.
Re: Excel - Pomoc s úpravou makra VBA
Napsal: 26 kvě 2012 20:08
od Azuzula
Pro začátek třeba toto. Stačí kopírovat do listu kde je změna potřeba.
Kód: Vybrat vše
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("B3") = "" And Range("B4") = "" Then
ActiveSheet.Name = "Prázdný protokol"
ElseIf Range("B3") <> "" And Range("B4") = "" Then
ActiveSheet.Name = Range("B3")
ElseIf Range("B3") = "" And Range("B4") <> "" Then
ActiveSheet.Name = Range("B4")
ElseIf Range("B3") <> "" And Range("B4") <> "" Then
ActiveSheet.Name = Range("B3") & "_" & Range("B4")
End If
End Sub
Re: Excel - Pomoc s úpravou makra VBA
Napsal: 26 kvě 2012 20:26
od Jan Pašek
Sice s drobnou chybou ale po úpravě chodí Já si nepamatoval jak se ve VBA staví podmínka IF
Takle mi to začlo fungovat:
Kód: Vybrat vše
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("B3") = "" And Range("B4").Value = "" Then
ActiveSheet.Name = "Prázdný protokol"
ElseIf Range("B3") <> "" And Range("B4") = "" Then
ActiveSheet.Name = Range("B3").Value
ElseIf Range("B3") = "" And Range("B4") <> "" Then
ActiveSheet.Name = Range("B4").Value
ElseIf Range("B3") <> "" And Range("B4") <> "" Then
ActiveSheet.Name = Range("B3") & "_" & Range("B4").Value
End If
End Sub
Děkuji za pomoc.
Re: Excel - Pomoc s úpravou makra VBA
Napsal: 26 kvě 2012 20:41
od Azuzula
Na vzpomenutí si na sintaxi poslouží výborně třeba google, nebo nápověda excelu, ale tohle je snažší, že?
No, je to nepochopitelné že někde je potřeba .Value a jinde to jde bez toho. Mě to chodilo jak jsem to napsala bez potíží, vč. kombinace čísel, textu a prázdných buněk. Ale budiž, chodí to a to je důležité :)
Re: Excel - Pomoc s úpravou makra VBA
Napsal: 26 kvě 2012 20:48
od Jan Pašek
ještě jednou dík za pomoc!
PS: než sem se zeptal věnoval sem tomu cca hodinu a půl nejprve najít vhodné makro pak jsem z hlavy zkoušel sloučení dvou obsahů buněk do listu ve VBA no a když mi nešla postavit podmínka vzdal jsem to a raději se zeptal.
Re: Excel - Pomoc s úpravou makra VBA Vyřešeno
Napsal: 26 kvě 2012 20:50
od Azuzula
Dobrá tedy, není zač, je to drobnost.
Pokud je to vše, označte téma za vyřešené.