leone

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

Utiliza la función BuscarV para encontrar estos datos en tu "Base de datos". Debes utilizar la función en celdas diferentes para encontrar estos datos (nombre completo, dirección, etc.) El Valor_buscado será la celda donde escribes el nombre a buscar...

Utiliza la propiedad SetFocus de los cuadros de texto: Por Ejemplo: Text1. SetFocus Aparte puedes configurar en diseño el TabIndex de los objetos para que este se desplace ordenadamente sobre los cuadros de texto. Si no te funciona envía el código...

Utiliza los siguientes eventos de los objetos textbox: Private Sub TextBox1_Change() Range("B15").Select ActiveCell.FormulaR1C1 = TextBox1.Value End Sub Private Sub TextBox2_Change() Range("B16").Select ActiveCell.FormulaR1C1 = TextBox2.Value End Sub

Sustituye el siguiente evento del textbox2 por: Private Sub TextBox2_Change() If (Val(Me.TextBox2.Value) < 1 Or Val(Me.TextBox2.Value) > 4) And Me.TextBox2.Value <> "" Then MsgBox "Debe ingresar un numero del 1 al 4", vbExclamation, "Número Inválida"...

Si tu macro finaliza en el pegado especial debería finalizar así: Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Si no es así, envía el código para tener una mejor idea de que puede estar pasando.