James Bond

Este es un ejemplo del algoritmo va a buscar dentro de los nodos el que tenga la distancia más corta y se saltara al nodo destino, repitiendo la operación la macro es esta Sub algoritmo_Dijkstra() Dim nodos As New Collection Set datos =...

Usa contar. Si. Conjunto como se muestra en la imagen

El resultado de la macro es este, es un poco larga por las instrucciones de formateo aunque eso no afecta la velocidad, si necesitas el archivo fuente solo colcoa un email y te lo envío Sub ejecuta_macro() preparar_tabla armar_tabla...

Esta macro hace sumas dinámicas sin importar cuantas filas añadas o quites la macro hace la suma sobre lo que quede, como en tu ejemplo se entiende que la suma se hace sobre la columna F esta macro solo trabaja para esta columna. Sub sumar_datos()...

Prueba con esta macro, este es el resultado Sub sumar_condicionado() Set hd = Worksheets("datos") Set hr = Worksheets("resumen") Set origen = hd.Range("a1").CurrentRegion Set destino = hr.Range("a1").CurrentRegion With origen Set origen =...

Trata con esto sub borra_names for each x in names x.delete next x end sub

La orden SET convierte tu información en objeto, al cual solo le vas asignando propiedades como colorear, ajustar columnas, formater, añadir fórmulas, o copiar información en un solo paso, por ejemplo si tengo un rango variable de filas y columnas 4...

Prueba con esta macro Sub correlativos() Set datos = Range("a7").CurrentRegion With datos Set datos = .Rows(10).Resize(.Rows.Count - 9, .Columns.Count) For i = 1 To .Rows.Count If i > 1 Then inicio = .Cells(i - 1, 2): fin = .Cells(i, 2) diferencia =...

No entiendo tu pregunta tampoco especificas si lo que buscas es por fórmula o por macro por macros hay dos formas, en ambos casos solo cambia el b15 por la celda donde comiencen tus datos. Sub ultimo() Range("b15").End(xlDown).Select End Sub ' Sub...

Con esta macro cuando le des doble click te colocara en la página donde se encuentre el dato, solo copia y pega en el modulo de la hoja donde tengas los datos en la columna I Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As...