Rodolfo Calixco

Lo qui ero que realiza des pues de que termine esto es que me agregue una fila completa como puedo realizar esto? Worksheets("BaseDatos").Activate Range("B6").Select Do While Not IsEmpty(ActiveCell) ActiveCell.Offset(1, 0).Activate Loop...

Tenia F12 EL nombre y la remplace por una Lista desplegable 11 como realizo esta macro por que cuando realizo el remplazo por ListBox11 me marca un error que puedo acer? Dim Ruta As String, Nuevonombre As String Ruta = "C:\Documents and...

Tenia F12 por una Lista desplegable 11 como realizo esta macro Dim Ruta As String, Nuevonombre As String Ruta = "D:\Facturas Emitidas\Factura " Nuevonombre = Ruta & Range("W4") & " "& Range("F12") & ".pdf" Worksheets("Factura").ExportAsFixedFormat...

Tengo esto lo que necesito es que me separe un poco ranger W4 y Ranger F12 ya cuando genera el archivo los junta estas dos descripciones y me gustaría una pequeña separación Dim Ruta As String, Nuevonombre As String Ruta = "D:\Facturas...

Tengo 36 años nunca e tenido novia soy muy tímido con las mujeres que me recomiendas por lo menos para salir con una mujer sinceramente soy algo infantil en algunas cosas y soy diabético cres que tenga una oportunidad?

Hola tengo esta macro en la celda F12 que es la que contiene el nombre cuando no hay concepto me merca un error 13 en lo que necesito es que me mande un mensaje en la pantalla Falta Descripción de Nombre y que me deje corregir este error. Dim Ruta As...

Tengo esto lo que me interesa es que cuando de el error 13 aparezca en la pantalla que falta un dato que es el nombre que esta en la celda F12 que me aparezca un cuadro de dialogo y me de la opción de corregir este error o que puedo hacer? Para...

Sub pdf() ' 'PDS Macro() ' Dim Ruta As String, Nuevo_nombre As String Ruta = "C:\Documents and Settings\rodolfo\Mis documentos\Compañeros" Nuevo_nombre = Trim(InputBox("Ingresa el nombre para el *.PDF")) If Nuevo_nombre = "" Then Exit Sub Else...