Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

macro cancella riga

Ultimo Aggiornamento: 18/06/2015 19:16
Post: 454
Registrato il: 18/02/2010
Città: MILANO
Età: 28
Utente Senior
excel 2003 / 2007
OFFLINE
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
Post: 1.708
Registrato il: 21/03/2008
Città: LOCATE VARESINO
Età: 76
Utente Veteran
2007 / 13
OFFLINE
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
Post: 458
Registrato il: 18/02/2010
Città: MILANO
Età: 28
Utente Senior
excel 2003 / 2007
OFFLINE
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
Post: 460
Registrato il: 18/02/2010
Città: MILANO
Età: 28
Utente Senior
excel 2003 / 2007
OFFLINE
13/06/2015 22:25

Salve
-------------------------------
excel 2003 ufficio / 2007 casa
Post: 2
Registrato il: 30/10/2010
Città: CESENATICO
Età: 72
Utente Junior
2013
OFFLINE
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
Post: 462
Registrato il: 18/02/2010
Città: MILANO
Età: 28
Utente Senior
excel 2003 / 2007
OFFLINE
14/06/2015 14:04

Ciao mariventi.
Grazie dovrebbe essere esatto, almeno qui a casa.
Grazie ancora,
xam
-------------------------------
excel 2003 ufficio / 2007 casa
Post: 463
Registrato il: 18/02/2010
Città: MILANO
Età: 28
Utente Senior
excel 2003 / 2007
OFFLINE
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
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 19:40. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com