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

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

{quote}{login=KuklP}{date=13.09.2010 09:06}{thema=}{post}как я понимаю первая цифра это строка, 2-столбец - да.  
-1 - это сдвиг на 1 строчку вверх? - да  
а что такое Target.Offset(0, 1)? - сдвиг на одну ячейку вправо  
Судя по условию, Вам надо:  
Target.Offset(0, 1) = Target.Offset(0, 1) + 1  
ячейка справа увеличится на 1.{/post}{/quote}  
 
Мне необходимо, чтобы верхняя ячейка 2 столбца увеличилась на 1 в след. строке (ниже)

Всем привет.  
 
Нужна помощь в объяснении данного кода  
 
сделал методом тыка, именив другой код хотелось бы понять  
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)?  
 
Спасибо заранее.

Все спасибо. Решил. Last Cell - убрал. все ок теперь

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

помогите разобраться плиз.  
в чем ошибка моя?

{quote}{login=}{date=30.07.2010 01:19}{thema=}{post}With Target.Offset(, 16)  
.Value = Target.Value  
.EntireColumn.AutoFit  
End With  
 
А так?{/post}{/quote}  
 
Не работает  
 
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)) & "."  
   If Not Intersect(Target, Range("I2:I100")) Is Nothing Then  
       With Target.Offset(, 16)  
.Value = Target.Value  
.EntireColumn.AutoFit  
End With  
End If  
   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

{quote}{login=Юрий М}{date=20.07.2010 04:00}{thema=}{post}Да - начинаем с новой строки.{/post}{/quote}  
 
Еще раз всем спасибо за помощь!

{quote}{login=KuklP}{date=20.07.2010 11:20}{thema=}{post}Можно. Вместо формулы СЦЕПИТЬ использовать & и СИМВОЛ(10) так:  
=H5 & СИМВОЛ(10) & H6 & СИМВОЛ(10) & H7& СИМВОЛ(10) & H8{/post}{/quote}  
 
Супер. спасибо.  
Символ(10) - это конец абзаца?

{quote}{login=Serge 007}{date=20.07.2010 11:01}{thema=Re: Re: }{post}{quote}{login=}{date=20.07.2010 10:58}{thema=Re: }{post}  
Так не пойдет.Поскольку дана большая блок схема и соседние столбцы имеют жесткую структуру, которую менять нельзя.  
 
Можно с учетом этих тонкостей соединить все ячейки одного столбца?{/post}{/quote}  
 
http://www.planetaexcel.ru/forum.php?thread_id=17604  
http://excel-vba.ru/MyAddinFUNC_Couple_Cells.html{/post}{/quote}  
 
формула сцепить работает, однако все смешивается в кучу  
1. Лаборант Иванов П.Р.2. Заместитель генерального директора Васильев И.А.3. Генеральный директор Андропов С.В.4. Испольнительный директор Семенов И.Г.  
 
а нужно чтобы было так  
1. Лаборант Иванов П.Р.  
2. Заместитель генерального директора Васильев И.А.  
3. Генеральный директор Андропов С.В.  
4. Испольнительный директор Семенов И.Г.  
 
можно ли это побороть?

{quote}{login=KuklP}{date=20.07.2010 09:39}{thema=}{post}Может так?{/post}{/quote}  
то что нужно, главное, чтобы данные в соседних столбцах не смещались.  
Поделитесь, как вы это сделали, плиз

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

спасибо. получилось.  
 
Юрий М  
в 1 столбце порядковый номер №  
во 2 - 20-знычные числа  
в остальных - св-ва 20-значзых счетов  
задача выделить второй столбец  
и чтобы потом выделилась вся строка, если во втором столбце есть счета с "407"  
 
как лучше это сделать с вба или обычным условным форматированием это можно реализовать?

Нужно, чтобы вся строчка выделялась, если в 6 столбце N строке первые 3 цифры=407

Имеется код  
 
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 цифр

{quote}{login=The_Prist}{date=31.03.2010 09:56}{thema=}{post}

И к тому же Вы используете в качестве переменной имя Range(Dim Range As Object), чего делать нельзя - Range зарезервированный VBA объект и использование его в качестве переменной вызовет ошибку еще при запуске кода.

{/post}{/quote}  
 
Да. Вы правы. на эту переменную он и ругался.  
 
То есть всегда использовать в качестве переменной только Dim rRange As Object, Лист?

{quote}{login=The_Prist}{date=30.03.2010 04:02}{thema=}{post}Так Вы напишите как Вы его из другой процедуры вызываете, а не тот код, который сам по себе работает. и куда Вы его вставляете.{/post}{/quote}  
 
код для кнопки очистить  
 
Sub Очистить()  
Dim Range As Object  
Лист = "акт"  
With Sheets(Лист)  
.Range("дата") = Date  
.Range("адаты").Select  
Selection.ClearContents  
.Range("номера").Select  
Selection.ClearContents  
.Range("номера").Select  
Selection.ClearContents  
.Range("документы").Select  
Selection.ClearContents  
'.Range("сумма").Select  
'Selection.ClearContents  
.Range("K59").Value = 0  
.Range("K60").Value = 0  
.Range("K61").Value = 0  
.Range("K62").Value = 0  
.Range("K63").Value = 0  
.Range("K64").Value = 0  
.Range("K65").Value = 0  
.Range("K66").Value = 0  
.Range("K67").Value = 0  
.Range("K68").Value = 0  
.Range("K69").Value = 0  
.Range("K70").Value = 0  
.Range("валюта").Select  
Selection.ClearContents  
.Range("бензин").Select  
Selection.ClearContents  
.Range("аванс").Select  
Selection.ClearContents  
If .Range("a6") = 19 Then  
.Range("N90").Value = "товары на авто."  
.Range("N91").Value = "Ремонту не подлежат."  
End If  
.Range("B59").Select  
End With  
........  
With Range ("A1")  
If IsNumeric(.Value) Then  
Application.EnableEvents = False  
.Value = .Value + 1  
Application.EnableEvents = True  
End If  
End With  
End Sub

{quote}{login=The_Prist}{date=30.03.2010 03:49}{thema=}{post}Ну и где у Вас ошибка появляется? У меня этот код нормально работает без ошибок.{/post}{/quote}  
 
Когда я вставляю данный код в конце существующего, он выделяет WithRange ("A1").  
 
отдельно через Call работает.  
 
Спасибо за помощь!!!

{quote}{login=Dophin}{date=30.03.2010 02:45}{thema=}{post}а я вообще не понял чего надо{/post}{/quote}  
 
Имеется отчет. Народ заполняет все необходимые поля. все считается с помощбю формул и макросов. В самом вверху есть номер отчета №3. После того как народ распечатает данный отчет, он его сохраняет. потом открывает, чтобы сделать следущий отчет нажимает кнопку "Очистить" и хотелось бы, чтобы после отчистки автоматом менялся бы номер на следующий, то есть №4.  
 
в конце кода кнопки "очистить" написал  
With Target  
If .Address(False, False) = "A1" Then  
If IsNumeric(.Value) Then  
              Application.EnableEvents = False  
              Range("A1").Value = Range("A1").Value + 5  
                 
              Application.EnableEvents = True  
End If  
End If  
     End With  
 
но не знаю как объявить объект, прога ругается на отсутствие объекта.  
 
А1 - это номер.

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

{quote}{login=Юрий М}{date=11.02.2010 11:42}{thema=Re: Re: Re: Re: }{post}{quote}{login=}{date=11.02.2010 10:06}{thema=Re: Re: Re: }{post} чтобы в 3 столбце выводились не совпавшее число,а в 4 не совпавшие.{/post}{/quote}  
:-){/post}{/quote}  
 
опечатался  
 
в 3 не совпавшие числа  
в 4 совпавшие

{quote}{login=Serge 007}{date=11.02.2010 03:08}{thema=}{post}Перевод в текст и ВПР.{/post}{/quote}  
 
нужен макрос

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