Formulario colorea celdas





Esta macro de Excel, es algo sencilla, pero para algunos es de gran utilidad, el ejemplo de macro esta desarrollado en VBA, presionando el botón se muestra un userform o formulario con una serie de cuadros de controles; al presionar el botón buscar, se corre un procedimiento de VBA que busca datos en la columna determinada previamente, una vez encontrado el dato buscado, se colorea la celda, procediendo a llenanr los textbox con datos de la columna B, el botón clear quita el color a todas las celdas. Esta macros es bastante similar o ser relación con el ejemplo presentado en el post recorre filas y agrega el número de la fila correspondiente en base a criterios.

Código que se inserta en formulario





Private Sub CommandButton1_Click()
'Dimensiono variables
Dim fila, conta As Integer
Dim dato As Currency
conta = 0
fila = 1
'Variable dato es igual al valor del textbox12
dato = TextBox12
'Realizo bucle para buscar datos, encontrado se aplica el formato
While Sheets("hoja1").Cells(fila, 1) <> emtpy
    If Sheets("hoja1").Cells(fila, 1) = dato Then
      
       Sheets("hoja1").Cells(fila, 1).Select
      With Selection.Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .color = 65535
            .TintAndShade = 0
            .PatternTintAndShade = 0
      End With
       TextBox1 = ActiveCell.Offset(0, 1).Value
     Else
     conta = 1
    End If
 fila = fila + 1
  Wend
'Si no encontró el dato sale un mensaje
If conta = 1 Then
 MsgBox ("No se encontró ID  " & dato), vbInformation, "AVISO"
End If
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub CommandButton3_Click()
 Sheets("hoja1").Range("A:A").Select
 With Selection.Interior
            .Pattern = xlNone
            .TintAndShade = 0
            .PatternTintAndShade = 0
      End With


End Sub


Código que se inserta en un módulo


Sub llamaform()
UserForm1.Show
End Sub


CLICK para descargar en ejemplo en forma gratuita, si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página.



CLICK to download free example, If this post was helpful INVITE ME A COFFEE and so help keep up the page.


Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends