Novato y macro seleccion

[hipomenes]

hola amigos estoy empezando con esto de los macros y no lo he hecho con buen pie

estoy intentando crear una macro que me selecciones todas las celdas desde la b4 todas las celdas que tengan algo escrito y lo hago tal que asi

sub seleccion()

[b4].currentregion.select

end sub[/CODE]

pero como en b2 y por ahi hay cosas tambien me lo selecciona

como puedo hacer que seleccione solo desde b4 a la derecha y hacia abajo las celdas que tengan algo?

no subo el archivo por que es para hacerlo en una hoja que empiezo en blanco

[bigpetroman]

pues no tiene sentido si es para hacerlo en una hoja que comienzas en blanco!!!!

directo desde la grabadora de macros

Sub Macro1()


    Range("B4").Select

    Range(Selection, Selection.End(xlDown)).Select

End Sub[/CODE]

suerte

[hipomenes]

pues no tiene sentido si es para hacerlo en una hoja que comienzas en blanco!!!!

directo desde la grabadora de macros

Sub Macro1()


    Range("B4").Select

    Range(Selection, Selection.End(xlDown)).Select

End Sub[/CODE]

suerte

se que asi explicado no tiene sentido pero muchas gracias has dado en el clavo

lo digo que es para una hoja en blando por que yo recivo datos en otro excel y lo pego a una hoja en blanco y se que siempre tengo que copiar desde b4 por eso lo digo que me vale para todos los trabajos que hago si tengo mas dudas aki las posteare

[hipomenes]

seguimos para bingo ya he solucionado que me copie los valores que yo le pido pero ahora no me lo pega en la hoja2 en la primera celda activa he modificado el archivo original (que adjunto al post) para que seleccione solo de las columnas a a la d solo las que esten completas en la A y me lo selecciona bien pero a la hora de pegarlo en la primera cerda vacia de la hoja 2 me da error en tiempo de ejecucion

tambien estoy viendo como puedo hacer que compruebe datos y no copia duplicados

me ayudais?

por ahora voy asi

Sub macri1()

Range("a4:d4").Select

Range(Selection, Selection.End(xlDown)).Select

Selection.Copy

Sheets("bolsa").Select

Range("b4").Select

While ActiveCell.Value <> ""

ActiveCell.Offset(1, 0).Select

Wend

ActiveSheet.Paste

Application.CutCopyMode = False

Range("b4").Select

End Sub

[/CODE]

como veis me tiene que copiar las columnas a,b,c y d de la hoja uno si es na columna a hay datos y pegarlos en la hoja dos en la primera celda vacia

Plantilla_semaforo1.xls

[bigpetroman]

Amigo @[uSER=167650]hipomenes[/uSER], cambia tu macro por esta otra

Sub macri1()

    Worksheets("DIARIO").Select

    ActiveSheet.Range("A4:D4").Select

    ActiveSheet.Range(Selection, Selection.End(xlDown)).Select

    Selection.Copy

    Sheets("bolsa").Select

    ActiveSheet.Range("b4").Select

    While ActiveCell.Value <> ""

        ActiveCell.Offset(1, 0).Select

    Wend

    ActiveSheet.Paste

    Application.CutCopyMode = False

    ActiveSheet.Range("b4").Select

End Sub[/CODE]

si revisas, lo unico que hice fue colocar ActiveSheet. en las líneas de seleccion; tu macro funciona bien (la seleccion) en la hoja DIARIO pero NO en la hoja BOLSA, porque?, no se, a veces excel da estos problemas y por lo menos yo no logro entender el motivo, simplemente hay que buscarle la vuelta; yo particularmente siempre coloco explicitamente el nombre de la hoja en las sentencias, por ejemplo en vez de colocar RANGE("A1").Select, coloco Worksheets("x").Range("A1").Select (o en su defecto el ActiveSheet), suerte

[Pierre no doy una]

Hola muy buenas a tod@s dsd Sevilla.....aquí otro novato no...lo siguiente.....Llevo como 10 dias intentando entender macros y me pierdo... ....yo necesito que las casillas donde están las fechas para el aviso, me lance avisos a través de outlook como tareas pendientes. Es decir el 10/02, el 01/10, etc.etc....así por cada fecha. No sé si las fechas me las envía la macro que se crea o las he de poner manualmente en el calendario de outlook...Esta es sola una hoja de un libro con unas 20 hojas todas con mismo formato y que deben saltar cada una en su fecha...adjunto el archivo. Estoy desesperado con esto.

Gracias de antemano.

Copia de Prueba de control maquinaria.xls

[Pierre no doy una]

Hola buenas de nuevo.....No me puede ayudar nadie??????? Se que es un tema muy trillado xro necesito ayuda de verdad.....

[bigpetroman]

amigo @[uSER=167958]Pierre no doy una[/uSER], debes crear tu propio tema para tus dudas, no uses el tema de otro usuario, de otra forma será dificil que consigas ayuda, recuerda leer las normas y reglas del foro, suerte

[Pierre no doy una]

Gracias Big, paso a abrir mi propio tema.....