ERROR MACRO EN MAC

[gacg1310]

error mac.pdf

Buenas Tardes desde Colombia

Adjunto imagen del error que me sale al ejecutar un archivo en mac, lo raro es que yo lo tenia en mi excel de windows y funcionaba perfectamente y ya hoy al abrirlo me esta sacando el mismo error, agradezco su ayuda

[Héctor Miguel]

en vba, los errores del tipo -2147xxx (800xxx) significan que una instrucción intenta llamar a un objeto (propiedades, etc.) que NO está presente (o visible) en ese momento

sería conveniente "ver" la linea que lo causa (ese tipo de imágenes y "nada" vienen a ser lo mismo)

otra posibilidad es que se trate de controles ActiveX (quizá en formulario ?) u otra librería de objetos que NO tienen soporte en excel:mac

[gacg1310]

Hola Hector, Buenos Dias

Gracias por tu ayuda, el archivo no me alcanza a pesar lo maximo permitido, como te lo puedo adjuntar o enviar?

[gacg1310]

Adjunto el codigo

Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub TextBox1_Change()
Call BUSCAR
End Sub
Private Sub TextBox2_Change()
Call BUSCAR
End Sub
Private Sub TextBox3_Change()
Call BUSCAR
End Sub
Private Sub TextBox4_Change()
Call BUSCAR
End Sub
Private Sub UserForm_Initialize()
With ListBox1
.ColumnCount = 8
.ColumnWidths = "40PT;40PT;40PT;40PT;60PT;60PT;100PT;100PT"
End With
Call MOSTRAR
End Sub
Sub MOSTRAR()
Dim Y, X As Long
Dim ULTIMAFILA As Long
ULTIMAFILA = NREG(Hoja12, 2, 2) - 1
For Y = 2 To ULTIMAFILA
With Me.ListBox1
X = .ListCount
.AddItem
.List(X, 0) = Hoja12.Cells(Y, 2).Value
.List(X, 1) = Hoja12.Cells(Y, 3).Value
.List(X, 2) = Hoja12.Cells(Y, 4).Value
.List(X, 3) = Hoja12.Cells(Y, 5).Value
.List(X, 4) = Hoja12.Cells(Y, 7).Value
.List(X, 5) = Hoja12.Cells(Y, 8).Value
.List(X, 6) = Hoja12.Cells(Y, 9).Value
.List(X, 7) = Hoja12.Cells(Y, 10).Value
End With
Next
End Sub
Sub BUSCAR()
Dim X, Y, A As Long
ListBox1.Clear
X = NREG(Hoja12, 2, 2)
A = 0
For Y = 2 To X
If Not TextBox1 = "" Or Not TextBox2 = "" Or Not TextBox3 = "" Or Not TextBox4 = "" Then
If UCase(Hoja12.Range("B" & Y)) Like "*" & UCase(TextBox1.Text) & "*" _
And UCase(Hoja12.Range("C" & Y)) Like "*" & UCase(TextBox2.Text) & "*" _
And UCase(Hoja12.Range("D" & Y)) Like "*" & UCase(TextBox3.Text) & "*" _
And UCase(Hoja12.Range("E" & Y)) Like "*" & UCase(TextBox4.Text) & "*" Then
ListBox1.AddItem
ListBox1.List(A, 0) = Hoja12.Range("B" & Y).Value
ListBox1.List(A, 1) = Hoja12.Range("C" & Y).Value
ListBox1.List(A, 2) = Hoja12.Range("D" & Y).Value
ListBox1.List(A, 3) = Hoja12.Range("E" & Y).Value
ListBox1.List(A, 4) = Hoja12.Range("G" & Y).Value
ListBox1.List(A, 5) = Hoja12.Range("H" & Y).Value
ListBox1.List(A, 6) = Hoja12.Range("I" & Y).Value
ListBox1.List(A, 7) = Hoja12.Range("J" & Y).Value
A = A + 1
End If
Else
End If
Next Y
End Sub
 

________________________________________________________________________________________________________

Option Explicit
Option Private Module
Public Function NREG(HOJA As Worksheet, NFILA As Long, NCOLUMNA As Integer)
Do Until IsEmpty(HOJA.Cells(NFILA, NCOLUMNA))
NFILA = NFILA + 1
Loop
NREG = NFILA
End Function
 

[Héctor Miguel]

no indicas cual(es) línea(s) causa(n) error(es) y lo único que se ve fuera de contexto es:

que para indicar el comodín (asterisco) muestras una "estrella de 5 puntas" (???)

[gacg1310]

hola hector el error sale cuando le doy ejecutar, no especifica cual es la linea, es posible hacer una reunion via zoom o skype o algo asi para mostrarte??

[Héctor Miguel]

la verdad es que sin poder analizar el archivo en cuestión, no se puede apreciar alguna causa del error que comentas

prueba a subirlo en algún sitio de hospedaje (google-drive, onedrive, etc.) y comparte su vínculo para su descarga en su siguiente mensaje

[gacg1310]

hola hector, imaginate que puede ser de no creer pero creo haber solucionado el error, resulta que tenia unas celdas con un buscarv que generan un error pues no estaba lo buscado entonces esas celdas que generan el error son las que no dejan funcionar la macro. De todas maneras si puedes regalarme tu correo para compartir el archivo para que lo veas y me des tu opinión pues no sobra, gracias