James Bond

James Bond

Si de mis mayores gustos, mis disgustos han nacido, gustos al cielo le pido aunque me cuesten disgustos
 323K puntos  Monterrey, México @eusebiosuarez desde - visto
Preguntar

Actividad pública reciente

Ha respondido en y en 1 temas más

Como programar visitas decuerdo al porcentaje en excel

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...
Ha respondido en

Habilitar automáticamente las macros al abrir archivo de Excel en cualquier computador

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...
Ha respondido en y en 1 temas más

Cómo crear conexión Excel entre dos Archivos? (James Bond)

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...
Ha respondido en y en 1 temas más

Como corregir error de compilación al ejecutar macros en Excel 2016?

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...
Ha respondido en

Realizar búsqueda con repeticiones y dar resultado valor máximo

Usa la fórmula que esta en la imagen
Ha respondido en y en 2 temas más

¿ Como copiar el rango "A1:D1" y pegarlos al final de los datos de las columnas "F:I" ?

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
Ha respondido en y en 1 temas más

Macro que repita la cantidad que se muestra en una celda

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
Ha respondido en y en 2 temas más

Cambiar color de texto a blanco según el valor de una celda con fórmula.

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...
Ha respondido en y en 1 temas más

Listbox con más de 15 columnas

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 =...
Ha respondido en y en 3 temas más

¿Un listbox puede tener más de 11 columnas? Vba excel

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...
Ha respondido en y en 1 temas más

Corrección de código para enviar datos a una hoja del mismo libro

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...
Ha respondido en

Funcion formato condicional como puedo anexar una formula que pueda incluir un rango de numeros igual o mayor que y menor o igua

En la opción de formatos aparece esta pantalla seleccionas la opción que quieras y con el botón formato das el color
Ha respondido en y en 2 temas más

Cómo cerrar dos formularios con un único botón

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

¿Como hago para crear un intervalo de > y < "que" condicionado en un Textbox?

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 =...
Ha respondido en y en 1 temas más

Abrir un formulario desde la elección hecha en un listbox

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...
Ha respondido en y en 2 temas más

Se puede crear una macro que sume valores repetidos en excel?

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

Educación

  • UANL
    Ing. Industrial y Admon