Necesito dar formato de RUT a una celda

formato personalizado a la celda

00\.000\.000-0


Gabriel Raigosa
Medellín - Colombia
MSN: HK4QYK"@"hotmail.com

Nota: El "Outlook Express" es el programa de correo que se instala
por defecto con el Windows y puede ser usado para enviar y recibir
las preguntas de los diferentes foros.

news://msnews.microsoft.com/microso...c.es.excel
"jicarte" escribió en el mensaje
news:
| las celdas deben tener como formato la siguiente mascara
(##.###.###-digito)
| El digito puede ser la letra K o un número entre el 0 y el 9 ejemplo
| 77.210.840-1 o 7.947.532-k

Escoge un formato de número personalizado tal como indicas sustituyendo la
palabra "digito" por un 0 (cero)
El acceso es:
Formato-Celdas-Numero
Escoge "Personalizada" y en el campo en blanco a la derecha escribe los
caracteres de tu máscara siendo el ultimo un 0 (cero).
Saludos

Juan carlos Perez
Asturias-España


"jicarte" escribió en el mensaje
news:

las celdas deben tener como formato la siguiente mascara
(##.###.###-digito)
El digito puede ser la letra K o un número entre el 0 y el 9 ejemplo
77.210.840-1 o 7.947.532-k

El formato de número funciona siempre que el último dígito sea numérico,
pero no con una letra (reo).
Yo he conseguido hacerlo con VBA (seguro que habrá una forma más simple).

Suponiendo que los datos los entras en la columna D, en el módulo de la
hoja:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Len(Target) = 12 And Mid(Target, 3, 1) = "." Then Exit Sub
If Len(Target) > 9 And Mid(Target, 3, 1) <> "." Then
Cells(Target.Row, 4).ClearContents
Exit Sub
End If
If Target.Column = 4 Then Cells(Target.Row, 4) = Máscara(Target.Value)
End Sub

En un módulo normal:
Function Máscara(cadena$)
If cadena = "" Then Exit Function
cadena = Right("00000000" & cadena, 9)
Máscara = Format(Left(cadena, 8), "00"".""000"".""000") & "-" &
Right(cadena, 1)
End Function

Saludos desde Tenerife (España).

"jicarte" escribió en el mensaje
news:

las celdas deben tener como formato la siguiente mascara
(##.###.###-digito)
El digito puede ser la letra K o un número entre el 0 y el 9 ejemplo
77.210.840-1 o 7.947.532-k