lunes, 10 de junio de 2019

jueves, 6 de junio de 2019

41 formas de hacer referencia y seleccionar celdas en Excel

Encontre esto en las cosas del internet y tiene buena informacion de excel creditos :

https://ayudaexcel.com/41-formas-de-hacer-referencia-y-seleccionar-celdas-en-excel/

Hacer referencia a una celda (seleccionándola o no) te permitirá trabajar cambiar sus propiedades o ejecutar métodos


1. Cómo hacer referencia a todas las hojas del libro activoActiveWorkbook.Sheets.Select

2. Cómo hacer referencia a la hoja “Presupuestos”Sheets("Presupuestos").Select

3. Cómo hacer referencia a la hoja que se encuentra en la tercera posición sin importar el nombreSheets(2).Select

4. Cómo hacer referencia a la hoja anterior a la hoja activaActiveSheet.Previous.Select

5. Cómo hacer referencia a la hoja siguiente a la activaActiveSheet.Next.Select

6. Cómo hacer referencia a una celda de otro libroApplication.Goto Workbooks("Libro1.xlsm").Sheets("Hoja1").Cells(5, 3)

7. Cómo hacer referencia a una hoja grabando previamente el nombre en una variableDim NombreHoja As String NombreHoja = ActiveSheet.Name

8. Cómo hacer referencia a las hojas anterior y posterior a la activa utilizando una variableNombreHoja = ActiveSheet.Previous.Name NombreHoja = ActiveSheet.Next.Name

9. Cómo hacer referencia a los índices de las hojas anterior y posterior a la activaDim IndiceHoja As Byte IndiceHoja = ActiveSheet.Index ‘ Hoja activa IndiceHoja = ActiveSheet.Previous.Index ‘ Hoja anterior IndiceHoja = ActiveSheet.Next.Index ‘ Hoja posterior

10. Cómo seleccionar la celda C6 de la Hoja 2Sheets("hoja2").Range("C6").Select

11. Otra forma de seleccionar la celda C6Sheets("Hoja2").Cells(6, 3).Select

12. Otra forma más de seleccionar la celda C6Sheets(“Hoja2”).[C6].Select

13. Cómo seleccionar el rango de celdas de A1 a B8Range("A1:B8").Select

14. Otra forma de seleccionar el rango de celdas de A1 a B8Range(Cells(1, 1), Cells(8, 2)).Select

15. Otra forma más de seleccionarel rango de A1 a B8Range("A1", "B8").Select

16. Cómo seleccionar toda la columna CRange("C:C").Select

17. Cómo seleccionar todas las celdas de las columnas desde la A hasta la DRange("A:D").Select

18. Cómo seleccionar todas las celdas de la fila 6Range("6:6").Select

19. Cómo seleccionar todas las celdas desde la fila 2 a la fila 6Range("2:6").Select

20. Cómo seleccionar dos o más rangos a la vez (similar a utilizar la tecla Ctrl).Application.Union(Range("A3: C8"), Range("F3: H19")).Select

21. Cómo seleccionar dos o más columnas no contiguas de longitud variableSet a = Range("A1", Range("A1").End(xlDown)) Set b = Range("E1", Range("E1").End(xlDown)) Union(a, b).Select

22. Cómo aumentar un rango dado en 7 columnas y 6 filas y seleccionarloRange("D10").Resize(7, 6).Select

23. Cómo seleccionar un rango mayor al actual estableciendo la cantidad de filas y columnas a agregarRange("C2:D10").Select Selection.Resize(Selection.Rows.Count + 5, Selection.Columns.Count + 4).Select

24. Cómo seleccionar desde la celda A1 hasta la última celda con datos hacia abajo (igual que seleccionar la celda A1 y pulsar Ctrl+Mayús+Flecha abajo)Range("A1", Range("A1").End(xlDown)).Select

25. Otra forma de hacer la selección anteriorRange("A1:" & Range("A1").End(xlDown).Address).Select

26. Cómo seleccionar desde la celda A5 hasta la última celda con datos hacia la derecha (igual que pulsar Ctrl+Mayús+Flecha derecha)Range("A5", Range("A5").End(xlToRight)).Select

27. Otra forma de hacer la selección anteriorRange("A5:" & Range("A5").End(xlToRight).Address).Select

28. Cómo seleccionar desde la celda H10 hasta la última celda con datos hacia la izquierda (igual que pulsar Ctrl+Mayús+Flecha izquierda)Range("H10", Range("H10").End(xlToLeft)).Select

29. Otra forma de hacer la selección anteriorRange("H10:" & Range("H10").End(xlToLeft).Address).Select

30. Seleccionar desde la celda H10 hasta la última celda con datos hacia arriba (igual que pulsar Ctrl+Mayús+Flecha arriba)Range("H10", Range("H1048576").End(xlUp)).Select

31. Otra forma de hacer la selección anteriorRange("H10:" & Range("H1048576").End(xlUp).Address).Select

32. Cómo seleccionar con variables y Cells un rango hacia la derechaSheets("Previsiones").Range((Cells(Resultado, 1)), Range((Cells(Resultado, 1)), Cells(Resultado, 1)).End(xlToRight)).Select

33. Cómo seleccionar la última celda con datosActiveSheet.Range("B1").End(xlDown).Offset(1, 0).Select

34. Cómo seleccionar la última columna con datosActiveSheet.Range("B1").End(xlDown).Offset(0, 1).Select

35. Cómo hacer referencia a la dirección de la última celda con datos hacia abajoDirecc = Selection.Cells(1, 1).Address

36. Cómo hacer referencia al número de la última fila con datosUltimaFila = Range("A1").End(xlDown).Row

37. Cómo hacer referencia al número de la última columna con datosUltimaColumna = Range("A1").End(xl ToRight).Column

38. Cómo seleccionar y combiar combinar las celdas seleccionadasRange("B1:E1").Select Selection.Merge

39. Cómo seleccionar y descombinar las celdas seleccionadasRange("B1:E1").Select Selection.UnMerge

40. Cómo seleccionar el rango complete donde se encuentra la celda activaActiveCell.CurrentRegion.Select

41. Cómo seleccionar la última celda con datos sin importar si hay celdas vacías en 
medioActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Select











En la mayoría de las ocasiones, elegir una forma u otra de seleccionar celdas con VBA va a depender exclusivamente de tus gustos personales. Otras veces el contexto de la programación te irá diciendo cuál debes utilizar.


Por favor, comparte el artículo si te ha gustado.
Share:

Salmos 23

El Señor es mi pastor, nada me faltará. 2 En lugares de verdes pastos me hace descansar; junto a aguas de reposo me conduce. 3 El restaura mi alma; me guía por senderos de justicia por amor de su nombre. 4 Aunque pase por el valle de sombra de muerte, no temeré mal alguno, porque tú estás conmigo; tu vara y tu cayado me infunden aliento. 5 Tú preparas mesa delante de mí en presencia de mis enemigos; has ungido mi cabeza con aceite; mi copa está rebosando. 6 Ciertamente el bien y la misericordia me seguirán todos los días de mi vida, y en la casa del Señor moraré por largos días.