(parece que) ya pasaste de nuevo por tu consulta, asi que, en tanto te decides a soltar mas detales...
como tus datos fueron insuficientes... analiza la muestra del adjunto (m365)
1) en las columnas A,B y C los datos donde buscar los valores
(si estan en otro libro, cambia las referencias en la primera matriz en las columnas E,F y G)
2) en [E1] indicas el importe a buscar y en [E2] el '%' de tolerancia (+/-), los encontrados se derraman en la matriz [E4#]
3) en [I1] puedes elegir el monto filtrado que consideres mas apropiado (lista tomada de [E4#]), [I2] indica si hay mas de uno
4) en la segunda matriz [I5#] se listan los (RE)filtrados (OJO: que pudiera haber todavia mas de uno)
5) si hubiera mas de uno, la celda [M2] es para elegir de cual de ellos se rescatan los datos (mostrado en [M5])
puede ser que sobren pasos, filtros, etc, pero la falta de detalles es terreno fertil para una imaginacion generosa
selecciona tolerancia en lista (ayudaExcel).xlsx
Por
Héctor Miguel, · publicado
Navegando por la red he encontrado un código para seleccionar objetos de autocad, es el siguiente:
Public AcadDoc As Object
Public AcadUtil As Object
Dim objLinea As AcadObject
Dim Punto As Variant
Sub MacroSeleccion()
Set AcadDoc = GetObject(, "Autocad.Application").ActiveDocument
Set AcadUtil = GetObject(, "Autocad.Application").ActiveDocument.Utility
AcadDoc.Utility.GetEntity objLinea, Punto, "Selecione objeto: "
End Sub
Sin embargo, al ejecutarse en autocad sólo me pone que designe los objetos. No me los selecciona automáticamente.
He encontrado otro código similar, pero no me funciona. Creo que es más adecuado que el otro: es el siguiente:
Dim SS As AcadSelectionSet
Set SS = ThisDrawing.SelectionSets.Add("Prueba")
Call SS.SelectOnScreen
SS.Delete
Dim Entidad as AcadEntity
Set Entidad = SS(0)
el problema creo que está en ThisDrawing.SelectionSets.Add("Prueba")
Si alguien puede echar una mano. Lo único que deseo es seleccionar las líneas del espacio modelo de autocad para copiarlas.