È soltanto un Pokémon con le armi o è un qualcosa di più? Vieni a parlarne su Award & Oscar!

Excel Forum Per condividere esperienze su Microsoft Excel

macro cancella riga

  • Messaggi
  • OFFLINE
    xam99
    Post: 454
    Registrato il: 18/02/2010
    Città: MILANO
    Età: 28
    Utente Senior
    excel 2003 / 2007
    00 27/05/2015 23:08
    Salve a tutti,
    cerco una macro che faccia questo:

    --------------------------------------------------------------
    seleziono una riga esempio riga 5
    clicco nel pulsante
    la macro cancella i dati da B5 a H5 lasciando la cella A5
    --------------------------------------------------------------

    allego l'esempio.
    Un grazie in anticipo.
    xam
    -------------------------------
    excel 2003 ufficio / 2007 casa
  • OFFLINE
    locatevaresino
    Post: 1.708
    Registrato il: 21/03/2008
    Città: LOCATE VARESINO
    Età: 76
    Utente Veteran
    2007 / 13
    00 28/05/2015 00:04
    ciao

    Sub Canc_B_H()
    Dim Nriga As Long
    Nriga = ActiveCell.Row
    Range(Cells(Nriga, "B"), Cells(Nriga, "H")).ClearContents
    End Sub


    Ciao da locate
    excel 2007 / 13
  • OFFLINE
    xam99
    Post: 458
    Registrato il: 18/02/2010
    Città: MILANO
    Età: 28
    Utente Senior
    excel 2003 / 2007
    00 12/06/2015 19:08
    Ciao locate,
    la macro da te inserita funaziona.
    Chiedo una modifica.
    Ora selezionando una riga elimina la riga da B ad H e fin qui va bene, ma elimina solo 1 riga.
    La modifica che chiedo è che seleazionndo più di una riga me le elimini.
    Spero di essermi spiegato.
    Allego l'esempio.
    xam
    -------------------------------
    excel 2003 ufficio / 2007 casa
  • OFFLINE
    xam99
    Post: 460
    Registrato il: 18/02/2010
    Città: MILANO
    Età: 28
    Utente Senior
    excel 2003 / 2007
    00 13/06/2015 22:25
    Salve
    -------------------------------
    excel 2003 ufficio / 2007 casa
  • OFFLINE
    mariventi
    Post: 2
    Registrato il: 30/10/2010
    Città: CESENATICO
    Età: 72
    Utente Junior
    2013
    00 14/06/2015 12:35
    Ciao xam,
    questo il codice.
    Fammi sapere


    Sub cancellarighe() ' su selezione di una o più righe
    Dim myaddress As String, a1 As String, a2 As String, x As Integer
    myaddress = Selection.Address(False, False)
    x = InStr(myaddress, ":")
    a2 = Mid(myaddress, x + 1)
    a1 = Left(myaddress, Len(myaddress) - Len(a2) - 1)
    myaddress = "B" & a1 & ":" & "H" & a2
    Range(myaddress).ClearContents
    End Sub
    Excel 2010
  • OFFLINE
    xam99
    Post: 462
    Registrato il: 18/02/2010
    Città: MILANO
    Età: 28
    Utente Senior
    excel 2003 / 2007
    00 14/06/2015 14:04
    Ciao mariventi.
    Grazie dovrebbe essere esatto, almeno qui a casa.
    Grazie ancora,
    xam
    -------------------------------
    excel 2003 ufficio / 2007 casa
  • OFFLINE
    xam99
    Post: 463
    Registrato il: 18/02/2010
    Città: MILANO
    Età: 28
    Utente Senior
    excel 2003 / 2007
    00 18/06/2015 19:16
    Ciao a tutti.
    La macro di mariventi funziona quasi bene.
    Se seleziono tutta la riga va bene, se seleziono una cella della riga da eliminare dà errore.
    Ho inserito On error resume next per non visualizzare il debug. 

    Option Explicit

Sub cancellarighe() ' mariventi su selezione di una o più righe

Dim myaddress As String, a1 As String, a2 As String, x As Integer
Dim Nriga As Long

Nriga = ActiveCell.Row

On Error Resume Next

myaddress = Selection.Address(False, False)
x = InStr(myaddress, ":")
a2 = Mid(myaddress, x + 1)
a1 = Left(myaddress, Len(myaddress) - Len(a2) - 1)
myaddress = "B" & a1 & ":" & "H" & a2
Range(myaddress).ClearContents

End Sub


    si può correggere o al limite visualizzare un avviso che dica "devi selezionare una riga e non una cella?"
    Grazie,
    xam
    -------------------------------
    excel 2003 ufficio / 2007 casa
Soluzioni Excel Domande e Risposte
Passa alla versione desktop

  • Anteprima