Luis Mondelo

Te mando mi solución, sigue mis pasos: -Inicialmente ponemos un 1 en la celda M2 para que sea el primer nombre -Después solo tienes que ejecutar esta macro y te creará el pdf poniendo como nombre el número escrito en la celda M2 y además una vez...

Te mando mi solución: ejecuta esta macro y listo! Sub ejemplo() 'por luismondelo Sheets("hoja1").Select Range("a1").Select Do While ActiveCell.Value <> "" ActiveCell.Copy For x = 1 To 10 Sheets("hoja2").Range("a65000").End(xlUp).Offset(1,...

Vamos a olvidarnos de las variables y nos quedamos con los nombres de rango. Sería así: Sub ejemplo() Range("xxx,yyy").Select End Sub recuerda finalizar la consulta

Te dejo una idea de como hacerlo en el siguiente vídeo que he preparado. http://es.tbox.ws/2ARCdq

Ahora no recuerdo en lo que te he ayudado ¿Qué fue?

Para poder ayudarte necesito una aclaración: En la hoja VALE la categoría está en el rango B10:¿B39 y la descripción la has puesto con el mismo rango...?

Te dejo un ejemplo en este link a ver si te sirva y lo adaptas a tus necesidades: http://es.tbox.ws/2AR1GP Recuerda finalizar la consulta

Te mando mi solución: Tenemos los datos en hoja1 en el rango A2:A15. Ejecuta esta macro y listo! Sub prueba() 'por luismondelo Sheets("hoja1").Select Range("a2").Select Do While ActiveCell.Row < 16 If ActiveCell.Value <> "" Then...

Te mando mi solución. Con esta macro consigues tu objetivo. En esta macro se insertará la imagen que elijas en la celda C3. Para ello previamente escoge el ancho y alto de la columna C para que la foto se adapte a ese tamaño y después ejecuta la...

Para ese caso lo mejor es utilizar el evento change de la hora donde estemos trabajando, sería esta: Private Sub Worksheet_Change(ByVal Target As Range) 'por luismondelo If Target.Column = 1 Then Target.Offset(0, 1).Value = Time End If End Sub Copia...