leone

Para el Error 13 puedes Validar que el Texbox1 traiga un numero: If IsNumeric(UserForm2.TextBox1.Value) = True Then Sheets("Informe Final").Range("C56") = CDbl(UserForm2.TextBox1.Value) Con respecto a repetir las lineas de código para pegar en otras...

Para saber cual carácter representa el decimal debes ir al panel de Control y chequear la configuración del equipo. Ve a Panel de Control->Configuración Regional y de idioma Si tienes Windows XP ve a la pestaña Opciones Regionales y click en el botón...

Bueno primero te recomiendo que no utilices tantos botones, mejor usa un combox con los valores del mes y un Botón que genera la hoja según la selección del Combobox. Te dejo el código, y te dejo una tarea. Pasos: 1.- Crea un ComboBox1 y un botón de...

Debes modificar la fórmula así: BUSCARV(A1; HOJA1!$A$2:$D$445;2;FALSO) El Primer dato se refiere al valor buscado y no a una matriz. Prueba y me avisas

Puedes sustituir Val por Cdbl para corregir ya que esta tomando el punto(.) Como el separador de miles. Ademas antes de asignar el valor dar formato a la celda. Range("G20").Select Selection.NumberFormat = "#,##0.00" Sheets("Informe...

He verificado el código, lo he probado y esta a la perfección, pega el formato de las celdas de manera correcta. Indicame detalles del error que te genera. Si puedes especifica más detalles como que datos estas copiando y los de destino, y que...

Puedes realizar la eliminación de la selección del filtro de la siguiente manera: 'Tomas la fila seguida luego de los titulos de las columnas como valor de la primera fila de la seleccion para borrar, no importa que la selecion comience en otra fila...

Chequea el formato de la celda seguramente esta como "Texto", coloca como "General" y vuelve a actualizar la fórmula. El formato de la celda puedes verlo en el menu Formato->Celdas, luego en la pestaña Numero cambias a "General".

Solo veo que no estas finalizando con el End If A mi me funciono bien. Sustituye por este codigo: Private Sub TextBox3_Change() If Val(TexBox3.Value) < 50000 Or Val(TexBox3.Value) > 1000000 Then MsgBox "Fuera del alcance del sistema" End If End Sub...

Para elimnarlo de la hoja2 solo debes repetir el código seleccionando antes la hoja2 así: Te envío todo el código de ambas eliminaciones: Dim NroFila As Integer Sheets("Hoja1").Select Range("A1").Select 'selecciono esta celda para que comience la...