Insertar filas con macros
Hola experto, espero que me puedas ayudar con la siguiente situación:
Tengo una aplicación en donde se repite n veces un determinado rango de datos de acuerdo a los datos ingresados al iniciar la apliacación por parte de los usuarios de esta aplicación. Lo que necesito es insertar varias filas entre medio de cada rango de datos y no lo puedo hacer manualmente ya que la cantidad de veces que se repiten estos rangos son muchas y esto me tomaría mucho tiempo cada vez que lo necesite hacer.
Por otra parte como puedo hacer para dejar establecido el tamaño de la hoja en carta y que los usuarios no puedan cambiar el tamaño de la hoja al momento de imprimir o en otra situación.
Desde ya te agradezco tu respuesta.
Tengo una aplicación en donde se repite n veces un determinado rango de datos de acuerdo a los datos ingresados al iniciar la apliacación por parte de los usuarios de esta aplicación. Lo que necesito es insertar varias filas entre medio de cada rango de datos y no lo puedo hacer manualmente ya que la cantidad de veces que se repiten estos rangos son muchas y esto me tomaría mucho tiempo cada vez que lo necesite hacer.
Por otra parte como puedo hacer para dejar establecido el tamaño de la hoja en carta y que los usuarios no puedan cambiar el tamaño de la hoja al momento de imprimir o en otra situación.
Desde ya te agradezco tu respuesta.
1 Respuesta
Respuesta de Juan Carlos González Chavarría
1
Para la página podría ser así:
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.7)
.RightMargin = Application.InchesToPoints(0.7)
.TopMargin = Application.InchesToPoints(0.75)
.BottomMargin = Application.InchesToPoints(0.75)
.HeaderMargin = Application.InchesToPoints(0.3)
.FooterMargin = Application.InchesToPoints(0.3)
.PaperSize = xlPaperLetter
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = True
End With
Lo de insertar filas no lo entiendo bien.
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.7)
.RightMargin = Application.InchesToPoints(0.7)
.TopMargin = Application.InchesToPoints(0.75)
.BottomMargin = Application.InchesToPoints(0.75)
.HeaderMargin = Application.InchesToPoints(0.3)
.FooterMargin = Application.InchesToPoints(0.3)
.PaperSize = xlPaperLetter
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = True
End With
Lo de insertar filas no lo entiendo bien.
Te agradezco por la solución enviada ya que me sirvió para solucionar las dos situaciones planteadas a la vez ya que al establecer el tamaño de la hoja no fue necesario insertar nuevas filas.
Fue una muy buena solución.
Fue una muy buena solución.
