Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

insertar un numero

09/01/2005 - 05:15 por Ivan | Informe spam
Ayuda Hacer una pregunta
Hola a todos !!
estoy tratando de insertar un mumero en una columna, este numero debera
estar en su parte correspondiente para que la columna pueda seguir quedando
en forma acendente, el problema es que este numero no estan en forma
consecutiva por ejemplo, si tengo
134
145
177
299
he introdusco el 155, quisiera que se insertara entre el 145 y 177
agradesco cualquier comentario o sugerencia para poder hacerlo
gracias
email Siga el debateRespuesta 1 respuestaRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Héctor Miguel
09/01/2005 - 09:00 | Informe spam
hola, Ivan !

... insertar un mumero en una columna ... que ... pueda seguir quedando en forma acendente [...]



suponiendo que la columna es 'A' [columna #1]... prueba con las siguientes lineas...
en el modulo de codigo de 'esa' hoja ==Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Then Exit Sub
If Target.Count > 1 Then Exit Sub
Dim Valor: Valor = Target
With Target.CurrentRegion
.Sort Key1:=.Cells(1), Order1:=xlAscending, Header:=xlGuess
.Find(What:=Valor).Select
End With
End Sub

saludos,
hector.

notas:
[probablemente] habra que 'condicionar' el rango [o 'meter' una instruccion On Error Resume Next]
[por si necesitas 'afectar' otras celdas en 'la columna' ->fuera de la 'tabla'<-]
y toma nota que cada vez que se ejecute... perderas el 'deshacer' [undo... ctrl+z]

Preguntas similares

 

Busqueda sugerida :