Всем привет!  
Всех с наступившим Новым годом!  
 
Вопрос в следующем:  
ребята подскажите как организовать синхронизацию обновления каталога на сайте   при входе на сайт с моего компа  (в каком виде его туда поместить по группам товара )  с моим прайсом на моём компе, обновляться должно содержимое : цены по  конкретной модели (у меня в колонке цена настроены ссылки, на сайте должна быть просто цифра равная той что стоит в колонке "Е"), добавляться новая модель которой нет в каталоге сайта а отсутствующая модель удаляется из списка

=AA16-AA15 (если AA16 текст =0)  
подскажите как правильно записать то что в скобках

Есть Макрос вып.списка при правом клике мышки, при выборе значения он вставляет выбранное значение в ту ячейку в которой кликали и вставляет замещение по критерию в нижестоящую ячеку    
не получается следующее:  
вот данные которые вводится должны  
8-23 <<< как сделать отличие двух "8" чтобы при выборе каждой своё значение подставлялось  
8-20 <<<  
9-21  
10-22  
11-23  
12-21  
13-22  
Вых <<<как сделать чтобы при выборе подставлялось "пусто"  
Отг <<<как сделать чтобы при выборе подставлялось "пусто"  
Отп <<<как сделать чтобы при выборе подставлялось "пусто"  
Бол <<<как сделать чтобы при выборе подставлялось "пусто"  
 
вот сам макрос:  
 
Option Explicit  
 
Sub Write_Date_in_Cell()  
ActiveCell = Application.CommandBars.ActionControl.Tag  
ActiveCell.Offset(1).FormulaR1C1 = _  
"=IF(R[-1]C="""","""",VLOOKUP(R[-1]C,{8.1,23;8,20;9,21;10,22;11,23;12,21;13,22},2,0))"
End Sub  
 
 
Sub Create_MyPopupMenu()  
   Dim vItem  
   Del_PopupMenu  
With Application.CommandBars.Add(Name:="MyNumbersPopup", Position:=msoBarPopup)  
For Each vItem In Array(8, 8, 9, 10, 11, 12, 13, "Вых", "Отг", "Отп", "Бол") 'Добавляя, удаляя либо изменяя здесь цифры меняем состав нашего меню  
'можно заносить текст - Array(8, 11, 14, 23, "Новая запись")  
With .Controls.Add(Type:=msoControlButton)  
.Caption = vItem  
.Tag = vItem  
.OnAction = "Write_Date_in_Cell"  
End With  
Next vItem  
End With  
End Sub  
Sub Del_PopupMenu()  
On Error Resume Next: Application.CommandBars("MyNumbersPopup").Delete  
End Sub

Ребята помогите закончить программку которую я на ваяла, благодаря помощи многих из вас и некоторым своим упорством.  
программка эта - автоматизация учёта - прихода и продажи и переучёта товара (у меня сигарет)  
 
может кому и пригодиться можно будет куда нибудь выложить тут  
Название: баланс склада оф.2003 V.1.6.rar  
Размер: 339.68 кб  
Доступен до: 2010-10-26 22:32:02  
Ссылка для скачивания файла: http://ifolder.ru/19487916  
 
а чего не хватает в ней так это организовать доступ двух человек по двум паролям ответы на которые должны браться из двух ячеек  
запрашиваться должны при входе и выходе с сохранением.  
и очень хотелось бы отследить сохранение данных путём закрашивания в два цвета (у каждого пользователя свой)    
очень прошу помочь я работаю старшим кассиром, предыдущего человека уволили по статье  добавив в приход эннное количество сигарет всё велось в тетради  
надеюсь что меня такое не настигнет.

=СУММЕСЛИ(C5:AG5;"<'БАЛАНС СКЛАДА СИГАРЕТ'!I2";C6:AG6)  
=СУММЕСЛИ(C5:AG5;"> ЛИБО='БАЛАНС СКЛАДА СИГАРЕТ'!I2";C6:AG6)  
ПОДСКАЖИТЕ ЧТО Я НЕ ТАК ПОНЯЛА В ЭТОЙ ФУНКЦИИ  
НАДО:  
В ДИАПАЗОНЕ C5:AG5 ПРОНУМЕРОВАНЫ ЦИФРАМИ ДНИ МЕСЯЦА 1-31,  
В ЯЧЕЙКЕ 'БАЛАНС СКЛАДА СИГАРЕТ'!I2" СТОИТ ДАТА ПЕРЕУЧЁТА (ПРОСТО ЦИФРА "от1до31")  
надо чтобы суммировались в первом варианте все ячейки до указанной даты,  
а во втором этот день и последующие до 31

а как записать разницу если?  
например A2-D2-D3ЕСЛИ A2>0

как сделать если нужно создать два правила для вставки в ячейку "8" в первом случае сейчас ставится 18  
а надо предусматривать второй вариант вставки "8" чтобы под ней вставлялось "23" счас вставка нижней строки такая-"=IF(R[-1]C="""","""",VLOOKUP(R[-1]C,{8,18;14,23;11,23;8.1,23},2,0))"
Пробовала ставить 8,1 но тогда 8,1 вставляется как текст и показывает ошибку под ней

как вставить пробел или просто пустую ячейку в этом списке For Each vItem In Array(8, 8.1 11, 14, "Вых", "ОТ", "Б")  
и как сделать если нужно создать два правила  для вставки в ячейку  "8" в первом случае сейчас ставится 18  
а надо предусматривать второй вариант вставки "8" чтобы под ней вставлялось "23" счас вставка нижней строки такая-"=IF(R[-1]C="""","""",VLOOKUP(R[-1]C,{8,18;14,23;11,23;8.1,23},2,0))"
Пробовала ставить 8,1 но тогда 8,1 вставляется как текст и показывает ошибку под ней

Private Sub CommandButton1_Click()  
Sheets("База").Select  
ActiveSheet.Unprotect  
pass = InputBox("Введите пароль")  
   If pass = "123" Then  
   With Application  
       .Calculation = xlManual  
       .MaxChange = 0.001  
   End With  
   ActiveWorkbook.PrecisionAsDisplayed = False  
   Application.ScreenUpdating = False  
   Range("c1").Select  
   Selection.ClearContents  
   Range("c2").Select  
   Selection.ClearContents  
   Range("c4").Select  
   Selection.ClearContents  
   Range("A8").Select  
   ScreenUpdating = False  
 For i = 1 To 832  
   ActiveCell.ClearContents  
   ActiveCell.Offset(0, 2).Range("A1").Select  
   Selection.ClearContents  
   ActiveCell.Offset(0, 1).Range("A1").Select  
   Selection.ClearContents  
   ActiveCell.Offset(1, 0).Range("A1").Select  
   Selection.ClearContents  
  '  
   ActiveCell.Offset(0, -1).Range("A1").Select  
   Selection.ClearContents  
   ActiveCell.Offset(0, -2).Range("A1").Select  
   Selection.ClearContents  
   ActiveCell.Offset(1, 2).Range("A1").Select  
   Selection.ClearContents  
   ActiveCell.Offset(1, -2).Range("A1").Select  
   Next i  
  '  
   Range("a1").Select  
  '  
   With Application  
       .Calculation = xlAutomatic  
       .MaxChange = 0.001  
   End With  
   ActiveWorkbook.PrecisionAsDisplayed = False  
   ScreenUpdating = True  
   Else  
   MsgBox "Пароль: 123"  
  End If  
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True  
End Sub  
 
Private Sub CommandButton2_Click()  
   Sheets("Примечания").Select  
   ActiveSheet.Unprotect  
   ActiveSheet.Range("e2").Select  
   ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True  
End Sub  
 
Private Sub CommandButton3_Click()  
   Sheets("База").Select  
   ActiveSheet.Unprotect  
   ActiveSheet.Range("a1").Select  
   ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True  
End Sub  
 
Private Sub CommandButton4_Click()  
Sheets("Примечания").Select  
   ActiveSheet.Unprotect  
   ActiveSheet.Range("a1").Select  
   ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True  
End Sub  
 
Private Sub CommandButton5_Click()  
 Sheets("Примечания").Select  
   ActiveSheet.Unprotect  
   ActiveSheet.Range("e44").Select  
   ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True  
End Sub  
 
Private Sub CommandButton6_Click()  
Sheets("Сеть").Select  
   ActiveSheet.Unprotect  
   ActiveSheet.Range("a1").Select  
   ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True  
End Sub

подскажите как можно заполнить ячейку имея три или четыре варианта "шаблона" заполнения,  
самопомощью последовательного клика на нужную ячейку,  
в поиске нашла только что поднималось форматирование ячеей удаление строк и так далее..