Obtener los datos de una seleccíon
Hola Elsa, espero te vaya todo bien.
Mi pregunta es la siguiente:
"Tengo en una columna diferentes datos numéricos, esta columna es de inicio y de longitud variable, por ejemplo puede ser de B15:B40 como puede ser C8:C32; y lo que necesito es saber como puedo determinar en que celda inicia y en que celda termina para guardarlas en 2 variables, todo a nivel de MACRO".
Hasta ahora lo he hecho con un imputbox que te pregunta por la celda inicial y la final y de aceurdo a eso realiza las operaciones de la macro.
Espero me puedas ayudar y gracias por tu tiempo.
Saludos.
David
Mi pregunta es la siguiente:
"Tengo en una columna diferentes datos numéricos, esta columna es de inicio y de longitud variable, por ejemplo puede ser de B15:B40 como puede ser C8:C32; y lo que necesito es saber como puedo determinar en que celda inicia y en que celda termina para guardarlas en 2 variables, todo a nivel de MACRO".
Hasta ahora lo he hecho con un imputbox que te pregunta por la celda inicial y la final y de aceurdo a eso realiza las operaciones de la macro.
Espero me puedas ayudar y gracias por tu tiempo.
Saludos.
David
1 Respuesta
Respuesta de Elsa Matilde
1
Lo que necesitas es establecer en qué posición se encuentra el 2 puntos y separar lo anterior como primer celda y lo posterior como última
Sub direcc()
'esta macro se ejecuta una vez seleccionado el rango.
celdas = Selection.Address(False, False)
'se ubica la posición del dospuntos
dosptos = InStr(1, celdas, ":")
'se guarda la dirección que se encuentra antes y después del 2 puntos
dire1 = Mid(celdas, 1, dosptos - 1)
dire2 = Mid(celdas, dosptos + 1, 5)
'se muestran las celdas obtenidas en un msgbox
MsgBox dire1 & " " & dire2
End Sub
Saludos
Elsa
***No te pierdas mi nuevo manual de Trucos y Soluciones para Excel.
http://es.geocities.com/lacibelesdepunilla/tys
Sub direcc()
'esta macro se ejecuta una vez seleccionado el rango.
celdas = Selection.Address(False, False)
'se ubica la posición del dospuntos
dosptos = InStr(1, celdas, ":")
'se guarda la dirección que se encuentra antes y después del 2 puntos
dire1 = Mid(celdas, 1, dosptos - 1)
dire2 = Mid(celdas, dosptos + 1, 5)
'se muestran las celdas obtenidas en un msgbox
MsgBox dire1 & " " & dire2
End Sub
Saludos
Elsa
***No te pierdas mi nuevo manual de Trucos y Soluciones para Excel.
http://es.geocities.com/lacibelesdepunilla/tys
