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)
NextMi 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 de Dante Amor
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))
NextSaludos.Dante Amor
