Enviar hoja por E-mail

BLACIO,

Hace poco, no me acuerdo quien, pero creo q fue Fernando q dejo este link.
Espero q te sirva.
http://www.excelsp.com/vba01.htm

Saludos,
KL

"BLACIO" wrote in message
news:

Nuevamente salud2 a la comunidad
De la Base que he estado comentado, donde por codigo hace una hoja por
cada
cuenta, aproximadamente 168 Cuentas, es posible enviar por correo
electronico
cada hoja a sus respectivos clientes

Gracias KL, lo voy a intentar
Aprovechando el comentario, es posible que las 168 Hojas que se crean, se
les pueda eliminar por codigo las columnas A y B de cada una
Nuevamente Gracias...

"KL" escribió:

BLACIO,

Hace poco, no me acuerdo quien, pero creo q fue Fernando q dejo este link.
Espero q te sirva.
http://www.excelsp.com/vba01.htm

Saludos,
KL

"BLACIO" wrote in message
news:
> Nuevamente salud2 a la comunidad
> De la Base que he estado comentado, donde por codigo hace una hoja por
> cada
> cuenta, aproximadamente 168 Cuentas, es posible enviar por correo
> electronico
> cada hoja a sus respectivos clientes

Sub EliminarAB()
For Each ws In ThisWorkbook.Worksheets
ws.Range("A:B").Delete
Next ws
End Sub

Saludos,
KL



"BLACIO" wrote in message
news:

Gracias KL, lo voy a intentar
Aprovechando el comentario, es posible que las 168 Hojas que se crean, se
les pueda eliminar por codigo las columnas A y B de cada una
Nuevamente Gracias...

"KL" escribio:

BLACIO,

Hace poco, no me acuerdo quien, pero creo q fue Fernando q dejo este
link.
Espero q te sirva.
http://www.excelsp.com/vba01.htm

Saludos,
KL

"BLACIO" wrote in message
news:
> Nuevamente salud2 a la comunidad
> De la Base que he estado comentado, donde por codigo hace una hoja por
> cada
> cuenta, aproximadamente 168 Cuentas, es posible enviar por correo
> electronico
> cada hoja a sus respectivos clientes

Si quieres evitar que se eliminen las clumnas A y B en una hoja, podrias
usar esta:

Sub EliminarAB()
MiHoja= "Aqui pones entre comillas el nombre de la hoja q no se debe
tocar"
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> miHoja Then ws.Range("A:B").Delete
Next ws
End Sub

KL


"KL" wrote in message
news:OXf$

Sub EliminarAB()
For Each ws In ThisWorkbook.Worksheets
ws.Range("A:B").Delete
Next ws
End Sub

Saludos,
KL



"BLACIO" wrote in message
news:

Gracias KL, lo voy a intentar
Aprovechando el comentario, es posible que las 168 Hojas que se crean, se
les pueda eliminar por codigo las columnas A y B de cada una
Nuevamente Gracias...

"KL" escribio:

BLACIO,

Hace poco, no me acuerdo quien, pero creo q fue Fernando q dejo este
link.
Espero q te sirva.
http://www.excelsp.com/vba01.htm

Saludos,
KL

"BLACIO" wrote in message
news:
> Nuevamente salud2 a la comunidad
> De la Base que he estado comentado, donde por codigo hace una hoja por
> cada
> cuenta, aproximadamente 168 Cuentas, es posible enviar por correo
> electronico
> cada hoja a sus respectivos clientes

Manuel,

Solo un pequeno comentaio, si me permites. La linea "wk.Activate" es
redundante ya q no es necesario activar la hoja para hacer la mayoria de las
operaciones en ella, como es este caso concreto.

Saludos,
KL

"Manuel Romero" @hotmail.com> wrote in message
news:

Dim wk As Worksheet
For Each wk In ThisWorkBook.WorkSheets
wk.Activate
Columns("A:B").EntireColumn.Delete
Next

BLACIO, le recomiendo que se acostumbre a grabar macros de las cosas que
quiere hacer, esa es una buenisima ayuda para iniciarse y entender las
macros. Claro que no todo se puede grabar, pero da una buena idea del
codigo
que hay que escribir

"BLACIO" escribió en el mensaje
news:

Gracias KL, lo voy a intentar
Aprovechando el comentario, es posible que las 168 Hojas que se crean, se
les pueda eliminar por codigo las columnas A y B de cada una
Nuevamente Gracias...

"KL" escribió:

> BLACIO,
>
> Hace poco, no me acuerdo quien, pero creo q fue Fernando q dejo este

link.

> Espero q te sirva.
> http://www.excelsp.com/vba01.htm
>
> Saludos,
> KL
>
> "BLACIO" wrote in message
> news:
> > Nuevamente salud2 a la comunidad
> > De la Base que he estado comentado, donde por codigo hace una hoja
> > por
> > cada
> > cuenta, aproximadamente 168 Cuentas, es posible enviar por correo
> > electronico
> > cada hoja a sus respectivos clientes
>
>
>