James Bond

Prueba con esta macro Sub copiar_datos() With Range("tabla_filtro") filas2 = .Rows.Count .Copy End With With Range("tabla_registros") filas = .Rows.Count col = .Columns.Count If filas = 1 Then .Resize(filas2, col).PasteSpecial xlPasteAll If filas > 1...

Sin macros lo puedes seleccionado los datos y hacer a través del menu datos, luego seleccionar duplicados y las columnas de ls que quieres eliminar filas repetidas Por macros es lo mismo solo ocupas esta instrucción Sub seleccion()...

Esta línea esta mal escrita Sheets("BFDG1"). Cells(Fila, 1). Select, lo correcto es Sheets("BFDG1").Select cells(Fila, 1).Select Como la tienes escrita te manda un error 1004 o de clase range y esto es porque Excel no reconoce la instrucción

Prueba con esta macro Sub borrar_registro() Range("TABLA_REGISTROS").Delete End Sub

Prueba con esta macro Sub cambiar_celdas() Set buscar = Range("d:D").Find("plazo") Range(buscar.Address).Rows(6).Value = "bien" Set buscar = Nothing End Sub

Prueba con esta macro, sin importar el numero de filas te colocara la fórmula Sub formular() f = Range("b4").CurrentRegion.Rows.Count Range("c4").Resize(f, 1).Formula = "=IFERROR(IF(R[-2]C1=""A"",VLOOKUP(RC2, Hoja2!C1:C4,4,0)*RC6,"" ""),"" "")" End Sub

Si tienes muchos datos es más rápido con una macro, este es el resultado Y es es la macro, solo cambia el a1 por la celda donde comiencen tus datos y puedes agregarle un boton para activarla Option Base 1 Sub añadir_guiones() Dim unicos As New...

Prueba así, ambas celdas son iguales termina el programa en caso contrario activara la macro, por cierto un bucle o es do while, for each... o for i=1 to por, aquí no veo más que una condicional. Sub Macro() If Range("C36") = Range("B38") Then End...

En un msgbox no hay manera de hacer lo que pides no es configurable ni en tipo ni en tamaño ni en color ni en si negritas ni itálicas lo único que puedes hacer es crear un formulario en vez de msgbox y en el formulario si puedes cambiar letras

Este es el resultado de la macro y esta es la macro Sub BUSCAR_PREFIJOS() Set datos = Range("B2").CurrentRegion Set tabla = Range("F2").CurrentRegion With datos F = .Rows.Count: C = .Columns.Count Set datos = .Rows(2).Resize(F - 1, C)...