Necesito ayuda con Excel, Macros
Hola disculpa las molestias, pero necesito ayuda, bueno resulta que estoy trabajando con Macros de excel 2013... Y Necesito saber si existe algún código para que en una celda especifica (D3) el usuario solo ingrese TEXTO (palabras).
Bueno de ante mano, Gracias.
1 respuesta
Es un poco difícil sin más detalles, pero te voy a proponer una macro y a lo mejor puedes tu dejarlo a tu gusto modificándola algo.
La macro debe insertarse en la misma hoja donde esta esa casilla D3, eso es muy importante. Si por ejemplo está en la hoja1 en el editor de Visual Basic hace doble click e la izquierda donde está la hoja1 y escribes la macro en la ventana que te aparezca.
Y lo que hace es que cuando se termina de modificar la celda examina lo que se ha escrito y elimina los números. Si quieres que elimine otros caracteres los añades a la lista. Es esta:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i, lon As Integer
Dim frase, car, FraseLimpia As String
If Not Intersect(Range("D3"), Target) Is Nothing Then
frase = Range("D3").Value
lon = Len(frase)
If lon > 0 Then
FraseLimpia = ""
For i = 1 To lon
car = Mid(frase, i, 1)
If InStr("0123456789", car) = 0 Then
FraseLimpia = FraseLimpia + car
End If
Next
Application.EnableEvents = False
[D3] = FraseLimpia
Application.EnableEvents = True
End If
End If
End Sub
Y eso es todo, pruébala y ya me dirás como te va o que hay que modificar.
