Dante Amor

En tu imagen de la hoja "Formato" no veo las filas y las columnas de excel. Así voy a suponer que empieza en la celda A1 con el dato "DATOS DEL USUARIO". Sería más práctico poner el folio en la celda B1. De esa manera evitas, otra ventana, otro...

Prueba lo siguiente: Private Sub Btn_Aceptar_Click() Dim l1 As Workbook, l2 As Workbook Dim h1 As Worksheet, h2 As Worksheet, h3 As Worksheet Dim f As Range, cols As Variant Dim i As Long, j As Long, k As Long ' Application.ScreenUpdating = False '...

Utiliza la siguiente fórmula: =ESPACIOS(EXTRAE(SUSTITUIR(A2,".",REPETIR(" ",99)),99,99)) Nota: Si utilizas punto y coma ( ; ), como separador de argumentos. Reemplaza la coma ( , ) por punto y coma ( ; )

Si el código que tienes en la celda B2 es igual al nombre de la hoja, entonces no es necesario buscar en todas las hojas, solamente hay que traer el dato de esa hoja. Podría ser así. Pon la siguiente fórmula en la celda C2 para el nombre:...

Supongo que tienes algo como esto en tu combo: Prueba el siguiente código para el combo: Private Sub ComboBox1_Change() Dim i As Long With ListaEquipos .RowSource = "" If ComboBox1.Value = "" Or ComboBox1.ListIndex = -1 Then ListaEquipos.RowSource =...

¿Por qué quieres revisar el texto después de la actualización "AfterUpdate"? ¿Cuál es el objetivo final? Tal vez debas utilizar otro evento.

Prueba así: =BUSCARV(A4,INDIRECTO("'"&S2&"'!A2:F257"),4,0)

Pongo un ejemplo: Set h1 = sheets("Hoja1") h1.range("A" & rows.count).end(3)(2).Value = textbox1.Value

Si necesitas la SUMA y también el texto "CONTRATADO" o "NO CONTRATADO" podría ser de la siguiente manera: =SI(SUMA(B2:G2)<>0;SUMA(B2:G2);SI(CONTAR.BLANCO(B2:G2)<6;"CONTRATADO";"NO CONTRATADO")) Prueba y nos comentas.

Revisa lo siguiente si te ayuda un poco: Cambiar colores de varios CommandButton al pasar el mouse