Les consulto lo siguiente.
En Excel tengro generada una macro donde al ingresar un valor en un textbox me realiza una busqueda de ese valor en tres columnas para discriminar si se trata (en mi caso) de una DNI, un Nro de pedido o un codigo postal. Dependiendo de que datos se trate el ingresado ejecuta su respectiva macro.
El tema es que tengo que adaptar esa macro para que funcione en OpenOffice y no logro encontrar la forma de que me realice esa busqueda y discriminacion del dato ingresado para cumplir con las condiciones que le impongo.
No se si alguien me podria guiar un poco en esto.
Agrego a continuacion el codigo que tengo hecho en VBA el cual funciona perfecto.
Código: Seleccionar todo
Application.ScreenUpdating = False
Worksheets("Busqueda DNI").Range("I3").Value = TextBox1.Text
Worksheets("INICIO").Activate
Set h1 = Sheets("Inicio") 'hoja inicio
Set h2 = Sheets("DNI") 'hoja dnis
Set h3 = Sheets("STL") 'hoja con números de pedido
Set h4 = Sheets("Busqueda DNI")
Set h5 = Sheets("Busqueda Pedido STL")
Set h6 = Sheets("SUCURSALES")
'
Set dato = h4.Range("I3") 'celda con el dato a buscar
If dato.Value = "" Then 'textbox sin valor ingresado
MsgBox "Escribe un dato en la celda"
h1.Select
End If
Set b = h4.Range("J2:J1900").Find(dato, lookat:=xlWhole)
If Not b Is Nothing Then
h2.Activate
Call Carga_Datos_DNI
Else
Set b = h4.Range("K2:K1900").Find(dato, lookat:=xlWhole)
If Not b Is Nothing Then
h3.Activate
Call Carga_Datos_STL
Else
Set b = h4.Range("L2:L87").Find(dato, lookat:=xlWhole)
If Not b Is Nothing Then
h6.Activate
Else
MsgBox "no se encontró lo buscado", vbExclamation
End If
End If
TextBox1 = Empty
Saludos