PC-HELP.CZ

Poprosil bych o pomoc se sestavením makra

Pokusil sem se to napsat takhle a samozřejmě to nefunguje:

Sub H1_Change()
 If Range("H1") = "" And Range("C1") <> "" Then
   Range("C1").Value = ""
  ElsIf Range("C1") <> "" And Range("C1") <> Sheets.Count - 6 Then
   Range("C1").Value = Sheets.Count - 6
 End If
End Sub

Popis toho co to má dělat:
Spustit automaticky pokud jsou splněny podmínky
Pokud je buňka H1 prázdná a C1 plná - Vymaž C1
Pokud je C1 prázdná a H1 Plná zapiš do C1 pořadí listu v sešitu snížené o číslo 6

Následující makro zkopírujte do Worksheet_change listu kde je toto třeba, pokud už tam makro je, tak třeba za něj.

Kód: Vybrat vše

If Range("H1") = "" And Range("C1") <> "" Then
    Range("C1").ClearContents
ElseIf Range("C1") = "" And Range("H1") <> "" Then
    Range("C1").Value = Sheets.Count - 6
End If

Dík za tvůj čas bohužel něco je blbě nechodí .. Má to být takhle:

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").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
If Range("H1") = "" And Range("C1") <> "" Then
  Range("C1").ClearContents
 ElseIf Range("C1") = "" And Range("H1") <> "" Then
    Range("C1").Value = Sheets.Count - 6
End If
End Sub

Sorry chodí já trouba to po změně zapomněl uložit. Takže děkuji za pomoc.

PC-HELP.CZ

Excel - Číslo listu do buňky

Excel - Číslo listu do buňky

Re: Excel - Číslo listu do buňky

Re: Excel - Číslo listu do buňky

Re: Excel - Číslo listu do buňky Vyřešeno