Agregar dígitos o caracteres a celdas en Excel
Lo más consultado hoy
Reubicación laboral por enfermedad profesional
El marketing no solo debe dirigirse a los clientes
Hace unos días explicábamos como extraer dígitos en Excel, hoy trataremos como agregar una determinada cantidad de dígitos o caracteres a una celda de Excel de forma automatizada.
Esta posibilidad es muy útil cuando necesitamos agregar a una base de datos uno o varios ceros, o algún digito o código de verificación.
Para ello haremos uso de la función CONCATENAR
La función concatenar, además de unir el texto de dos o más celdas, nos permite agregar texto o caracteres a una celda especifica desde la misa formula.
En este caso, partimos de la celda que contiene el valor inicial, y en una segunda celda colocamos la función que contiene y agregara el texto requerido.
Por ejemplo supongamos que en la celda A2 tenemos el valor 152356 y queremos agregarle dos ceros.
En la celda B2 o donde necesitemos colocar el nuevo valor, escribimos la siguiente fórmula:
=CONCATENAR(A2;”00″)
Nótese que el texto o valor que se agrega, está entre comillas. Si queremos agregar el nuevo valor al inicio de la celda, la formula será:
=CONCATENAR(“00″;A2)
Ahora, es posible que tengamos diferente cantidad de dígitos en la celdas y necesitemos que todas las celdas tengan un determinado número de dígitos, de modo que a unas celdas habrá que agrega un dígito, a otras dos, etc.
Supongamos que necesitamos que todas las celdas tengan 5 dígitos, y algunas tienen 3, otras 4 y algunas 5.
Para solucionar esto, haremos uso de tres funciones diferentes: LARGO, CONCATENAR y la función SI.
=SI(LARGO(A2)=3;CONCATENAR(A2;”00″);SI(LARGO(A2)=4;CONCATENAR(A2;”0″);A2))
En este caso hemos supuesto la necesidad de agregar uno o dos ceros hasta completar 5 dígitos en cada celda.
En el ejemplo, la función LARGO encarga de contar el número de dígitos que contiene la celda, la función SI se encarga de condicionar el contenido de la celda y la función CONCATENAR se encarga de unir o agregar los textos si la condición evaluada por la función SI se cumple.
buenas tardes!
Tengo que elaborar un libro mayor y balance
necesito todo sobre el tema y ejemplo…
gracias
mijita pues para que sirven los diccionarios y el internet deje de ser tan peresosa
ejemplo de libro mayor y balance
Buena Tarde
Muchas gracias, por la información, conocía la función de CONCATENAR pero no la combinación con la funcion LARGO.
EXCELENTE!
Hernando. 313 899 36 23
P.D. Para JEIMY, le recomiendo compre un formato de libro Mayor y Balances que venden en papelerías, su uso lo puede ubicar en libros de contabilidad general. Ahora si lo que desea es un formato en excel, eso si lleva mas tiempito. Aunque ya se tengan hechos. En el sólo se reflejan los movimientos resumidos de las cuentas (cuatro digitos) según el PUC.
Requiero una formula para buscar un número dentro de una celda que contiene texto y número, el resultado de la celda siguiente ejemplo:
Remisión + observación. factura.
REMISION: 23628 CONTRATO: 6499 39758
REMISION: 23633 CONTRATO: 6489 39759
REMISION: 23635 CONTRATO: 6425 39760
REMISION: 23636 CONTRATO: 6417 39761
REMISION: 23648 CONTRATO: 6000 39762
Buscar la remisión 23633 igual a factura 39759.
Requiero buscar solo el numero de las remisiones con resultado factura; es como un buscarv.
23628
23633
23636
23635
23648
No tengo una formula para traer el numero de la factura
Elder:
Tus datos dales nombre p. ej. datos
luego, tienes que tener la referencia en una celda (d8), de la remisión que buscas
Entonces, coloca una fórmula como esta:
=SI(EXTRAE(datos,11,5)=D$8,EXTRAE(datos,32,5),”")
!Que nos haga provecho!
quiero que los resultados de la formula en concatenar sean en negritas
Ejemplo
A1 Pedro
A2 Perez
A3 Director
Concatenar(a1,a2,a3)
Resultado
PedroPerezDirector
Quiero que la palabra director sea en negritas
Una pequeña macro:
Sub Macro2()
‘
‘ Macro2 Macro
‘
‘
Range(“D2″).Select
ActiveCell.FormulaR1C1 = “=CONCATENATE(RC[-3],RC[-2],RC[-1])”
Range(“D2″).Select
Selection.Copy
Range(“E2″).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = “holapanchogomez”
With ActiveCell.Characters(Start:=1, Length:=10).Font
.Name = “Calibri”
.FontStyle = “Normal”
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With
With ActiveCell.Characters(Start:=11, Length:=5).Font
.Name = “Calibri”
.FontStyle = “Negrita”
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With
Range(“E3″).Select
End Sub
!Que nos haga provecho!