))) именно в этой :)  
благодарю)

не знаю,важно это или нет, но вообще все три макроса были на одном листе(с которого и запускаются) подряд записаны...

эм... ошибку выдает. на этот Call enter2. его заранее нужно как-то обозначать?

Всем доброго времени суток!  
Уважаемые форумчане, подскажите, пожалуйста, дебилу,как объединить 3 подобных макроса(сделанных,естественно,с Вашей помощью) в 1. Заранее спасибо.  
Sub enter()  
Dim LstR As Long  
Dim i As Long  
With Sheets("Data")  
LstR = .Cells(.Rows.Count, 3).End(xlUp).Row  
Application.EnableEvents = False  
For i = 3 To LstR  
If .Cells(i, 3) = Me.[N4] Then
If .Cells(i, 4) = Me.[B4] Then
.Cells(i, 4).ClearContents  
Else  
.Cells(i, 4).Value = Me.[B4]
End If  
Me.[B4:N4]
Application.EnableEvents = True  
Exit Sub  
End If  
Next  
End With  
Application.EnableEvents = True  
End Sub  
Sub enter2()  
Dim LstR As Long  
Dim i As Long  
With Sheets("Data")  
LstR = .Cells(.Rows.Count, 3).End(xlUp).Row  
Application.EnableEvents = False  
For i = 3 To LstR  
If .Cells(i, 3) = Me.[N4] Then
If .Cells(i, 10) = Me.[O4] Then
.Cells(i, 10).ClearContents  
Else  
.Cells(i, 10).Value = Me.[O4]
End If  
Me.[N4:O4]
Application.EnableEvents = True  
Exit Sub  
End If  
Next  
End With  
Application.EnableEvents = True  
End Sub  
Sub enter3()  
Dim LstR As Long  
Dim i As Long  
With Sheets("Data")  
LstR = .Cells(.Rows.Count, 3).End(xlUp).Row  
Application.EnableEvents = False  
For i = 3 To LstR  
If .Cells(i, 3) = Me.[N4] Then
If .Cells(i, 11) = Me.[I1] Then
.Cells(i, 11).ClearContents  
Else  
.Cells(i, 11).Value = Me.[I1]
End If  
Me.[I1:N4]
Application.EnableEvents = True  
Exit Sub  
End If  
Next  
End With  
Application.EnableEvents = True  
End Sub

Всем доброго времени суток!  
Уважаемые форумчане, подскажите, пожалуйста, дебилу,как объединить 3 подобных макроса(сделанных,естественно,с Вашей помощью) в 1. Заранее спасибо.  
Sub enter()  
   Dim LstR As Long  
   Dim i As Long  
           With Sheets("Data")  
           LstR = .Cells(.Rows.Count, 3).End(xlUp).Row  
           Application.EnableEvents = False  
           For i = 3 To LstR  
               If .Cells(i, 3) = Me.[N4] Then
                   If .Cells(i, 4) = Me.[B4] Then
                       .Cells(i, 4).ClearContents  
                   Else  
                       .Cells(i, 4).Value = Me.[B4]
                   End If  
                   Me.[B4:N4]
                   Application.EnableEvents = True  
                   Exit Sub  
               End If  
           Next  
       End With  
       Application.EnableEvents = True  
End Sub  
Sub enter2()  
   Dim LstR As Long  
   Dim i As Long  
           With Sheets("Data")  
           LstR = .Cells(.Rows.Count, 3).End(xlUp).Row  
           Application.EnableEvents = False  
           For i = 3 To LstR  
               If .Cells(i, 3) = Me.[N4] Then
                   If .Cells(i, 10) = Me.[O4] Then
                       .Cells(i, 10).ClearContents  
                   Else  
                       .Cells(i, 10).Value = Me.[O4]
                   End If  
                   Me.[N4:O4]
                   Application.EnableEvents = True  
                   Exit Sub  
               End If  
           Next  
       End With  
       Application.EnableEvents = True  
End Sub  
Sub enter3()  
   Dim LstR As Long  
   Dim i As Long  
           With Sheets("Data")  
           LstR = .Cells(.Rows.Count, 3).End(xlUp).Row  
           Application.EnableEvents = False  
           For i = 3 To LstR  
               If .Cells(i, 3) = Me.[N4] Then
                   If .Cells(i, 11) = Me.[I1] Then
                       .Cells(i, 11).ClearContents  
                   Else  
                       .Cells(i, 11).Value = Me.[I1]
                   End If  
                   Me.[I1:N4]
                   Application.EnableEvents = True  
                   Exit Sub  
               End If  
           Next  
       End With  
       Application.EnableEvents = True  
End Sub

большое Спасибо

есть сотрудники,которые будут забывать или путаться.Дело в том,файл кем-то будет использоваться для редактирования базы данных, а кем-то просто для просмотра-вот они-то совсем никак не дружат с excel.

а если я хочу,чтобы макрос выполнялся только после нажатия кнопки(в смысле из элементов управления), то текст будет таким?(соответственно,макрос назначен на тот элемент управления)  
 
Option Explicit  
 
Sub enter()  
   Dim LstR As Long  
   Dim i As Long  
           With Sheets("start")  
           LstR = .Cells(.Rows.Count, 2).End(xlUp).Row  
           Application.EnableEvents = False  
           For i = 3 To LstR  
               If .Cells(i, 2) = Me.[B2] Then
                   If .Cells(i, 14) = Me.[A2] Then
                       .Cells(i, 14).ClearContents  
                   Else  
                       .Cells(i, 14).Value = Me.[A2]
                   End If  
                   Me.[A2:B2]
                   Application.EnableEvents = True  
                   Exit Sub  
               End If  
           Next  
       End With  
       Application.EnableEvents = True  
End Sub  
 
Public Sub qq()  
Application.EnableEvents = True  
End Sub

не, по поводу имени - это я ступил.  
По поводу формата. Да,в присланном Вами файле(за него отдельное Спасибо) все работает, все отлично. А вот в том,что я верстаю... в общем,там я дров наломал и кучу всего понаставил лишнего.В колонке ПОЗ у меня значения идут в текстовом формате, а потом еще вот так ##-##-##,ну а в табличке,где я ввожу данные, просто стоял формат ##-##-##. В общем, это я тупил. Приношу свои извинения за пустую назойливость(просто я: 1. новичок, 2.занимаюсь этим дома после работы,уставший как собака)

нашел,в чем вся проблема: в листе suggestion в ПОЗ формат ячеек не совпадает с форматом в листе start. Причем, если скопировать из последнего в suggestion ПОЗ формат, то ровным счетом ничего не меняется.Макрос срабатывает только если скопировать всю ячейку из листа start.И дальше все по новой...

{quote}{login=DV}{date=12.07.2010 12:04}{thema=}{post}Прошу прощения, вот так:  
=ИНДЕКС(A2:A8;ПОИСКПОЗ(ИНДЕКС(B2:B8&E2:E8;ПОИСКПОЗ(I2;C2:C8;);0)&"ИСТИНА";B2:B8&E2:E8&(F2:F8>0);)){/post}{/quote}  
 
Уважаемый DV, а на что можно заменить "ИСТИНА"? - у нас просто одни используют английскую версию,другие - русскую,а каждый раз менять через ctrl+H истина на true не совсем удобно

{quote}{login=KuklP}{date=17.07.2010 12:10}{thema=}{post}Вот Вам Ваш файл, разбирайтесь.{/post}{/quote}  
 
никакого движения вообще нет О_о

дык это... вроде все на месте  
 
Private Sub Worksheet_Change(ByVal Target As Range)  
Dim LstR As Long  
Dim i As Long  
If Not Intersect(Target, [A2:B2]) Is Nothing Then
If IsEmpty([A2]) Or IsEmpty([B2]) Then Exit Sub
With Sheets("start")  
LstR = .Cells(.Rows.Count, 2).End(xlUp).Row  
Application.EnableEvents = False  
For i = 3 To LstR  
If .Cells(i, 2) = Me.[B2] Then
If .Cells(i, 14) = Me.[A2] Then
.Cells(i, 14).ClearContents  
Else  
.Cells(i, 14).Value = Me.[A2]
End If  
Me.[A2:B2].ClearContents
Application.EnableEvents = True  
Exit Sub  
End If  
Next  
End With  
Application.EnableEvents = True  
End If  
End Sub  
 
 
А вот то,что имя выводится формулой,ничего?

ладно,мне на работу уже надо. ночью попробую еще поразбираться. Так что отпишусь поздно))

Private Sub Worksheet_Change(ByVal Target As Range)  
Dim LstR As Long  
Dim i As Long  
If Not Intersect(Target, [A2:B2]) Is Nothing Then
If IsEmpty([A2]) Or IsEmpty([B2]) Then Exit Sub
With Sheets("start")  
LstR = Cells(.Rows.Count, 2).End(xlUp).Row  
Application.EnableEvents = False  
For i = 3 To LstR  
If .Cells(i, 2) = Me.[B2] Then
If .Cells(i, 14) = Me.[A2] Then
Cells(i, 14).ClearContents  
Else  
Cells(i, 14).Value = Me.[A2]
End If  
Me.[A2:B2].ClearContents
Application.EnableEvents = True  
Exit Sub  
End If  
Next  
End With  
Application.EnableEvents = True  
End If  
End Sub  
 
я правильно понял:здесь с листа suggestion из ячеек А2 и В2 берем значения и в листе start в столбце В начиная с 3 строки ищем значение В2 suggestion и в столбец N start  вставляем значение А2 suggestion

и все равно никаких изменений нет

а в   If .Cells(i, 2) = Me.[B2] Then что означает Me.?
 
по поводу отладки.Да,надо научиться))но вот только сейчас никаких изменений нет

не-а, что-то я видать совсем тупой

что я тут накосячил?)  
 
Private Sub Worksheet_Change(ByVal Target As Range)  
Dim LstR As Long  
Dim i As Long  
If Not Intersect(Target, [A2:B2]) Is Nothing Then
If IsEmpty([A2]) Or IsEmpty([B2]) Then Exit Sub
Sheets("start").Select  
LstR = Cells(Rows.Count, 2).End(xlUp).Row - это относится к таблице,в которой выполняется вставка?  
Application.EnableEvents = False  
For i = 3 To LstR    
If Cells(i, 2) = suggestion![B2] Then
If Cells(i, 14) = suggestion![A2] Then
Cells(i, 14).ClearContents  
Else  
Cells(i, 14).Value = suggestion![A2]
End If  
Sheets("suggestion").Select  
[A2:B2].ClearContents
Application.EnableEvents = True  
Exit Sub  
End If  
Next  
Application.EnableEvents = True  
End If  
End Sub

...а если эти две таблицы находятся на разных листах?

{quote}{login=KuklP}{date=17.07.2010 10:30}{thema=Re: }{post}{quote}{login=}{date=17.07.2010 10:16}{thema=}{post}а нельзя ли пояснить неучу значение LstR = Cells(Rows.Count, 1).End(xlUp)? а то у меня первая же ошибка здесь указывается{/post}{/quote} Можно. Так определяется номер последней строки в первой колонке. А какая именно ошибка выскакивает?{/post}{/quote}  
 
эм... дело в том,что я своими-то кривыми руками пытаюсь воткнуть этот макрос в свой файлик, сделанный опять же наполовину с этим форумом(за что спасибо).Ошибка 13... вроде))

{quote}{login=KuklP}{date=16.07.2010 05:50}{thema=}{post}Исправил косяк:  
Private Sub Worksheet_Change(ByVal Target As Range)  
   Dim LstR As Long  
   Dim i As Long  
   If Not Intersect(Target, [H2:I2]) Is Nothing Then
       If IsEmpty([H2]) Or IsEmpty([I2]) Then Exit Sub
       LstR = Cells(Rows.Count, 1).End(xlUp)  
       Application.EnableEvents = False  
       For i = 2 To LstR  
           If Cells(i, 1) = [I2] Then
               If Cells(i, 5) = [H2] Then
                   Cells(i, 5).ClearContents  
               Else  
                   Cells(i, 5).Value = [H2]
               End If  
               [H2:I2].ClearContents
               Application.EnableEvents = True  
               Exit Sub  
           End If  
       Next  
       Application.EnableEvents = True  
   End If  
End Sub{/post}{/quote}  
 
 
ок,спасибо. Сам только с работы.С утра начну разбираться

жаль, что нет ответов...

эммм... видимо,невнятно объяснил.  
еще раз. По значению ПОЗ из правой таблички находим такое же значение ПОЗ в левой табличке и в столбец ИМЯ левой таблички вставляем значение ИМЯ из правой.  
 
А удалять - тоже только значение ИМЯ

Всем привет. Помогите,пожалуйста,с макросом. Необходимо нечто вроде функции vlookup,но только с тем нюансом, что в столбце,в котором должно выводиться значение,уже есть некоторые заполненные ячейки. А также,чтобы можно было по введенным имени и номеру(ИМЯ и ПОЗ) удалить это имя в таблице  
 
Заранее спасибо

все,спасибо.)) я,правда,параллельно сам нашел и исправил ошибку))))

{quote}{login=Vlad}{date=13.07.2010 02:24}{thema=}{post}= ДАТА(ГОД(ЛЕВСИМВ(A1;4));МЕСЯЦ(ПСТР(A1;5;2));ДЕНЬ(ПРАВСИМВ(A1;2)))-СЕГОДНЯ()  
В ячейке A1 значение даты, например 20100821{/post}{/quote}  
 
да и 20100807 получается не 7 августа 2010, а 7 января 1905

{quote}{login=Vlad}{date=13.07.2010 02:24}{thema=}{post}= ДАТА(ГОД(ЛЕВСИМВ(A1;4));МЕСЯЦ(ПСТР(A1;5;2));ДЕНЬ(ПРАВСИМВ(A1;2)))-СЕГОДНЯ()  
В ячейке A1 значение даты, например 20100821{/post}{/quote}  
 
эммм... выдает значение -38538

Всем доброй ночи. Вопрос такой.  
Есть в таблице значение даты (например, 20100821) и есть формула СЕГОДНЯ(). Как посчитать разницу в днях(или неделях)? ведь значение даты из таблицы идет как текст, а сегодняшняя дата в текстовом формате выглядит 40372

на 97 офисе формула вообще отказывается работать