Macro un poco compleja (por lo menos para mi jejej)

[sirgfreid]

Hola a todos

Hace bastante tiempo que ojeo el foro desde las "sombras", he aprendido mucho mirando posts y dudas de otra gente.

He ido haciendo un excel para utilizarlo en campeonatos de fotografia submarina con algunas macros, carga automatica de nombre de imagen, apertura de ellas ,algunas combobox para listar especies de peces etc...

Ahora quiero que copie en una carpeta las 5 fotos mejor puntuadas de los participantes, en este foro he encontrado varios post de macros para copiar archivos que he probado y funciona pero me gustaria desarrollarla un poco mas.

Sub Prueba()


    Const DIR_ORIGEN = "[COLOR="red"]C:\ ... \CarpetaOrigen\[/COLOR]"

    Const DIR_DESTINO = "[COLOR="red"]C:\ ... \CarpetaDestino\[/COLOR]"


    Dim Celda As Excel.Range



    With CreateObject("Scripting.FileSystemObject")


        For Each Celda In Range("[COLOR="blue"]A1:A3[/COLOR]")


            .CopyFile DIR_ORIGEN & Celda, DIR_DESTINO & Celda


        Next Celda


    End With


End Sub[/CODE]

este es el que he probado, pero necesitaria un par de condicionales que desconozco como aplicar. Serian los siguientes

-que copie solo los archivos que yo seleccione( marcandolos en un color, o con una celda contigua donde ponga un x o algo asi.

-que al activar el boton de esta macro cree una carpeta con el nombre de la hoja de excel en cuestion.

gracias de antemano a todos.

saludos

Sergio