>Simplificar el código para evitar el error de "procedimiento demasiado largo"
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'updateby Extendoffice 20160530
On Error GoTo LZoom
Dim xZoom As Long
xZoom = 100
If Target.Validation.Type = xlValidateList Then xZoom = 130
LZoom:
ActiveWindow.Zoom = xZoom
'G9
If Target.Address = "$G$9" Then
Range("G9").ColumnWidth = 42
Else
Range("G9").ColumnWidth = 5
ActiveWindow.Zoom = 120
'G10
If Target.Address = "$G$10" Then
Range("G10").ColumnWidth = 42
Else
Range("G10").ColumnWidth = 5
ActiveWindow.Zoom = 120
-----
----
-----
-----
'G71
If Target.Address = "$G$71" Then
Range("G71").ColumnWidth = 42
Else
Range("G71").ColumnWidth = 5
ActiveWindow.Zoom = 120
-----
-----
-----
end if
end if
end if
end sub
Al hacerlo me sale "procedimiento demasiado largo".
Por favor, necesito que realizar este procedimiento desde la celda G9 hsta la celda G71.
Este procedimiento de repite también en las columnas H, I, J, K (de 9 a 71)
tambien en las columnas N, O, P, Q . R (de 9 a 71)
Debo realizar esto porque en las celdas tengo una lista de pedido y esta no se puede ver bien cuando el zoom de la hoja esta en 55%.
Entonces con el procedimiento anterior al posicionarme por ejemplo en la celda G9, esta celda se agranda y luego así puedo elegir de la lista al poder verla.