Índice

Solución 6.5 Gestionar las colecciones

1. Averiguar los nombres de todas las hojas de cálculo del libro

Sub NombresDeHojas()  
  Dim wkbLibro As Workbook  
  Dim wksHoja As Worksheet  
  Dim strNombres As String  
  Set wkbLibro = Workbooks("Introduccion Programacion Objetos.xlsm")  
  For Each wksHoja In wkbLibro.Worksheets  
    strNombres = strNombres & wksHoja.Name & vbCrLf  
  Next  
  MsgBox strNombres  
End Sub

2. Modificar una línea de cada dos de un rango de celdas

Sub ModifLinea_1de2()  
  Dim rngRango As Range  
  Dim intLinea ...