Cómo evitar mensaje de error 7, por memoria insuficiente
En la hoja1 dispongo de dos rango de datos: (F31:M31) y (F84:Q84).
Estos datos también están repetidos en la hoja2, pero dispuestos en las celdas: (A2:A21)
Con las siguientes secuencias se consigue que al seleccionar cualquiera de los datos de la hoja1, se active toda la fila que contenga ese dato en la hoja2
Secuencia en la Hoja1
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("F31:M31")) Is Nothing And Intersect(Target, Range("F84:Q84")) Is Nothing Then Exit Sub
dato1 = Target
End Sub
Secuencia en la Hoja2
Private Sub Worksheet_Activate()
On Error Resume Next
fil = Application.WorksheetFunction.Match(dato1, Range("A2:A21"), 0) + 1
If fil = "" Then Exit Sub
End Sub
El problema que tengo es que al seleccionar todos los datos de la hoja1, me sale el siguiente mensaje de error, dejando resaltado: dato1 = Target
¿Cómo se puede evitar ese mensaje de error?