Macro hacer si..

Puedes hacerlo con una fórmula en la columna d:
si(c5<>"";2323;"") extiendes esa fórmula hasta el final y ya lo tienes.


"navibel" escribió en el mensaje
news:
Hola amigos...

Necesito una macro que lea lo que hay en la columna C (empiezo en C5) y
si hay algo, ponga una cantidad (2323) en la celda contigua (D5, D6,
etc). Los datos de C no se donde teminan, o sea unas veces terminarán
en C50 y otras en C200...depende

Gracias por vuestra ayuda

Yo mas bien creo que navibel necesita decirnos que necesita:
ó



"navibel" escribió en el mensaje
news:
Hola amigos...

Necesito una macro que lea lo que hay en la columna C (empiezo en C5) y
si hay algo, ponga una cantidad (2323) en la celda contigua (D5, D6,
etc). Los datos de C no se donde teminan, o sea unas veces terminarán
en C50 y otras en C200...depende

Gracias por vuestra ayuda

..pues si Roberto, yo lo que necesito es una macro que evalúe un rango
en C (que empieza en C5 y no se donde va a terminar) y si hay algo en C
ponga 2323 en la celda contigua (D5, D6, D7, etc...El rango es
dinámico, por lo que no puedo hacer uso de la fórmula qu indica
Luis..

Gracias a ambos...

Sub BuscarAlgo()
Dim R As Range
For Each R In ActiveSheet.Range("c5:c200")
If Not IsEmpty(R) Then R.Offset(0, 1) = 2323
Next
End Sub

Saludos.
"navibel" escribió en el mensaje
news:
..pues si Roberto, yo lo que necesito es una macro que evalúe un rango
en C (que empieza en C5 y no se donde va a terminar) y si hay algo en C
ponga 2323 en la celda contigua (D5, D6, D7, etc...El rango es
dinámico, por lo que no puedo hacer uso de la fórmula qu indica
Luis..

Gracias a ambos...

Si necesitas que lo haga 'en tiempo de captura'
Pega el código que te reenvío (obra de algún maestro de este foro) en el
editor de Visual Basic,
en la hoja en la que necesites que 'accione'
Adecúalo a tus necesidades...
'************************************************
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not (Intersect(Target, Range("C1:C3000")) Is Nothing) Then
Target.Offset(0, 1).Value = 2323
' Target.Offset(0, 2).Value = Date + Time
End If
End Sub
'************************************************
Roberto


"navibel" escribió en el mensaje
news:
..pues si Roberto, yo lo que necesito es una macro que evalúe un rango
en C (que empieza en C5 y no se donde va a terminar) y si hay algo en C
ponga 2323 en la celda contigua (D5, D6, D7, etc...El rango es
dinámico, por lo que no puedo hacer uso de la fórmula qu indica
Luis..

Gracias a ambos...