Extract Data

[blandmido]

Hi
I have large number of rainfall data, the system record values on daily basis, so most of the records are zero values, I want to an easy extract the rainfall daily data greater than 0 , part of the data is attached below.
Thank you

STATION_NUMBER	YEAR	MONTH	DAY	RAINFALL_TOTAL
40430	1985	1	1	0
40430	1985	1	2	0
40430	1985	1	3	0
40430	1985	1	4	0
40430	1985	1	5	0
40430	1985	1	6	0
40430	1985	1	7	0
40430	1985	1	8	0
40430	1985	1	9	0
40430	1985	1	10	0
40430	1985	1	11	0
40430	1985	1	12	0
40430	1985	1	13	0
40430	1985	1	14	0
40430	1985	1	15	0
40430	1985	1	16	0
40430	1985	1	17	0
40430	1985	1	18	0
40430	1985	1	19	0
40430	1985	1	20	0
40430	1985	1	21	0
40430	1985	1	22	0
40430	1985	1	23	0
40430	1985	1	24	2.7
40430	1985	1	25	0.5
40430	1985	1	26	0
40430	1985	1	27	0
40430	1985	1	28	6.6

<colgroup><col span="4"><col></colgroup><tbody>
</tbody>

 

[Rick Rothstein]

Why not select the Rainfall Total column, apply AutoFilter to it and use "Does not equal" 0 as the filter... you can then copy/paste the visible rows to wherever you want.

 

[My Aswer Is This]

If you want a macro to do this we need the following information.
1. Where are we going to extract this data to.
2. Is the current data in Columns “A” “B”….
3. If you want this extracted to another sheet then we need the name of the data sheet and the extract to sheet.

 

[blandmido]

Why not select the Rainfall Total column, apply AutoFilter to it and use "Does not equal" 0 as the filter... you can then copy/paste the visible rows to wherever you want.

Thank you very much Rick, I didn't think of this simple and straightforward solution, and it works perfectly

 

[blandmido]

If you want a macro to do this we need the following information.
1. Where are we going to extract this data to.
2. Is the current data in Columns “A” “B”….
3. If you want this extracted to another sheet then we need the name of the data sheet and the extract to sheet.

Thank you "My answer is This", I am interested in the last column, E, I think its better to be extracted in a new shhet, names can be anything, for example: "Rainfall total" for original data sheet and "Values" for the extracted data sheet

 

[My Aswer Is This]

Blandmido
Try this:
I have set this up as per your request.
The sheet with your data must be named “Rainfall total”
The sheet we will be copying data to must be named “Values”
This script should do what you asked. If you have problems check back here with me.
You can modify the sheet names but if you do just be sure and change the places in the script where the sheet name is referred to.

Sub Rain_Fall_Data()
Application.ScreenUpdating = False
Dim i As Integer
Dim Lastrow As Long
Dim Lastrow2 As Long
Sheets("[COLOR="#FF0000"]Rainfall total[/COLOR]").Activate
'You can change this sheet name if you like then just change your sheet name
Lastrow = Cells(Rows.Count, "E").End(xlUp).Row
Lastrow2 = Sheets("[COLOR="#FF0000"]Values[/COLOR]").Cells(Rows.Count, "E").End(xlUp).Row + 1
    For i = 1 To Lastrow
        If Cells(i, 5).Value > 0 Then
            Sheets("[COLOR="#FF0000"]Values[/COLOR]").Rows(Lastrow2).Value = Rows(i).Value
            Lastrow2 = Lastrow2 + 1
        End If
    Next
Application.ScreenUpdating = True

End Sub

 

[blandmido]

Thank you very much "My Aswer is This"
The Macro is working perfect

 

[My Aswer Is This]

Glad I was able to help you. If you need additional help you can always look to us at Mr. Excel for help.

Thank you very much "My Aswer is This"
The Macro is working perfect