Tengo el siguiente problema de novato con el presente array que he creado:
Este es el código:
Option Explicit
Option Base 1
Sub adminTemp()
Dim admin As String
admin = Array("...", "...", "...", "...", "Administrador", "Conectado", "...", "...")
Dim fila As Long
fila = Sheets("CONEXIONES").Range("A1048576").End(xlUp).Row
Dim columna As Byte
For columna = 1 To UBound(admin)
If Sheets("CONEXIONES").Cells(fila, columna).Value = admin(columna) Then Sheets("CONEXIONES").Rows(fila).Delete Shift:=xlUp
Next columna
End Sub
En otras palabras, me dice que el problema está en la declaración de la variable "admin", pues la declaro como una cadena de caracteres, en cambio cuando la misma variable la declaro como un variant, entonces la macro si funciona correctamente.
Pero no quiero declarar el array como un tipo variant cuando sólo contiene valores de tipo string, y ocupar espacio innecesario de memoria.
Sería de ayuda que cualquier orientación sobre este problema...
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Hola compañeros del foro,
Tengo el siguiente problema de novato con el presente array que he creado:
Este es el código:
Option Explicit Option Base 1 Sub adminTemp() Dim admin As String admin = Array("...", "...", "...", "...", "Administrador", "Conectado", "...", "...") Dim fila As Long fila = Sheets("CONEXIONES").Range("A1048576").End(xlUp).Row Dim columna As Byte For columna = 1 To UBound(admin) If Sheets("CONEXIONES").Cells(fila, columna).Value = admin(columna) Then Sheets("CONEXIONES").Rows(fila).Delete Shift:=xlUp Next columna End Sub
En otras palabras, me dice que el problema está en la declaración de la variable "admin", pues la declaro como una cadena de caracteres, en cambio cuando la misma variable la declaro como un variant, entonces la macro si funciona correctamente.
Pero no quiero declarar el array como un tipo variant cuando sólo contiene valores de tipo string, y ocupar espacio innecesario de memoria.
Sería de ayuda que cualquier orientación sobre este problema...