Dante Amor

H o l a: Envíame tu archivo para revisarlo. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Blás Gerardo Salinas Silguero” y el título de esta pregunta.

Pon lo siguiente en un botón para ir a la hoja2 Sub IrHoja() 'Por.Dante Amor If [D10] = "" Then MsgBox "Favor completar la celda D10" Exit Sub End If If [D12] = "" Then MsgBox "Favor completar la celda D12" Exit Sub End If ' Sheets("Hoja2").Select...

H o l a: Te anexo la macro, supongo que el nombre del proveedor está en el nombre de la hoja. Sub PdfsDeProveedores() 'Por.Dante Amor ruta = ThisWorkbook.Path & "\" For h = 2 To Sheets.Count fec = Format(Sheets(h).[A6], "dd-mm-yyyy") nombre =...

H o l a: Quedaría así para enviar la hoja "OC" como PDF: Sub Enviar() hoja = "OC" correo = "xxxxxxxxxxxxx" passwd = "xxxxxxxxx" ' Application.DisplayAlerts = False Application.ScreenUpdating = False ruta = ThisWorkbook.Path & "\" nombre =...

H o l a: El error es porque esta variable "cbm_DL" tienes un texto, entonces con CDBL(cbm_DL) quieres convertir un texto a número, por eso te envía el error. Solamente tienes que poner esto: Set B = R.Find(cbm_DL, LOOKAT:=xlWhole) Si no encuentra el...

H o l a: Prueba lo siguiente: Sub LeerCorreo() 'Por.Dante Amor 'Fuente: http://stackoverflow.com/questions/8322432/using-visual-basic-to-access-subfolder-in-inbox 'fuente: http://www.snb-vba.eu/VBA_Outlook_external_en.html Dim olApp As...

H o l a: Revisa en el menú de VBA, herramientas, Referencias. Si aparece alguna referencia con la palabra "FALTA", desmarca la casilla y prueba nuevamente. sal u dos

H o l a: Todo depende de la necesidad que tengas. Ambas sentencias te van a traer la última fila de la columna A que tenga datos. Ejemplo, si los datos estuvieran así: Ambas macros te traen el número 5. Pero si los dato estuvieran así: La primera...

H o l a: Pon el siguiente código en formulario1, en el botón Editar: Private Sub CommandButton1_Click() 'Por.Dante Amor 'Ocultar el userform1 UserForm1.Hide 'Mostrar el userform2 UserForm2.Show 'Mostrar nuevamente el userform1 UserForm1.Show End Sub...

H o l a: Si quieres guardar la hoja "OC" como archivo "xlsx", quedaría así: Sub guardar() Application.ScreenUpdating = False Application.DisplayAlerts = False Ruta = ThisWorkbook.Path & "\" nombre = InputBox("Ingrese Nombre", "Ingreso") If...