Требуется построить график на основе таблицы, содержащий объединенные ячейки. Excel выдает ошибку (см. рисунок). Как быть?  Избавиться от объединенных ячеек - не вариант, ибо под этой таблицей будет другая, с совсем другой структурой, там без объединения не обойтись.

Здравствуйте!  
Имеется файл с базой. Нужно запретить пользователям удалять формулы, при этом есть макрос, который очищает ячейки, подготавливая к следующему набору.  
 
Если устанавливаю защиту ячеек, то макрос выполняется с ошибкой.  
 
Как решить проблему?  
 
спасибо

Всем привет.  
 
Нужна помощь в объяснении данного кода  
 
сделал методом тыка, именив другой код хотелось бы понять  
If Not Intersect(Target, Range("A2:A500")) Is Nothing Then  
Target.Offset(0, 1) = Target.Offset(-1, 1) + 1  
If IsEmpty(Target) Then Target(1, 2) = Empty  
 
то есть при вводе значения в A2:A500 значение диапазона B2:B500 увелич-ся на 1.  
меня интересует следующее  
Target.Offset(0, 1) = Target.Offset(-1, 1) + 1  
 
как я понимаю первая цифра это строка, 2-столбец  
-1 - это сдвиг на 1 строчку вверх?  
а что такое Target.Offset(0, 1)?  
 
Спасибо заранее.

Всем привет!  
 
Имеется файл договора с 2 модулями.  
 
1 модуль формирует договор в ворде на основе базы в екселе.  
В шаблоне созданы закладки на заголовки столбцов в екселе.  
таким образом происходит импорт.  
 
2 модуль  
Sub vremschet()  
Rows(Cells.SpecialCells(xlLastCell).Row).Select  
Dim iRow&  
With ActiveSheet  
iRow = .UsedRange.Rows.Count + .UsedRange.Row - 1  
End With  
vremshet iRow, Cells(iRow, 4)  
End Sub  
 
то есть данные берутся из последней строки  
 
как изменит код, чтобы данные можно импортировать не по последней строки, а по активной?  
 
 
Заранее благодарен.

Здравствуйте!  
имеется код, помогающий при вводе дублировать ячейки  
 
Private Sub Worksheet_Change(ByVal Target As Range)  
   If Target.Cells.Count > 1 Then Exit Sub  
   If Not Intersect(Target, Range("D2:D500")) Is Nothing Then  
       Target(1, 2).Value = Format(Now, "DD MMMM YYYY г.")  
       If IsEmpty(Target) Then Target(1, 2) = Empty  
   End If  
   If Target.Cells.Count > 1 Then Exit Sub  
If Not Intersect(Target, Range("B2:B500")) Is Nothing Then  
With Target(, 26)  
.Value = Target.Value  
End With  
Target.Offset(0, 2) = Target.Offset(-1, 2) + 1  
If IsEmpty(Target) Then Target(1, 3) = Empty  
End If  
If Target.Cells.Count > 1 Then Exit Sub  
   If Target.Column <> 1 Then Exit Sub  
   Dim ax As Variant: On Error Resume Next: ax = Split(Target, " ")  
   Target.Next = ax(0) & " " & UCase(Left(ax(1), 1)) & ". " & UCase(Left(ax(2), 1)) & "."  
 
первая часть дату проставляет  
вторая часть увеличивает номер договора на 1  
3- вставляет фамилию и инициалы  
 
еще необходимо, что бы при вводе в столбцы I2:I100, значение дублировалось например в туже строку, но в 16 столбец  
 
так не получается, что не так делаю?  
 
If Not Intersect(Target, Range("I2:I100")) Is Nothing Then  
       With Target(1, 16)  
                   .Value = Target.Value  
                   .EntireColumn.AutoFit  
               End With  
           End If  
   End Sub

Подскажите плиз как объединить несколько ячеек столбца с данными, чтобы избежать пробелов между ячейками.  
столбец H  
 
Заранее благодарен

Имеется код  
 
Sub kod()  
For i = 2 To 10  
If Cells(i, 6).Value > o Then  
Cells(i, 1).Resize(1, 8).Interior.ColorIndex = 4  
End If  
Next i  
End Sub  
 
Помогите плиз с кодом,условие - выделять строку, если первые 3 цифры 407  
в ячейки будет 20 цифр

Задача в следующем: имеется в книге кнопка, которая очищает необходимые ячейки на листе  
и на этом же листе в ячейке G7 находится номер отчета, какой код нужно добавить кнопке, чтобы он после очистки листа добавлял значение ячейки  на G7 единицу.  
 
Спасибо заранее

Здравствуйте!  
имюются 2 столбца, в них 20-значные цифры (50996745048127345965)- рассматривать как одно число  
диапазон A1:A200 И B1:B126  
необходимо их сравнить и в 3 столбце вывести тех цифр которых нет в B1:B126.  
 
Заранее благодарен.