James Bond

Lo que buscas es una simulación de montecarlo, como no das un ejemplo de como están tus datos de paso un ejemplo de como hago la simulación, genero un valor aleatorio y luego uso una función buscarV que dependiendo del porcentaje (valor aleatorio) me...

Solo hay dos formas la primera o deshabilitas en todas las computadoras la opción de seguridad que pide confirmar el uso de macros o bien te consigues un certificado de seguridad para tus macros con ese ninguna maquina te pondrá ese mensaje, a otra...

Para conectar dos hojas solo ocupas estas líneas, agregadas al principio de la macro, respecto a que lo haga con el 2o libro cerrado la conexión da más problemas que soluciones, en mi caso se tarda demasiado en abrir el archivo o pone errores de que...

Tu código tiene bastantes errores, el que te causa el error que mencionas se corrige borrando esta línea Dim h1 As Sheets, eso hará funcionar la macro solo que el error ahora lo tendrás en esta línea Set h1 = Sheets("hjVentas") quiere decir que no...

Usa la fórmula que esta en la imagen

Prueba esta macro Sub copiar() With Sheets("hoja2").Range("f1") filas = .CurrentRegion.Rows.Count .Rows(filas + 1).Resize(1, 4).Value = Sheets("hoja1").Range("a1:d1").Value End With End Sub

Prueba esta macro Sub copiar() copias = Range("e2") With Sheets("productos").Range("a2") .Resize(copias, 3).Value = .Resize(1, 3).Value End With End Sub solo tecleas el numero y la macro hara las copias requeridas

Usa esta macro pégala en el modulo de la hoja donde tengas la fórmula Private Sub Worksheet_Change(ByVal Target As Range) If Range("a1") = 1 Then Range("g5:h10").Font.ColorIndex = 2 Else Range("g5:h10").Font.ColorIndex = 1 End If end sub en cuanto...

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...