Dante Amor

Puedes poner una imagen de tu hoja Tabelle20

Prueba esta: =SUMAPRODUCTO(--(A$1:T$1=A2:T2))

Prueba lo siguiente Sub Seleccionar_Celda() Dim f As Range Set f = Range("H3:H731").Find(Sheets("Consulta_Nombre").Range("B15"), , xlValues, xlWhole) If Not f Is Nothing Then f.Select End If End Sub

Si hay algún otro método en macros que me ayude a poder modificar el color de las celdas Aquí otro método a considerar: Private Sub CommandButton1_Click() With Application .FindFormat.Interior.ColorIndex = 47 .ReplaceFormat.Interior.Color = RGB(242,...

Otra opción a considerar: Sub Quita_Espacios() Selection.Value = Evaluate("=IF({1},TRIM(" & Selection.Address & "))") End Sub

Debes crear un formato condicional por cada color. Selecciona las celdas de la columna B, empezando en la B3 y hasta la última celda con datos. Entra al Menú, Formato condicional, Nueva regla, Utilice una fórmula que determine las celdas, Dar formato...

Podrías responder lo siguiente y ese orden: ¿Cuántos registros tienes en tu hoja? ¿Existen celdas vacías en la columna C? ¿Siempre los duplicados son 2 registros? Es decir, no hay casos en los que aparezca 3 veces el mismo datos

Aquí otra función a considerar. Function ConvPalabras(pal As String) As String Dim tx As Variant, c As String Dim f As Range, i As Long ' tx = Split(pal & " |", " ") c = WorksheetFunction.Proper(tx(0)) & " " For i = 1 To UBound(tx) Set f =...

Nota: con el evento Exit, el color cambia cuando sales del Textbox Otra opción: Private Sub TextBox24_Exit(ByVal Cancel As MSForms.ReturnBoolean) With TextBox24 Select Case .Value Case "", Empty: .BackColor = RGB(234, 234, 234) Case Is < 1260:...

Entra opciones de excel, Avanzadas, Mostrar opciones para este libro y selecciona la opción Mostrar fichas de hojas.