Hi to all
This macro
deletes the row sheet "articoli" inserted in the sheet "nuovo articolo" cell D4.
Please Login or Register to view this content.
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
You could just clear the contents instead of replacing the formulas again.
Please Login or Register to view this content.
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
You can add this line to your code.
Please Login or Register to view this content.
Thanks you davesexcel.
A greeting
john
Hi,
I inserted the change to the macro.
It almost works wellPlease Login or Register to view this content.
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
I hope I have explained.Please Login or Register to view this content.
There was no formula in your sheet email sheet so I wasn't too concerned about it.
Try this.
Please Login or Register to view this content.
The one line will help you decide what cells to clear from the found row.
Once you run it you will see how it works.
Undefined variable compilation error
Please Login or Register to view this content.
Last edited by AliGW; 02-12-2021 at 08:27 AM.
Yep, you need to dim fRng as range at the top.
entere rowPlease Login or Register to view this content.
.Range("A" & fRng.Row).Range("L1").ClearContents
not work
Last edited by john_cash; 02-11-2021 at 03:19 PM.
Ops
.Range("A" & fRng.Row).Range("A1:L1").ClearContents
Please Login or Register to view this content.
Are you asking a question?
It's this correct for the whole row?
.Range("A" & fRng.Row).Range("A1:L1").ClearContents
What happens when you try it?
Delete entere row
Is that what the code looks like in post 7?
Hi,
there are no formulas in the sheet "ordina_mail" and the macro must delete the contents of the whole row
Experiment with the codePlease Login or Register to view this content.
Last edited by davesexcel; 02-12-2021 at 08:02 AM.
I ask for confirmation if it is correct
If it works like it is supposed to then it would be correct.
Okay davesexcel
A greeting
john
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
,
Bookmarks