busqueda y cambio de ese valor (esta es dificil)

25/01/2005 - 15:33 por vasak | Informe spam
Hola buenas...
Bien, me explico mejor, es dificil, a ver tengo una hoja de excel que
es asi

A B C D E F
Nombre Numero1
Nombre Numero2
Nombre Numero3
Nombre Numero4
Nombre2 Numero1
Nombre2 Numero2
Nombre2 Numero3
Nombre2 Numero4
Nombre3 Numero1
Nombre3 Numero2
Nombre3 Numero3
Nombre3 Numero4
Nombre4 Numero1
Nombre4 Numero2
Nombre4 Numero3
Nombre4 Numero4

Ahora yo necesito para importar estos datos desde sql (esto da
igual...) que esos numero1, numero2, numero3 y numero4 siempre sean 0
1 2 3 , la cuestion es que ese numerito unas veces es 0 1 2 3, otras 4
5 6 7 (por que el que me pasa los archivos asi ha hecho la exportacion
desde su programa), y yo necesito cambiarlo mediante una macro siempre
a 0 1 2 3

un ejemplo (asi es como me viene):

Sr Anonimo Anonimo 4
EMPRESA ANONIMA 5
ANONIMO ANONIMO ANONIMO 6
7
Avda. America 1078. 3º Centro. 2
28999 MADRID 3
MADRID 4
5

Sr Anonimo Anonimo 0
EMPRESA ANONIMA 1
ANONIMO ANONIMO ANONIMO 2
3
Avda. America 1078. 3º Centro 0
28028 MADRID 1
MADRID 2
3

Espero haberme explicado bien, ;)))... es dificillo pero a ver si se
os ocurre alguna macro o manera logica de hacer esto, un saludo y
gracias por leerlo que ya es bastante, ;)).
 

Leer las respuestas

#1 KL
26/01/2005 - 03:15 | Informe spam
Hola Vasak,

Si te he entendido bien, el siguiente codigo deberia hacer lo q buscas.

Saludos,
KL

'--Inicio Codigo-
Sub test()
Dim mtz As Variant
Dim rng As Range
Dim filas As Long, i As Long
Dim col As Integer

mtz = Application.WorksheetFunction. _
Transpose(Array(0, 1, 2, 3))
col = 0
With ActiveSheet
Set rng = .Range("B1:B4")
filas = .UsedRange.Rows.Count - 4
End With
For i = 0 To filas Step 4
rng.Offset(i, col Mod 2) = mtz
col = col + 1
Next i
End Sub

'--Fin Codigo-



"Vasak" wrote in message
news:
Hola buenas...
Bien, me explico mejor, es dificil, a ver tengo una hoja de excel que
es asi

A B C D E F
Nombre Numero1
Nombre Numero2
Nombre Numero3
Nombre Numero4
Nombre2 Numero1
Nombre2 Numero2
Nombre2 Numero3
Nombre2 Numero4
Nombre3 Numero1
Nombre3 Numero2
Nombre3 Numero3
Nombre3 Numero4
Nombre4 Numero1
Nombre4 Numero2
Nombre4 Numero3
Nombre4 Numero4

Ahora yo necesito para importar estos datos desde sql (esto da
igual...) que esos numero1, numero2, numero3 y numero4 siempre sean 0
1 2 3 , la cuestion es que ese numerito unas veces es 0 1 2 3, otras 4
5 6 7 (por que el que me pasa los archivos asi ha hecho la exportacion
desde su programa), y yo necesito cambiarlo mediante una macro siempre
a 0 1 2 3

un ejemplo (asi es como me viene):

Sr Anonimo Anonimo 4
EMPRESA ANONIMA 5
ANONIMO ANONIMO ANONIMO 6
7
Avda. America 1078. 3º Centro. 2
28999 MADRID 3
MADRID 4
5

Sr Anonimo Anonimo 0
EMPRESA ANONIMA 1
ANONIMO ANONIMO ANONIMO 2
3
Avda. America 1078. 3º Centro 0
28028 MADRID 1
MADRID 2
3

Espero haberme explicado bien, ;)))... es dificillo pero a ver si se
os ocurre alguna macro o manera logica de hacer esto, un saludo y
gracias por leerlo que ya es bastante, ;)).

Preguntas similares