Newsgroup: it.comp.lang.visual-basic
Titolo: [?] macro in excel per fare circolari (corto, ma con sorgenti)

ciao a tutti.
mi serve un aiutino per fare una macro in excel.
nel primo foglio ho un elenco di indirizzi scritti uno sotto l'altro.
nel secondo foglio ho distribuito come meglio credevo le frasi di rito
per la circolare che devo inviare.
la macro deve:
1. passa al primo foglio
2. sposta in basso la selezione di una cella
3. copia l'indirizzo
4. passa al secondo foglio
5. incolla l'indirizzo nella cella per l'indirizzo
6. stampa la pagina corrente
7. fine
poi associo la macro a un pulsante e devo "solo" spingere il pulsante
n volte. la macro in questo modo ad ogni ciclo scende di uno
nell'elenco degli indirizzi, lo incolla nella casella del destinatario
e stampa la lettera.
ho deciso di non ciclare automaticamente fino all'ultimo indirizzo
perche' a volte sono davvero tanti e non li stampo tutti in una volta.
col registratore macro ho ottenuto qualcosa che non funziona perche'
il registratore non registra la pressione del tasto freccia verso il
basso e quindi seleziona sempre lo stesso indirizzo.
non ho trovato l'albero degli oggetti di excel da nessuna parte e
quindi non so come procedere. il codice che avevo scritto in passato
per un altro programma che scriveva nelle celle di excel mi ha aiutato
solo in parte perche', dopo che ho messo le mani nella macro, questa
non funziona piu' =)
mi segnala che activesheet.next.select non e' valida all'interno
dell'oggetto dichiarato con with blablabla.
+++++++ macro registrata da excel (gira ma non funziona)
Sub vaBene()
'
' vaBene Macro
' Macro registrata il 18/09/03 da Elena Rondinini
'
    ActiveSheet.Next.Select
    Range("A3").Select
    Selection.Copy
    ActiveSheet.Previous.Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1,
Collate _
        :=True
End Sub
+++++++ macro ritoccata (non gira)
Sub vaBene()
'
' vaBene Macro
' Macro registrata il 18/09/03 da Elena Rondinini
'
Static Riga As Integer
'una stringa non statica non la posso dichiarare qui
Static Indirizzo As String
    Riga = Riga + 1
 
    ActiveSheet.Next.Select
    Indirizzo = Cells(Riga, 1)
    Selection.Copy
    ActiveSheet.Previous.Select
    ActiveSheet.Range = Indirizzo
    Application.CutCopyMode = False
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1,
Collate _
        :=True
End Sub
naturalmente, ringrazio in anticipo.
saluti.
-- 
Gianni Rondinini
Icem s.r.l.
Tel: 
+39 0545 78036
Fax: 
+39 0545 78727

 Mentre navigavo in questo oceano di scienza mi imbattei in questo quesito
posto da  Gianni Rondinini  --->mail  
bugb...@icem.it
  <---
 Che  Scrive :

ma perche non usi stampa unione?????  la lettera la fai con word, mentre gli
indirizzi li lasci pure in excell e il gioco è fatto

 per la circolare che devo inviare.
Fai una stampa unione dopo avere acceso il registratore.
E' immediato.
Ciao
Alberto

E' immediato.
e' dal 1925 che non uso stampa unione...
daro' un'occhiata, ma dubito di riuscire.
saluti e grazie comunque.


daro' un'occhiata, ma dubito di riuscire.
sono diventato pazzerello ma ce l'ho fatta :)
saluti.
saluti.
