sirgfreid

Hola a todos Es un poco complicado de explicar pero lo voy a intentar jejej Estoy haciendo una excel para un concurso de fotografía, tengo una macro para asignar numero de participante aleatorios y una pestaña para cada participante nombradas (1,2,3...

Hola a todos Tengo esta macro para asignar numero no repetitivos para sorteos y demás. Sub asignar_numeros() 'modificar este numero con el numero de participantes Const Numeros As Long = 20 Const Salida As String = "c1" With...

Hola tengo esta macro modificada por dante amor Sub copiar_jpg() 'Mod.Por.DAM Dim Celda As Excel.Range ruta = ThisWorkbook.Path & "\" With CreateObject("Scripting.FileSystemObject") For Each Celda In Range("b4:b13") If Celda <> "" Then DirFile =...

Hola a todos Tengo un problemilla con una macro que estoy haciendo seria esta Sub copiar_jpg() Dim Celda As Excel.Range With CreateObject("Scripting.FileSystemObject") For Each Celda In Range("b4:b13") .CopyFile ThisWorkbook.Path & "\1\" & Celda,...