Hi,

I have Sheet1, where I put the filtered data from DailyPurchasing
sheet CategoryWise, it is variable data, every time the no. of rows
are different.
then I copy into Sheet1.

I made a macro to delete all the empty rows after the data is placed.
see my procedure.

Selection.End(xlDown).Select (after this line I need an other
line to delete variable data, because it is always changed. some time
15 rows and some time 50 rows are filtered.

the given below procedure deletes the data from A17. which is not
good.
I dont understand how to fix this problem.

pls help me out.


Sub DelRows()

Range("A4").Select
Selection.End(xlDown).Select
Range("A17").Select ' <== this should be some thing
else
Range(Selection, Selection.End(xlDown)).Select
Selection.EntireRow.Delete
Range("A4").Select

End Sub

Regards.

Shahzad

Sub DelRows()
With ActiveSheet
Set LastCell = .Range("A" & Rows.Count).End(xlUp)
.Range(.Range("A4"),
LastCell).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
End Sub

"Shazi" wrote:

> Hi,
>
> I have Sheet1, where I put the filtered data from DailyPurchasing
> sheet CategoryWise, it is variable data, every time the no. of rows
> are different.
> then I copy into Sheet1.
>
> I made a macro to delete all the empty rows after the data is placed.
> see my procedure.
>
> Selection.End(xlDown).Select (after this line I need an other
> line to delete variable data, because it is always changed. some time
> 15 rows and some time 50 rows are filtered.
>
> the given below procedure deletes the data from A17. which is not
> good.
> I dont understand how to fix this problem.
>
> pls help me out.
>
>
> Sub DelRows()
>
> Range("A4").Select
> Selection.End(xlDown).Select
> Range("A17").Select ' <== this should be some thing
> else
> Range(Selection, Selection.End(xlDown)).Select
> Selection.EntireRow.Delete
> Range("A4").Select
>
> End Sub
>
> Regards.
>
> Shahzad
>

Warning: See
http://www.rondebruin.nl/specialcells.htm

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Joel" <(E-Mail Removed)> wrote in message news:7EDA7A0F-B796-4FBB-ABC9-(E-Mail Removed)...
> Sub DelRows()
> With ActiveSheet
> Set LastCell = .Range("A" & Rows.Count).End(xlUp)
> .Range(.Range("A4"),
> LastCell).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
> End With
> End Sub
>
> "Shazi" wrote:
>
>> Hi,
>>
>> I have Sheet1, where I put the filtered data from DailyPurchasing
>> sheet CategoryWise, it is variable data, every time the no. of rows
>> are different.
>> then I copy into Sheet1.
>>
>> I made a macro to delete all the empty rows after the data is placed.
>> see my procedure.
>>
>> Selection.End(xlDown).Select (after this line I need an other
>> line to delete variable data, because it is always changed. some time
>> 15 rows and some time 50 rows are filtered.
>>
>> the given below procedure deletes the data from A17. which is not
>> good.
>> I dont understand how to fix this problem.
>>
>> pls help me out.
>>
>>
>> Sub DelRows()
>>
>> Range("A4").Select
>> Selection.End(xlDown).Select
>> Range("A17").Select ' <== this should be some thing
>> else
>> Range(Selection, Selection.End(xlDown)).Select
>> Selection.EntireRow.Delete
>> Range("A4").Select
>>
>> End Sub
>>
>> Regards.
>>
>> Shahzad
>>

On 25 Jun, 22:12, "Ron de Bruin" <rondebr...@kabelfoon.nl> wrote:
> Warning: Seehttp://www.rondebruin.nl/specialcells.htm
>
> --
>
> Regards Ron de Bruinhttp://www.rondebruin.nl/tips.htm
>
>
>
> "Joel" <J...@discussions.microsoft.com> wrote in messagenews:7EDA7A0F-B796-4FBB-ABC9-(E-Mail Removed)...
> > Sub DelRows()
> > * With ActiveSheet
> > * *Set LastCell = .Range("A" & Rows.Count).End(xlUp)
> > * *.Range(.Range("A4"),
> > LastCell).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
> > * End With
> > End Sub
>
> > "Shazi" wrote:
>
> >> Hi,
>
> >> I have Sheet1, where I put the filtered data from DailyPurchasing
> >> sheet CategoryWise, it is variable data, every time the no. of rows
> >> are different.
> >> then I copy into Sheet1.
>
> >> I made a macro to delete all the empty rows *after the data is placed.
> >> see my procedure.
>
> >> * * Selection.End(xlDown).Select * (after this line I need an other
> >> line to delete variable data, because it is always changed. some time
> >> 15 rows and some time 50 rows are filtered.
>
> >> the given below procedure deletes the data from A17. which is not
> >> good.
> >> I dont understand how to fix this problem.
>
> >> pls help me out.
>
> >> Sub DelRows()
>
> >> * * Range("A4").Select
> >> * * Selection.End(xlDown).Select
> >> * * Range("A17").Select * * * * * * * ' <== thisshould be some thing
> >> else
> >> * * Range(Selection, Selection.End(xlDown)).Select
> >> * * Selection.EntireRow.Delete
> >> * * Range("A4").Select
>
> >> End Sub
>
> >> Regards.
>
> >> Shahzad- Hide quoted text -
>
> - Show quoted text -

Thank you Rone, you have given me good suggession. I like it.
I learn lot of things from your website, and I love you.

Regards.

Shahzad