Excel – VBScript para obtener rango de celdas seleccionado

En el siguiente script es bastante útil al momento de personalizar tus códigos para que se ajusten a tus necesidades, algo común en Excel es requerir obtener la selección de celdas.

Codigo VBScript para obtener rango seleccionado

El siguiente script te permite obtener la selección, rango seleccionado o los rangos seleccionados si has hecho varias selecciones.

Public Sub GetSelection()
Dim r As Range
Dim s As String

  Select Case Selection.Areas.Count
  Case 0:
    MsgBox "Sin seleccion."
  Case 1:
    MsgBox "Rango seleccionado: " & Selection.Areas(1).Address(False, False)
  Case Else
    s = ""
    For Each r In Selection.Areas
      s = s + vbNewLine + r.Address(False, False)
    Next r
    MsgBox "Varios rangos seleccionados:" & s
  End Select

End Sub

 

Leer:  VBScript para Llenar automáticamente documento Word con los datos de renglón de Excel
Fernando O.

Fernando O.

Soy analista de sistemas actualmente trabajo en una empresa con mas de 200 empleados que utilizan equipo de computo al cual se les da soporte en el departamento.
Uno de mis pasatiempos fuera de la empresa es escribir artículos para PortalMasTips donde documento los problemas, inquietudes y detalles interesantes que se presentan.
Fernando O.

Latest posts by Fernando O. (see all)

Deja una respuesta

avatar
 
Archivos de fotos e imágenes
 
 
 
Archivos de audio y video
 
 
 
Otros tipos de archivos
 
 
 

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.

  Suscribir  
Notificar de
Compartir
Twittear
Pin
Más en Excel VBScript, Tip VBScript
VBScript – Automáticamente crear carpetas en base a valores de celda en Excel

VBScript – Crear Directorio y subcarpetas recursivamente

Obtener espacio en disco de computadora o servidor remotamente

Cerrar