Summarizing the data base

MaxHa

New Member
Joined
Jan 16, 2017
Messages
3
Hi,

Can someone please advise how to proceed?


I have a data base including 3 columns and 22000 rows. In the first column I manually add value=1 for which cells in the second column that is critical and leave the rest of the cells empty.


In another sheet, I need to summarize this data base for another purpose. So only the cells(in the second column) with value 1 is important for me.


If i use "If" formula combined with v lookup, something like +IF(MATRIX!A:A=1,V LOOKUP(MATRIX!B:B, MATRIX!B:E,1,0),) it will still give me the empty cells as well and I will have another file with 22000 rows while I only need the critical ones.


Thoughts?



A000062

<tbody>
</tbody>
Truck Chassis

<tbody>
</tbody>

<tbody>
</tbody>
1
A000065

<tbody>
</tbody>
Truck Chassis

<tbody>
</tbody>

<tbody>
</tbody>
1
A000077

<tbody>
</tbody>
Truck Chassis

<tbody>
</tbody>

<tbody>
</tbody>
1
A001840

<tbody>
</tbody>
12 Stone Trolley

<tbody>
</tbody>
A001843

<tbody>
</tbody>
12 Stone Trolley

<tbody>
</tbody>

<tbody>
</tbody>


table above is just a sample, this DB has 22000 rows. So basically I need to only pick up cells in the second column which has value=1 in the first column.
 

Some videos you may like

Excel Facts

Lock one reference in a formula
Need 1 part of a formula to always point to the same range? use $ signs: $V$2:$Z$99 will always point to V2:Z99, even after copying

vcoolio

Well-known Member
Joined
Jun 29, 2014
Messages
1,037
Hello MaxHa,

Here is a VBA method if you are interested:-

Code:
Sub Transfer()
Application.ScreenUpdating = False
With ActiveSheet
    .AutoFilterMode = False
    With Range("A1", Range("A" & Rows.Count).End(xlUp))
        .AutoFilter 1, 1
        On Error Resume Next
        .Offset(1, 2).Copy Sheet2.Range("A" & Rows.Count).End(3)(2)
    End With
    .AutoFilterMode = False
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
Sheet2.Select
End Sub

The code will filter Column A for any value of 1 and then transfer the relevant value from Column B to sheet2, Column A.

Place the code in a standard module and assign it to a button.

Test it in a copy of your work book first.

I hope that this helps.

Cheerio,
vcoolio.
 

MaxHa

New Member
Joined
Jan 16, 2017
Messages
3
Thanks vcoolio,

I tried this code and seems there is an error: .AutoFilter 1, 1



Hello MaxHa,

Here is a VBA method if you are interested:-

Code:
Sub Transfer()
Application.ScreenUpdating = False
With ActiveSheet
    .AutoFilterMode = False
    With Range("A1", Range("A" & Rows.Count).End(xlUp))
        .AutoFilter 1, 1
        On Error Resume Next
        .Offset(1, 2).Copy Sheet2.Range("A" & Rows.Count).End(3)(2)
    End With
    .AutoFilterMode = False
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
Sheet2.Select
End Sub

The code will filter Column A for any value of 1 and then transfer the relevant value from Column B to sheet2, Column A.

Place the code in a standard module and assign it to a button.

Test it in a copy of your work book first.

I hope that this helps.

Cheerio,
vcoolio.
 

vcoolio

Well-known Member
Joined
Jun 29, 2014
Messages
1,037
You're welcome Max. Glad that I was able to help.

Cheerio,
vcoolio.
 

Watch MrExcel Video

Forum statistics

Threads
1,122,491
Messages
5,596,477
Members
414,070
Latest member
DuncanLucas

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top