Andy Machin

Esto es lo más parecido a lo que tu quieres hacer, igual sigue siendo engorroso (tienes que hacer bien la cuenta de las celdas), pero que al menos le sirva de conocimiento general a usted y a los demás. En Excel puedes seleccionar un rango de celdas...

No lo sé hacer, disculpa. Esperemos la respuesta de alguien más. La verdad es que no entiendo, pase este rato pensando y no doy con la solución.

No es tan sencillo como parece, dices que el patrón es único, pero no, no es único jajaja Este es el código: Sub Depurar() Application.ScreenUpdating = False Dim uF As Long: uF = Range("A" & Rows.Count).End(xlUp).Row Dim rRng As Range: Set rRng =...

Para borrar todos los caracteres no Alfanuméricos (pero manteniendo el espacio), puedes usar esta función: Function LimpiarCelda(Rng As Range) Dim strTemp As String Dim i As Long For i = 1 To Len(Rng) Select Case Asc(Mid(Rng, i, 1)) Case 32, 48 To...

Cierro este hilo, ya que nadie pudo resolver tu pregunta, me sigue apareciendo como pregunta pendiente. Salu2

Como te dijo Ignacio, solo pones los rangos correctos. Te grabé un vídeo de como se hace. Mi Excel esta en ingles pero la posición de los menús debe ser igual. Mira: video demo Andy

Vale, di esto es lo que quieres hacer: video demo Entonces aquí tienes el libro arreglado: descargar el libro Ahora te explico: El ComboBox lo estabas cargando con el RowSource (muy bien) si te fijas en las propiedades del ComboBox, hay una que se...

Prueba este código: Sub SumarTodo(Valor1 As Double, Valor2 As Double, Valor3 As Double) Dim Total As Double Total = Valor1 + Valor2 + Valor3 Me.TextBox4.Value = Total End Sub Private Sub TextBox1_Change() Dim Val1 As Double, Val2 As Double, Val3 As...

Aquí tienes: Private Sub TextBox3_Enter() Me.TextBox3.Value = "" End Sub Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim Val1 As Double Dim Val2 As Double Dim prcBono As Double Dim sTotal As Double Dim prcSum As Double Dim prcCal...

Brenda, pon este código 3 veces en el mismo modulo pero con nombre diferente: Sub FiltrarNombre() Dim pacientes As Worksheet: Set pacientes = Sheets("Paciente") Dim uF As Integer Dim diagnostico As String, condicion As String, ficha As String, nombre...