Select the product you need help with

Macro para insertar una fila en blanco en cada otra fila de hoja

Id. de art�culo: 149249 - Ver los productos a los que se aplica este art�culo

Advertencia: Art�culo de Traducci�n Autom�tica, vea la exenci�n de responsabilidad.

Haga clic aqu� para ver en paralelo el art�culo de traducci�n autom�tica y el art�culo original en ingl�s.

Renuncia a responsabilidad de los contenidos de la KB sobre productos a los que ya no se ofrece asistencia alguna

Expandir todo | Contraer todo

En Microsoft Excel, puede utilizar un Microsoft macro de Visual Basic para aplicaciones para insertar una fila en blanco entre cada fila de datos en la hoja de c�lculo. En este art�culo contiene c�digo de ejemplo para ayudarle a realizar esta tarea.

Volver al principio | Enviar comentarios

M�s informaci�n

Microsoft proporciona ejemplos de programaci�n con fines ilustrativos �nicamente, sin ninguna garant�a tanto expresa como impl�cita. Esto incluye, entre otras, las garant�as impl�citas de comerciabilidad e idoneidad para un fin determinado. Este art�culo se supone que est� familiarizado con el lenguaje de programaci�n que se muestra y con las herramientas que se utilizan para crear y depurar procedimientos. Los ingenieros de soporte t�cnico de Microsoft pueden explicarle la funcionalidad de un determinado procedimiento, pero no modificar�n estos ejemplos para ofrecer mayor funcionalidad ni crear�n procedimientos que cumplan sus requisitos espec�ficos.

Ejemplo

Para utilizar este ejemplo, siga estos pasos:

Crear un nuevo libro.
Inserte una nueva hoja de m�dulo. Para hacer esto en Microsoft Excel 97, elija Macro en el men� Herramientas y haga clic en Editor de Visual Basic. En el Editor de Visual Basic, vaya al men� Insertar y haga clic en M�dulo.

En Microsoft Excel 7.0, elija Macro en el men� Insertar y haga clic en m�dulo.
Escriba el siguiente c�digo de macro de ejemplo en la hoja de m�dulo:

     Sub Insert_Blank_Rows()

         'Select last row in worksheet.
         Selection.end(xldown).select

         Do Until ActiveCell.row = 1
            'Insert blank row.
            ActiveCell.EntireRow.Insert shift := xldown
            'Move up one row.
            ActiveCell.Offset(-1,0).Select
         Loop

      End Sub

Volver al principio | Enviar comentarios

Propiedades

Id. de art�culo: 149249 - �ltima revisi�n: mi�rcoles, 11 de octubre de 2006 - Versi�n: 2.3

La informaci�n de este art�culo se refiere a:

Microsoft Excel 97 Standard Edition
Microsoft Excel 95 Standard Edition
Microsoft Excel 5.0 Standard Edition

kbmt kbdtacode kbhowto kbprogramming KB149249 KbMtes

Traducci�n autom�tica

IMPORTANTE: Este art�culo ha sido traducido por un software de traducci�n autom�tica de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece art�culos traducidos por un traductor humano y art�culos traducidos autom�ticamente para que tenga acceso en su propio idioma a todos los art�culos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los art�culos traducidos autom�ticamente pueden contener errores en el vocabulario, la sintaxis o la gram�tica, como los que un extranjero podr�a cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisi�n, error o da�o ocasionado por una mala traducci�n del contenido o como consecuencia de su utilizaci�n por nuestros clientes. Microsoft suele actualizar el software de traducci�n frecuentemente.

Haga clic aqu� para ver el art�culo original (en ingl�s): 149249

(http://support.microsoft.com/kb/149249/en-us/ )

Renuncia a responsabilidad de los contenidos de la KB sobre productos a los que ya no se ofrece asistencia alguna

El presente art�culo se escribi� para productos para los que Microsoft ya no ofrece soporte t�cnico. Por tanto, el presente art�culo se ofrece "tal cual" y no ser� actualizado.

Volver al principio | Enviar comentarios