Seleccionar columnas de una hoja y aplicarles una fórmula a los datos contenidos en las celdas de esa selección
Tengo un archivo de excel con datos de coordenadas, quiero seleccionar la columna o columnas que contengan las latitudes y aplicarles una fórmula para convertir esas coordenadas a coordenadas decimales.
La idea es seleccionar la columna o columnas a convertir y después ya sea con (Ctrl + a) que en automático me convierta los datos contenidos en las celdas con la fórmula que viene en la imagen.
1 Respuesta
Hola Dante:
Claro, tengo estos datos
Datos de entrada Datos de salida ya con formula
LatG LatD
30 37 58.52 30.6329222
30 35 23.04 30.5897333
30 34 58.49 30.5829139
30 34 19.64 30.6338583
30 38 30.84 30.8674667
30 37 22.34 30.1442278
30 37 16.41 30.1325056
30 48 41.15 30.8119611
30 49 26.04 30.8063972
30 8 42.39 30.8630667
30 6 2.25 30.100625
30 9 56.61 30.165725
30 6 2.33 30.1006472
30 1 4.09 30.0178028
Los datos de la primera columna luego tiene al inicio un espacio en blanco y la longitud de las celdas luego no es la misma, por lo tanto aplico la fórmula para convertir las coordenadas geográficas a coordenadas decimales con la siguiente fórmula:
=EXTRAE(H2,1,ENCONTRAR(" ",H2,2)-1)+EXTRAE(H2,ENCONTRAR(" ",H2,2)+1,ENCONTRAR(" ",H2,ENCONTRAR(" ",H2,2)+1)-ENCONTRAR(" ",H2,2)-1)/60+EXTRAE(H2,ENCONTRAR(" ",H2,ENCONTRAR(" ",H2,2)+1)+1,LARGO(H2)-ENCONTRAR(" ",H2,ENCONTRAR(" ",H2,2)+1)+1)/3600
Tiene H2 por que en esa celda ponía el resultado pero la idea es seleccionar la columna o columnas ya que luego se presentan las coordenadas por lo regular de cuatro puntos osea cuatro columnas con Lat, seleccionarlas y convertirlas con un click bueno si se puede.
Saludos
Hay algunos valores con diferencias, por ejemplo, pusiste este ejemplo:
30 38 30.84 30.8674667
Pero la fórmula regresa este valor:
30.6419
De acuerdo a tu solicitud. Selecciona los datos a convertir y ejecuta esta macro. Los resultados quedarán en las mismas celdas.
Sub Convertir_Coordenadas() Dim c As Range For Each c In Selection If c.Value <> "" And Len(c) - Len(Replace(c, " ", "")) = 2 Then c.Value = Split(c, " ")(0) + Split(c, " ")(1) / 60 + Split(c, " ")(2) / 3600 End If Next End Sub
