Jump to content
lphant

Buscar dato y cambiar de color con macro

Recommended Posts

Buenas noches;

Hace un tiempo encontré y modifique una macro para buscar y marcar de un color un dato pero creo que no está optimizada todo lo que debería.

como la veis??, se puede mejorar??.

los datos a buscar son números de 6 cifras.

gracias y un saldo.

 

AyudaExcel.xlsm

Share this post


Link to post
Share on other sites

Hola amigo, mi comentario está demás, pero con esto imagino que es suficiente:

Private Sub Nombre_Change()
 Dim i As Long, UF As Long
 UF = Worksheets("Base").Range("E3").End(xlDown).Row
  Menor = UF + 1
 Range("E3:E" & UF).Font.ColorIndex = 25
 For i = UF To 1 Step -1
  If Not IsEmpty(Trim(Nombre)) Then
   If LCase(Range("E" & i)) Like LCase(Nombre) & "*" Then
    If Trim(Nombre) <> "" Then
      Range("E" & i).Font.ColorIndex = 3
      If i < Menor Then Menor = i
     Else
    End If
   End If
  Else
 End If
 Next i
 If Menor <> UF + 1 Then
 End If
End Sub

a meno que se reduzca más el ciclo for.

slds.

Share this post


Link to post
Share on other sites

No sé, si lo único que quieres es encontrar un valor y cambiarle el color de fuente, con esto te sirve más que de sobra :huh:

Private Sub CommandButton1_Click()
Dim numero As MSForms.TextBox
Dim fila As Long
Dim dato As Range

Set numero = TextBox1

With ActiveSheet
fila = .Range("E3:E" & Rows.Count).End(xlDown).Row
Set dato = Range("E3:E" & fila).Find(TextBox1.Value)
    If dato Is Nothing Then
    MsgBox "El dato " & numero & " no existe"
    Else
    dato.Font.ColorIndex = 26
    End If
End With
End Sub

 

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy