Convertir Valor de Array en formato texto

lista1 = Array("Nombre Completo", "Fecha de Nacimiento", "Lugar de Residencia", "Género", "Tel.1", "Te.2", "E-Mail")
lista2 = Array("Textbox1", "DTPicker1", "TextBox2", "ComboBox1", "TextBox3", "TextBox5", "TextBox4")
Dim i As Integer
For i = 0 To 6
Sheets("Clientes").Select
Range("Clientes[[#Headers],[lista1(i)]]").Select
ActiveCell.Offset(1, 0).Activate
Do While Not IsEmpty(ActiveCell.Value)
ActiveCell.Offset(1, 0).Activate
Loop
ActiveCell.Value = lista2(i)
Next

Mi idea es usar los textos que están en los Array como parámetro para el encabezado de las tablas que estoy seleccionando, lo que pasa es que no me permite poner [lista1(i)] porque no encuentra dicho encabezado, cómo podría hacer?

1 respuesta

Respuesta
1

Te regreso el código con los cambios

 Lista1 = Array("Nombre Completo", "Fecha de Nacimiento", "Lugar de Residencia", "Género", "Tel.1", "Te.2", "E-Mail")
    lista2 = Array("Textbox1", "DTPicker1", "TextBox2", "ComboBox1", "TextBox3", "TextBox5", "TextBox4")
    Dim i As Integer
    For i = 0 To 6
        Sheets("Clientes").Select
        Range("Clientes[[#Headers],[" & lista1(i) & "]]").Select
        ActiveCell.Offset(1, 0).Activate
        Do While Not IsEmpty(ActiveCell.Value)
            ActiveCell.Offset(1, 0).Activate
        Loop
        ActiveCell.Value = Controls(lista2(i))
    Next

Saludos.Dante Amor

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Como agregar más hojas a un libro de excel

Dante puede apoyar con la siguiente macro, tengo un archivo de excel en el cual tengo un formato donde hay una macro que cuando se activa un check box muestra ciertas filas y cuando se desactiva las oculta, así mismo bloquea ciertas celdas y también...
1 respuesta

¿Importar datos desde varios libros de Excel ADO?

A tod@s! Desde un botón con su evento aparece un desplegable y elijo los libros que quiero importar la info. Incluso puedo elegir varios a la vez (esto lo tengo hecho) En cada libro seleccionado tendrá una tabla en una hoja llamada "DATA". La tabla...
1 respuesta

¿Macro al escribir carácter en un rango de Excel?

A tod@s! Tengo una hoja llamada Acción y lo que quiero es que en cualquier celda de la columna C, cada vez que escriba un carácter ejecute una acción o macro. ¿Cómo puedo hacerlo?
1 respuesta

Agregar y ocultas celdas con botón

Tengo varios archivos Excel donde manejo información por semanas, pero cada semana tengo que ocultar la semana que ya pasó y agregar una semana nueva, son 45 pestañas! Es un lio hacer una por una. Quisiera saber si hay una manera de que con un botón...
1 respuesta

¿Código VBA en Excel para filtrar en un textbox sin tener en cuenta acentos, mayúsculas o minúsculas?

Estoy utilizando el siguiente código en una hoja de excel para buscar y filtrar lo que escribo en dos Texbox: Private Sub TextBox1_Change() ActiveSheet.Unprotect ALERTA = "*" & TextBox1.Value & "*" Range("D3").AutoFilter Field:=4, Criteria1:=ALERTA...
1 respuesta

Depurar datos con macro de acuerdo a un color

¿Alguien podría ayudarme a depurar una hoja de Excel? Necesito conservar solo los datos con fuente de color rojo, eliminar los que tienen fuente de color negro, así como eliminar filas y columnas vacías. Además, quiero ordenar la información como se...
1 respuesta

Una macro no se ejecuta desde otra macro, pero sí si la ejecuto manualmente, ¿Por qué?

En una hoja tengo un botón que ejecuta el siguiente código: Sub preguntar_scroll() Dim respuesta respuesta = MsgBox("¿Quieres extender la pantalla actual?", vbYesNo + vbQuestion, "Extender pantalla") If respuesta = vbYes Then Sheets("visor").Activate...
1 respuesta

Mover contenido de una celda hacia arriba y abajo

Mover el contenido de una celda de una tabla con un botón hacia arriba y hacia abajo. En una hoja de excel. Y poder colocarlo donde uno desee.
1 respuesta

Valor de una celda de Excel

Tengo tres hojas de calculo, una seria el real otra el presupuesto y otra que seria a que tendría que poner el dato mi pregunta es como podría hacer sil a de real tiene valor cogiera ese valor, en caso de no existir ese dato cogiera de la tabla de...
1 respuesta

Trabajar con una ventana duplicada en excel

Tengo una macro mediante la cual me duplica la ventana activa de excel para mostrarla en un segundo monitor: Sub bot_extenderpantalla_Click() 'creamos una nueva ventana de excel con la hoja activa (visor) Sheets("visor").Activate...
1 respuesta