Andy Machin

¿ ¿Así no te sirve?: En el editor de VBA seleccionas las hojas en el explorador de proyecto, en las propiedades colocas la propiedad Visible en xlSheetVeryHidden

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...

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...

Hi Zein, Pensé que la respuesta de James te había servido por eso no te respondí mas, pero parece que no es lo que buscas. Pero bueno aquí tienes otra manera de hacerlo. Lo he probado con 30,000 (30k) de filas y corre en milisegundos. Yo suelo evitar...

Una manera rustica: Sub Rustico() Dim ConcatStr As String Dim rCell As Range, rRng As Range Dim uF As Long uF = Range("A" & Rows.Count).End(xlUp).Row Set rRng = Range("A1:A" & uF) For Each rCell In rRng.Cells If rCell.Value = "FIN" Then Exit For If...