James Bond

La isntruccion es esta después de tu instrucción colocas la línea que puse en el ejemplo, esto te pondrá la celda en negritas Worksheets("Reporte_por_área").Cells(Rows.Count, 2).End(xlUp).Offset(3, 0) = "DGABDCENTRAL"...

Esta macro carga los archivos de la hoja 2 al listbox a través de una matriz(filasxcolumnas) con esto tienes la ventaja sobre la opción additem y rowsource que no estas limitado a 10 columnas en el caso additem o a tener que cambiar el rango del...

Se hace más entendible si colocas un ejemplo de lo que quieres

Usa esta macro, solo copia el rango de la A a la H Sub copiar() Worksheets("hoja1").Range("a:h").Copy: Worksheets("hoja2").Range("a:h").PasteSpecial End Sub

Este es el resultado de la macro te crea una tabla de registros únicos asignado cada tipo a donde corresponde Sub QUITAR_DUPLICADOS() Set DATOS = Range("A1").CurrentRegion With DATOS F = .Rows.Count C = .Columns.Count .Columns(C +...

sin macros usa la formula =+BUSCARV(K2,municipio!$B$2:$E$7,3), y el resultado sera este

Este es el resultado de la macro y esta es la macro Sub contar_palabras() Dim unicos As New Collection Set datos = Range("e1").CurrentRegion With datos r = .Rows.Count: c = .Columns.Count For i = 1 To r Set unicos = Nothing For j = 1 To c palabra =...

Prueba con esta macro rellenara las filas de la columna B vacías con la fórmula de la celda inmediatamente anterior, la macro llega hasta la cantidad de registros que tengas en la columna A Sub rellenar_columnas() f = Range("A" &...

Si tienes la instrucción option explicit todas las variables deben ser declaradas con Dim en tu caso seria Dim as worksheet y después de eso pones Set H=worksheets("xxx"), sino las declaras te pondrá ese error

Este es el resultado de la macro y esta es la macro Sub COPIAR_SERIES2() With Range("a1").CurrentRegion R = .Rows.Count: C = .Columns.Count VALOR = Mid(Range("A1"), 4, 7) For I = 1 To 10 If I = 1 Then TEXTO = VALOR If I > 1 Then TEXTO = TEXTO & ", "...