realizar el mismo procedimiento en los demas cuadros

[dragonfire33]

como puedo modificar este codigo para que la busqueda que realiza en el primer cuadro , me arroje el 2do y tercer dato mas repetido de acuerdo a la coincidencia a buscar

Option Explicit
Private Sub CommandButton8_Click()
    Dim R As Range
Dim T As String
Dim C As String
Set R = Sheets("hoja1").Range("Z1:TW42") 'cambiar ahoja activa
If Me.Uno.Text = "" Then T = T & "?" Else T = T & Uno.Text
If Me.Dos.Text = "" Then T = T & "?" Else T = T & Dos.Text
If Me.Tres.Text = "" Then T = T & "?" Else T = T & Tres.Text
If Me.Cuatro.Text = "" Then T = T & "?" Else T = T & Cuatro.Text
Call seleccionaceldascoincidentes(T, R)
End Sub

Sub seleccionaceldascoincidentes(texto As String, rango As Range)
Dim x As Long, y As Integer
Dim Fila As Long, Veces As Long
Me.ListBox1.Clear
Vecesx = 0
For x = 1 To 42
   Fila = x
   Veces = 0
   For y = Range("Z1").Column To Range("TW1").Column
      If Cells(x, y).Value Like texto Then
        Me.ListBox1.AddItem Cells(x, y).Address & " : " & Cells(x, y).Value
        Veces = Veces + 1
      End If
   Next
   If Veces > CLng(Vecesx) Then
      Filax = x
      Vecesx = Veces
   End If
  
Next

End Sub



Private Sub UserForm_Click()

End Sub

 

[JasallBcn]

Buenas, cambia la linea de busqueda por esta .

If Cells(x, y).Value Like texto Or Cells(x, y).Value = Replace(texto, "?", "") Then

le añadimos la opcion de comparar el texto buscado con el encontrado sin la interrogación.

suerte