Juan Diego Arango Ochoa

En estos momentos cuento con la siguiente macro Private Sub Filas_Click() Dim Rng As Range Range("A3").Activate For i = 1 To ActiveSheet.Range("A" & Rows.Count).End(xlDown).Row Set Rng = ActiveCell Selection.EntireRow.Insert...

He hecho este código Private Sub cmdcalc_Click() Application.ScreenUpdating = False Application.DisplayAlerts = False Dim Ncond_Ini As Range Dim Vitem_Ini As Range Dim Vins_Ini As Range Dim Evn_Ini As Range Set Ncond_Ini = Range("A4") Set Vitem_Ini =...

Resulta que tengo un formulario que incluye entre otras cosas 2 ComboBox, y les estoy dando datos mediante el siguiente código Private Sub UserForm_Initialize() Dim Celda As Range Dim Rango As String Rango = Range("Tipo_Und").Address For Each Celda...

He estado tratando de hacer que el PrintArea y el VpageBreaks se ajusten con el rango que se este actualmente trabajando, este es el código que tengo: Sub Saltpg() fl = Range("C" & Rows.Count).End(xlUp).Row + 5 Set rng =...

Me gustaría que me ayudaran a saber como puedo modificar los saltos de página de una hoja de excel haciendo uso de macros, lo que requiero es que los saltos de páginas verticales desaparezcan, para que así se puedan ver todas las columnas que...

Me preguntaba como puedo hacer para que si en la Columna "N" hay un "0" o un "-" toda la fila se esconda, la columna tiene un rango variable, yo hice y trate de usar este código pero no me funciona Set rng = Range("N7", Range("N7").End(xlDown)) For...

Tengo una macro cuya función es recorrer toda la Columna C de una hoja de excel hasta la ultima celda con un valor, luego mediante Offset baja 5 celdas e inserta los datos de un formulario, este es el código para una mayor claridad Private Sub...