flipping contents on every wsheet

[biggles]

Hullo people,

I have a macro to invert the data contents of the worksheet. The excel file has 20 worksheets.
In order to flip the data on each ws i run the macro 20 times. Further each time the macro asks to select range. The range is actually all the dat on the sheet.

Could a VBA guru kindly tweek the macro to flip the dat on each worksheet. And kill the popup, and allow it to automatically select the complete data range (9 or 10 rows and hundreds of rows. I select the data with a Ctrl A).

thanks friends

Please Login or Register  to view this content.

[AlphaFrog]

Please Login or Register  to view this content.

[biggles]

hello alphafrog,

thanks a million,

regards

[biggles]

hello alpahfrog,

maybe a small glitch. its not running. At all. Doesnt respond.
could you have a look.

regards

[AlphaFrog]

hello alpahfrog,

maybe a small glitch. its not running. At all. Doesnt respond.
could you have a look.

regards

Look at what?

Is cell A1 blank on each or any worksheet?

[biggles]

hi alphafrog.
yes it is. I moved the cursor to A3 where data begins and ran the macro but it didnt respond.

regards

[biggles]

hi alphafrog,

the rows 1 and 2 are unimportant. Maybe a code to delete row1, row2 (except for worksheet 'Master',) could be good? something like

Please Login or Register  to view this content.

. But i need to add "exempt worksheet named "Master".

thanks

regards

[biggles]

hello again,,

In the macro

Flip Macro
'Sub FlipColumns()

Dim ws As Worksheet
Dim Arr As Variant, xTemp As Variant
Dim i As Long, j As Long, k As Long

For Each ws In Worksheets
If ws.Range("A1").Value <> "" Then
With ws.Range("A1").CurrentRegion
Arr = .Formula
For j = 1 To UBound(Arr, 2)
k = UBound(Arr, 1)
For i = 1 To UBound(Arr, 1) / 2
xTemp = Arr(i, j)
Arr(i, j) = Arr(k, j)
Arr(k, j) = xTemp
k = k - 1
Next i
Next j
.Formula = Arr
End With
End If
Next ws
'sbVBA_To_Open_Workbook
End Sub


I would like the macro to operate only on a specified worksheet named "Hour" and not on all worksheets in the workbook.

Thanks