Excel - podmíněný obsah buňky

[prs]

Dobrý den,

je nějak možné v excelu vymyslet podmínený obsah buňky?

Příklad:
V rozhodovací buňce vybírám mezi "OK" a "NA" a chtěl bych v určitých buňkách s ohledem na tyto hesla toto:
v případě "NA" - automaticky vyplnit nějakým textem (jako "nepoužito" či tak něco)
v případě "OK" - ponechat políčko prázdé s možností zapisovat

Samozřejmě po změně rozhodovacího políčka z "OK" na "NA" ponechat automatické vyplnění buňky a naopak.

Děkuju moc

P.

[Reklama]

[d1amond]

Funkce =Když(podmínka; ano; ne). Problém je, že vzorec musí být v buňce, a když ho přepíšeš, už není - buď hodnota nebo vzorec.

[prs]

No to je mi právě jasný, právě bych potřeboval, ať mi tam ta funkce zůstane, když zpět změním rozhodovací buňku...

[d1amond]

Zkus nahodit v excelu příklad, a přilž ho sem. Nějak nechápu.

[pavel.lasak]

Je možno použít další samostatný sloupec, který o tom bude rozhodovat? Je možno použít makro (VBA) - SheetChange? Jak psal d1amond pošli nějaký příklad, ze zadaní jsem to také úplně nepochopil.

[prs]

Sand to bude z příkladu lépe pochopitelné.

Díky

P.

[guest]

Data / Ověření, vyplnit a odškrtnout na poslední záložce varování. Tak to vidím já.

[pavel.lasak]

No chtěl jsem něco v Excelu, ale zkusil jsem něco připravit, snad jsem pochopil dobře. Viz příloha - pokud Je v F3 OK vyplní se test, pokud NA vyplní se nepoužito. Používa makro a událost listu Change

Kód: Vybrat vše

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("F3").Value = "NA" Then
    Application.EnableEvents = False
    Range("C5").Select
    ActiveCell.FormulaR1C1 = "Nepoužito"
    Application.EnableEvents = True
Else
    Application.EnableEvents = False
    Range("C5").Select
    ActiveCell.FormulaR1C1 = "test"
    Application.EnableEvents = True
End If

End Sub


[prs]

Koukal jsem na to a super, jenže já potřebuju, když je parametr "OK", aby bylo možno do buňky vpisovat libovolný text. Takhle ho tam sice napíšu, ale po potvrzení buňky se zobrazí ono nadefinované "test". Šla by třeba použít jen první půlka toho makra?

Díky

P.

--- Doplnění předchozího příspěvku (24 Kvě 2012 10:31) ---

Prubnul jsem to a jde. Děkuju moc. :)

P.

--- Doplnění předchozího příspěvku (24 Kvě 2012 10:33) ---

Poslední dotaz, šlo by tedy ještě sem:


Private Sub Worksheet_Change(ByVal Target As Range)



If Range("F3").Value = "NA" Then
Application.EnableEvents = False
Range("C5").Select
ActiveCell.FormulaR1C1 = "Nepoužito"
Application.EnableEvents = True

End If

End Sub

Přidat něco, co by mi při přepnutí z "NA" do "OK" vymyzalo text "Nepoužito"?


Děkuji

P.

[cmuch]

Tak asi takto:

Kód: Vybrat vše

Private Sub Worksheet_Change(ByVal Target As Range)

If Target = Range("F3") Then

    If Range("F3").Value = "NA" Then
        Application.EnableEvents = False
        Range("C5").Select
        ActiveCell.FormulaR1C1 = "Nepoužito"
        Application.EnableEvents = True
      ElseIf Range("F3").Value = "OK" Then
        Application.EnableEvents = False
        Range("C5").Select
        ActiveCell.FormulaR1C1 = ""
        Application.EnableEvents = True
    End If

End If

End Sub

[prs]

Super,

díky moc.

P.