UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se puede subir archivos al foro, favor de hacerlo en servidor externo (Dropbox, Drive...) y dejan link. "Sin archivo no hay respuestas"

Favor de leer "Todos los temas" Click aquí.

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1RESUELTO Macro condición dos celdas el 19/07/18, 04:37 am

juanmafdez


Buenos días.
En la celda B1 tengo un desplegable que coge los datos de la columna H. Yo ejecuto una macro que me copia una serie de valores de una plantilla a otra. Me gustaría que cada vez que ejecuto esa Macro si el valor de la celda B1 es igual al valor de cualquiera de las celdas H, el valor en H se ponga en negrita cambie el formato o se resalte de alguna manera, y si de alguna manera se ha resaltado no se cambie si el valor no es igual hasta que yo lo haga manualmente. Digamos que es como un checklist de si he hecho ya algo.
Lo he conseguido con codicional y también con el comando si, pero cuando el resultado no es igual me pone de nuevo el formato como estaba y ya no sé si he pasado los datos o no.

Como es mejor con un ejemplo os pongo un link de una hoja muy parecida a la que tengo.

https://www.dropbox.com/s/r9m1gxtlnaqvegv/Test.xlsm?dl=0

Muchas gracias por vuestra ayuda.

2RESUELTO Re: Macro condición dos celdas el 19/07/18, 02:43 pm

Igtelo

avatar
Hola Juanmafdez.

Macro en módulo 1.

Link:    https://www.dropbox.com/s/sexyfoz5m2iw5hn/Juanmafdez-Test.xlsm?dl=0

Código:
Sub Pasa()
'Solo ingresa datos nuevos y colorea en amarillo en columna H
Dim w As Long

With Sheets("Notas")
  w = .[A10000].End(xlUp).Row + 1
  On Error GoTo salto
  If .Range("A1", "A" & w).Find([B1], lookat:=1) = [B1] Then
  MsgBox "Ya está en Notas"
  Exit Sub
  End If
salto:
   .Cells(w, 1) = [B1]
   .Cells(w, 2).Resize(, 5) = Application.Transpose([B3:B7])
End With
[H2:H300].Find([B1], lookat:=1).Interior.Color = vbYellow
End Sub

Saludos
Ignacio Téllez

3RESUELTO Re: Macro condición dos celdas el 19/07/18, 05:22 pm

juanmafdez


Muchisimas gracias.

Es justo lo que quería.

Juanma.

Contenido patrocinado


Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.