Visual Basic - Recolocar semanas en archivo

Life is soft - evento anual de software empresarial
   
Vista:

Recolocar semanas en archivo

Publicado por josito (6 intervenciones) el 13/11/2017 19:58:14
Buenas tardes,

La cuestión es que necesito que los números de semana que obtengo en la hoja 2 una vez ejecutada la macro (desarrollada por Antoni), los pueda posteriormente recolocar en la hoja 3 en función de los proyectos tal y como están distribuidos .
Lo he intentado con algunas formulas BUSCAV o COINCIDIR, pero no doy con la solución.

Por favor, me podéis ayudar.Gracias.

Josito
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana

Recolocar semanas en archivo

Publicado por Antoni Masana amasana@hotmail.com (282 intervenciones) el 22/11/2017 09:48:09
Buenas,
He tardado en contestar porque le estaba buscando un sentido a lo que quieres hacer y no se lo encuentro.

Me explico.

En la hoja 2 tienes esto: (Filas 38 a la 41)

1
2
3
4
LavadoraTipo4	S16
LavadoraTipo4	S16
LavadoraTipo4	S20
LavadoraTipo4	S32

El la hoja 3 en la celda A2 pone:

1
LavadoraTipo4

¿Cual de las celdas B38, B39, B40 y B41 corresponde poner?

Siguiendo el orden de la Hoja 2 podría hacer esta asignación

1
2
3
4
copia  Hoja2.B38  a  Hoja3.B2
copia  Hoja2.B39  a  Hoja3.B38
copia  Hoja2.B40  a  Hoja3.B39
copia  Hoja2.B41  a  Hoja3.B40

Es decir:

- La 1ª LavadoraTipo1 de la hoja2 a la 1ª LavadoraTipo1 de la hoja3
- La 2ª LavadoraTipo1 de la hoja2 a la 2ª LavadoraTipo1 de la hoja3
- La 3ª LavadoraTipo1 de la hoja2 a la 3ª LavadoraTipo1 de la hoja3
- etc.

Después

- La 1ª LavadoraTipo2 de la hoja2 a la 1ª LavadoraTipo2 de la hoja3
- La 2ª LavadoraTipo2 de la hoja2 a la 2ª LavadoraTipo2 de la hoja3
- La 3ª LavadoraTipo2 de la hoja2 a la 3ª LavadoraTipo2 de la hoja3
- etc.

Y esto se debe hacer con una macro pero ¿Es lo que necesitas?


Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Recolocar semanas en archivo

Publicado por josito (6 intervenciones) el 22/11/2017 20:57:51
Buenas Antonio,

En primer lugar darte las gracias por tu ayuda.

Exactamente el orden sería tal y como lo explicas, de modo y manera que las semanas crecerían de arriba hacia abajo:

La 1ª LavadoraTipo1 de la hoja2 a la 1ª LavadoraTipo1 de la hoja3 (S5)
- La 2ª LavadoraTipo1 de la hoja2 a la 2ª LavadoraTipo1 de la hoja3 (S5)
- La 3ª LavadoraTipo1 de la hoja2 a la 3ª LavadoraTipo1 de la hoja3 (S7)
- etc.

Después

- La 1ª LavadoraTipo2 de la hoja2 a la 1ª LavadoraTipo2 de la hoja3 (S5)
- La 2ª LavadoraTipo2 de la hoja2 a la 2ª LavadoraTipo2 de la hoja3 (S5)
- La 3ª LavadoraTipo2 de la hoja2 a la 3ª LavadoraTipo2 de la hoja3 (S7)
- etc.


¿Entiendo que la primera macro que tengo para desglosar la cantidad de semanas me la mantienes, y lo que haces es desarrollar otra paralela para poder ejecutar lo solicitado?

Josito
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Recolocar semanas en archivo

Publicado por josito (6 intervenciones) el 01/12/2017 17:22:55
Buenas tardes Antoni,

Me gustaría saber si me vas a prestar ayuda con alguna macro que me solucione el problema, si no es así, por favor dímelo.

Buscare ayuda en otro lugar, gracias de antemano.

Josito
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Antoni Masana

Recolocar semanas en archivo

Publicado por Antoni Masana (282 intervenciones) el 01/12/2017 19:47:49
Perdona no haberte contestado antes se me paso tu correo.

La Macro

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Copia_Hoja2_a_Hoja3()
    Dim Anteri As String, Origen As Long, Destin As Long
 
    Origen = 2
    Destin = 2
    Anteri = Sheets("Hoja2").Cells(Origen, 1)
 
    While Sheets("Hoja2").Cells(Origen, 1) <> ""
       While Sheets("Hoja2").Cells(Origen, 1) <> Sheets("Hoja3").Cells(Destin, 1)
           Destin = Destin + 1
       Wend
 
       Sheets("Hoja3").Cells(Destin, 2) = Sheets("Hoja2").Cells(Origen, 2)
       Sheets("Hoja3").Cells(Destin, 3) = Sheets("Hoja2").Cells(Origen, 3)  ' -- esta linea copia la columna C es para probar que lo hace bien
 
       Destin = Destin + 1
       Origen = Origen + 1
       If Anteri <> Sheets("Hoja2").Cells(Origen, 1) Then
          Anteri = Sheets("Hoja2").Cells(Origen, 1)
          Destin = 2
       End If
    Wend
End Sub

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar

Recolocar semanas en archivo

Publicado por josito (6 intervenciones) el 01/12/2017 22:41:42
Buenas noches Antoni,

Muchas GRACIAS :-)

Un cordial saludo

Josito
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Revisar política de publicidad