Dante Amor

Puedes poner aquí todo el código que tengas. Cómo cargaste los datos en el combo y cómo en el listbox.

Cambia esta línea: If VALIDAR = "" Is Nothing Then Por esta: If VALIDAR = "" Then

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 la siguiente: Sub InsertarGif() Dim celda As Range Dim nombre As String, carpeta As String nombre = "logo.gif" 'nombre del archivo con la imagen carpeta = "C:\trabajo\" 'nombre de la carpeta Set celda = Range("A5:C10") 'celda o celdas en donde...

No entiendo qué necesitas exactamente. Si seleccionas las celdas B2 a H2 y ejecutas tu macro Selection.AutoFill Destination:=Range("B2:H7") Obtienes el resultado de la segunda imagen. Podrías explicar qué tienes y qué necesitas de resultado.

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