| | 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 |
|
|