Nelson Felipe Serrano

He creado una nueva función que llame CONCATENAR_SI que opera de manera similar a la función de Excel SUMAR. SI es decir =Concatenar_si(rango a comparar, criterio que debe cumplir, valores que se concatenan cuando el criterio se cumple, separador...

Lo que debes hacer se logra con estas líneas, pruébalas y me cuentas como te va. Saludos Private Sub CommandButton1_Click() UserForm1.MultiPage1.Value = 1 End Sub (Supuse que el botón que ubicaste en el el Page1 del control MultiPage se llama...

Te dejo el código modificado para lo que necesitas, como veras se han reducido las líneas del mismo, pero en esencia hace lo mismo (fijate en el uso que se le da a la función CONTROLS), en cuanto a tu código no funcionaba porque habías definido mal...

Te dejo el código que había hecho para una respuesta anterior, hace lo que necesitas (de forma general), quedo pendiente de tu éxito. Saludos Sub ListarArchivos() ''Creada por FSerrano en 110624 para takki en TodoExpertos.com ''Lista todos los...

Tienes razón en tu observación de que es lo que genera el error, el modo de solucionarlo es usar la función CONTROLS del modo en el que sigue (como verás he suspendido el uso de la matriz para capturar los datos de las celdas, sin embargo no debe dar...

Te dejo el código que puede ayudarte, debes copiarlo en el código de la hoja actual, y solo se ejecutara cuando ingreses 4 en la celda B1. Quedo pendiente de tu éxito. Saludos Private Sub[color=#666666] [/color]Worksheet_Change(ByVal Target As Range)...

Prueba a introducir estas lineas en tu código del userform. Debería funcionar Private Sub TextBox4_Change() If TextBox2.Value <> "" And TextBox4.Value <> "" Then TextBox1.Value = UCase(Mid(TextBox2, 1, 2)) &...

Te dejo el código que hace lo que necesitas, debes lanzar la macro una vez te posiciones en la celda que quieres comparar Sub ContarIgualesEnLibro() ''Creada por FSerrano en 120316 ''para edlsalv en TodoExpertos.com ''Cuenta el número de hojas en el...

Te dejo el código modificado para lo que necesitas. Saludos Private Sub Worksheet_SelectionChange(ByVal Target As Range) ''Creada por FSerrano en 120315 ''para Angeles88 en TodoExpertos.com ''Selecciona un grupo de 10 celdas, en la[color=#666666]...

Respecto a tu código hay algunas observaciones: 1. Si declaras la variable HORASG2 como Entero (Integer), solo tomara valores enteros, es decir... si asignas el valor de 15.2 la variable tomará el valor de 15, pero si asignas el valor de 15.5 (o...