подправите макрос

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

подправите макрос

anger47

Дата: Четверг, 02.08.2012, 16:15 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 192

Репутация: 6 ±

Замечаний: 0% ±

Суть такая: поправить макрос, чтобы при сумме в ячейке "Е21" более 2500 или равно 2500. появлялся МеседжБокс с текстом: Спасибо!

К сообщению приложен файл: 9456686.xls (27.5 Kb)

Сообщение отредактировал anger47 - Четверг, 02.08.2012, 16:34

Ответить

anger47

Дата: Четверг, 02.08.2012, 17:45 | Сообщение № 2

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 192

Репутация: 6 ±

Замечаний: 0% ±

уже не надо! спс

Ответить

_Boroda_

Дата: Четверг, 02.08.2012, 17:45 | Сообщение № 3

Группа: Админы

Ранг: Местный житель

Сообщений: 16734

Репутация: 6534 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

[vba]

Code

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("E21") >= 2500 Then MsgBox "Спасибо!"
End Sub

[/vba]

К сообщению приложен файл: 9456686_1.xls (30.0 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

anger47

Дата: Четверг, 02.08.2012, 18:05 | Сообщение № 4

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 192

Репутация: 6 ±

Замечаний: 0% ±

_Boroda_, как всегда спс.

Ответить

Run-time error 1004 (VBA)

Дата: Среда, 08.08.2012, 18:31 | Сообщение № 5

Группа: Гости

Очень прошу помочь выдает ошибку "невозможно получить свойство PivotItems класса PivotField"...
Сам макрос:
[vba]

Код

Sub Auto_open()

Dim Mydate As Date

Mydate = CStr(Now)

Dim MyMonth As String

MyMonth = MonthName(CStr(Month(Mydate)), False)

With Лист1.PivotTables("СводнаяТаблица1" ).PivotFields("Месяц")
.PivotItems("MyMonth").Visible = True
.PivotItems("(blank)").Visible = False
End With

End Sub

[/vba]

Ответить

подправите макрос

Страница 1 из 1
1