mi servirebbe una macro che posizionadosi sulla prima cella vuota della colonna A mi inserisca una riga e che mi ci copiasse le formule della riga superiore, solo le formule non i dati inseriti manualmente.
Grazie anticipatamente
Moderatori: Anthony47, Flash30005
Sub CopiaRiga()
UR = Range("A" & Rows.Count).End(xlUp).Row + 1
Rows(UR & ":" & UR).Insert Shift:=xlDown
Range("B" & UR - 1 & ":IV" & UR - 1).AutoFill Destination:=Range("B" & UR - 1 & ":IV" & UR), Type:=xlFillDefault
End Sub
Sub CopiaRiga()
UR = Range("A" & Rows.Count).End(xlUp).Row
Rows(UR & ":" & UR).Copy Destination:=Rows(UR + 1 & ":" & UR + 1)
End Sub
ActiveSheet.ListObjects("Tabella1").ListRows.Add
Sub i_riga()
UR = Range("A" & Rows.Count).End(xlUp).Row + 1
Rows(UR & ":" & UR).Insert Shift:=xlDown
Range("A" & UR - 1 & ":IV" & UR - 1).AutoFill Destination:=Range("A" & UR - 1 & ":IV" & UR), Type:=xlFillDefault
End Sub
Sub i_riga()
UC = Range("IV1").End(xlToLeft).Column
UR = Range("A" & Rows.Count).End(xlUp).Row + 1
Rows(UR & ":" & UR).Insert Shift:=xlDown
With Range(Cells(UR - 1, 1), Cells(UR - 1, UC))
Set C = .Find("=", LookIn:=xlFormulas, LookAt:=xlPart)
If Not C Is Nothing Then
firstAddress = C.Address
RC = C.Row
CC = C.Column
Cells(RC, CC).Copy Destination:=Cells(RC + 1, CC)
Do
Set C = .FindNext(C)
If firstAddress = C.Address Then Exit Do
RC = C.Row
CC = C.Column
Cells(RC, CC).Copy Destination:=Cells(RC + 1, CC)
Loop While Not C Is Nothing And C.Address <> firstAddress
End If
End With
End Sub
UC = Range("IV1").End(xlToLeft).Column
Torna a Applicazioni Office Windows
Excel: formula automatica per evidenziare prodotto scaduto Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 3 |
Salvare file excel in formato html escludendo le immagini Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 10 |
formula excel non visualizza risultato Autore: tommasog |
Forum: Applicazioni Office Windows Risposte: 6 |
Inserimento valore di una cella in testo di altra cella Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 7 |
Macro che indica la riga prima della cella attiva Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 19 |
Visitano il forum: Nessuno e 82 ospiti