Hi
I have an excel formula that i would like to work in open office.
Can send the excel file obviously.
happy to pay
many thanks
So is it possible for open office to do the same thing
=COLUMNS($A$1:A$1)
Rem Attribute VBA_ModuleType=VBAModule
Option VBASupport 1
Sub redistribute()
Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet
Dim i As Long, LR As Long
Set ws1 = Sheets("cat5")
Set ws2 = Sheets("Implementation")
Set ws3 = Sheets("cat5hidden")
LR = ws1.Range("A65536").End(xlUp).Row
For i = LR To 3 Step -1
If ws1.Range("A1").Offset(i).Value Mod 2 = 0 Then
If WorksheetFunction.CountA(ws1.Range("B1:IV1").Offset(i)) > 0 Then
ws1.Range("B1:IV1").Offset(i).Copy Destination:=ws1.Range("A1").Offset(i - 1, 1 + WorksheetFunction.CountA(ws1.Range("B1:IV1").Offset(i - 1)))
ws1.Range("B1:IV1").Offset(i).ClearContents
End If
End If
Next i
End Sub
Users browsing this forum: No registered users and 1 guest