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

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

Pon este código en el botón Set Valor = InputBox("El texto que quieras ponerle") If Valor is Nothing then Exit Sub If Range("R40") = "" then Range("R40") = Valor Else Range("R" & Rows.Count).End(xlUp).Offset(1, 0) = Valor End If

Ese código funciona para las Celdas que tengas Seleccionadas, solo que primero tienes que seleccionar las celdas que quieras limitar