James Bond

Prueba Private Sub UserForm_Initialize() con un array 'matriz = Range("c1").CurrentRegion 'With ListBox1 ' .List = matriz ' .ColumnCount = Range("c1").CurrentRegion.Columns.Count 'End With con rowsourcee y encabezados With ListBox1 .RowSource =...

Private Sub UserForm_Initialize() 'matriz = Range("c1").CurrentRegion 'With ListBox1 ' .List = matriz ' .ColumnCount = Range("c1").CurrentRegion.Columns.Count 'End With With ListBox1 .RowSource = Range("c1").CurrentRegion.Columns.Address .ColumnCount...

'Cerrar formulario Private Sub CommandButton2_Click() end End Sub es asi

Este es el resultado de la macro, en el evento dobleclick o click del listbox del formulario 1 tecleas el código que esta abajo de esta imagen y es todo codigo para el formulario 1 Private Sub ListBox1_Click() UserForm2.Show End Sub codigo para el...

Se puede hacer de dos maneras y con mucho menos código del que estas usando este es el primer ejemplo cuando es una tabla simple, el resultado esta en la imagen que sigue al código Private Sub UserForm_Initialize() With Range("b2").CurrentRegion...

Prueba con esta macro Sub copiarypegar() filas = Range("z2").CurrentRegion.Rows.Count With Range("ay2").Resize(filas, 1) .Formula = "=z2" .Value = .Value End With End Sub

Prueba esta macro, te llenara la columna AW con la cantidad de datos que tengas en la columna AV y ademas te pondra 2 decimales Sub formular() filas = Range("av2").CurrentRegion.Rows.Count With Range("aw2").Resize(filas, 1) .Formula = "=av2/v2-1"...

Modifique tu macro le añadi un iferror ahora cada que tengas un espacio en blanco la macro en vez de error pondra un espacio vacio Sub Ranking() Dim Celda As Range Dim UltimaFila As Long Let UltimaFila = Cells(Rows.Count, 2).End(xlUp).Row For Each...

Pon este modulo en tu useform, al dar un click en cualquier parte del formulario este se cerrara, si te da problemas usa el evento doubleclick() Private Sub UserForm_Click() UserForm1.Hide End Sub

Prueba con estas lineas Sub copia2() Sheets("bd").Range("a2").EntireRow.Insert With Sheets("registro") . Range("b4"). Copy: Sheets("bd"). Range("a2"). PasteSpecial . Range("b6"). Copy: Sheets("bd"). Range("b2"). PasteSpecial . Range("b8"). Copy:...