Pegar, limpiar y omitir contenidos y todo automáticamente...

03/01/2007 - 10:38 por Pepe \(Madrid\) | Informe spam
¡Hola!



Me gustaría saber si Excel puede realizar las siguientes tareas:



- En una plantilla tengo una columna (menos cuatro celdas) con un
formato de fecha. ¿sería posible que al llegar a ellas mediante el tabulador
se introduzca automáticamente el contenido del portapapeles o el efecto de
pulsar ctrl + ; ? Sin que cambie, por supuesto, su contenido en caso de
estar ya rellenada. ¿o algo similar?



- ¿Cómo se podría automatizar el borrado de contenidos de las
mismas celdas de todos los .xls de una determinada carpeta? Hasta donde he
llegado, he creado una macro que selecciona las celdas, las borra y vuelve a
situarse en la primera celda a rellenar, el problema es que son muchos
archivos y tendría que ir uno por uno aplicando esa macro.



- Existe otro documento de Excel lleno de referencias externas, el
problema es que muchas de ellas no tienen por qué existir en el momento de
abrir ese documento y hay que imprimirlo, en el cuadro de impresión existe
una opción para sustituir todos los errores de referencias externas por una
celda en blanco. pero esto no me resulta muy práctico ya que, a veces,
quedan hojas enteras vacías. ¿no se podrían simplemente omitir?



Ufff. y ya que estamos. ¿no hay algún sitio de VBA para principiantes?
Porque seguro que esto se soluciona desde el VBA del Excel y no desde el
propio Excel. ¿no?



Gracias de antemano.

Preguntas similare

Leer las respuestas

#6 Pepe \(Madrid\)
04/01/2007 - 10:34 | Informe spam
Esto es lo que tengo en VBAProject\Microsoft Excel Projects\ThisWorkbook


Private Sub Workbook_selectionchange(ByVal Target As Range)
If IsEmpty(ActiveCell) Then
If ActiveCell.NumberFormat = "dd-mm-yy" Then
ActiveCell.PasteSpecial
End If
End If
End Sub

No me funciona :(
Respuesta Responder a este mensaje
#7 Pepe \(Madrid\)
04/01/2007 - 15:55 | Informe spam
Hector Miguel! Ya esta... Al final lo puse en Sheet1... y ya que me estoy
soltando... voy a intentar 'lo otro' por mi cuenta y si no, os comento...

Gracias de nuevo!!!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.NumberFormat = "dd-mm-yy" Then
If ActiveCell.Value = "" Then
ActiveCell.PasteSpecial
End If
End If
End Sub
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una pregunta AnteriorRespuesta Tengo una respuesta
Search Busqueda sugerida