Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Creare una macro per inserimento appuntamenti?

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Creare una macro per inserimento appuntamenti?

Postdi DOMENICO_FALCO » 04/07/13 19:51

Salve a tutti e grazie per aver accettato la mia iscrizione...
Mi chiamo Domenico e cerco.. e ripeto cerco di creare nuove cose con i vari programmi..
Adesso sono alle prese con Microsoft Escel...

Arrivando subito al dunque ho creato in excel un calendario per appuntamenti e le date di tutto l'anno sono messe una sotto l'altra. per intenderci cosi :

DATA GIORNO ORA INTERESSATO LUOGO MOTI…
1-gen Martedi
2-gen Mercoledi
3-gen Giovedi
3-gen Giovedi
4-gen Venerdi
5-gen Sabato
6-gen Domenica
7-gen Lunedi

chiaramente in celle diverse, adesso desidero creare una macro con pulsante che se ad esempio mi trovo sulla cella del Mercoledì mi inserisca una riga sotto con la stessa data. per un nuovo inserimento, sempre per chiarezza se attivo la macro deve venirmi così :


DATA GIORNO ORA INTERESSATO LUOGO MOTI…
1-gen Martedi
2-gen Mercoledi
---> 2-gen Mercoledi
3-gen Giovedi
3-gen Giovedi
4-gen Venerdi
5-gen Sabato
6-gen Domenica
7-gen Lunedi

E posso inserire solo 10 righe per ogni data, cioè in effetti massimo dieci appuntamenti al giorno...
Chiaramente ho cercato di fare questa macro che valga per tutte le celle e quindi :


Codice: Seleziona tutto
Sub RIGAX()
'
'RIGAX Macro
'
'
x = 0
If x = 9 Then Exit Sub '
a = 12
y = 13 ( 13 è la riga da cui parte l'elenco nel mio foglio)
Z = y + x
b = a + x
Rows(Z & ":" & Z).Select
Selection.Insert Shift:=xlDown
Range(Cells("B", b), Cells("C" , b)).Select
Selection.Copy
Range("B" & b).Select
ActiveSheet.Paste ActiveSheet.Paste Application.CutCopyMode = False
Range("D" & Z).Select
x = x + 1
End Sub


questa macro in effetti, prima inserisce la riga sotto alla cella del giorno selezionato e poi copia il contenuto della cella del giorno e la incolla nella riga inserita, così da avere già scritta anche la data....
Bene... chiaramente come al solito qualcosa ho errato... vi ricordo scusandomi che non sono un esperto chiaramente....
Per prima cosa il compilatore di excel mi segna come errore questa riga :

Codice: Seleziona tutto
Range(Cells("B", b), Cells("C", b)).Select

e poi di sicuro sbaglio il ciclo di controllo... :(
Vi ringrazio anticipatamente se qualcuno sarà così gentile da aiutarmi...
Saluti Domenico
Grazie e buona giornata da Domenico.
DOMENICO_FALCO
Newbie
 
Post: 1
Iscritto il: 04/07/13 19:43

Sponsor
 

Re: Creare una macro per inserimento appuntamenti?

Postdi Flash30005 » 12/07/13 14:25

Ciao Domenico e benvenuto nel Forum

Scusa ma il tuo post mi era sfuggito
Ho dato un'occhiata alla tua macro ed ho corretto l'errore
però non credo che la macro faccia quello che desideri
comunque te la invio corretta così avrai la possibilità di fare delle prove
Codice: Seleziona tutto
    Sub RIGAX()
    '
    'RIGAX Macro
    '
    '
    X = 0
    If X = 9 Then Exit Sub '
    a = 12
    y = 13 '( 13 è la riga da cui parte l'elenco nel mio foglio)
    Z = y + X
    b = a + X
    Rows(Z & ":" & Z).Select

    Selection.Insert Shift:=xlDown
     Range("B" & b + 2 & ":C" & b + 2).Copy Destination:=Range("B" & b + 1)
    Application.CutCopyMode = False
    Range("D" & Z).Select
    X = X + 1
    End Sub



Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-


Torna a Applicazioni Office Windows


Topic correlati a "Creare una macro per inserimento appuntamenti?":


Chi c’è in linea

Visitano il forum: Nessuno e 6 ospiti