Dante Amor

H o l a: Agrega el código de validar series al evento btn_guardar_Click: Public Sub btn_guardar_Click() 'Por.Dante Amor Set h = Sheets("REGISTRO") Set h2 = Sheets("DATOS") u = 2 h.Rows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow...

H o l a: Te anexo la macro actualizada Private Sub CommandButton1_Click() 'Por.Dante Amor respuesta = MsgBox("¿Está seguro que desea agregar esta novedad?", vbYesNo + vbExclamation) If respuesta = vbNo Then Exit Sub ' f = 7 c = Columns("AR").Column...

H o l a: Esta es la instrucción Private Sub CommandButton1_Click() Sheets("Hoja1").PrintOut End Sub Cambia "Hoja1" por el nombre de la hoja que quieras imprimir.

Prueba con lo siguiente: Private Sub CommandButton1_Click() 'Act.Por.Dante Amor ActiveSheet.Cells(2, 1).EntireRow.Insert mayor = Application.Max(Columns("A")) If mayor < 2000 Then mayor = 2000 Else mayor = mayor + 1 End If ActiveSheet.Cells(2, 1) =...

H o l a: Me puedes explicar con imágenes y con colores en las imágenes y con comentarios, lo que quieres hacer. Olvídate del código de tu macro, explícame con ejemplos lo que tienes y lo que quieres que aparezca. Como te comenté esta fórmula es...

H o l a: Antes de darte una solución, te explico cada parte de tu código: Esto significa que toma la última fila con datos de la columna A, a la última fila le suma 3 y selecciona la celda de esa fila y columna B: ult = Range("A" &...

Para pegar tienes varias opciones, con control + v, Shift + Insert, con el botón derecho del mouse, y desde el menú, existe todo un menú para pegar: Lo que hay que hacer es deshabilitar todas esas opciones, lo único que he encontrado son algunas...

H o l a: Otra opción es nombrar la celda en el Cuadro de Nombres, selecciona la celda B5 y en el cuadro de nombres escribe la palabra "dato": En la macro haz referencia al nombre "dato": Sub ejemplo() ' Range("dato") = 100 End Sub Entonces, no...

H o l a: Las fórmulas matriciales pueden evaluar varios datos, pero solamente entregan un resultado. También las funciones, solamente regresan un resultado, podrían calcular varios valores, y después esos valores se pueden concatenar y entregar un...

En estas celdas tienes que tener valores numéricos Rn = Range("C3") c = Range("C4") n = Range("B7") Si dices que tienes c="c", tienes que cambiar c= y poner un número. Además en estas variables también debes tener números: P L E Pi No veo en qué...