delete row and enter formula

Hi to all
This macro

Option Explicit


'=SE.ERRORE(CONFRONTA(D4;articoli!B6:B8000;0)+5;0)


Sub Canc_A_O_1_riga_new() 'mine



Dim Nriga As Long
Dim n As Long
   'Dim x As Long
Dim avviso As String

Dim SComm1, SComm2 As String



SComm1 = Sheets("nuovo_articolo").Range("D4").Value
SComm2 = Sheets("nuovo_articolo").Range("F4").Value




If ActiveSheet.Range("F4").Value = 0 Then
avviso = MsgBox("Sign. " & Environ("UserName") & Chr(13) & "inserisci un'articolo da eliminare," & Chr(13) & _
"l'articolo inserito < " & SComm2 & " > " & Chr(13) & _
"non è presente in foglio < articoli >!", _
  vbInformation + vbOKOnly + vbDefaultButton2, "AVVISO")
Exit Sub
End If



avviso = MsgBox("elimino l'articolo < " & SComm1 & " > in riga < " & SComm2 & _
" > ? ", vbYesNo + vbExclamation, "ATTENZIONE!")
If avviso = vbNo Then
Exit Sub
End If




Sheets("articoli").Select




ActiveSheet.Unprotect "123456"

Application.ScreenUpdating = False

Nriga = SComm2

Application.EnableEvents = False
               

Range(Cells(Nriga, "B"), Cells(Nriga, "Q")).ClearContents

Application.EnableEvents = True




Call rimetti_formula

'Call formula_2


ActiveSheet.Protect "123456"



Sheets("nuovo_articolo").Select


Sheets("nuovo_articolo").Range("D4").Select
Selection.ClearContents


Application.ScreenUpdating = True


End Sub

deletes the row sheet "articoli" inserted in the sheet "nuovo articolo" cell D4.
after deleting the row the formulas of the deleted row are inserted with this macro

Call rimetti_formula

this macro puts the formulas back across the range and is very slow.
this macro is possible only for the deleted row?
I hope I have explained
thank you
john

Hi davesexcel your macro work well.
I added a sheet "ordina_mail" to the workbook and request a change.
if the same row deleted with the macro is also present in the sheet "ordina_mail" delete this too
thank you
john

Thanks you davesexcel.
A greeting
john

Hi,
I inserted the change to the macro.

'---------------------------------------------------------------------------------------
'elimina riga foglio ordina_mail

 Sheets("ordina_mail").Select
 Sheets("ordina_mail").Unprotect "123456"


 fnd = Sheets("inserisci_elimina_articolo").Range("D4").Value

        
Sheets("ordina_mail").Columns(2).Find(fnd).EntireRow.ClearContents
    
Sheets("ordina_mail").Protect "123456"

'---------------------------------------------------------------------------------------

It almost works well

if D4

fnd = Sheets("inserisci_elimina_articolo").Range("D4").Value

is not present in the sheet "ordina_mail"

Sheets("ordina_mail").Columns(2).Find(fnd).EntireRow.ClearContents

it gives an error.

I intered .EntireRow.ClearContents
Sheets("ordina_mail").Columns(2).Find(fnd).EntireRow.ClearContents
because the macro was deleting formulas
and to delete blank rows there is this macro

'---------------------------------------------------------------------------------------
'elimina righe vuote foglio ordina_mail con ordina crescente

'Dim RngArr, i As Long

Sheets("ordina_mail").Select
Sheets("ordina_mail").Unprotect "123456"


  'RngArr = Array("A2:H31", "A32:H61", "A62:H86")
RngArr = Array("A3:L150")


For i = LBound(RngArr) To UBound(RngArr)
    Range(RngArr(i)).Sort Range(RngArr(i)).Cells(12), xlAscending 'ordina per colonna 12/L
Next i

Sheets("ordina_mail").Protect "123456"

'--------------------------------------------------------------------------------------

I hope I have explained.

Ops

.Range("A" & fRng.Row).Range("A1:L1").ClearContents

With Sheets("ordina_mail")
    Set fRng = .Columns(2).Find(fnd)
    If Not fRng Is Nothing Then
        .Unprotect "123456"
        .Range("A" & fRng.Row).Range("A1:L1").ClearContents
        .Protect "123456"
    End If
End With

It's this correct for the whole row?

.Range("A" & fRng.Row).Range("A1:L1").ClearContents

Hi,
there are no formulas in the sheet "ordina_mail" and the macro must delete the contents of the whole row

Delete entere row