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é.