Doar la numar, nu si la text

[vasileraz58]

Buna ziua!
Va rog daca se poate sa ma ajutati cu o formula in celula B4 si anume:
Daca in celula A4 scriu orice numar , in celula B4 sa-mi apara textul "Atentie", iar daca in aceeasi celula A4 scriu F.A. sau orice alt text, in celula B4 sa nu apara nimic. Multumesc frumos!

[IPP]

Buna ziua

Testati:
=IF(ISNUMBER(A4);"Atentie";"")

IP

[vasileraz58]

Buna ziua!
Multumesc frumos IPP. Merge perfect!

[vasileraz58]

Revin cu o intrebare
Nu s-ar putea face ca in celula B4 la aparitia textului "atentie", celula respectiva sa clipeasca cumva intermitent?

[IPP]

Buna ziua

Ma indoiesc. Teoretic se poate incerca ceva cu un macro dar acesta nu reactioneaza la modificarea rezultatului unei formule deci ar trebui legat de modificare suferita de celula A4. Apoi ar fi partea cu "clipitul" care nu e posibila (ca nu este Word) si daca s-ar incerca un surogat poate sa dauneze mai mult implementarea decat sa ajute. In caz extrem, sa "crape" fisierul

Pentru a atrage atentia puteti incerca sa puneti o regula de formatare conditionata care sa dea un fond colorat celulei/textului din B4

IP

[vasileraz58]

Multumesc pentru raspuns! Asta e. Nu se poate...., nu se poate. Era bine daca blinkuia textul sau celula la deschiderea fisierului, pentru ca astfel "sarea in ochi" si te atentiona. O sa fac cum ati zis cu formatare conditionata.
O zi buna in continuare!

[IPP]

Daca e vorba despre o atentionare necesara doar la deschiderea fisierului, se poate face un macro care sa verifice informatia din B4 si daca este cazul sa afiseze un mesaj pe ecran (Msgbox). Iar utilizatorul va trebui sa inchisa acea fereastra ca sa poata lucra in fisier deci nu va putea spune ca nu a fost avertizat.

LE dar si pentru asta este nevoie ca utilizatorul sa permita rularea macro in fisier

[vasileraz58]

D-nul IPP, habar n-am cum se face, dar daca nu va cer prea mult, sunt curios cum arata acel macro despre care ziceti si daca il puteti face pentru mine acel cod, (binenteles daca aveti timp, ca nu-i nici o graba ) eu o sa incerc sa-l introduc intr-un modul in foaia de lucru.

[IPP]

In fisierul atasat exista codul

Cod: Selectaţi tot

Private Sub Workbook_Open()

If Sheet1.Range("B4").Value = "Atentie" Then
 MsgBox "Ce mesaj doriti sa fie afisat utilizatorului", vbCritical, "Atentie!"
End If

End Sub

care ruleaza automat daca utilizatorul permite, la deschiderea fisierului rularea macro. Textul acela poate fi editat

Pentru testare:
Deschideti fisierul atasat, activati macro/continutul.
In acest moment nu e completat nimic in celula A4 deci nu va fi niciun mesaj;
Editati in A4 scriind un numar si ca urmare va apare in B4 textul "Atentie"; Salvati si inchideti fisierul; Redeschideti fisierul (cu activare macro); ar trebui sa vedeti o fereastra cu mesajul setat in cod. Nu se va putea lucra in fisier pana nu veti inchide acea fereastra.

[vasileraz58]

Multumesc! Buna treabă! O sa implementez la mine in fisier. Pe caldura asta meritati o bere. Pacat ca nu am cum sa va ofer.
Mulumesc inca o data!