>покажите код не работающий в OpenOffice под Linux и работающий в OpenOffice
>Windows
>а то у вас голове такой туман, что не возможно читать ваши
>мысли. вот в етом коде выполнение макроса спотыкается и грит "ожидается Sub"
что в нем не так??
Attribute VBA_ModuleType=VBAModule
Sub Модуль4
Sub Media()
Rem '
Rem ' Макрос5 Макрос
Rem ' Макрос записан 18.04.03 (Alexey V.)
Rem '
Rem '
bbb = InputBox("Как называется ролик?")
Sheets("Отчет").Select
Range("C13:AO43").Select
Selection.ClearContents
Sheets("T").Select
Cells(107, 1).Formula = bbb
If Cells(108, 1) = 0 Then
Sheets("Отчет").Select
MsgBox ("Ролика с именем " & bbb & " нет")
Exit Sub
End If
aaa = "=" & bbb
Sheets("H").Select
Selection.AutoFilter Field:=1
Columns("A:A").Select
Selection.Find(What:="###@@@", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
ActiveCell.Offset(-1, 1).Select
Range(ActiveCell, Cells(2, 32)).Select
Selection.AutoFilter Field:=1, Criteria1:=aaa, Operator:=xlAnd
Application.CutCopyMode = False
Selection.Copy
Sheets("Отчет").Select
Range("C13").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("M8").Activate
ActiveCell.Formula = bbb
Sheets("H").Select
ActiveSheet.ShowAllData
Sheets("Отчет").Select
End Sub
Sub InsertZ()
Rem '
Rem ' InsertZ Макрос
Rem ' Макрос записан 20.04.03 (Alexey V.)
Rem '
Rem ' Сочетание клавиш: Ctrl+z
Rem '
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
End Sub
Вариант для распечатки
(ok) on 17-Апр-09, 19:56 
