SI anidados y otras cosas mas

Copia/Pega el siguiente código en el módulo de la Hoja1:

copia/Pega la fórmula hacia abajo, hasta donde necesites.

Menu>Formato>Formato condicional>Fórmula> =$F2=""
Botón Formato > aplica fuente en color rojo, >Aceptar >Aceptar

A ver, perdonar, seguro que lo a veis comentado muchas veces y seguro
que yo lo tengo impreso en algun sitio, pero no lo encuentro, a si que me
atrevo a preguntar 3 cositas.

1º tengo puesto en la celda D7 la siguiente formula
=SI(A7>0;AHORA();" ")
O sea que si pongo un numero en A7 me coloca la hora en D7
pero si cierro el libro y lo vuelvo a abrir me la cambia, cosa que no
quiero que haga, por lo que pense en ponerle 2 SI, que coloque la
hora en D7, SI A7 es mayor de 0 y SI D7 esta vacio a si cuando ya
tenga una hora puesta no la cambiara, pero no consigo hacerlo bien.

2ª Tambien me gustaria que si pongo un numero en la columna A
en cualquier fila me busque en la Hoja2 dentro de la columna A dicho
numero y si lo encuentra me copie a la Hoja1 el contenido de la celda
B de la hoja 2 a la hoja 1 tambien en la celda B

Por ejemplo en A8 de la Hoja1 pongo un numero de telefono que lo
busque en toda la columna A de la Hoja2 y si lo encuentra que copie
el contenido de la celda B de su derecha a la celda B de la Hoja1 tambien
a la derecha en la misma fila donde ponga el nuemro, un tipo guia
telefonia

3º Si la celda F4 por ejemplo esta vacia que toda la fila desde A4 hasta
G4
este el texto en color rojo y si pongo un dato dentro de F4 que lo deje en
color negro. un tipo para saber si el trabajo esta pasado o no.

En resumen general, me llama un cliente, pongo su numero de telefono
en la hoja1 fila A1 , se va a la hoja2 columnas A, lo busca y me coloca
el contenido de la celda B en la Hoja1 celda B, y la hora en D en color
rojo, y cuando asigno el trabajo a un operario, pongo su numero en F y
ne cambia el color de la linea a negro, y a si ya se que esta pasado con
un
simple ojeado, y sucesivamente A2, A3, A4 Etc..

Perdon por lo largo del comentario y gracias
Jose Amengual

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then Cells(Target.Row, 4) = Format(Now(), "hh:mm")
End Sub

Hola chicos,

"AnSanVal" wrote:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then Cells(Target.Row, 4) = Format(Now(), "hh:mm")
End Sub

Tecnicamente seria mas correcto (aunque me imagino que la solucion de AnSanVal funcionaria en muchos casos) usar la
propiedad .NumberFormat en vez de la funcion Format para darle formato al resultado final (para preservar la
informacion sobre el dia y los segundos y por si diferencias regionales) ya que la ultima devuelve una cadena de
texto:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Column = 1 Then Exit Sub
With Cells(Target.Row, 4)
.NumberFormat = "hh:mm"
.Value = Now()
End With
End Sub

Saludos,
KL

Gracias a los 2 AnSanVal y KL por vuestras prontas respuestas, lo pruebo
y os comento el resultado.

Jose Amengual

"KL" escribio en el mensaje news:

Hola chicos,

"AnSanVal" wrote:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then Cells(Target.Row, 4) = Format(Now(), "hh:mm")
End Sub

Tecnicamente seria mas correcto (aunque me imagino que la solucion de AnSanVal funcionaria en muchos casos) usar la
propiedad .NumberFormat en vez de la funcion Format para darle formato al resultado final (para preservar la
informacion sobre el dia y los segundos y por si diferencias regionales) ya que la ultima devuelve una cadena de
texto:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Column = 1 Then Exit Sub
With Cells(Target.Row, 4)
.NumberFormat = "hh:mm"
.Value = Now()
End With
End Sub

Saludos,
KL