leone

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) & """"

Asigna a un Botón el siguiente código: Sub Macro_Imprimir() Dim X As Double X = 0 Do While X < Sheets.Count X = X + 1 Sheets(X).Select If Val(Sheets(X).Range("F48").Value) > 0 Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If...

Modifica el formato de la celda, seguramente esta como "Texto", cambiala a "General" Luego Actualiza la fórmula nuevamente.

No se que pueda estar pasando con tu tecla de "Fin", pero tienes la alternativa de usar la tecla Control la cual te hará el mismo efecto.

Prueba con las modificaciones que te envío: Private Sub Texnum_Exit(ByVal Cancel As MSForms.ReturnBoolean) If IsNumeric(Texnum.Text) = False And Len(Texnum.Text) <> 0 Then MsgBox "Debe ingresar un campo numérico", vbExclamation, "Error de dato"...

Para Borrar celdas de forma aleatoria utilizael siguiente ejemplo: Range("A1,B2,C3,D4,E5,F6,G7").Select Selection. ClearContents