SI anidados y otras cosas mas

01/09/2006 - 13:59 por El Pepus | Informe spam
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

Preguntas similare

Leer las respuestas

#1 AnSanVal
01/09/2006 - 15:02 | Informe spam
1.- La hora no solo cambia cuando cierras y abres el libro, sino cada vez
que la hoja realiza un cálculo (por ejemplo cuando escribes algo en una
celda).
Copia/Pega el siguiente código en el módulo de la Hoja1:







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


2.- Escribe en Hoja1 celda B2:
=SI(A2>0;SI(ESERROR(COINCIDIR(A2;Hoja2!A:A;0));"no
existe";BUSCARV(Hoja1!A2;Hoja2!A:B;2;FALSO));"")
copia/Pega la fórmula hacia abajo, hasta donde necesites.







3.- Selecciona en la hoja1 el rango A2:Gx (x = ultima fila a formatear).
¡Importante! partiendo de A2.
Menu>Formato>Formato condicional>Fórmula> =$F2=""
Botón Formato > aplica fuente en color rojo, >Aceptar >Aceptar







Saludos desde Tenerife (Islas Canarias).
******************************************
"El Pepus" <pepus88(Quitar)@telefonica.net> escribió en el mensaje
news:
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








Respuesta Responder a este mensaje
#2 KL
01/09/2006 - 15:28 | Informe spam
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
Respuesta Responder a este mensaje
#3 El Pepus
01/09/2006 - 17:30 | Informe spam
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

Respuesta Responder a este mensaje
#4 El Pepus
01/09/2006 - 20:31 | Informe spam
"El Pepus" <pepus88(Quitar)@telefonica.net> escribio en el mensaje news:
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






Vale ya me funciona bien, le he anadido debajo del Value
Cells(Target.Row, 5).Select
y me salta el cursor a otra celda que quiero editar tambien
cuando he puesto el numero de telefono.
Pero me da la impresion que me acaban de empezar las complicaciones
o mejoras pendientes, ya os contare.
Un saludo desde Ibiza y gracias de nuevo
Jose Amengual
Respuesta Responder a este mensaje
#5 Gabriel Raigosa
30/09/2006 - 18:21 | Informe spam
Carpeta
Descripcion
Direccion

1
** Microsoft Excel *
http://esnips.com/web/GabrielRaigosa

2
Archivos para usar en clase
http://esnips.com/web/RaigosaClase

3
Fechas y Horas
http://esnips.com/web/RaigosaFechasHoras

4
Formato y Formato Condicional
http://esnips.com/web/RaigosaFormatos

5
Foro Excel
http://esnips.com/web/ForoExcel

6
Funciones de Busqueda
http://esnips.com/web/RaigosaBusqueda

7
Funciones de Texto
http://esnips.com/web/RaigosaTexto

8
Funciones Financieras
http://esnips.com/web/RaigosaFinancieras

9
Funciones Logicas
http://esnips.com/web/RaigosaLogicas

10
Graficos con Excel
http://esnips.com/web/RaigosaGraficos

11
Grupo (Sabados)
Privado

12
Grupo (Viernes)
Privado

13
Grupo Excel Septiembre
Privado

14
Juegos con Excel
http://esnips.com/web/RaigosaJuegosExcel

15
Macros con Excel
http://esnips.com/web/Macros-con-Excel

16
Manuales Excel
http://esnips.com/web/RaigosaManuales

17
Paginas WEB
http://esnips.com/web/RaigosaPaginasExcel

18
Practicas - XLS
http://esnips.com/web/RaigosaPracticasXLS

19
Tablas Dinamicas
http://esnips.com/web/RaigosaTablasDinamicas

20
TEST
http://esnips.com/web/GabrielRaigosa-test

21
Validacion
http://esnips.com/web/RaigosaValidacion

22
Varios
http://esnips.com/web/RaigosaVarios

23
VBA - Visual Basic para Aplicaciones
http://esnips.com/web/RaigosaVBA



Gabriel Raigosa
http://esnips.com/web/Raigosa
http://esnips.com/web/ForoExcel
"El Pepus" <pepus88(Quitar)@telefonica.net> escribio en el mensaje
news:
| 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
| >
|
|
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida