jerryeagle

Activecell.Offset(1,0).Select

¿Cuál es el código que sí te funciona?

el error esta aquí Dim p As Byte Debe ser Integer no Byte

¿Y en qué parte de tu código declaras la variable lstCalend? ¿Y en qué estás programando? ¿VB6?, ¿VB Net?, ¿VBA? ¿De qué tipo es lstCalend? Hay objetos que no se pueden "comparar" con "is Nothing"

¿Entonces no tienes nada hecho? Esta pagina es para ayudar y resolver dudas, no para dar programas completos. Googlea un poco, investiga, intenta hacer algo y cuando tengas una duda, pregunta, ¿no pretenderás que te hagan todo el trabajo? ¿O si?

¿Y cuál código es el que utilizas? Podrías publicarlo para revisar donde esta el error.

Primero: La función debería devolver o un DataTable o un Objeto del Tipo Inventario y no un Valor Boolean. Segundo: Si solo quieres devolver un DataTable, no necesitas un DataSet, un DataTable es suficiente. Tercero: Así no se llena el DataTable:...

Rgo.SpecialCells(xlCellTypeBlanks).Value = InputBox("Escriba un Valor")

¿Y qué tienes hecho ya? ¿Cuál es la duda?

A sus órdenes Patrón! Primero ni siquiera está clara la duda Segundo, ¿acaso estamos a su servicio?