Visual Basic - BUCLE EN MACROS

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 7
Ha aumentado su posición en 7 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

BUCLE EN MACROS

Publicado por DIXON (5 intervenciones) el 27/05/2019 05:25:13
Buenas tardes,

Compañeros

Necesito de su colaboración. En mis labores semanales tengo que hacer un informe y enviarlo a la gerencia lo que pasa es que estoy intentando automatizar para ahorrar tiempo en este informe por medio de una macro. Mi pregunta es y adjunto un archivo "prueba" espero me entiendan.

En la columna "A" están la identificación de las personas: lo que necesito es que a cada persona, en la columna "F" ponga el numero del mes de la fecha que tiene la columna "E", o si "E" esta vacía entonces el numero del mes de la fecha de la columna "D".

Este comando la haría en todas filas hasta llegar a la ultima con datos de la columna "A".

Agradezco su amable comprensión y colaboración.
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
Val: 1.259
Plata
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

BUCLE EN MACROS

Publicado por Antoni Masana (558 intervenciones) el 27/05/2019 19:00:19
Creo que esto s lo que buscas:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Macro3()
    Dim Fila As Long
 
    Fila = 2
    While Cells(Fila, "A") <> ""
        Range("F" & Fila).Select
        ActiveCell.FormulaR1C1 = "=IF(RC[-1]=0,MONTH(RC[-2]),MONTH(RC[-1]))"
        Selection.NumberFormat = "0"
        With Selection
            .HorizontalAlignment = xlCenter
        End With
        Fila = Fila + 1
    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
1
Comentar
Imágen de perfil de Andres Leonardo
Val: 3.117
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

BUCLE EN MACROS

Publicado por Andres Leonardo (1798 intervenciones) el 27/05/2019 20:29:51
Correla de F2 a F500000

1
=SI(A1<>"",SI(E2=0,MES(D2),MES(E2)),"")
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil
Val: 7
Ha aumentado su posición en 7 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

BUCLE EN MACROS

Publicado por DIXON (5 intervenciones) el 01/06/2019 15:14:08
Gracias, Antoni por tu aporte fue de mucha ayuda para mi proyecto y estoy avanzando ya que me han surgido nuevas situaciones que he ido solucionando poco a poco.

Gracias.
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