Macro Excel: seleziona un valore all'interno di una cella

[xdaniel2]

Salve a tutti,
ho un problema con questa macro.
In fratica non riesco a selezionare il valore all'interno di due celle per confrontarlo tra di loro.
Il codice è questo:

Sub Controllo()
If Range("A33").Select > Range("b26").Select Then
Range("B33").Select
ActiveCell.FormulaR1C1 = "GEOREFERENZIAZIONE GIUSTA, il massimo residuo e' contenuto nel range Val.medio + 2 sigma"
Else
Range("B33").Select
ActiveCell.FormulaR1C1 = "GEOREFERENZIAZIONE ERRATA, il massimo residuo NON e' contenuto nel range Val.medio + 2 sigma"
End If
End Sub

Grazie a tutti.

[wallysimpsons]

Ciao.

Prova così:

Sub Controllo()
'
If Range("A33").Value > Range("B26").Value Then
MsgBox "GEOREFERENZIAZIONE GIUSTA, il massimo residuo e' contenuto nel range Val.medio + 2 sigma" , vbInformation
Range ("A33").Select
Else
MsgBox "GEOREFERENZIAZIONE ERRATA, il massimo residuo NON e' contenuto nel range Val.medio + 2 sigma" , vbInformation
Range ("A33").Select
End If
exit sub
'
End Sub

Ovviamente devi anche aver formattato adeguatamente le celle origine a seconda di cosa devono contenere.

[Anthony47]

Ciao xdaniel2 e benvenuto nel forum.
Invece di passarci una macro che non funziona avresti fatto meglio a descriverci il problema...

Comunque, mi pare che tu voglia confrontare il contenuto di A33 e B26, se A33>B26 vuoi inserire la "frase A" in B33, altrimenti inserisci la "frase B".
1) Prova la macro di wallysimpson del mesaggio precedente
2) ma non ti serve una macro per fare cio', basta mettere in B33 la formula

Codice: Seleziona tutto

=Se(A33>B26;"Frase A";"Frase B")


3) se comunque vuoi farlo con macro puoi anche usare

Codice: Seleziona tutto

If Range("A33").Value > Range("B26").Value Then
Range("B33").Value = "Frase A"
Else: Range("B33").Value = "Frase B"
End If

Ciao.

[wallysimpsons]

Ciao a tutti.

E' chiaro che avendo presentato una macro nella richiesta io abbia tentato di "modificare" tale macro.

Ma quello che dice Antony47 non fa una grinza, anzi è molto piu semplice e veloce.

[Anthony47]

Ho richiamato la tua macro nel mio messaggio per evitare che fosse considerata superata, da un lettore frettoloso. Quello che hai presentato funziona e deve essere valutato dall' utente.

In ritardo do' il benvenuto nel forum anche a te.

Ciao a tutti.