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

Cambia .Worksheets("Hoja1").Range("D2").Value = Me.cbo_not .Worksheets("Hoja2").Range("T3").Value = Me.cbo_not por .Worksheets("Hoja6").Range("D2").Value = Me.cbo_not .Worksheets("Hoja10").Range("T3").Value = Me.cbo_not y asi sucesivamente de ahi en...

En la opción de formatos aparece esta pantalla seleccionas la opción que quieras y con el botón formato das el color

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

Prueba con este codigo Private Sub TextBox1_AfterUpdate() Select Case TextBox1 Case Is < 20: TextBox2 = "bajo": TextBox2.BackColor = RGB(0, 255, 255) Case 20 To 41: TextBox2 = "adecuado": TextBox2.BackColor = RGB(0, 0, 255) Case 42 To 75: TextBox2 =...

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

Este es el resultado de la macro Y esta es la macro, primero hará un filtro para eliminar los repetidos y luego hará la sumatoria usando el numero de la cedula como condición para sumar Option Base 1 Sub totaliza() Dim unicos As New Collection Set...