Acomodar columnas debajo de los nombres en las hojas de MIcrosoft Excel
Hola Hugolaza un fovor, estoy trancado en este problema.
Tengo este código en la Hoja 1
Private Sub Worksheet_Deactivate()
Sheets("Hoja2").Rows("5:2").ClearContents
For a = 1 To 51
If Range("B5").Offset(a, 0) <> "" Then
b = b + 1
Sheets("Hoja2").Range("A5").Offset(0, b) = Range("B5").Offset(a, 0)
End If
Next a
End Sub
lo que hace es acomodar de forma horizontal los nombres q yo escojo de una lista q tengo en la hoja1, aun cuando haya una fila vacia, este lo acomoda en la hoja 2 de forma continua. Funciona a la perfección. Pero sabes? En la hoja 2 debajo de los nombres voy colocando datos numericos, masomenos unas 20 celdas por debajo de cada uno, el problema es que si en la hoja1 en una espacio vacio yo me olvidé un nombre y lo adiciono, en la Hoja2 se acomoda, osea q se incluye el nombre, pero los datos q estan por dabajo no recorren, solo se mueven los encabezados, y no los datos q estan por debajo, como puedo hacer para q se acomode toda la columna por deba de los nombres?
Gracias por atenderme
Tengo este código en la Hoja 1
Private Sub Worksheet_Deactivate()
Sheets("Hoja2").Rows("5:2").ClearContents
For a = 1 To 51
If Range("B5").Offset(a, 0) <> "" Then
b = b + 1
Sheets("Hoja2").Range("A5").Offset(0, b) = Range("B5").Offset(a, 0)
End If
Next a
End Sub
lo que hace es acomodar de forma horizontal los nombres q yo escojo de una lista q tengo en la hoja1, aun cuando haya una fila vacia, este lo acomoda en la hoja 2 de forma continua. Funciona a la perfección. Pero sabes? En la hoja 2 debajo de los nombres voy colocando datos numericos, masomenos unas 20 celdas por debajo de cada uno, el problema es que si en la hoja1 en una espacio vacio yo me olvidé un nombre y lo adiciono, en la Hoja2 se acomoda, osea q se incluye el nombre, pero los datos q estan por dabajo no recorren, solo se mueven los encabezados, y no los datos q estan por debajo, como puedo hacer para q se acomode toda la columna por deba de los nombres?
Gracias por atenderme
1 respuesta
Respuesta de hugolaza
1