vba, macro, shift down after autofilter

[mawar5530]

Hi Friends,

I am new to vba, really need help to find solution.
After autofilter the selction of "Poitem" example, i want to change G coloumn number beloging to "Poitem" to "zero" value
i dont find any way to offset, because the range keep on changing acording to report, so the offset not working for me.

 

[vmjan02]

Please ensure you use code.

add these lines before end sub.

range("A" & Rows.Count).End(xldown).select
activecell.offect(1,0).select

 

[mawar5530]

Thank you for your prompt reply.
But the code not working, even i have try similar code as well.
my problem to find the range after filter field in column g.
Please try to help!

Appreciate it very much.

 

[vmjan02]

its
activcell.offset(1,0).select

typo error

 

[MARK858]

Try

Range("G2:G" & Range("G" & Rows.Count).End(xlUp).Row).SpecialCells(12).Select

If you just want to add 0 to the cells then

Range("G2:G" & Range("G" & Rows.Count).End(xlUp).Row).SpecialCells(12).Value = 0

@mawar5530, in future can you please post your code directly in the thread (using code tags) so we can copy/paste it please as we can't from an image. Instructions on using code tags are in my signature block below.

 

[mawar5530]

wht?

 

[mawar5530]

Try

Range("G2:G" & Range("G" & Rows.Count).End(xlUp).Row).SpecialCells(12).Select

If you just want to add 0 to the cells then

Range("G2:G" & Range("G" & Rows.Count).End(xlUp).Row).SpecialCells(12).Value = 0

@mawar5530, in future can you please post your code directly in the thread (using code tags) so we can copy/paste it please as we can't from an image. Instructions on using code tags are in my signature block below.

Ok understand and thank you for reply.

i will try test and see.

 

[mawar5530]

Try

Range("G2:G" & Range("G" & Rows.Count).End(xlUp).Row).SpecialCells(12).Select

If you just want to add 0 to the cells then

Range("G2:G" & Range("G" & Rows.Count).End(xlUp).Row).SpecialCells(12).Value = 0

@mawar5530, in future can you please post your code directly in the thread (using code tags) so we can copy/paste it please as we can't from an image. Instructions on using code tags are in my signature block below.

thanks a lot, i really appreciated it work for me.

I will keep learning from this wonderful platform.

Regards,
Mawar

 

[MARK858]

Happy it helped and welcome to the forum.

If you have no manually hidden rows in the Autofilter range you can omit the SpecialCells(12) to make it a bit shorter i.e.

Range("G2:G" & Range("G" & Rows.Count).End(xlUp).Row).Select

 

[mawar5530]

ok great, tq MARK858