jerryeagle

Veo que tienes una variable "fila" que supongo que es de un bucle for next y veo que es la fila actual, entonces en Day(C7) pon así: Worksheets("Control").Cells(fila, 6).Formula = "=Day(C" & fila + 1 & ")"

Puedes hacer un "bucle" : Dim U, R as Long Dim Num as Double Sub InsertaFila() U=Range("A" & Rows.Count).End(xlUp).Row For R = 2 to U Num = Cells(R, 1) if not Cells(R +1 , 1) = Num then Cells(R+1, 1).EntireRow.Insert U = U+1 R = R+1 End if Next End...

Si quieres que siempre sean Números enteros Private Sub TextBox1_AfterUpdate() 'si no esta vacio, convierte a formato Numero If Not TextBox1 = "" Then TextBox1.Value = Fix(TextBox1.Value) End If End Sub Si quieres que solo acepte Números Private Sub...

Ese dato que quieres de cada hoja, ¿esta en la misma celda de cada hoja? Es decir Hoja1 Celda A2, Hoja2 Celda A2, Hoja3 Celda A2... etc. Si es así, puedes hacer esto: For each ws in WorkSheets ws.Select If ws.Name = "Resumen" Then Exit For Dim Dato...

No se si entendí bien, pero creo que quieres "llamar" a un formulario cuando el valr de cierta celda sea 1, si es así pon este código: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$2" And Target.Value = 1 Then...

Por lo que veo, quieres que el mensaje aparezca al cambiar la celda B2, pero para hacer cambiar la celda B2, tienes que elegir de la celda D2, ¿cierto? Entonces solo tienes que modificar un poco tu rutina así: Private Sub Worksheet_Change(ByVal...

Checa este código: Sub GuardarComo() '(ByVal Ruta As String, ByVal Nombre As String) Dim Ruta, Nombre As String Nombre = "SOLICITUD" & Range("d3") & Range("G7") With Application.FileDialog(msoFileDialogFolderPicker) .Show Ruta = .InitialFileName End...

Intenta con Alt + Flecha Abajo, es solo una tecla más y no tendrías que usar el mouse

Te vas al Editor de Visula Basic (ALT + F11) y le das doble click al Objetos "ThisWorkbook", y en Workbook buscas el evento Before_Close: Private Sub Workbook_BeforeClose(Cancel As Boolean) 'Tu rutina Enc Sub

Crea un Modulo que por ejm se llame SUMA y escribe esto: Sub SUMA() 'Yo asignaria el valor de cada TextBox a alguna Variable de Tipo Double asi Dim N(5) As Double Dim Resultado As Double On Error Resume Next N(0) = UserForm1.TextBox1.Value N(1) =...