msg da correggere

Versione Completa Stampa Cerca Utenti Iscriviti Condividi :

Excel Forum » Excel Forum » » Soluzioni Excel Domande e Risposte

john_cash

00domenica 25 settembre 2016 20:50

Ciao a tutti.
Questa macro:

Option Explicit

Sub elimina_riga()

Dim n

n = ActiveCell.Row
Application.EnableEvents = False
ActiveSheet.Unprotect "123456"

MsgBox "elimino il contenuto della riga selezionata < " & ActiveCell.Row & " > selezionata?"

Selection.EntireRow.Delete
Selection.EntireRow.ClearContents 'elimina più di una riga

'Rows(n).EntireRow.ClearContents 'elimina solo una riga
'ActiveSheet.Protect "123456"

 Rows(n).Cells(1).Select 'seleziona cella
 
Application.EnableEvents = True

End Sub

elimina la riga selezionata.
Ho aggiunto un mgbox per indicare la riga.
Chiedo un aiuto per aggiungere nel msg box:
se clicco ok prosegue e cancella la riga
se glicco no non canella la riga e si chiude il msgbox.
Un grazie in anticipo.
john

rollis13

00domenica 25 settembre 2016 22:29

Aggiungi queste poche righe in più (l'informazione la trovai nell'Aiuto di Excel cercando la voce MsgBox).
Attenzione che in caso di selezione di più celle la tua macro elimina tutte le righe segnalate a prescindere dal numero riportato nel messaggio.

Option Explicit

Sub elimina_riga()

    Dim n
    Dim risposta    '<- nuova
    
    n = ActiveCell.Row
    'Application.EnableEvents = False   '<- non serve
    ActiveSheet.Unprotect "123456"
    
    risposta = MsgBox("Elimino il contenuto della riga < " & ActiveCell.Row & " > selezionata ?", vbYesNo)  '<- modificata
    If risposta = vbYes Then    '<- nuova
        Selection.EntireRow.Delete
    End If  '<- nuova

    'ActiveSheet.Protect "123456"
    Rows(n).Cells(1).Select    'seleziona cella
    'Application.EnableEvents = True    '<- non serve

End Sub

john_cash

00martedì 27 settembre 2016 18:27

Ciao,
grazie rollis è o.k. [SM=g27811]

In saluto.
john

rollis13

00martedì 27 settembre 2016 19:12

Grazie del tuo riscontro positivo, è un piacere sapere d'essere stato d'aiuto. [SM=g27823]

Questa è la versione 'lo-fi' del Forum Per visualizzare la versione completa clicca qui
Tutti gli orari sono GMT+01:00. Adesso sono le 14:34.