EXCEL macro per eliminare riga

[blunotte13]

Ciao a tutti, torno alla carica.
Finito finalmento il progetto fattura, mi cimento a creare un'agenda ma sono fermo da due gg e non riesco a trovare la soluzione, il problema è il seguente:
nel file denominato planning, ho inserito i fogli 1- rubrica, 2- agenda ( la data del gg è inserita nella cella A3 con formattazione gggg g aaaa hh.mm, che aggiorno tramite un pulsante di quando in quando così si aggiorna l'ora), 3- calendario, 4- appuntamenti, sono riuscito a creare la macro che, dal foglio appuntamenti, riporta la riga completa in agenda A13 aggiungendo la riga A13 ogni volta con la stessa formattazione della cella agenda A3 e li ordina in ordine decresente, vorrei sapere se esiste un modo per cancellare la riga agenda A13 aggiornando data e ora nella cella agenda A3,

cella agenda a3 ( data ora ) 06 febbraio 2010 18:35 ( ora aggiornata )
mi cancella tutta la riga
agenda a13 ( riga dell'appuntamento) 06 febbraio 2010 18:15

Spero di aver reso l'idea !

A presto ciao ciao !!

[Flash30005]

Potresti pubblicare il tuo file?
Impiegherei molto più tempo a ricreare i fogli come li hai tu che realizzare la macro che ti occorre.

Fai sapere
Ciao

[Anthony47]

Spero di aver reso l'idea !

Beh, non proprio chiaro chiaro chiaro....
Comunque se vuoi cancellare il contenuto della riga 13 va bene questa:

Codice: Seleziona tutto

    Rows("13:13").ClearContents   'oppure .Clear per cancellare anche formati e altro

Mentre se vuoi mettere l' orario in una cella, tra le tante soluzioni puoi usare questa:

Codice: Seleziona tutto

Range("A3").Value = Now()

Se non vuoi lavorare sul foglio "attivo", specificherai quale foglio, ad esempio

Codice: Seleziona tutto

Sheets("agenda"). Range("A3").Value = Now()


E se quanto detto non ti aiuta, posta ancora ma seguendo il suggerimento di Flash (vedi sopra)

Ciao.

[blunotte13]

Ciao a tutti, scusate per il modo chiaro in cui ho posto la domanda, ecco il ink al file in questione

http://rapidshare.com/files/347199298/c ... g.xls.html

Grazie per l'aiuto.

A presto ciao ciao !!

[blunotte13]

scusate per il modo chiaro

Naturalmente volevo scrivere poco chiaro ....

Ciao Ciao !!

[Anthony47]

Ma se hai gia' fatto una macro, quanto e' difficile integrarci le istruzioni che ti ho indicato?

Ciao.

[blunotte13]

Ciao, si le istruzioni che mi hai dato funzionano alla perfezione, solo che intendevo un'altra cosa, provo a fare un esempio forse riesco a spiegarmi meglio
nella cella a3 ( data ed ora corrente, che aggiorno tramite macro come la prima suggerita da te ) c'è scritto " 8 febbario 2010 16:00"
nella cella a13 ( data ed ora dell'impegno) c'è scritto " 8 febbraio 2010 15:00"

considerato che l'ora dell'impegno è passata, c'è modo per far si che una macro riconosca che in cella a13 c'è una data ed un orario antecedente all'ora attuale ed in automatico elimini la riga a13 ?

Spero di essere stato più chiaro dei post precedenti.

A presto ciao ciao !!

[Flash30005]

Beh, con un foglio è tutto molto più chiaro e semplice da realizzare
copia l'intero codice e inseriscilo in un modulo poi attiva la macro con un pulsante o con la selezione della cella A1 (rettangolo Oggi)

Codice: Seleziona tutto

Sub ControllaData()
If Worksheets("Agenda").Range("A13").Value < Worksheets("Agenda").Range("A3").Value Then
    Rows("13:13").Delete Shift:=xlUp
    Rows("30:30").Insert Shift:=xlDown
    Range("A13").Select
End If
End Sub


La macro oltre a cancellare la riga 13 aggiunge una riga più in basso altrimenti dopo qualche cancellazione ti troverai "Commissioni" alla riga 13 e il programma non funzionerebbe più.

Ciao

[blunotte13]

Grazie mille per la formula e per la modifica !

A presto ciao ciao !!