Excel - Pomoc s úpravou makra VBA Vyřešeno

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

[Reklama]

[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


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

[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é :)

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

[Azuzula]

Dobrá tedy, není zač, je to drobnost.
Pokud je to vše, označte téma za vyřešené.