Últimos mensajes - Powered by IBM

Palabras claves

Diferencias en columnas

28/12/2003 - 17:40 por Miguel | Informe spam

Hola Amigos:

Tengo dos columnas con valores numéricos ordenadas,
manualmente hago coincidir los importes que así concurren y los que no
agrego una casilla en blanco Ej.:

Colum1 Colum2

1 0
5 5
0 6
7 0
0 8
9 9

UD. serian tan amables de decirme como lo puedo hacer automáticamente por
medio de una macro, tanto ordenar como hacer coincidir los que coinciden y
los que no agregarle un cero.-

Desde ya muchas gracias

Saludos y Felices Fiestas!

Siga el debate

4 respuestas

Tengo una respuesta

Preguntas similare

Leer las respuestas

#1 Benito Merino

29/12/2003 - 11:47 | Informe spam

Hola Miguel.

La siguiente macro te ordena dos columnas y te inserta una
celda con valor 0 en aquellos valores no coincidentes en
ambas columnas.

Debes personalizar el rango definido en PRIMERRANGO y
SEGUNDORANGO

Sub ordenaryañadir0()
PRIMERRANGO = Range("A4:A59").Address
SEGUNDORANGO = Range("B4:B59").Address
Range(PRIMERRANGO).Sort Key1:=Range(PRIMERRANGO),
Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False,
Orientation:=xlTopToBottom
Range(SEGUNDORANGO).Sort Key1:=Range(SEGUNDORANGO),
Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False,
Orientation:=xlTopToBottom
Range(PRIMERRANGO).Select
While ActiveCell.Offset(A, 0) <> ""
If ActiveCell.Offset(A, 0) > ActiveCell.Offset(A, 1)
Then
ActiveCell.Offset(A, 0).Insert Shift:=xlDown
ActiveCell.Offset(A, 0).Value = 0
ElseIf ActiveCell.Offset(A, 0) < ActiveCell.Offset(A,
1) Then
ActiveCell.Offset(A, 1).Insert Shift:=xlDown
ActiveCell.Offset(A, 1).Value = 0
End If
A = A + 1
Wend
While ActiveCell.Offset(A, 1) <> ""
ActiveCell.Offset(A, 0).Value = 0
A = A + 1
Wend

End Sub

Espero que te funcione.

Atentamente,

Benito Merino
Barcelona

Hola Amigos:

Tengo dos columnas con valores

numéricos ordenadas,

manualmente hago coincidir los importes que así concurren

y los que no

agrego una casilla en blanco Ej.:

Colum1 Colum2

1 0
5 5
0 6
7 0
0 8
9 9

UD. serian tan amables de decirme como lo puedo hacer

automáticamente por

medio de una macro, tanto ordenar como hacer coincidir

los que coinciden y

los que no agregarle un cero.-

Desde ya muchas gracias

Saludos y Felices Fiestas!

.

Responder a este mensaje

#2 Miguel

30/12/2003 - 04:27 | Informe spam

Funciona Perfecto.

Gracias, Saludos desde Río Gallegos, Santa Cruz,
Argentina.

Miguel Angel Gauna

"Benito Merino" escribió en el mensaje
news:066d01c3cdf9$3234fcb0$
Hola Miguel.

La siguiente macro te ordena dos columnas y te inserta una
celda con valor 0 en aquellos valores no coincidentes en
ambas columnas.

Debes personalizar el rango definido en PRIMERRANGO y
SEGUNDORANGO

Sub ordenaryañadir0()
PRIMERRANGO = Range("A4:A59").Address
SEGUNDORANGO = Range("B4:B59").Address
Range(PRIMERRANGO).Sort Key1:=Range(PRIMERRANGO),
Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False,
Orientation:=xlTopToBottom
Range(SEGUNDORANGO).Sort Key1:=Range(SEGUNDORANGO),
Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False,
Orientation:=xlTopToBottom
Range(PRIMERRANGO).Select
While ActiveCell.Offset(A, 0) <> ""
If ActiveCell.Offset(A, 0) > ActiveCell.Offset(A, 1)
Then
ActiveCell.Offset(A, 0).Insert Shift:=xlDown
ActiveCell.Offset(A, 0).Value = 0
ElseIf ActiveCell.Offset(A, 0) < ActiveCell.Offset(A,
1) Then
ActiveCell.Offset(A, 1).Insert Shift:=xlDown
ActiveCell.Offset(A, 1).Value = 0
End If
A = A + 1
Wend
While ActiveCell.Offset(A, 1) <> ""
ActiveCell.Offset(A, 0).Value = 0
A = A + 1
Wend

End Sub

Espero que te funcione.

Atentamente,

Benito Merino
Barcelona

Hola Amigos:

Tengo dos columnas con valores

numéricos ordenadas,

manualmente hago coincidir los importes que así concurren

y los que no

agrego una casilla en blanco Ej.:

Colum1 Colum2

1 0
5 5
0 6
7 0
0 8
9 9

UD. serian tan amables de decirme como lo puedo hacer

automáticamente por

medio de una macro, tanto ordenar como hacer coincidir

los que coinciden y

los que no agregarle un cero.-

Desde ya muchas gracias

Saludos y Felices Fiestas!

.

Responder a este mensaje

#3 aguila_mo

01/01/2004 - 21:04 | Informe spam

"Miguel" wrote in message news:<#...

Funciona Perfecto.

Gracias, Saludos desde Río Gallegos, Santa Cruz,
Argentina.

Miguel Angel Gauna

"Benito Merino" escribió en el mensaje
news:066d01c3cdf9$3234fcb0$
Hola Miguel.

La siguiente macro te ordena dos columnas y te inserta una
celda con valor 0 en aquellos valores no coincidentes en
ambas columnas.

Debes personalizar el rango definido en PRIMERRANGO y
SEGUNDORANGO

Sub ordenaryañadir0()
PRIMERRANGO = Range("A4:A59").Address
SEGUNDORANGO = Range("B4:B59").Address
Range(PRIMERRANGO).Sort Key1:=Range(PRIMERRANGO),
Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False,
Orientation:=xlTopToBottom
Range(SEGUNDORANGO).Sort Key1:=Range(SEGUNDORANGO),
Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False,
Orientation:=xlTopToBottom
Range(PRIMERRANGO).Select
While ActiveCell.Offset(A, 0) <> ""
If ActiveCell.Offset(A, 0) > ActiveCell.Offset(A, 1)
Then
ActiveCell.Offset(A, 0).Insert Shift:=xlDown
ActiveCell.Offset(A, 0).Value = 0
ElseIf ActiveCell.Offset(A, 0) < ActiveCell.Offset(A,
1) Then
ActiveCell.Offset(A, 1).Insert Shift:=xlDown
ActiveCell.Offset(A, 1).Value = 0
End If
A = A + 1
Wend
While ActiveCell.Offset(A, 1) <> ""
ActiveCell.Offset(A, 0).Value = 0
A = A + 1
Wend

End Sub

Espero que te funcione.

Atentamente,

Benito Merino
Barcelona

>Hola Amigos:
>
> Tengo dos columnas con valores
numéricos ordenadas,
>manualmente hago coincidir los importes que así concurren
y los que no
>agrego una casilla en blanco Ej.:
>
>Colum1 Colum2
>
>1 0
>5 5
>0 6
>7 0
>0 8
>9 9
>
>UD. serian tan amables de decirme como lo puedo hacer
automáticamente por
>medio de una macro, tanto ordenar como hacer coincidir
los que coinciden y
>los que no agregarle un cero.-
>
>Desde ya muchas gracias
>
> Saludos y Felices Fiestas!
>
>
>.
>

Esta Macro es interesante, se puede aplicar para las conciliaciones
bancarias, si en lugar de insertar una celda insertara un renglón en
blanco, lo he intentado pero no me sale, alguien me quiere ayudar?

Responder a este mensaje

#4 Benito Merino

02/01/2004 - 16:57 | Informe spam

Hola Aguila.

La verdad es que no entinendo muy bien el cambio que
propones. Creo entender que quieres añadir una fila en
caso de no coincidencia. ¿Se trataría entonces de no poner
el valor 0?.

He corregido la macro para hacer eso que plantéas.

Sub ordenaryañadir0()
PRIMERRANGO = Range("A4:A59").Address
SEGUNDORANGO = Range("B4:B59").Address
Range(PRIMERRANGO).Sort Key1:=Range(PRIMERRANGO),
Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False,
Orientation:=xlTopToBottom
Range(SEGUNDORANGO).Sort Key1:=Range(SEGUNDORANGO),
Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False,
Orientation:=xlTopToBottom
Range(PRIMERRANGO).Select
While ActiveCell.Offset(A, 0) <> ""
If ActiveCell.Offset(A, 0) > ActiveCell.Offset(A, 1)
Then
ActiveCell.Offset(A, 0).Insert Shift:=xlDown
ElseIf ActiveCell.Offset(A, 0) < ActiveCell.Offset(A,
1) Then
ActiveCell.Offset(A, 1).Insert Shift:=xlDown
End If
A = A + 1
Wend
End Sub

Disculpas si no es lo que pretendes. Ruego me remitas
alguna informacíón adicional aquí o a mi correo personal
().

Saludos y feliz año

Benito Merino
Barcelona

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida