macro automatic transposing into new sheet into 2 columns

[graspoort]

Hello everyone,

I have a worksheet with a range of a rows containing cells with numeric values,
empty cells and cells with "0" value.

I want to return in a separate sheet, transposed into two columns, the values
of each row ignoring the cells in a certain range of columns, all empty cells
and all cells with a "0" value.

Into two columns means that data from a certain column will always
be returned in "A" and data from antother column always in "B".

I expect the target columns to grow to max. 1500 rows.

I've been puzzling arround until a big headache decided that this can only be done
by a macro and this is beyond my skills.

working with excel 2010

Anyone care to help?
Thanks.

[stanleydgromjr]

graspoort,

Welcome to the Excel Forun.

To get the most precise answer, it is best to upload/attach a sample workbook (sensitive data scrubbed/removed/changed) that contains an example of your raw data on one worksheet, and on another worksheet your desired results.

The structure and data types of the sample workbook must exactly duplicate the real workbook. Include a clear and explicit explanation of your requirements.

To attach your workbook, click on the New Post button, then scroll down and click on the Go Advanced button, then scroll down and click on the Manage Attachments button.

[cybernat02]

Need help not able to run in 2013 excel

Private Changed As Boolean

Private Sub Workbook_Open()
MsgBox (" This File will terminate after 10 minutes of inactivity ")
Changed = False
Application.OnTime Now + TimeValue("00:10:15"), procedure:="ThisWorkbook.Auto_Close"
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Source As Range)
Changed = True
End Sub

Private Sub Auto_Close()
Application.DisplayAlerts = False
If Changed = False Then
ThisWorkbook.Close SaveChanges:=True
End If
Changed = False
Call Application.OnTime(Now + TimeValue("00:10:15"), "ThisWorkbook.Auto_Close")
End Sub