Adriel Ortiz Mangia

Te anexo la respuesta de dante amor saludos! MACRO para rellenar o copiar datos en filas vacias

Private Sub ComboBox1_Change() Select Case ComboBox1.ListIndex Case 0 CmdBotonpapel.Enabled = True Case 1 CmdBotoncarton.Enabled = True Case 2 CmdBotonmadera.Enabled = True End Select End Sub Te facilito el codigo Valoras la respuesta para finalizar!

Sub EliminarCaracter() For Each celda In Selection celda.Select celda = Replace(celda, "/", "") ActiveCell.Value = celda Next End Sub Esto es para eliminar carácter deseado. Cópialo a un módulo y ejecutalo Si te sirvió valora la respuesta para...

Hola En propiedad TabIndex de cada textbox ordenalo textbox1-------------TabIndex=0 textbox2-------------TabIndex=1 textbox3-------------TabIndex=2.......Asi sucesivamente Valora la respuesta para finalizar saludos!

¿El resultado deseas en %? Presenta en una imagen con tus datos y el resultado saludos!

El porcentaje lo hace en automático sin necesidad de ingresar 10% en la caja de texto descuento. Range("J44") = Val(txtDcto.Text) / 100 '3 Range("J44").Select Selection.NumberFormat = "0%" Valorar para finalizar

Este página te ayudará http://clasesexcel.com/index.php/component/k2/item/31-como-guardar-un-libro-de-excel-o-parte-de-el-en-formato-pdf.html Lea detenidamente, lo puedes hacer por hoja, selección y todo el libro en un solo PDF No olvides de valorar...

Actualizarlo por esto Valora para finalizar la pregunta saludos! Public Sub FacturarProductos1() Dim Factura As Single Dim Prefijo As String Dim Fecha As Date Dim Ano As Single Dim Mes As Single Dim Dia As Single Dim Usuario As String Dim F As Single...

Sub GUARDARPDF() Application.ScreenUpdating = False Application.DisplayAlerts = False ruta = ThisWorkbook.Path & "\" nomb = [G4] & " " & [B3] ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=ruta & nomb & Format(Range("G2"), "dd-mm-yyyy")...

Estoy muy satisfecho Saludos!