[RESUELTO] Ayuda con una macro estoy aprendiendo tks

[luigui74]

Saludos a los colaboradores y gracias por su tiempo de antemano

estoy iniciando con oobasic estoy haciendo mi primer macro y me tope con el sig. error (valor de propiedad incorrecto) checa la ultima linea de código alla me marca el error

Sub mi_primer_macro
'Busca el codigo del articulo dado
Dim codigo As String
Dim codigo2 As Object
Dim nc As Single
Dim cn As Single
dim fila as single

colu = 5
'ListBox1.Clear
codigo = InputBox("Código del Producto", "Buscar")

If codigo = "" Then
Exit Sub
End If
For fila = fila + 1 To 4500
HojaActiva = ThisComponent.getCurrentController.getActiveSheet()
codigo2 = HojaActiva.getcellbyposition(0, fila)
msgbox codigo2.getstring()
If codigo = codigo2 Then ' **** creo tengo que convertir este codigo2 a string pero no encuentro como ******

[mauricio]

Hola...

Estas tratando de comparar peras con manzanas... la respuesta la tienes en tu declaración de variables, una es texto (string) y otra es un objeto (Object).

Código: Seleccionar todo

Dim codigo As String
Dim codigo2 As Object

Prueba con

Código: Seleccionar todo

If codigo = codigo2.getString() Then

Saludos

[luigui74]

gracias por tu ayuda y tu tiempo, seguire aprendiendo

[mauricio]

Esta es la forma correcta de marcar un tema como [RESUELTO]. Ahora lo hago por ti, procura hacerlo tu en el futuro. Gracias