Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Включение макросов на МАС
 
У меня такая проблема выскочила. под win  написал все пучком, но у шефа ноут маковский на нем не пошло -
все макросы написанные в листе не запускаются. перетащил макросы в раздел ModuLes, привязал к кнопкам
выполняются. Но вот тема вроде Worksheet_Change (которая живет внутри листа) не работает. Т.е. офис под
маком вообще не реагирует на макросы в листе так что ли получается. Может есть какое то решение.
Заранее всем спасибо.
[ Закрыто] Макрос в 2003 и в 2007, работает в 2003 в 2007 или 2010 нет
 
Вот такой макрос не работает  в 2007

Private Sub Worksheet_Change(ByVal Target As Range)
 
   Application.ScreenUpdating = False
   
   If NomCell = 2 And NomRow > 16 Then
 
AR = Cells(NomRow, 2) 'ÀÐÒÈÊÓË
For I = 3 To 10
 PS = Sheets(I).Cells(Rows.Count, 1).End(xlUp).Row
 For J = 7 To PS
qq = Val(Sheets(I).Cells(J, 1))
If qq = AR Then
   
   
   Worksheets("Order" ;) .Cells(CInt(NomRow), 1).Value = NomRow - 16
   Worksheets("Order" ;) .Cells(CInt(NomRow), 3).Value = Worksheets(I).Cells(J, 7).Value
   Worksheets("Order" ;) .Cells(CInt(NomRow), 7).Value = Worksheets(I).Name
   'Cells(CInt(NomRow),  8) .Value = Sheets(I).Range("F" & J).Value
   Worksheets("Order" ;) .Cells(CInt(NomRow),  8) .Value = Worksheets(I).Cells(J, 6).Value
   
   
   
   Worksheets("Order" ;) .Range("C" & NomRow).Select
   'Worksheets("Order" ;) .Cells(NomRow, 3).Select
   
   Application.ScreenUpdating = True
   
   End
End If
 
   Next J
Next I
    End If
   
End Sub
Страницы: 1
Наверх