Jump to content

Busqueda en rango de columnas


Recommended Posts

Buenas tardes estimados(as):

Tengo una duda, al aplicar código fuente para que de acuerdo a parámetros se pueda realizar una búsqueda dentro de un rango de celdas, en las cuales los encabezados de columnas representan fechas, y las filas códigos de grupos. Se requiere realizar una búsqueda por fecha y código para introducir en la intersección un valor que se tiene en un textbox. el código que se utiliza es el siguiente:

Sub busqueda()
Dim fecha As Date
Dim columnas, filas As Range
Dim a, b As Integer
fecha = dia & "/" & mes & "/" & año
Set columnas = Range("af3:ds3")
Set filas = Range("c4:c94")
a = filas.Find(codigo, , xlValues, xlWhole, xlByRows, xlNext, False).Row
b = columnas.Find(fecha, , xlValues, xlWhole, xlByColumns, xlNext, False).Column
Cells(a, b) = TextBox1
End Sub

Por alguna razón el valor de a es encontrado y reportado, pero cuando esta corriendo la linea de código en la que se busca la columna devuelve un error "object variable or with block variable not set". ¿Que es lo que esta mal?, ¿Qué concepto, conocimiento o criterio esta aplicándose mal?, gracias por sus comentarios.

Link to comment
Share on other sites

Hace 13 horas, Abraham Valencia dijo:

Hola

Adjunta tu archivo para no andar adivinando. Eso sí, un adelanto que no necesariamente está relacionado al error: Estás declarando mla las variables. Saludos.

Bueno al parecer no puedo subir archivos, y sinceramente e tratado de pagar la suscripción y no me deja. algún conflicto con la forma de pago 

Link to comment
Share on other sites

En 23/6/2022 at 19:54 , Abraham Valencia dijo:

Hola

Adjunta tu archivo para no andar adivinando. Eso sí, un adelanto que no necesariamente está relacionado al error: Estás declarando mla las variables. Saludos.

Al parecer, alguien si pudo adivinar mi problema. Y la solución no fue muy difícil.

Private Sub CommandButton1_Click()
Dim fecha As String
Dim columnas, filas As Range
Dim a, b As Integer

fecha = dia & "/" & dia & "/" & año
fecha = CStr(fecha)

Set columnas = Range("d3:ds3")
Set filas = Range("c4:c94")

a = filas.Find(subcodigo).Row: MsgBox a
b = columnas.Find(fecha).Column: MsgBox b

Cells(a, b) = TextBox1
End Sub

 

 

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

Privacy Policy