Всем доброго времени суток!  
Уважаемые форумчане, подскажите, пожалуйста, дебилу,как объединить 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

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

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

всем привет. У меня такая задачка. При вводе ИМЕНИ необходимо получить для него такое МЕСТО,чтобы РЯД,соответствующий вводимому имени был равен РЯДУ получаемого места,ТИП - так же, КОЛИЧЕСТВО у получаемого места равнялось 0, а ИНФО была не равна 0

Народ, прошу прощения за назойливость, но вот интересно стало, можно ли по имени(значению) получать адрес, а лучше даже ссылку на эту ячейку? Ну,например, на одном листе есть ячейка(А2) со значением 123. А во втором листе при вводе этого значения, например, в столбец ИМЯ, в соседнем столбце получаем ссылку на Лист1!А2

небольшой вопросик. Как устроить автозаполнение влево на возрастание(ну или вправо на убывание)? а-ля  есть 5 4, а автозаполнением  3 2 1

всем привет.  
Помогите, пожалуйста,с функцией. Необходимо, чтобы в значениям в листе ПЛАН соответствовали артикулы из таблицы  Листа1

существует некоторый список значений А(арт). Каждому из них соответствует 1 или несколько значений параметров B(место)и C(кол-во). Необходимо сделать так,чтобы при вводе в отдельной таблице какого-либо одного значения А выводился весь список соответствующих ему значений В при ненулевых значениях С

при вставки скопированных страниц с формулами из одной книги в другую возникает проблема - остаются ссылки на первую книгу, а-ля =ЕСЛИ($G$2=4;СУММЕСЛИ(f;10;'[новый прогноз L22.xls]truck'!Q:Q);СУММЕСЛИ(mix;100+(E$2-1)*10;'[новый прогноз L22.xls]truck'!Q:Q))
 
Как исправить это?

ситуация такая: есть список восьмизначных артикульных номеров (напр., "00000000").К нему нужно регулярно подкачивать(обычно через vlookup) значения некоего параметра(напр., "type").Это значение можно взять только из отчета в другой программе,затем нужно этот отчет перевести в текстовый документ, а затем - в excel. Но! В этом самом отчете артикульные номера имеют вид: 000-000-00.Ну и,соответственно, функция vlookup выдает ошибку