............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

añadir texto en una celda

Ver el tema anterior Ver el tema siguiente Ir abajo

añadir texto en una celda

Mensaje por morfeo el Jue Feb 10, 2011 2:21 pm

Un salud señores foristas, realizando un pequeño codigo que recorre la columna a y verifica si el numero cumple unas condiciones dadas, de no cumplirlas me indica con color el respectivo error, adicionalmente y mas importante!! en la columna BH me escribe el error que se presenta.

La pregunta del millon: Como adicionar texto a la celda de la columna BH, sin que me borre(reemplace)informaciòn cuando ya existe texto en la celda.



Sub Valida_NoCertificado()
Dim i, cont As Double
cont = 0
i = 0
While ActiveSheet.Cells(1 + i, 1) <> ""
i = i + 1
Wend
cont = i
inicio:
For i = 1 To cont
If Cells(1 + i, 1).Value < 100000000 Or Cells(1 + i, 1) > 199999999 Then
Range("a" & i + 1).Interior.Color = -2000
Range("b" & i + 1).Interior.Color = -2000
Range("BH" & i + 1).Value = "El número de certificado debe ser de 9 digitos incluyendo el de verificación"
End If
Next i
End Sub

morfeo

Cantidad de envíos : 6
Fecha de inscripción : 28/01/2009

Volver arriba Ir abajo

Re: añadir texto en una celda

Mensaje por moises melgar el Jue Feb 10, 2011 4:29 pm

hola no comprendo bien lo que quieres
pero para adicionar texto a una celda sin eliminar su informacion simplemte con

Código:
Range("celda").Value = Range("celda").Value & "texto a agregar"

Comprendes bien tu codigo por que ese detalle que mencionas esta en

Código:
Range("BH" & i + 1).Value = "El número de certificado debe ser de 9 digitos incluyendo el de verificación"


BH representa la columna donde ira el texto facilmente podras colocar lo en otra columna, pero si quieres agregar texto a lo que ya existe usa:
Range("BH" & i + 1).Value = Range("BH" & i + 1).Value & "El número de certificado debe ser de 9 digitos incluyendo el de verificación"
avatar
moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 555
Edad : 29
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.