EXcell 2007 cercare 2 numeri in una colonna

[asterix55]

Salve ho provato cercare nei vari topic ma non ho trovato niente che faccia il caso mio .
Avrei bisohno di una formula che mi indichi se nell'intervallo di colonna A1:A1000 è presente 1 oppure 4 e mi scriva il primo valore che trova in V4 ( se 1 mi deve scrivere 1, se 4 mi deve scrivere 4) .
grazie

[Dylan666]

Codice: Seleziona tutto

Sub CercaValore()
    Dim DataRange As Range
    Dim cell As Range
    Set DataRange = Range("A1:A1000")
    For Each cell In DataRange.Cells
        If (Not IsEmpty(cell)) And (cell.Value = "1") Then
            Sheets("Foglio1").Range("V4").Value = "1"
            Exit For
        ElseIf (Not IsEmpty(cell)) And (cell.Value = "2") Then
            Sheets("Foglio1").Range("V4").Value = "2"
            Exit For
        End If
    Next
End Sub

[asterix55]

mm non funziona

[Dylan666]

Io l'ho provata e funge.
L'unica cosa che ho sbagliato è che devi sostiture i due "2" in "4"

Codice: Seleziona tutto

        ElseIf (Not IsEmpty(cell)) And (cell.Value = "4") Then
            Sheets("Foglio1").Range("V4").Value = "4"

[asterix55]

si ora ci siamo ti ringrazio ma non sarebbe possibile con una formula?

[Dylan666]

Sicuramente, ma non sono capace

[asterix55]

Bene allora pongo la domanda a chi potrebbe risolvere il problema con una formula.

[quizface]

Dovresti postare in Applicazioni Office Windows li' c'e' gente con le p... hem..volevo dire esperta .