Colocar valor a una celda especifica desde una tabla
Elsa Matilde tengo El siguiente código
Sub importar()
LibroDestino = ActiveWorkbook.Name
'Abrir el archivo de origen
ArchivoOrigen = Application.GetOpenFilename
'Actualización de la pantalla apagada para acelerar su código
'No se visualiza el proceso a realizar
Application.ScreenUpdating = False
Workbooks.OpenText Filename:=ArchivoOrigen
LibroOrigen = ActiveWorkbook.Name
Windows(LibroDestino).Activate
For Each Estimación In Range("Horas_por_Fase[[Resumen de Actividades]]")
Windows(LibroOrigen).Activate
Select Case Estimación
Case Is = "Tiempo de Planeación"
X = "Planeación"
F = 16
Case Is = "Tiempo de Diseño de CPs"
X = "Diseño"
F = 17
Case Is = "Tiempo Total de ejecución de CPs(Días)"
X = "Ejecución"
F = 18
Case Is = "Tiempo Evaluación"
X = "Evaluación"
F = 19
Case Is = "Gestión de Proyecto"
X = "Gestión de Proyectos"
F = 20
End Select
Horas = Application.WorksheetFunction.VLookup(X, Range("Cronograma_D"), 4, False)
Windows(LibroDestino).Activate
Range("C" & F).Activate
ActiveCell.Value = Horas
Next Estimación
'Cerrar el libro sin guardar cambios
Workbooks(LibroOrigen).Close SaveChanges:=False
'Actualización de la pantalla encendida
Application.ScreenUpdating = True
End SubPero quiero que en vez de seleccionar el valor de F para activar la celda especifica Range("C" & F).Activate el sistema según el for each active la columna de al lado, es decir que al hacer el for each el detecte la ubicación del texto a buscar y en la celda de al lado copie el valor del vlookup
