Visual Basic para Aplicaciones - Filtrar y Agregar datos a los Valores Filtrados

Life is soft - evento anual de software empresarial
   
Vista:

Filtrar y Agregar datos a los Valores Filtrados

Publicado por Francisco Andrés (11 intervenciones) el 06/05/2015 15:12:13
Estimados, estoy trabajando en el envío de mails mediante VBA.
He logrado filtrar la base como yo quería y he podido pegar los datos filtrados en el cuerpo del mail...
Hay posibilidades de que a los datos filtrados se le agregue en la ultima columna "Enviado"? Una vez que la macro haya terminado el proceso de envío?
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

Filtrar y Agregar datos a los Valores Filtrados

Publicado por Khristtian (4 intervenciones) el 06/05/2015 20:14:44
Así como sacas datos, puedes poner nuevos.

Algo así como "las cosas se deshacen como se hacen".

Si ya filtraste la base y sacaste los datos.... después del envío satisfactorio de los mail, recorre la tabla y agrega "Enviado" a cada celda de cada fila de los registros filtrados.
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

Filtrar y Agregar datos a los Valores Filtrados

Publicado por Francisco Andrés (11 intervenciones) el 06/05/2015 21:55:33
Pero esto se puede hacer con una macro?. La verdad es que soy nuevo en esto y estoy queriendo aprender por voluntad propia.
Lo que no entiendo como hacer, es que ya una vez los datos filtrados y una vez enviado el mail, me pege el texto "Enviado" en la columna J.
Por favor les pido ayuda ya que es algo importante para mi trabajo.

A continuación les detallo el código que tengo en el modulo.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
' Envío de Mails
 
Private Sub CommandButton3_Click()
 
Workbooks.Open "G:\Proyecto Mejoras Continuas\Mejoras Continuas.xlsx"
ActiveSheet.Range("$A$1:$K$1001").AutoFilter Field:=3, Criteria1:= _
        "COLÓN"
ActiveSheet.Range("$A$1:$K$1001").AutoFilter Field:=9, Criteria1:= _
        "OK"
ActiveSheet.Range("$A$1:$K$1001").AutoFilter Field:=10, Criteria1:="=" (Este seria el filtro de la Columna J)
 
ActiveSheet.Range("B:F").Select
 
ActiveWorkbook.EnvelopeVisible = True
 
 
With ActiveSheet.MailEnvelope
      .Introduction = "A continuación se envian Mejoras Continuas"
      .Item.To = "jlopez@ggp.com.ar"
      .Item.Subject = "Informe Mejoras Continuas"
      .Item.Send
   End With
Application.CutCopyMode = False
    ActiveSheet.ShowAllData


Luego de esto yo debería poner el la columna J "Enviado" pero solamente en las filas que tengo filtradas.

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

Filtrar y Agregar datos a los Valores Filtrados

Publicado por Francisco Andrés (11 intervenciones) el 07/05/2015 16:17:52
Tema solucionado.
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