Adriel Ortiz Mangia

H o l a te paso un ejemplo Private Sub CheckBox1_Click() If CheckBox1 = True Then Subtotal = Range("D6").Value descuento = Range("D6").Value - (Subtotal * 0.03) Range("D7") = descuento Else Range("D7") = "" End If End Sub

H o l a Te paso la macro Sub borrar() Sheets("hoja1").Range("A1:B10").ClearContents End Sub si son rangos variables Sub borrar() Sheets("hoja1").Range("A1:A4", "B3:B5").ClearContents End Sub valora la respuestas si es Excelente o bueno para finalizar...

H o l a prueba esto y me comentas Sub exportarPDF2() nombre = Cells(47, 5).Value ruta = Cells(48, 5).Value destinatario = Cells(49, 5).Value fecha = Sheets("FORMULAS").Cells(12, 2).Value If Sheets("ReporteAct").Cells(46, 5) > 0 Then...

H o l a: esto ingresa en un módulo Public Function ValidarCaracter(ByVal KeyAscii As Integer) As Integer If (KeyAscii >= 97) And (KeyAscii < 122) Or (KeyAscii >= 65) And (KeyAscii < 90) Then MsgBox "INGRESE SOLO EL NUMERO" KeyAscii = 8 End If End...

H o l a: Te paso la macro y actualiza las celdas para el nombre del pdf Ruta = ThisWorkbook.Path & "\" '*-*-*-*-*-*-*-*-*-*-*-*-*-*-*- nomb = [A1] & "_" & [A2] & "_" & [A3] & "_" & [A4] ' EN ESTA LINEA CAMBIA LAS CELDAS PARA EL NOMBRE DEL ARCHIVO...

H o l a aquí la explicación https://www.youtube.com/watch?v=vJqf6E4-mwI curso de seguridad en vba http://excelservicios.com/curso-seguridad-vba-excel/

Revisa esta web http://www.taringa.net/post/info/12161192/Quitar-contrasena-visual-basic-de-excel.html

Hey! Revisa esto https://www.youtube.com/results?search_query=otto+javier+gonz%C3%A1lez+ https://www.youtube.com/results?search_query=david+asurmendi

H o l a Private Sub UserForm_Initialize() ComboBox1. AddItem "Factura A" ComboBox1. AddItem "Factura B" End Sub valora para finalizar saludos!

H o l siguiendo el ejemplo anterior has los siguientes cambios Private Sub CommandButton1_Click() If ListBox1.ListIndex = -1 Then MsgBox "Seleccione una hoja", vbInformation, "AVISO" Exit Sub End If Set h = Sheets(ListBox1.ListIndex)...