Hi,
I'm new in Vba.
I have a question how if I want to Auto Fill Row based on cell value and auto delete shift cell up based on cell value too.
can anyone help me?
thanks before
Hi,
I'm new in Vba.
I have a question how if I want to Auto Fill Row based on cell value and auto delete shift cell up based on cell value too.
can anyone help me?
thanks before
Last edited by morr1; 03-14-2017 at 06:53 PM. Reason: Not solved yet
Hi morr1
Welcome to the Forum!!!
Try replacing your Command Button Code with this...
Please Login or Register to view this content.
John
If you have issues with Code I've provided, I appreciate your feedback.
In the event Code provided resolves your issue, please mark your Thread as SOLVED.
If you're satisfied by any members response to your issue please use the star icon at the lower left of their post.
Hi John,many thanks for your help.
your code work for delete shift cell up.
but your code for auto fill value is work in too many cell.
i just hope auto fill only work for the last row based on coloumn F or coloumn H (wich one have more last row)
i apreciate that you can help me again.
thanks
Hi morr1
The Code worked as I expected on the test file. Apparently it does not work as you expect.
So, if you will, please attach the offending file...with code and expected results...I'll look at it.
Im sorry john or jaslake.
Code work perfectly.
It's my fault not delete text on sample file.
Inside box "hope".
Thanks again for your help john or jaslake.
Hi morr1
It's John...I suspected there was an outlier in the File such that Last Row was being distorted...glad you got it resolved.
If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED.
You're welcome...glad I could help. If you're satisfied by any members response to your issue please use the star icon at the lower left of their post.
Sorry john.
I want to ask again.
Why if i change my date.
Its always copy from A2.
And when I entry reject in another day.
That reject become going up to yesterday row.
I really confuse to try.
Can you help me again please.
Last edited by morr1; 03-13-2017 at 11:29 PM.
Morr1...I have no idea what you're referring to...SHOW ME the offending File...EXPLAIN what's happening. If I can see it and duplicate it perhaps we can fix it...maybe...
Ok John.
This is my document.
Last edited by morr1; 03-13-2017 at 11:29 PM.
Hi morr1
Try this Code in the attached...let me know.
Please Login or Register to view this content.
there is something strange if I Fill Blank 2 value, in coloumn F or H.
if only 1 value blank,its perfect delete the cell and beside that cell.
but if there are 2 value blank its still remain one cell and beside that cell not delete.
Hi morr1
You'll need to show me...I don't "see" it from your description.
it look the code for delete can't work twice or more
With ws2
LR = .Range("E" & .Rows.Count).End(xlUp).Row
For Each cel In .Range("E" & NextRow & ":E" & LR)
If cel.Offset(0, 1).Value = "" Then
.Range(cel.Address).Resize(1, 2).Delete Shift:=xlUp
End If
Next cel
is this code can be loop until cel.Offset(0, 1).Value >0 ?
Hi Morr1
Let's try it one more time with this Code...
Please Login or Register to view this content.
wow.
you did it John.
many many big thanks for your help.
I hope someday i can be like you in vba.
thanks again and see u
You're welcome...glad I could help. Thanks for the Rep.
If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks