Dante Amor

Ejecuta la siguiente macro: Sub cambiarValor() 'Por Dante Amor Dim col As Variant, s As Variant Dim i As Long ' col = InputBox("Entra la letra de la columna") If col = "" Then Exit Sub s = InputBox("Entra la letra S, A, P o N") If s = "" Then Exit...

Antes de enviarte algún código. Comenta en dónde vas a poner el consecutivo. Cómo se llama la hoja, en cuál columna, en cuál fila vas a empezar a poner el consecutivo.

"Como obtener la dirección de una celda de un valor buscado en otro libro" Los 2 libros deben estar abiertos. No pusiste el nombre de la hoja de cada libro, en ambos casos puse "Hoja1", debes cambiar el nombre de cada hoja en la macro: Sub...

Los datos contenidos en los textbox son textox, entonces hay que convertir esos textos a valores numéricos, puedes utilizar la función Val o CDbl Prueba así: If Val(textbox2.Value) >= Val(textbox6.Value) then If Val(Textbox3.Value) >=...

Pon la siguiente fórmula en T4 =SUMAR.SI.CONJUNTO($G4:$R4,$G$3:$R$3,"<="&T$3)

La fórmula es la misma, solamente revisa los signos $ para fijar la fila o la columna: =BUSCARV($B4,$F$4:$R$5,COINCIDIR(C$3,$F$3:$R$3,0),0) --- Revisa la siguiente respuesta para que conozcas sobre posiciones relativas y absolutas en las fórmulas (lo...

Puedes insertar una imagen de tu hoja pero con lo siguiente: También escribe el resultado esperado

Puedes copiar y pegar aquí el código en lugar de una imagen. Para poner aquí en el foro, utiliza el icono para insertar código.

Prueba la siguiente macro. Antes de ejecutar la macro, debes indicar en dónde empiezan tus datos, en esta línea de la macro: Set celda = Range("A1") 'celda inicial de datos Al final de la macro, se encuentra esta línea, para centrar los datos, si no...

Prueba lo siguiente: Private Sub TextBox1_Change() With TextBox1 .ForeColor = &H80000008 'negro End With End Sub Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) With TextBox1 .ForeColor = &H80000008 'negro ' If .Value = "" Then Exit...