delete row

**john_cash** · 01-28-2021, 03:49 AM

Hi to all
In the attached workbook in sheet "articoli"

select a row from 6 down
click "delete row" button the row content is deleted

help with this change:

"nuovo articolo " sheet enter a value in cell D4
click "delete row" button the row content in "articles" sheet is deleted

I hope to be explained
thanks
john

**mohadin** · 01-28-2021, 04:26 AM

Hi
Try

Please Login or Register  to view this content.

**Bo_Ry** · 01-28-2021, 04:34 AM

Please try

Please Login or Register  to view this content.

**tax112** · 01-28-2021, 04:49 AM

Try

HTML Code:

**sintek** · 01-28-2021, 05:45 AM

click "delete row" button the row content in "articles" sheet is deleted

As it is from dropdown...Assumes entry does exist

Please Login or Register  to view this content.

**john_cash** · 01-28-2021, 07:56 AM

Hi

I added this but it doesn't work

Please Login or Register  to view this content.

Please Login or Register  to view this content.

**john_cash** · 01-28-2021, 09:45 AM

Not work here

Please Login or Register  to view this content.

Please Login or Register  to view this content.

**sintek** · 01-28-2021, 09:48 AM

Have you tried any of the solutions provided...You seem to be just posting code that doesn't work...

**john_cash** · 01-28-2021, 09:52 AM

This his the workbook

**sintek** · 01-28-2021, 10:01 AM

What are you actually wanting...

Your first post says ... Clear the contents of the row that has the value AA123463 in articoli sheet...
For this solutions were provided...Did you try any of these solutions...

**john_cash** · 01-28-2021, 10:19 AM

i am trying bo_ry solution which works
i added this to work in another workbook

Please Login or Register  to view this content.

errore here

If sComm2 = 0 Then

error 13 mismatched type

**sintek** · 01-28-2021, 10:29 AM

Don't get it...I'm outta here...good luck...

**Bo_Ry** · 01-28-2021, 10:58 AM

You dim sComm2 as string, you need to compare with string

if you need to compare with 0 don't dim sComm2 as string

Just

Dim sComm1, sComm2 'As String

**john_cash** · 01-28-2021, 11:34 AM

Thanks you bo_ry
A greeting
john

**john_cash** · 01-30-2021, 03:03 PM

Hi try in another workbook and the macro of bo_ry and tax111 not work.
you can edit this macro in workbook post#1

Please Login or Register  to view this content.

change this

not

Nriga = ActiveCell.Row

but

in sheet nuovo articolo cell D4

I hope I have explained
thank you
john

**john_cash** · 01-30-2021, 04:27 PM

I changed this:

Please Login or Register  to view this content.

error here

Application.ScreenUpdating = False

Nriga = SComm2 '<<<<<<<

Application.EnableEvents = False

mismatched type

**john_cash** · 01-31-2021, 04:29 AM

Hi to all
I have edited the macro and it works
I added a macro

rimetti_formula

to put the formulas back after deleting the rows.
It is very slow.
Is it possible to change to be faster?

**sintek** · 01-31-2021, 05:23 AM

Doubt you going to get any results...You explained a requirement in post 1 which was solved...Since then all you have been doing in posting code that does not work and up to now...No further explanation of what it is you are actually trying to achieve...

Perhaps if you explain with step by step explanation...someone might be able to offer a simplistic solution...

Eg...

I make a selection from drop down...
Code must then go find that selection in other sheet
Code must then clear the row
Code must then .... etc etc etc

Why are you deleting the formulas in that row anyway...Just clear the data leave formulas in tact
Also why re-populate entire 5000 rows with formulas again
You also only have data till row 2604???

All this is slowing down your process...

**john_cash** · 01-31-2021, 05:46 AM

I choose a value in D4 "nuovo articolo" sheet
if present row number in F4 (no 0)
click on the "DELETE ROW" button
the row in the "articoli" sheet is deleted from column B onwards
the formulas in the "articoli" sheet are updated with the macro "rimetti_formula"
the "rimetti_formula" macro is very slow, 2604 row to update
I hope it is understandable
john

**sintek** · 01-31-2021, 05:48 AM

Why are you deleting the formulas in that row anyway...Just clear the data leave formulas in tact
You are just overwriting the formulas with same formulas???

Please Login or Register  to view this content.

**john_cash** · 01-31-2021, 08:01 AM

Thanks you sintek
The your macro work.
It is possible for my macro to add a change:
this macro "rimetti formula" puts the formulas back in the whole range
you can only put back formulas only for the deleted row

Please Login or Register  to view this content.

**sintek** · 01-31-2021, 08:09 AM

You don't need to...The code is not deleting the formulas... no need to put formulas in again...Already there???

**john_cash** · 01-31-2021, 08:43 AM

Sorry sintek.
Your macro works fine
I am testing your macro in another workbook which after deleting the row and re-entering the formulas in this workbook other values are inserted and it shouldn't.
The only way for this not to happen is to modify the "put back formula" macro for only the deleted row
I tried to edit the macro, this is only for row 2602

Please Login or Register  to view this content.

**sintek** · 01-31-2021, 08:52 AM

I am testing your macro in another workbook which after deleting the row and re-entering the formulas in this workbook other values are inserted and it shouldn't.

Nope...Don't get it sorry...Perhaps someone else can make sense of what you want to do...

My code does not delete the formulas?????
Have no idea what your new requirement is for other workbook...

**john_cash** · 01-31-2021, 09:10 AM

Thanks the same sintek, post another thread
A greeting
john

**john_cash** · 01-31-2021, 12:40 PM

After some testing I found this

Application.EnableEvents = False
Application.EnableEvents = True

Please Login or Register  to view this content.

now works.
Thanks sintek

**sintek** · 01-31-2021, 12:51 PM

Gee...Glad you finally got it sorted...
If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED.

**john_cash** · 02-09-2021, 04:00 PM

Hi,
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
thnak you
john

**john_cash** · 02-10-2021, 12:04 PM

Hi,
i managed to add the macro it deletes in the sheet "ordina_mail" the same row on the sheet "articoli"
Now I don't know how to delete the rows that are left blank in the sheet "ordina_mail"

**john_cash** · 02-11-2021, 10:41 AM

Hi I added this part to the macro

Please Login or Register  to view this content.

after deleting the row in the sheet "ordina_mail" this macro sorts ascending and removes the empty rows.

There is a problem with this part of the macro

Please Login or Register  to view this content.

if the row to be deleted with

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

it is not present in the sheet "ordina_mail "but only in the sheet "articoli"

gives error here

X2 = Application.Match(Sheets("inserisci_elimina_articolo").Range("D4").Value, Sheets("ordina_mail").Range("B:B"), 0)
to solve I added

On Error Resume Next

is there another way?
I hope I have explained
Thanks you
john

delete row

Re: delete row

Re: delete row

Re: delete row

Re: delete row

Re: delete row

Re: delete row

Re: delete row

Re: delete row

Re: delete row

Re: delete row

Re: delete row

Re: delete row

Re: delete row

Re: delete row

Re: delete row

Re: delete row

Re: delete row

Re: delete row

Re: delete row

Re: delete row

Re: delete row

Re: delete row

Re: delete row

Re: delete row

Re: delete row

Re: delete row

Re: delete row

Re: delete row

Re: delete row

Thread Information

Users Browsing this Thread

Similar Threads

[SOLVED] Adding delete code on userform to delete a row on sheet by selecting item on a listbox

[SOLVED] Re: Macro to delete sheets and saves remaining file does not properly delete module

Bookmarks

Bookmarks

Posting Permissions