Dante Amor

Nota: Una cosa que debes tener en cuenta cuando haces una pregunta en un foro ... las personas a las que solicitas ayuda no saben absolutamente nada acerca de tus datos, absolutamente nada sobre cómo están en el libro de trabajo, absolutamente nada...

Sheets("Registro").Range("A2").Rows.Insert ¿Tienes celdas combinadas? ¿La hoja tiene autofiltro? Mi recomendación es: no insertes una fila, eso hace más lento el proceso. Cada vez que insertes una fila, el proceso será más lento. Lo ideal siempre es...

¿Cuál es la finalidad de regresar a la hoja anteriormente seleccionada? Cuál es tu idea, estás en la 20, luego seleccionas la hoja 15. Estando en la hoja 15 quieres presionar un botón para que te lleve a la hoja anteriormente seleccionada, en este...

Prueba la siguiente: Sub Hallar_Valor_Venta() Dim a As Variant, b As Variant Dim i As Long, j As Long ' a = Range("A2:C" & Range("A" & Rows.Count).End(3).Row) ReDim b(1 To UBound(a), 1 To 1) ' For i = UBound(a) To 1 Step -1 If LCase(a(i, 2)) =...

Cambia en el código la "A" por la letra de la columna donde quieres que aplique la condición Sub eliminar_Filas() Dim i As Long Application.ScreenUpdating = False For i = Range("A" & Rows.Count).End(3).Row To 1 Step -1 If Range("A" & i).Value = 0...

Cambia en el código la "A" por la letra de la columna donde quieres que aplique la condición Sub eliminar_Filas() Dim i As Long For i = Range("A" & Rows.Count).End(3).Row To 1 Step -1 If Range("A" & i).Value = 0 Then Rows(i).Delete Next End Sub

¿Y cuál es la lógica? Estoy tratando de entender cómo quieres ordenar los datos, pero no entiendo. Según tu imagen para el resultado . Primero ordenar por el campo "Orden", pero después no hay una lógica o no la entiendo. Puse con colores, para la...

Pon aquí el código completo. No veo en las imágenes las filas y las columnas de la hoja de excel. Al parecer tienes una tabla dinámica con filas ocultas o filas filtradas. Esta línea obtiene la última fila con datos de la columna Q uf =...

Prueba el siguiente código, los resultados inician en la celda F1 y G1. Lo que hace esta línea Set dic = CreateObject("Scripting.Dictionary"), es crear un índice. Al recorrer la columna, en el índice solamente almacena el índice y un dato, es decir,...

Me parece que solamente hay que reiniciar los contadores. Prueba y me comentas: Sub NumerarIO() Dim ID, i Dim ContarI As Long, ContarO As Long Application.ScreenUpdating = False For i = 2 To Range("A" & Rows.Count).End(xlUp).Row If Not Range("A" & i)...