¿Cómo hacer que pida la letra de la columna en lugar del numero?
Hola a todos los expertos, de ante mano mil gracias por lo que me puedan aportar.
Tengo la siguiente macro la cual de un documento de Excel en la columna "cual sea" con numero de registros "cual sea" tenga el numero de la sucursal (Columna "C") me arroja su nombre en la siguiente columna (Columna "D"),
ejemplo:
Fila Columna "C" Columna "D"
1 9010 Pachuca
2 9011 Tula
3 9020 Cuernavaca
4 9030 Puebla
La macro me pide la fila inicial, la fila final y la columna en la que se encuentran los datos (Columna "C") para que me arroje los nombres, la columna la ingreso por el numero de columna que representa, este caso Columna C = 3, necesito que en lugar de introducir el numero de columna, introduzca directo la letra de la columna en la cual se encuentran los datos ya que estos datos pueden variar la columna que los contiene, puede estar en la Columna "C" o Columna "AX"
Este es el código:
Private Sub cmd_aplicar_Click()
fila_inicial = Val(txtfila_inicial)
fila_final = Val(txtfila_final)
col_inicial = Val(txtcol_inicial)
col_final = Val(txtcol_final)
Dim base(177, 2) 'base de datos que se encuentra en la hoja5 (nom_cc)
Dim datos(9999) 'datos que recogemos de la hoja2(datos)
' lectura de la bases de datos
For fila = 2 To 177 'iniciamos de la fila 2 a la 359
For col = 1 To 2 'columna de la 1 a la 2
base(fila, col) = Hoja5.Cells(fila, col).Value ' asignamos los valores de hoja5 a al array base
Next col
Next fila
'lectura de datos a donde agregaremos la descripción
For fila = fila_inicial To fila_final
For col = col_inicial To col_inicial
datos(fila) = Cells(fila, col).Value
Next col
Next fila
'ooooooooooooo escritura de conceptos oooooooooooooo
For fila2 = 1 To 177
For fila = fila_inicial To fila_final
For col = col_inicial To col_inicial
If base(fila2, 1) = datos(fila) Then
'Cells(fila, col_inicial + 1).Value = "si esta en la base de datos"
Cells(fila, col_inicial + 1).Value = base(fila2, 2) 'escribe el nombre del Centro
Else
'Cells(fila2, 4).Value = "incorrecto"
End If
Next col
Next fila
Next fila2
End Sub
Private Sub CommandButton1_Click()
End
End Sub
