Como insertar dependiendo del orden?

Memento:

si ya tienes un codigo para "agregar" los datos que quieres (por cierto, no
mencionas como inserta los datos), no seria mas facil para ti, que al final,
solamente ordenes los datos por el "codigo de material"

Saludos.

Victor Manuel

Que tal Memerto:
Enviame un mail y te lo regreso con un archivo que podria servirte para tu
proposito, es una archivo para relacionar y espermos que sea de utilidad.
saludos.

Jesús Peralta
Hermosillo, Sonora, Mexico
el_ultimo_profeta"alt+64"hotmail.com

"Memento" escribió en el mensaje
news:
Un saludo a todo la gente q integra este prestigioso foro..Estoy
realizando un formulario usando macros de excel en el cual poseo un
botón de insertar, mi pregunta es como hago para insertar datos a la
hoja dependiendo del orden ascendente o descendete de los datos a
insertar? en la hoja tengo los siguientes datos:


"Tipo
de
Material" Código de Material Descripción del Material
Unidad Medida
ZMIN 306614 RS 232 CARD 90-0043-03
PZA
ZMIN 306615 RS232 DISTRIBUTION PANNEL 90-0350-01 PZA
ZMIN 306676 DSP 3 CARD 90-0038-09
PZA
ZMIN 309176 SELLADOR B P/TERMINACIONES
PZA


Q al momento de insertar un nuevo tipo de material con un código de
material 445678, cuando se inserte el sepa si lo insertar antes o
despues del código 309176, es posible esto? estoy usando la sentencia:

Selection.EntireRow.Insert

Espero q me puedan ayudar en lo posible

Saludos a todos

Q tal Jesus? Mi e-mail es: , espero tu e-mail;
gracias por tu ayuda


Jesús Peralta ha escrito:

Que tal Memerto:
Enviame un mail y te lo regreso con un archivo que podria servirte para tu
proposito, es una archivo para relacionar y espermos que sea de utilidad.
saludos.

Jesús Peralta
Hermosillo, Sonora, Mexico
el_ultimo_profeta"alt+64"hotmail.com

"Memento" escribió en el mensaje
news:
Un saludo a todo la gente q integra este prestigioso foro..Estoy
realizando un formulario usando macros de excel en el cual poseo un
botón de insertar, mi pregunta es como hago para insertar datos a la
hoja dependiendo del orden ascendente o descendete de los datos a
insertar? en la hoja tengo los siguientes datos:


"Tipo
de
Material" Código de Material Descripción del Material
Unidad Medida
ZMIN 306614 RS 232 CARD 90-0043-03
PZA
ZMIN 306615 RS232 DISTRIBUTION PANNEL 90-0350-01 PZA
ZMIN 306676 DSP 3 CARD 90-0038-09
PZA
ZMIN 309176 SELLADOR B P/TERMINACIONES
PZA


Q al momento de insertar un nuevo tipo de material con un código de
material 445678, cuando se inserte el sepa si lo insertar antes o
despues del código 309176, es posible esto? estoy usando la sentencia:

Selection.EntireRow.Insert

Espero q me puedan ayudar en lo posible

Saludos a todos

hola, ivan ?

... como hago para insertar datos a la hoja dependiendo del orden ascendente o descendete de los datos a insertar?
en la hoja tengo los siguientes datos:
Tipo de Material Codigo de Material Descripcion del Material Unidad Medida
ZMIN 306614 RS 232 CARD 90-0043-03 PZA
ZMIN 306615 RS232 DISTRIBUTION... PZA
ZMIN 306676 DSP 3 CARD 90-0038-09 PZA
ZMIN 309176 SELLADOR B P... PZA
Q al momento de insertar un nuevo tipo de material con un codigo de material 445678
cuando se inserte el sepa si lo insertar antes o despues del codigo 309176
estoy usando la sentencia: Selection.EntireRow.Insert [...]

1) hubiera sido bueno si expones detalles mas... 'precisos' [y lo mas apegados a 'la realidad'] :D
[sobre todo, las instrucciones o codigo que ya estas utilizando] ;)

2) en via de mientras... el siguiente ejemplo inserta una linea 'respetando' un orden ASCENDENTE
y escribe en la linea insertada [columna 'B'] el codigo que le especifiques a la macro ;)
[y asumiendo que se trata de la 'hoja1' del libro que contiene la macro] <= OJO
-> los demas datos que necesites 'agregar'... dependeran de los detalles que comentes :))

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

en un modulo de codig 'general' ==Sub Nuevo_codigo()
Dim Codigo As Long, Desplaza As Long
Codigo = 445678
With Worksheets("hoja1").Range("b1")
Desplaza = Application.Match(Codigo, .Parent.Range("b:b"))
.Offset(Desplaza).EntireRow.Insert
.Offset(Desplaza) = Codigo
End With
End Sub