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

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

{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=ShAM}{date=05.11.2012 09:22}{thema=}{post}Может, сохраняете в формате xlsx? надо с поддержкой макросов xlsm.{/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}  
извиняюсь за глупость, это мне адресовано или автору макроса?  
Заранее благодарен!

Ну конечно автору!  
Он-же даже и не дагадывается, что написал. -:)

Arsenno, про какую "запись макроса" Вы говорите? Ничего записывать не нужно - макрос УЖЕ написан. Его просто нужно скопировать в модуль листа.

Правый клик по ярлычку листа - Исходный текст. И ТУДА - в модуль листа - копируем.

Arsenno, откройте пример, который я выложил в предыдущем посте.  
Нажмите Альт+Ф11 и с левой стороны найдите "Лист1" - там и будет спрятан макрос.  
Скопируйте его в тоже место, только в свою книгу (в нужный лист).  
 
to RAN - зачем всех путать? %)

имхо, отсутствие всяческого понятия об иронии говорит оч.много о человеке.  
я, конечно, надеюсь на лучшее, но. боюсь, Богдан, Вам еще пару раз придётся объяснить - что, куда и как :)

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

Узнать индекс можно при помощи макрорекордера, записав заливку ячейки нужным цветом. Если хотите получить весь "список", выполните этот макрос:  
Sub qqq()  
   For i = 1 To 56  
       Cells(i, 1).Interior.ColorIndex = i  
   Next  
End Sub  
Номер строки будет соответствовать индексу.

Не за что.  
А разницы в версиях офиса не должно быть, возможно у Вас просто отключены макросы или ещё какие-то нюансы.  
ps. т.к. у меня работает в 2007 и в 2010