Enviar hoja por E-mail

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

Gracias Ambos
Cualquier duda, hay les comento

"KL" escribió:

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

Tienes razon, pero es que el codigo lo escribi de memoria y no me acordaba
si eso se podia hacer sin activar la hoja antes. Igual un
Application.ScreenUpdating=False hace que no se demore tanto, si ese es el
problema

De todos modos, gracias por tu comentario

"KL" escribió en el mensaje
news:O%

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