leone

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

Para seleccionar toda la fila debes colocar el siguiente código: Rows("4:4").Select Donde el Nro 4 es la fila que encontraste. Si deseas pasársela con una variable debes colocar algo así: Nro_Fila = 'Fila encontrada Rows(Nro_Fila & ":" & Nro_Fila).Select

Para bloquear las celdas debes Proteger la hoja, la linea para protegerla es: Puedes colocarla al final de la ejecución de tu macro. ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True Al Proteger la Hoja las celdas quedan...

Tendrás que hacerlo con una macro la cual he diseñado para lo que requieres Si no sabes de macros deberás ir al menu->herramientas->macro->editor de visual basic allí debes agregar un modulo menu->insertar->Modulo y pegar el siguiente código: Sub...

Prueba con esta Macro: Sub Macro_Nueva_Fila() Dim Nro_Fila As Double ' Nro_Fila = InputBox("Ingrese el Número de la nueva Fila", "Nro de Fila") 'En la Hoja1 Sheets("Hoja1").Select Rows("Nro_Fila:Nro_Fila").Select Selection.Insert Shift:=xlDown...

Coloca la siguiente fórmula para Añadir la primera letra del Mes. ActiveCell.FormulaR1C1 = "=Left(R[-1]C,1)+1 & """ & Left(Format(Date, "mmm"), 1) & """"