Error compilación nombre ambiguo
Buenas tardes:
Tengo el siguiente código pero al querer ejecutarlo me marca que es nombre ambiguo en 'Public Const INT_OFFSET_FROM_CODIGO_TO_TIPO As Integer
Saludos.
Hoja1
'Rango Codigos Solicitados
Public Const RNG_CODIGOS_SOLICITADOS As String = "B13"
'Maximo de codigos Solicitados
Public Const INT_MAX_CODIGOS_SOLICITADOS As Integer = 9
'OFFSET del codigo a la celda de cantidad solicitada
Public Const INT_OFFSET_FROM_CODIGO_TO_CANDTIDAD As Integer = 4 'HOJA 1 Cantidad solicitada 4 colum despues de codigo
'OFFSET del codigo a la celda de Descripcion
Public Const INT_OFFSET_FROM_CODIGO_TO_DESC As Integer = 1 'HOJA 1 Descripcion 1 columna despues del código
'OFFSET del codigo a la celda de Precio
Public Const INT_OFFSET_FROM_CODIGO_TO_PREC As Integer = 3 'HOJA 1 Precio 3 columna despues del código
'OFFSET del codigo a la celda de TIPO
'Public Const INT_OFFSET_FROM_CODIGO_TO_TIPO As Integer = 2 'HOJA 1 Tipo 2 columna despues del código
Hoja3 (Inventario)
'Cambio en la siguiente linea para implementacion de lectura de Codigo DM, GGO 2012ene20
'Public Const RNG_CANTIDAD_SOLICITADA As String = "H3:H3000"
Public Const RNG_CANTIDAD_SOLICITADA As String = "F3:F400"
'Cambio en la siguiente linea para implementacion de lectura de Codigo DM, GGO 2012ene20
'Public Const INT_COLUMNA_CANTIDAD_SOLICITADA As Integer = 8
Public Const INT_COLUMNA_CANTIDAD_SOLICITADA As Integer = 6
Public Const INT_COLUMNA_INVENTARIO_CODIGO_ITEM As Integer = 4
'OFFSET de la cantidad solicitada al codigo
'Cambio en la siguiente linea para implementacion de lectura de Codigo DM, GGO 2012ene20
'Public Const INT_OFFSET_FROM_CANTIDAD_TO_CODIGO As Integer = -6
Public Const INT_OFFSET_FROM_CANTIDAD_TO_CODIGO As Integer = -5 'Hoja Inventario columna B
'OFFSET de la cantidad solicitada a la descripcion
Public Const INT_OFFSET_FROM_CANTIDAD_TO_DESC As Integer = -4 'Hoja Inventario columna D
'OFFSET de la cantidad solicitada al Precio
Public Const INT_OFFSET_FROM_CANTIDAD_TO_PREC As Integer = -2 'Hoja Inventario columna F
'OFFSET del cantidad solicitada al TIPO
'Public Const INT_OFFSET_FROM_CODIGO_TO_TIPO As Integer = -3 'Hoja Inventario columna E
1 respuesta
Mucha gracias luis:
Ya cambie el código por el que debía ser y me funciono súper bien.
tengo otra consulta tengo el siguiente código, pero no se como decirle para que en lugar que mande la hoja en excel la mande en PDF.
'Enviar una hoja por correo
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set h1 = Sheets("Formato")
h1.Visible = True
nombre = "hoja1"
wpath = ThisWorkbook.Path & "\"
h1.Copy
ActiveWorkbook.SaveAs Filename:=wpath & nombre
ActiveWorkbook.Close
'Se crea el correo y se muetra
Set dam = CreateObject("outlook.application").createitem(olmailitem)
dam.to = "[email protected]" 'Destinatarios
dam.Subject = "Solicitud Venta Empleado" '"Asunto"
dam.body = "Buenos días:" & Chr(13) & _
"Favor de atender la solicitud de venta." _
& Chr(13) & "Saludos."
dam.Attachments.Add wpath & nombre & ".xlsx" 'Se adjunta el archivo para ser enviado
dam.display 'El correo se muestra
'dam.send
'h1.Visible = True
ActiveWorkbook.Save
Kill wpath & nombre & ".xlsx"
MsgBox "La solicitud fué enviada correctamente", vbInformation, "ENVIAR REGISTRO"
'Se borra la solicitud en la columna "F" para una nueva captura
Sheets("inventario").Range("F3:F400").ClearContents
Sheets("Formato").Range("E10").ClearContents
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub
Puedes valorar esta respuesta y crear una nueva para cada petición.
