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, ;)).

Siga el debate

1 respuesta

Tengo una respuesta

Preguntas similare

Saber que filtro cambio y su valor

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, ;)).

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida