может быть попозже?
да я сам копировал, вижу что работает, у меня и был аналогичный файл с формулой, тоже все работает, делаю в новом, и не получается, хотя все по аналогии(((

Ребята всем спасибо, но может я тупой, может мне кто нибудь помочь по teamviewer?
Все точно также копирую в документ, но не получается снова.
Жесть просто(
Заранее благодарен откликнувшимся!

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

в смысле чтобы у всех были равные права NTFS?

Добрый вечер ребята.
Прошу помощи и совета.
Ситуация такая,что понадобилось, чтобы один файл в сети могли редактировать несколько пользователей одновременно.
Ситуация следующая, взял произвольный с нуля созданный файл, в нем на вкладке рецензирование включил общий доступ, документ пересохранился, и все чудесно, если файл открыт у двух пользователей, и первый внес в строку 1 какое то значение, но не сохранял документ, а потом второй пользователь внес в эту же первую строку другое значение, и нажал сохранить, то без всяких конфиликтов сохраняются оба значения, просто значение которое ввел первый пользователь перескакивает во вторую строку.
Но именно тот файл с которым нужно работать, т.е. он создан еще фиг знает когда, к нему включаешь общий доступ и при вводе первым пользователем значения, а потом вводит в эту же ячейку значение второй пользователь, всплывает окно конфликта и предлагает сохранить либо то либо то. т.е. что то одно.
С чем может быть связано? В настройках наверное где то, но не могу найти.
Заранее благодарен!

спасибо, работает)

Добрый день уважаемые форумчане.
Прошу помощи в решении задачи.
Есть книга в которой очень много листов, я их паролил с помощью макроса всегда такого содержания
Sub test()
   Пароль = "gfljyjr"
   Dim sh As Worksheet: Application.ScreenUpdating = False

   For Each sh In ThisWorkbook.Worksheets    ' перебираем все листы
       sh.Protect Пароль    ' снимаем пароль с листа
   Next sh
End Sub

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

СУММЕСЛИ помог))))    
спасибо вам))))

Доброго времени суток уважаемые форумчане.  
Прошу помощи и советов.    
Приложу таблицу для наглядности.    
Суть задачи такова.    
Первая таблица. Столбцы Агент и Сумма.    
В ней указываются фамилии агентов и суммы которые за ними числятся, но также агенты чередуются и суммы разные.  
Нужно чтобы во второй таблице "Долги", каждому агенту сопоставлялась сумма всех долгов из первой таблицы.    
Заранее благодарен.    
Вроде и несложно, но допетрить не могу. Пытался использовать ЕСЛИ, пока не получается.

{quote}{login=LightZ}{date=07.11.2012 11:28}{thema=}{post}Лучше приложите пример.{/post}{/quote}  
хорошо) вечром выложу) спасибо)

{quote}{login=LightZ}{date=06.11.2012 10:52}{thema=}{post}Не за что.  
А разницы в версиях офиса не должно быть, возможно у Вас просто отключены макросы или ещё какие-то нюансы.  
ps. т.к. у меня работает в 2007 и в 2010{/post}{/quote}  
Снова здраствуйте) если Вас не затруднит, то можно как привязать ограничение к столбцу? Т.е. в таблице на листе идет не один столбец, как писал в шапке (извиняюсь), а много столбцов, но залиты строчки желтым, вот как бы сделать так, чтобы например в столбце С нельзя было в желтых ячейках вводить одинаковые значения, а в соседнем В с такой же заливкой и эта же строчка, значения могли повторяться.    
Заранее благодарен за оказанную помощь.

{quote}{login=Юрий М}{date=06.11.2012 01:02}{thema=}{post}Узнать индекс можно при помощи макрорекордера, записав заливку ячейки нужным цветом. Если хотите получить весь "список", выполните этот макрос:  
Sub qqq()  
   For i = 1 To 56  
       Cells(i, 1).Interior.ColorIndex = i  
   Next  
End Sub  
Номер строки будет соответствовать индексу.{/post}{/quote}  
Спасибо) Автору макроса отдельное спасибо, и всем принявшим участие также спасибо от меня)    
значит я не такой и глупый конечно, разница только в 7 и 10 офисе. странно)

{quote}{login=Arsenno}{date=06.11.2012 12:18}{thema=Re: }{post}{quote}{login=LightZ}{date=05.11.2012 11:37}{thema=}{post}Не, не охота.  
Можете выслать мне на почту файл с подробным описанием проблемы, что делаете - что не получается.  
Будет время - гляну.  
overseerpower@gmail.com{/post}{/quote}  
странно. сейчас на работе попробовал на 2007 офисе, действительно все работает, одинаковые в желтые не дает вводить, дома на 10 офисе, любые не дает(    
а как вы выполнили именно привязку по цвету, чтобы мне код оставить, но цвет сменить?  
Заранее благодарен!{/post}{/quote}  
вижу ColorIndex = 6, но как взять соответствие по другим цветам по номерам, поставил 4, в желтые стали заносится все значения)  
Заранее благодарен

{quote}{login=LightZ}{date=05.11.2012 11:37}{thema=}{post}Не, не охота.  
Можете выслать мне на почту файл с подробным описанием проблемы, что делаете - что не получается.  
Будет время - гляну.  
overseerpower@gmail.com{/post}{/quote}  
странно. сейчас на работе попробовал на 2007 офисе, действительно все работает, одинаковые в желтые не дает вводить, дома на 10 офисе, любые не дает(    
а как вы выполнили именно привязку по цвету, чтобы мне код оставить, но цвет сменить?  
Заранее благодарен!

{quote}{login=LightZ}{date=05.11.2012 11:26}{thema=}{post}Arsenno, откройте пример, который я выложил в предыдущем посте.  
Нажмите Альт+Ф11 и с левой стороны найдите "Лист1" - там и будет спрятан макрос.  
Скопируйте его в тоже место, только в свою книгу (в нужный лист).  
 
to RAN - зачем всех путать? %){/post}{/quote}  
спасибо) прогресс пошел, но в желтые ячейки он вообще не дает никакие значениея вводить( Если не сложно, может быть TeamViewer?  
Заранее благодарен!

{quote}{login=Юрий М}{date=05.11.2012 08:55}{thema=}{post}Arsenno, про какую "запись макроса" Вы говорите? Ничего записывать не нужно - макрос УЖЕ написан. Его просто нужно скопировать в модуль листа.{/post}{/quote}  
Чтобы код вставить, нужно перейти на вкладку Вид, выбрать макросы, там выбрать "Запись макроса", щелкнуть Ок. Откроется окно ввода кода, копирую туда код, закрываю редактор, и ничего?    
Что я делаю не так?  
Заранее благодарен!

{quote}{login=RAN}{date=05.11.2012 11:12}{thema=}{post}Ну конечно автору!  
Он-же даже и не дагадывается, что написал. -:){/post}{/quote}  
ждем автора макроса.

{quote}{login=RAN}{date=05.11.2012 10:59}{thema=}{post}1. >> после копирования кода и закрытия редактора макросов, запись останавливается  
Что это должно означать?  
2. Private Sub в списке макросов появиться не может.  
3. Private Sub Worksheet_Change(ByVal Target As Range) отслеживает события листа, и из окна макросов не запускается.{/post}{/quote}  
извиняюсь за глупость, это мне адресовано или автору макроса?  
Заранее благодарен!

{quote}{login=ShAM}{date=05.11.2012 09:22}{thema=}{post}Может, сохраняете в формате xlsx? надо с поддержкой макросов xlsm.{/post}{/quote}  
попробовал и так. все равно не выходит( или туплю с утра

{quote}{login=LightZ}{date=04.11.2012 06:46}{thema=}{post}Макрос помещаете в лист, на котором будете делать свои расчеты  
 
Public lCol&, lFinalRow&, i&  
Public oDict As Object  
Private Sub Worksheet_Change(ByVal Target As Range)  
   If Target.Interior.ColorIndex = 6 Then  
       lCol = Target.Column  
       lFinalRow = Cells(Rows.Count, lCol).End(xlUp).Row  
       Set oDict = CreateObject("scripting.dictionary"): oDict.CompareMode = 1  
       For i = 1 To lFinalRow  
           If Not Cells(i, lCol).Value = "" And Cells(i, lCol).Interior.ColorIndex = 6 Then  
               If Not oDict.exists(CStr(Cells(i, lCol).Value)) Then  
                   oDict.Add CStr(Cells(i, lCol).Value), CStr(Cells(i, lCol).Value)  
               Else  
                   With Application  
                       .EnableEvents = False: .Undo: .EnableEvents = True  
                   End With  
                   Set oDict = Nothing: Exit Sub  
               End If  
           End If  
       Next  
   End If  
End Sub{/post}{/quote}  
толи я тупой, толи лыжи не едут(    
не удается записать макрос, после копирования кода и закрытия редактора макросов, запись останавливается, а в списке макросов пусто(    
Заранее благодарен. Офис 2010 у меня.

{quote}{login=LightZ}{date=04.11.2012 06:06}{thema=}{post}Arsenno, так ведь необязательно выкладывать файл-оригинал. Просто сделайте маленький пример.{/post}{/quote}  
вот допустим число 200 повторяется и в желтом цвете и в зеленом, как сделать так чтобы в зеленом можно было повторы, а в желтом нет?  
Заранее благодарен!

{quote}{login=Z}{date=04.11.2012 05:46}{thema=Re: Запрет ввода одинаковых данных в ячейки с одинаковой заливкой?}{post}{quote}{login=Arsenno}{date=04.11.2012 05:40}{thema=Запрет ввода одинаковых данных в ячейки с одинаковой заливкой?}{post}... в таблице идет один столбец... Все ячейки заливаются двумя цветами, допустим зеленый и желтый, задача...{/post}{/quote}  
Задача одна (логика подсказывает): не один, а два столбца - 1 - для зелени, 2 - для цыплячьего цвета... Почему НЕ?!. ;) -17867-{/post}{/quote}  
в том и загвоздка, что столбец один и цвета в нем разные(

{quote}{login=LightZ}{date=04.11.2012 05:43}{thema=}{post}Сделать можно. Выложите свой файл - чтобы я смог "привязать" Ваши цвета к макросу.{/post}{/quote}  
файла сейчас нет под рукой( можете код макроса выложить, а потом я код цвета в него сам пропишу? ведь можно так?  
Спасибо.

Доброго времени суток!    
Хотел бы у Вас поинтересоваться. Задача стоит такая, в таблице идет один столбец, в него вводятся числовые данные, типа 123, иногда вводятся 123,567. Все ячейки заливаются двумя цветами, допустим зеленый и желтый, задача состоит в том чтобы ограничить ввод одинаковых данных именно в желтых ячейках, в зеленых могут повторяться.    
Если кто что подскажет, буду благодарен!  
Спасибо!

спасибо) тоже буду иметь ввиду) проверю)

все) кажись допер. просто сопоставил значение 0 и названия ячейки с данными из массива, т.е. вышло, что если нал то берет из ячейки, если все остальное то просто ноль. а в последний столбец вместо условия если нал, вписал если отдать в ск)  
нормалек)

все работает) а пояснить не сложно какой алгоритм? то я въехать не могу. не моя конечно это работа, но телки со страхового сами ниче не могут) даже запостить на форум. с функцией если понятно, там либо то, либо другое, а здесь как? я так понимаю просматривает массив "оплата",но как потом все стыкуется?  
заранее спасибо)

опа!! вот ты красавчик)) пашет) буду сидеть разбиратся. спасибо))))) с меня пиво)

прикрепляю оригинал к сообщению. вообщем задача такая стоит.  
Чтобы при выборе в столбце R вида оплаты "отдать в СК" в столбцах X,Y и AA автоматом ставились нули, но при этом не нарушая формул в этих столбцах, т.е. чтобы при выборе оплаты "нал" записывалось значение в столбец X, а при выборе "безнала" или "терминала" в Y. (зависимость можно просмотреть в примере)  
Еще загвоздка в том что если просто прописать в X и Y нули, в АА получается число с минусом, а нужен тоже ноль. Просто ноль, он ни откуда не должен считаться.    
Всем заранее благодарен, кто поможет решить задачу)

{quote}{login=Васили101}{date=02.11.2012 12:59}{thema=}{post}в столбце "С" пиши: =ЕСЛИ(A1="должно быть все по нулям";0;ЕСЛИ(A1="работает +1";0;1)){/post}{/quote}  
Попробовал. в столбце С просто пишет ЛОЖЬ при любом раскладе(