Moderatori: Anthony47, Flash30005
Rows("5:5").Insert Shift:=xlDown
Private Sub Worksheet_Change(ByVal Target As Range)
CheckArea = "N1:N150"
If Not Application.Intersect(ActiveCell, Range(CheckArea)) Is Nothing Then
If (Selection.Rows.Count + Selection.Columns.Count) > 2 Then Exit Sub
Application.EnableEvents = False
If Target <> "" Then
Riga = Target.Row + 1
Rows(Riga).Insert Shift:=xlDown
End If
End If
Application.EnableEvents = True
End Sub
gio969 ha scritto:ok, la colonna è la N
quindi se in dalla cella 1 alla cella 150 di tale colonna inserisco una qualsiasi lettera o simbolo deve essere aggiunta una riga vuota sotto.
grazie:)
La macro copia integralmente le colonne, qualsiasi sia il numero di righe e in qualsiasi momento queste righe siano state aggiunte; in che modo aggiungerle in realtime ti manda in crisi?fai conto che utilizzando la mia macro io estrapolo i dati e li incollo su un nuovo foglio.
For I = 150 To 1 Step -1
If Cells(I, "N") <> "" Then Cells(I + 1, 1).EntireRow.Insert
Next I
'Columns("N:N").ClearContents '<<<
Torna a Applicazioni Office Windows
Ordinare colonne sulla stessa riga se stesso contenuto Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 10 |
Macro modifica date scelta periodo Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 11 |
Supporto per sviluppo macro VBA Ordinare per data Autore: Carletto Ribolla |
Forum: Applicazioni Office Windows Risposte: 3 |
Inserire add.in nella barra di avvio veloce in excel 2003 Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 4 |
Visitano il forum: raimea e 22 ospiti