James Bond

Prueba con esta macro Sub copiar_datos() Dim ho As Worksheet, hd As Worksheet Set ho = Worksheets("summary") Set hd = Worksheets("hoja2") hd.Cells.Clear ho.Range("a3").CurrentRegion.Copy hd.Range("a2").PasteSpecial xlPasteValues...

Lo que tienes es una tabla de probabilidades, una forma sencilla de hacer lo que pides es esta, la información la capturas en decimales y listo.

Te paso esta macro después de cada serie de repetidos inserta una fila, solo modifica la instrucción range("a2") a tus necesidades. Sub insertar_fila() Dim datos As Range, repetidos As Range Dim unicos As New Collection Dim f As Integer, j As...

Prueba con esta macro te muestra la fila antes de borrarla, solo cambia el nombre de la hoja2 por el nombre que estés usando. Sub eliminar_fila() Set h2 = Worksheets("hoja2") Set datos = h2.Range("d:d") nombre = ActiveSheet.Name nfactura =...

Prueba con esta macro, ya sea que quites filas columnas la macro se adapta a estos cambios Sub copiar_info() Set h1 = Worksheets("plla601"): Set origen = h1.Range("a1").CurrentRegion With origen: f = .Rows.Count: c = .Columns.Count: End With On Error...

Te pongo una macro que hace lo que pides Sub compara_fechas() CUENTA = WorksheetFunction.CountA(Range("r:R")) cuenta_vacios = WorksheetFunction.CountBlank(Range("r1:r" & CUENTA)) filas = CUENTA + cuenta_vacios: fecha_actual = Date Set DATOS =...

Este es el resultado de la macro Sub SEPARA() Dim DATOS As Range Dim F As Long, CUENTA As Long, I As Integer Set DATOS = Range("A1").CurrentRegion With DATOS .Columns(2).Clear F = .Rows.Count: CUENTA = WorksheetFunction.CountA(DATOS) Areas =...

Añade este código a la macro esto deshabilitara las flechas arriba, abajo, izquierda, derecha, inicio, fin, avpag, regpag, respecto al ratón te la debo, no hay eventos mouse para anular la rueda del mouse Private Sub Worksheet_Activate()...

Lo que pides se resuelve por medio de 3 métodos uno algoritmos genéticos para Excel (Inteligencia artificial), simulaciones de Montecarlo y el más lento como complicado es el Solver, de los 3 el primero es más rápido y efectivo aunque por su...

Usa esta instrucción, en le modulo VBA thisworkbook la pegas y cuando cierres el libro guardara la información sin poner ese mensaje. Private Sub Workbook_BeforeClose(Cancel As Boolean) If ThisWorkbook.Saved = False Then ThisWorkbook.Save End If End Sub