Dante Amor

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

Con el siguiente código puedes recorrer el rango que desees y va a discriminar las celdas en blanco, las celdas que no sean número y las celdas que tengan fórmulas. En el siguiente ejemplo, el bucle empieza en la fila 6 y termina en la última fila...

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

Asumiendo que tus datos empiezan en la celda A2 La salida quedará en la celda B2 y hacia abajo. En tu ejemplo, después de los ":" hay un espacio, por eso en la macro puse "+ 2", pero si no hay un espacio, entonces cambia a "+ 1" Sub Extrae_Dato() Dim...

Puede explicar qué tienes y qué quieres de resultado. Nota: Una cosa que debes tener en cuenta cuando haces una pregunta en un foro ... las personas a las que solicitas ayuda no saben nada acerca de tus datos, nada sobre cómo están en el libro de...

1. Los libros están todos es una carpeta que se llama Parte Diario ¿Cuál es el nombre completo de la ruta y carpeta? 2. La hoja que deseo consolidar de cada libro contiene las siglas "PD" y puede tener filas y columnas ocultas que NO DESEO...

Asumiendo que tus datos empiezan en la celda A2 Prueba la siguiente macro: Sub EmpresaMes() 'Por Dante Amor Dim dic As Object Dim c As Range Dim a As String, cad As String Set dic = CreateObject("Scripting.Dictionary") For Each c In Range("A2",...

Pon tus marcas en la columna L y los modelos en la columna M: Prueba con la siguiente macro, si tus datos empiezan en la celda A5, los resultados en B y C. Sub Marca_Model() 'Por Dante Amor Dim a As Variant, b As Variant Dim i As Long, j As Long a =...