Ayuda con VBA

04/07/2006 - 16:27 por Zatid | Informe spam

Apreciado foro:

Resulta que tengo una hoja de excel base que contiene un ID y un nombre de
cliente, y desde otra hoja quiero traer dichos datos y que las demás veces
que lo haga simplemente me actualice los que se hayan agregado
posteriormente no importa si el dato nuevo lo deja al final de la tabla,
luego me encargaré de crear un procedimiento para ordenarla.

Agradezco de antemano cualquier ayuda

Siga el debate

16 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#16 Zatid

12/07/2006 - 18:40 | Informe spam

Hecho!

"Juan M" escribió en el mensaje
news:eM%

Hola Zatid
Revisa tu correo

Creo que este es el codigo final

un saludo

juan

Inicio Codigo
Sub OrdenaLista()

Dim Celda As Range

'en esta linea inserta un caracter cualquiera delante del numero
For Each Celda In Range(Range("A1"), Range("A" & Rows.Count).End(xlUp))
' aqui puedes colocar cualquier valor no numerico
' en el codogo del for marque el la coma simple
'celda = "'" & celda.Value
Celda = "A" & Celda.Value
Next Celda

' Ordena el rango
Range(Range("A1"), Range("C" & Rows.Count).End(xlUp)).Sort
key1:=Range("A1"), order1:=xlAscending, header:=xlNo

' quita el caracter que hemos añadido antes
Columns("A").Replace what:="A", replacement:=""

' esto hace lo mismo pero con un bucle
'For Each Celda In Range(Range("A1"), Range("A" & Rows.Count).End(xlUp))
' Celda = Val(Mid$(Celda.Value, 2))
'Next Celda

End Sub

Fin Codigo

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

1 2 3 4

Busqueda sugerida