se 0 inserire parola

Ciao,
nel foglio allegato inserire la parola "aggiornamento" nella colonna F se in colonna G c'è zero.
Allego esempio.
In colonna G c'è nel foglio originale una formula che non ho allegato
grazie
frank

ciao
non conoscendo i dati di G9
direi
=SE(E(G9=0;VAL.NUMERO(G9));"Aggiornamento";"")

Grazie federico
La formula è o.k. , purtroppo nella colonna F si inserisce una determinata parola con una macro.
Quindi penso che la soluzione sia un'altra macro selecion_change che quando è zero in G si inserisce in F "aggiornamento"
frank

ciao
perchè?

le formule leggono i valori anche se sono
scritti con macro.
al limite scrivi la macro che la modifichiamo
facendo in modo che se il risultato è 0
in G vada ascrivere la parola che vuoi

Questa macro inserisce le formule in colonna

Option Explicit
Sub Macro5()
Range("F9:F28").Formula = "=IF(AND(RC[1]=0,ISNUMBER(RC[1])),""Aggiornamento"","""")"
End Sub

ma non è questo.
Ad ogni inserimento di zero in colonna in colonna G deve inserirsi "aggiornamento" senza formule in colonna F

ciao
questa è la mia formula passata in macro

a me interessa quella che hai in colonna G

da li cin un semplice IF
si può scrivere anche in colonna F

ciao
un sistema può essere

---

Public Sub sostituisci()
Dim Lista As Range
Set Lista = Range(Cells(9, 7), Cells(9, 7).End(xlDown))
For Each CL In Lista
If CL = 0 Then
CL.Offset(0, -1) = "Aggiornamento"
End If
Next
End Sub

---

ma le celle non devono essere vuote

Così si inchioda tutto

ciao
a me non si inchioda niente.
ti ho chiesto la macro con cui popoli la colonna G
se non metti quella andiamo per tentativi

Anche senza altre macro qui si inchioda

Qui mi dà spazio dello stack esaurito

If cl = 0 Then
cl.Offset(0, -1) = "Aggiornamento"
End If '<<<<<<<<<

Next

ciao

scrivi sulla colonna G

NB non funzione se in g il risultato deriva da formula


oppure puoi usare

---

Sub prova()
Dim i As Long, ur As Long
ur = Cells(Rows.Count, 7).End(xlUp).Row
For i = 9 To ur
If Cells(i, 7) = 0 And Cells(i, 7) <> "" Then
Cells(i, 6) = "Aggiornamento"
End If
Next i
End Sub

---

Grazie fede.
La macro funziona, ma purtroppo nel file originale c'è una formula nella colonna G
= SE(H10;H10-H9;"")
e quindi come hai detto non funziona.
Non mi lascia caricare xlsm ma solo xlsx-xls.
Il file ora è con macro xls

in H
li scrivi a mano?

scrivi così

---

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("G9:G100").Precedents) Is Nothing Then

Call sostituisci

End If

---

End Sub

Ciao Questa macro dovrebbe funzionare



però dici che lo 0zero in colonna G proviene da una formula, mi scrivi la formula che si trova in colonna "G", perche al limite lo "Change" dell'evento deve controllare cosa modifica la formula.

in quanto la variazione del valore determinato da una formula non scatena l'evento Change per inserire "Aggiornamento"

Ciao By Sal (8-D

P.S. rileggendo i Post vedo che la cella in G deriva ancora da un altra formula in colonna "H", a questo punto credo che basti usare solo "Change" senza riferimento come ti ha suggerito Federico che saluto, con la macro "Sostituisci", in questo modo qualsiasi modifica venga fatta sul foglio va a controllare sempre se nella colonna "G" ci sia qualche 0zero.

tranne se le formule per il cambiamento della colonna "G" non siano collegate alla modifica di un valore su un altro foglio, allora l'evento "Change" non dovrà partire dal foglio della colonna "G" ma dal modulo "Generale" "Thisworkbook" oppure "Questo foglio di lavoro".

bye bye

ciao
by sal

io ho usato ...precedents

nel caso del file in questione
se inserisce il dato in H
si attiva la macro.
Ho usato Call per non dover gestire gli offset()