Fuentes
Archivos planos
Descargar AQUÍ los archivos
Consulta SQL de creacion de tabla Despacho en SQL Server
CREATE TABLE [dbo].[Despacho](
[IdPlanta] [varchar](50) NULL,
[IdProducto] [varchar](50) NULL,
[IdCliente] [varchar](50) NULL,
[Cantidad] [varchar](50) NULL
)
Busqueda Inteligente en excel VBA.
Muchas veces en excel deseamos hacer busquedas de datos que se encuentran en nuestras hojas, sin embargo es muy tedioso escribir el nombre completo y hacer multiples busquedas.
Con esta macro podras realizar la busqueda de un producto solo con escribir las iniciales del producto o categoria a la que pertenezca el producto, y esto se autocompletara en una lista en donde se cargaran todos los productos que coincida.
Puedes utilizar esta macro para hacer busquedas de tus datos que se encuentran en una hoja de Excel
Puedes descargar el archivo excel desde el siguiente link
Sub EnviarMensajeAdjunto()
Dim OutApp As Object
Dim OutMail As Object
'Se crea la conexión con el gestor de correo
Set OutApp = CreateObject("Outlook.Application")
OutApp.session.logon
'Se crea metodo de envio de correo
Set OutMail = OutApp.createitem(0)
'Se definen el destinatario
On Error Resume Next
With OutMail
.to = Range("B4").Value 'Destinatario
.cc = Range("B5").Value 'Con copia a
.bcc = Range("B6").Value 'Con Copia oculta
.Subject = Range("B7").Value 'Asunto
.body = Range("B8").Value 'Cuerpo del mensaje
.attachments.Add ThisWorkbook.FullName ' Archivo adjunto
.Close olSave 'Se cierra el correo y se guarda en borrador
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
