James Bond

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

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

Este es el resultado de la macro y esta es la macro Private Sub ComboBox1_Change() Set datos = Range("datos") indice = ComboBox1.ListIndex If indice < 0 Then MsgBox ("no existe este legajo"), vbInformation, "AVISO" With ListBox1 .RowSource =...

Usa esta macro, puedes copiarla a un botón del formulario o bien llamarla desde el botón del formulario Sub colocar_formula() Range("f2").Resize(Range("d2").CurrentRegion.Rows.Count, 1).Formula = "=d2*e2" End Sub

Te paso esta macro Sub buscar_palabra() palabra = InputBox("dato a buscar?, para salir deje elespacio en blanco y de enter") If palabra = Empty Then End cuenta = WorksheetFunction.CountIf(Range("a1:a50"), palabra) If cuenta > 0 Then busca =...

Prueba esta macro Sub copia_datos() valor = ActiveSheet.Range("h34") filas = ActiveSheet.Range("h34").CurrentRegion.Rows.Count For Each hoja In Worksheets valor2 = Sheets(hoja.Name).Range("h34") filas =...

Solo ocupas esta simple macro, esta eliminara los datos que estén duplicados en las 6 columnas o el numero de columnas que quieres eliminar solo borra o agrega el numero de columnas an el array Sub borrar_duplicados()...