¿Cómo cargar en una matriz una tabla con encabezados y sin encabezados?

A tod@s!

Tengo una tabla en la hoja "Clientes" es variable en cuanto a que se incorporen nueva filas de datos.

Unas veces llevara encabezados y otras no... Comenzando siempre desde la celda "O1"

Sin encabezados (para lo que yo quiero hacer) me es válido este código.

Dim MiMatriz() As Variant

Worksheets("Clientes").Activate

MiMatriz = Range("O1").CurrentRegion

¿Ahora bien como cargo MiMatriz siendo desde ("O2:O11") sin los encabezados?

2

1 respuesta

Respuesta
1

Prueba así:

Sub test()
  Dim MiMatriz As Variant
  Dim lr As Long
  '
  Worksheets("Clientes").Activate
  lr = Range("O" & Rows.Count).End(3).Row
  If Range("O1").Value = "N° Cod" Then  'Poner aquí el valor del encabezado
    MiMatriz = Range("O2:O" & lr).Value
  Else
    MiMatriz = Range("O1:O" & lr).Value
  End If
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Dejar espacios en el texto de un correo de outlook

Hola Dante. Tengo las correcciones que me habías sugerido. Ahora quiero que en el cuerpo del correo me deje algunos espacios a la izquierda del texto que va más abajo del saludo y un espacio luego de los dos puntos de cada subtítulo. ¿Qué instrucción...
2 respuestas

Necesito separar los dos nombres y los dos apellidos en una planilla excel

Tengo una planilla con tanto los nombres y apellido una solo a columna y necesito separar los dos nombres y los dos apellidos en columnas independiente
1 respuesta

Formato nro de decimales en varios textBox dependiendo del valor de otro textbox.

Estoy intentando dar formato número con decimales cero (0) o cuatro (4) a unos textBox en un formulario continuo con estos nombres: TxtTitCom, txtPrecioUnitario, txtGananPerd, txtTitDispon txtCategoria.... Con origen de datos =[Variables...
2 respuestas

Tengo una base de datos escrita en columnas

Necesito que quede escrita de la siguiente forma ¿Cómo lo puedo hacer?
3 respuestas

Macro para cortar un texto en 25 caracteres

Me ayudan a generar una macro que corte un texto que está en la celda A2 en 2 textos, el primer texto que lo ponga en la celda B2, no deberá cortar ninguna palabra deberá cortar el texto en máximo 25 caracteres y cortarlo en donde haya un blanco, el...
4 respuestas

Seleccionar datos mediante un Combobox en formulario

Tengo un listado de números en una columna y me gustaría seleccionar cada número mediante un Combobox de un formulario, su parte inicial sería la siguiente prívate sub combobox_change() Range (“ex”)
2 respuestas

Detectar si hay caracteres raros o acentos en texto excel

Tengo una base de datos que me da error cuando intento encontrar un texto en un campo, independientemente de si está acentuado o no y me da la sensación de que hay algún carácter raro en algún texto. ¿Hay alguna fórmula que me encuentre todos los...
2 respuestas

Error en código para columna de una consulta

Un gusto saludarlos. Quería solicitar su ayuda, porque necesito crear una columna calculada dentro de una consulta access y para eso uso el siguiente código. Saldofinal: IIf(([Nivel]=1 Or [Nivel]=5), ([Sumadesaldoinicial]+[Sumadebe]-[Sumahaber]),...
3 respuestas

Access: doble clic en listbox (multiselect) para la apertura de un formulario con el registro seleccionado

Nuevamente necesito de su ayuda. Como dice el texto de arriba, tengo un listbox (multiselect) que utilizó para elegir registros filtrados para imprimir. El problema es que son varios campos y hay uno que es algo extenso, por lo que he intentado que...
2 respuestas

Tengo un subformulario en el que en un textbox aparece el campo mes en número y me gustaría se mostrase como texto

Como decía en el enunciado tengo un formulario con un subformulario en el que se muestran los datos de la selección del formulario pero cuando en periodicidad marco mensual aparecen los datos correctamente pero no consigo que se muestre el textBox...
2 respuestas