| | Post: 82 | Registrato il: 20/02/2015
| Età: 50 | Utente Junior | 2007 / 2010 | | OFFLINE | |
|
01/04/2021 18:01 | |
salve a tutti
se ho delle righe occupate a cui voglio intervallare delle righe vuote come posso fare ?
nel file allegato da A1 a G10 quello che ho, da H1 a O20 come lo vorrei
Se non è troppo complesso anche l'opzione di 2 righe vuote ogni una piena |
|
| | Post: 2.204 | Registrato il: 10/10/2013
| Città: VICENZA | Età: 69 | Utente Veteran | 365 | | OFFLINE |
|
01/04/2021 18:36 | |
ciao
metti in K1 il numero di righe che vuoi inserire
in un modulo
Sub alternaDue()
Righe = Range("K1").Value
Uriga = Cells(Rows.Count, "A").End(xlUp).Row
For N = Uriga To 1 Step -1
If Cells(N, 1).Value <> "" Then
Rows(N + 1 & ":" & N + Righe).Insert
End If
Next N
End Sub
e poi lanciala |
| | Post: 2.205 | Registrato il: 10/10/2013
| Città: VICENZA | Età: 69 | Utente Veteran | 365 | | OFFLINE |
|
01/04/2021 18:40 | |
forse è meglio questa
Sub alternaDue()
Righe = InputBox("Inserire n° righe")
Uriga = Cells(Rows.Count, "A").End(xlUp).Row
For N = Uriga To 1 Step -1
If Cells(N, 1).Value <> "" Then
Rows(N + 1 & ":" & N + Righe).Insert
End If
Next N
End Sub
se la lanci ti esce una inputbox
scrivi il numero di righe che vuoi
e dai OK |
| | Post: 82 | Registrato il: 20/02/2015
| Età: 50 | Utente Junior | 2007 / 2010 | | OFFLINE | |
|
01/04/2021 18:41 | |
federico460, 01/04/2021 18:36:
ciao
metti in K1 il numero di righe che vuoi inserire
in un modulo
Sub alternaDue()
Righe = Range("K1").Value
Uriga = Cells(Rows.Count, "A").End(xlUp).Row
For N = Uriga To 1 Step -1
If Cells(N, 1).Value <> "" Then
Rows(N + 1 & ":" & N + Righe).Insert
End If
Next N
End Sub
e poi lanciala
grazie
solo con macro è fattibile ?
|
| | Post: 2.206 | Registrato il: 10/10/2013
| Città: VICENZA | Età: 69 | Utente Veteran | 365 | | OFFLINE |
|
01/04/2021 18:49 | |
ciao
usa la seconda è meglio
puoi anche inserirle a mano🤣
a parte gli scherzi con formula ce la faresti
ma non puoi inserire righe
solo creare un'altra tabella
|
| | Post: 83 | Registrato il: 20/02/2015
| Età: 50 | Utente Junior | 2007 / 2010 | | OFFLINE | |
|
01/04/2021 19:35 | |
federico460, 01/04/2021 18:40:
se la lanci ti esce una inputbox
scrivi il numero di righe che vuoi
e dai OK
metto il n., ma non va
|
| | Post: 2.207 | Registrato il: 10/10/2013
| Città: VICENZA | Età: 69 | Utente Veteran | 365 | | OFFLINE |
|
01/04/2021 20:13 | |
ciao
clicca sul pulsante
metti il numero |
| | Post: 1.027 | Registrato il: 15/01/2016
| Città: ROMA | Età: 51 | Utente Veteran | 2016 | | OFFLINE |
|
01/04/2021 21:56 | |
ciao a tutti
si può fare anche con le formule....(chiaramente non sulla stessa struttura )in H1 metto una convalida per scegliere il numero di righe vuote
in J1 da trascinare a destra e poi in basso
=SE.ERRORE(SE(RESTO(RIF.RIGA($A1);$H$1+1)=1;INDICE($A$1:$G$100;QUOZIENTE(RIF.RIGA($A1)-1;$H$1+1)+1;RIF.COLONNA(A$1));"");"")&""[Modificato da DANILOFIORINI 01/04/2021 22:09] |
|
|