Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Выбрать ячейки из столбца выделенные цветом и копировать - Мир MS Excel

  • Страница 1 из 2
  • 1
  • 2
  • »
Модератор форума: китин, _Boroda_, DrMini  
Выбрать ячейки из столбца выделенные цветом и копировать
petyavova Дата: Вторник, 15.08.2017, 23:19 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 32
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Существует итоговый файл в который ежемесячно копируется на новый лист
итоговая информация по контрагентам. На первом листе книги ведётся динамика изменений.
контрагенты прибавляются и отваливаются, соответственно
при копировании нового листа в итоговый файл они добавляются, но в динамике не участвуют.
в копируемом листе ячейка с ИНН контрагента выделена цветом.
Попытался с помощью присвоения переменной номера цвета, которым выделена ячейка с ИНН выделить и скопировать на страницу динамики в столбец ИНН, ничего не получилось.
Можете подсказать, как скопировать из второго листа все ИНН выделенные цветом на первый лист с добавлением отсутствующих.
образец примерный прилагаю.
К сообщению приложен файл: 4438333.xlsx (12.4 Kb)
 
Ответить
СообщениеСуществует итоговый файл в который ежемесячно копируется на новый лист
итоговая информация по контрагентам. На первом листе книги ведётся динамика изменений.
контрагенты прибавляются и отваливаются, соответственно
при копировании нового листа в итоговый файл они добавляются, но в динамике не участвуют.
в копируемом листе ячейка с ИНН контрагента выделена цветом.
Попытался с помощью присвоения переменной номера цвета, которым выделена ячейка с ИНН выделить и скопировать на страницу динамики в столбец ИНН, ничего не получилось.
Можете подсказать, как скопировать из второго листа все ИНН выделенные цветом на первый лист с добавлением отсутствующих.
образец примерный прилагаю.

Автор - petyavova
Дата добавления - 15.08.2017 в 23:19
iMrTidy Дата: Среда, 16.08.2017, 15:48 | Сообщение № 2
Группа: Пользователи
Ранг: Участник
Сообщений: 85
Репутация: 14 ±
Замечаний: 0% ±

NO
petyavova, так подойдет?
К сообщению приложен файл: 4438333.xlsm (27.2 Kb)


Вышенаписанное мной не является истиной, но лишь моя точка зрения, которая скорее всего ошибочна.
 
Ответить
Сообщениеpetyavova, так подойдет?

Автор - iMrTidy
Дата добавления - 16.08.2017 в 15:48
petyavova Дата: Среда, 16.08.2017, 18:33 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 32
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
iMrTidy, да кажется работает, щас проверю,
покрайней мере добавились, но помоему цвет решен не переменной,а постоянной величиной?
ещё не посмотрел, а пропавшие учитываются?
 
Ответить
СообщениеiMrTidy, да кажется работает, щас проверю,
покрайней мере добавились, но помоему цвет решен не переменной,а постоянной величиной?
ещё не посмотрел, а пропавшие учитываются?

Автор - petyavova
Дата добавления - 16.08.2017 в 18:33
iMrTidy Дата: Среда, 16.08.2017, 20:21 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 85
Репутация: 14 ±
Замечаний: 0% ±

NO
petyavova, из Вашего описания я уловил только следующую поставленную задачу:

Можете подсказать, как скопировать из второго листа все ИНН выделенные цветом на первый лист с добавлением отсутствующих.


Представьте, что Вам нужно объяснить ребенку лет 7 поставленную задачу без ненужных деталей и как можно доступнее.

Что Вы понимаете под решить цвет переменной величиной?
Откуда берутся данные для величин, что должны исключаться?


Вышенаписанное мной не является истиной, но лишь моя точка зрения, которая скорее всего ошибочна.
 
Ответить
Сообщениеpetyavova, из Вашего описания я уловил только следующую поставленную задачу:

Можете подсказать, как скопировать из второго листа все ИНН выделенные цветом на первый лист с добавлением отсутствующих.


Представьте, что Вам нужно объяснить ребенку лет 7 поставленную задачу без ненужных деталей и как можно доступнее.

Что Вы понимаете под решить цвет переменной величиной?
Откуда берутся данные для величин, что должны исключаться?

Автор - iMrTidy
Дата добавления - 16.08.2017 в 20:21
petyavova Дата: Четверг, 17.08.2017, 16:29 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 32
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
iMrTidy, да, прошу прощения,не прав,
попытаюсь исправиться.
Подправил файл.
Цвет в ячейке с ИНН не гарантированно что будет одинаковым,
поэтому думаю разумнее присвоить переменную.
И не пойму в этом(пробном) файле если контрагент отвалился поставился ноль,
а в реальном пишет Н/Д , можете обьяснить почему?
Забыл, к добавленным ИНН в строке должны добавиться аналогичные формулы как у остальных.
Прикрепляю поправленный файлик.
надеюсь из него будет понятнее, спрашивайте...
очень вам признателен
К сообщению приложен файл: 4808867.xlsm (24.4 Kb)


Сообщение отредактировал petyavova - Четверг, 17.08.2017, 16:40
 
Ответить
СообщениеiMrTidy, да, прошу прощения,не прав,
попытаюсь исправиться.
Подправил файл.
Цвет в ячейке с ИНН не гарантированно что будет одинаковым,
поэтому думаю разумнее присвоить переменную.
И не пойму в этом(пробном) файле если контрагент отвалился поставился ноль,
а в реальном пишет Н/Д , можете обьяснить почему?
Забыл, к добавленным ИНН в строке должны добавиться аналогичные формулы как у остальных.
Прикрепляю поправленный файлик.
надеюсь из него будет понятнее, спрашивайте...
очень вам признателен

Автор - petyavova
Дата добавления - 17.08.2017 в 16:29
iMrTidy Дата: Четверг, 17.08.2017, 20:39 | Сообщение № 6
Группа: Пользователи
Ранг: Участник
Сообщений: 85
Репутация: 14 ±
Замечаний: 0% ±

NO
petyavova, цвет теперь берется из ячейки А1.

И не пойму в этом(пробном) файле если контрагент отвалился поставился ноль,
а в реальном пишет Н/Д , можете обьяснить почему?

Я не понимаю о чем Вы.

Забыл, к добавленным ИНН в строке должны добавиться аналогичные формулы как у остальных.

Я думаю, что будет лучше, если Вы оформите техническое задание, и за пару золотых Вам сделают все в лучшем виде.
К сообщению приложен файл: 9637679.xlsm (27.1 Kb)


Вышенаписанное мной не является истиной, но лишь моя точка зрения, которая скорее всего ошибочна.
 
Ответить
Сообщениеpetyavova, цвет теперь берется из ячейки А1.

И не пойму в этом(пробном) файле если контрагент отвалился поставился ноль,
а в реальном пишет Н/Д , можете обьяснить почему?

Я не понимаю о чем Вы.

Забыл, к добавленным ИНН в строке должны добавиться аналогичные формулы как у остальных.

Я думаю, что будет лучше, если Вы оформите техническое задание, и за пару золотых Вам сделают все в лучшем виде.

Автор - iMrTidy
Дата добавления - 17.08.2017 в 20:39
petyavova Дата: Понедельник, 21.08.2017, 21:17 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 32
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
iMrTidy, Я согласен, подскажите что нужно сделать?
но хотелось бы расшифровку, если можно?
При копировании новых ИНН в строке с новым ИНН должны подтянуться значения по
контрагенту, его имя и формулы подсчета(разницы по месяцам).
 
Ответить
СообщениеiMrTidy, Я согласен, подскажите что нужно сделать?
но хотелось бы расшифровку, если можно?
При копировании новых ИНН в строке с новым ИНН должны подтянуться значения по
контрагенту, его имя и формулы подсчета(разницы по месяцам).

Автор - petyavova
Дата добавления - 21.08.2017 в 21:17
iMrTidy Дата: Четверг, 24.08.2017, 01:14 | Сообщение № 8
Группа: Пользователи
Ранг: Участник
Сообщений: 85
Репутация: 14 ±
Замечаний: 0% ±

NO
petyavova, комментарии к коду.
Данные для "подтягивания" либо формулами, либо переписывать код. В текущем варианте код не рассчитан на это. Если бы такая задача стояла изначально, возможно, лучше было бы сделать внутренний запрос sql.
К сообщению приложен файл: 5983173.xlsm (26.2 Kb)


Вышенаписанное мной не является истиной, но лишь моя точка зрения, которая скорее всего ошибочна.
 
Ответить
Сообщениеpetyavova, комментарии к коду.
Данные для "подтягивания" либо формулами, либо переписывать код. В текущем варианте код не рассчитан на это. Если бы такая задача стояла изначально, возможно, лучше было бы сделать внутренний запрос sql.

Автор - iMrTidy
Дата добавления - 24.08.2017 в 01:14
petyavova Дата: Четверг, 24.08.2017, 14:19 | Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 32
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
iMrTidy, Да, именно формулами, в файлике я добавил формулы, но
они должны копироваться в строку с появлением нового ИНН.
Спасибо за комментарии, теперь первоклашке стало более менее понятно :-)
И как исправить? в определении последней строки, последней считается последняя
используемая. Объясните, что это значит? Значения подставляются не к последней строке.
И как раз появились Н/Д про которые я говорил. Как их превратить в "0".
К сообщению приложен файл: 9637679-1.xlsm (27.0 Kb)
 
Ответить
СообщениеiMrTidy, Да, именно формулами, в файлике я добавил формулы, но
они должны копироваться в строку с появлением нового ИНН.
Спасибо за комментарии, теперь первоклашке стало более менее понятно :-)
И как исправить? в определении последней строки, последней считается последняя
используемая. Объясните, что это значит? Значения подставляются не к последней строке.
И как раз появились Н/Д про которые я говорил. Как их превратить в "0".

Автор - petyavova
Дата добавления - 24.08.2017 в 14:19
iMrTidy Дата: Четверг, 24.08.2017, 15:16 | Сообщение № 10
Группа: Пользователи
Ранг: Участник
Сообщений: 85
Репутация: 14 ±
Замечаний: 0% ±

NO
petyavova, чтобы копировались, то только макросом, если просто отображаться с другого листа без Н/Д, то
Код
=IFERROR(...)

Вам поможет.
К сообщению приложен файл: 6387401.xlsm (26.7 Kb)


Вышенаписанное мной не является истиной, но лишь моя точка зрения, которая скорее всего ошибочна.

Сообщение отредактировал iMrTidy - Четверг, 24.08.2017, 15:16
 
Ответить
Сообщениеpetyavova, чтобы копировались, то только макросом, если просто отображаться с другого листа без Н/Д, то
Код
=IFERROR(...)

Вам поможет.

Автор - iMrTidy
Дата добавления - 24.08.2017 в 15:16
petyavova Дата: Четверг, 24.08.2017, 17:16 | Сообщение № 11
Группа: Пользователи
Ранг: Новичок
Сообщений: 32
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
iMrTidy, Круто, а чтобы оставить при Н/Д бывшее значение? (название фирмы?)
но ИНН всё равно подставляются не понятно куда?
и что добавить в макрос чтоб захватывал формулы?


Сообщение отредактировал petyavova - Четверг, 24.08.2017, 17:20
 
Ответить
СообщениеiMrTidy, Круто, а чтобы оставить при Н/Д бывшее значение? (название фирмы?)
но ИНН всё равно подставляются не понятно куда?
и что добавить в макрос чтоб захватывал формулы?

Автор - petyavova
Дата добавления - 24.08.2017 в 17:16
iMrTidy Дата: Пятница, 25.08.2017, 00:01 | Сообщение № 12
Группа: Пользователи
Ранг: Участник
Сообщений: 85
Репутация: 14 ±
Замечаний: 0% ±

NO
а чтобы оставить при Н/Д бывшее значение? (название фирмы?)

Только макросом.
но ИНН всё равно подставляются не понятно куда?

Последний ряд определяется при помощи Используемого Диапазона, а не по последней непустой ячейке колонки с ИНН.
и что добавить в макрос чтоб захватывал формулы?

Расширить диапазон для проверки и копирования. Добавить в коллекцию дополнительные значения. Отдебажить, внести правки при необходимости.


Вышенаписанное мной не является истиной, но лишь моя точка зрения, которая скорее всего ошибочна.
 
Ответить
Сообщение
а чтобы оставить при Н/Д бывшее значение? (название фирмы?)

Только макросом.
но ИНН всё равно подставляются не понятно куда?

Последний ряд определяется при помощи Используемого Диапазона, а не по последней непустой ячейке колонки с ИНН.
и что добавить в макрос чтоб захватывал формулы?

Расширить диапазон для проверки и копирования. Добавить в коллекцию дополнительные значения. Отдебажить, внести правки при необходимости.

Автор - iMrTidy
Дата добавления - 25.08.2017 в 00:01
petyavova Дата: Пятница, 25.08.2017, 01:06 | Сообщение № 13
Группа: Пользователи
Ранг: Новичок
Сообщений: 32
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
iMrTidy,

Последний ряд определяется при помощи Используемого Диапазона, а не по последней непустой ячейке колонки с ИНН.

Вам просто говорить, а как сделать по последней строчке?
Расширить диапазон для проверки и копирования. Добавить в коллекцию дополнительные значения. Отдебажить, внести правки при необходимости.

Легко сказать, отдебажить..
Подскажите неучу..
 
Ответить
СообщениеiMrTidy,

Последний ряд определяется при помощи Используемого Диапазона, а не по последней непустой ячейке колонки с ИНН.

Вам просто говорить, а как сделать по последней строчке?
Расширить диапазон для проверки и копирования. Добавить в коллекцию дополнительные значения. Отдебажить, внести правки при необходимости.

Легко сказать, отдебажить..
Подскажите неучу..

Автор - petyavova
Дата добавления - 25.08.2017 в 01:06
iMrTidy Дата: Пятница, 25.08.2017, 10:02 | Сообщение № 14
Группа: Пользователи
Ранг: Участник
Сообщений: 85
Репутация: 14 ±
Замечаний: 0% ±

NO
petyavova,
Последняя строка: тут и тут обсуждалось. Уверен, если поискать, то можно найти еще.

Про работу с диапазонами, коллекциями и как отлаживать код, тоже можно поискать по форуму или в Вашем любимом поисковике.


Вышенаписанное мной не является истиной, но лишь моя точка зрения, которая скорее всего ошибочна.
 
Ответить
Сообщениеpetyavova,
Последняя строка: тут и тут обсуждалось. Уверен, если поискать, то можно найти еще.

Про работу с диапазонами, коллекциями и как отлаживать код, тоже можно поискать по форуму или в Вашем любимом поисковике.

Автор - iMrTidy
Дата добавления - 25.08.2017 в 10:02
K-SerJC Дата: Пятница, 25.08.2017, 10:47 | Сообщение № 15
Группа: Проверенные
Ранг: Обитатель
Сообщений: 487
Репутация: 86 ±
Замечаний: 0% ±

Excel 2013
Легко сказать, отдебажить..

вариантов то немного на самом деле, разобраться самому опираясь на описанные здесь подсказки
или попросить кого то решить за вас вашу проблему, но это уже в другой ветке форума.
одно дело подсказать ответ на конкретный вопрос, направить так сказать, и совсем другое сделать вам готовое решение...


Благими намерениями выстелена дорога в АД.
 
Ответить
Сообщение
Легко сказать, отдебажить..

вариантов то немного на самом деле, разобраться самому опираясь на описанные здесь подсказки
или попросить кого то решить за вас вашу проблему, но это уже в другой ветке форума.
одно дело подсказать ответ на конкретный вопрос, направить так сказать, и совсем другое сделать вам готовое решение...

Автор - K-SerJC
Дата добавления - 25.08.2017 в 10:47
petyavova Дата: Пятница, 25.08.2017, 16:14 | Сообщение № 16
Группа: Пользователи
Ранг: Новичок
Сообщений: 32
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
K-SerJC, выбирал, выбирал, вроде выводит но при активации ячейки копирования выдает ошибку 1004
[vba]
Код
Sub CheckList()
    Dim sh As Worksheet
    Dim sh1 As Worksheet
    Dim rCOunt As Long
    Dim i
    Dim myColor
    Dim myCell
    Dim newCell
Set sh = Sheets(2)
Set sh1 = Sheets(1)
With sh
rCOunt = .Cells(.Rows.Count, 1).End(xlUp).Row
myColor = sh.Range("D9").Interior.Color
For i = 26 To rCOunt
If .Cells(i, "D").Interior.Color = myColor Then
Set myCell = sh1.Range("B:B").Find(.Cells(i, "D"))
If myCell Is Nothing Then Set newCell = (.Cells(i, "D"))
      
    If newCell <> 0 Then
    'MsgBox (newCell & " вставить в Лист1")
     'newCell.Copy
     'Selection.Copy
     MsgBox (newCell)
     Sheets("Динамика").Select
     Range("B7").Select
     newCell.Insert Shift:=xlDown
      End If
    End If
    Next i
    End With
    Set sh = Nothing
    Set sh1 = Nothing
  
    End Sub
[/vba]
не могу скопировать значение в ячейку не говоря уже о последней строчке.
Почему [vba]
Код
Range("B7").Select
[/vba] не выбирается?
если закомментировать, то проходит и вставляется по моему на исходный лист.
К сообщению приложен файл: 2111664.xlsm (35.0 Kb)


Сообщение отредактировал petyavova - Пятница, 25.08.2017, 19:52
 
Ответить
СообщениеK-SerJC, выбирал, выбирал, вроде выводит но при активации ячейки копирования выдает ошибку 1004
[vba]
Код
Sub CheckList()
    Dim sh As Worksheet
    Dim sh1 As Worksheet
    Dim rCOunt As Long
    Dim i
    Dim myColor
    Dim myCell
    Dim newCell
Set sh = Sheets(2)
Set sh1 = Sheets(1)
With sh
rCOunt = .Cells(.Rows.Count, 1).End(xlUp).Row
myColor = sh.Range("D9").Interior.Color
For i = 26 To rCOunt
If .Cells(i, "D").Interior.Color = myColor Then
Set myCell = sh1.Range("B:B").Find(.Cells(i, "D"))
If myCell Is Nothing Then Set newCell = (.Cells(i, "D"))
      
    If newCell <> 0 Then
    'MsgBox (newCell & " вставить в Лист1")
     'newCell.Copy
     'Selection.Copy
     MsgBox (newCell)
     Sheets("Динамика").Select
     Range("B7").Select
     newCell.Insert Shift:=xlDown
      End If
    End If
    Next i
    End With
    Set sh = Nothing
    Set sh1 = Nothing
  
    End Sub
[/vba]
не могу скопировать значение в ячейку не говоря уже о последней строчке.
Почему [vba]
Код
Range("B7").Select
[/vba] не выбирается?
если закомментировать, то проходит и вставляется по моему на исходный лист.

Автор - petyavova
Дата добавления - 25.08.2017 в 16:14
petyavova Дата: Суббота, 26.08.2017, 16:20 | Сообщение № 17
Группа: Пользователи
Ранг: Новичок
Сообщений: 32
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Получилось скопировать.[vba]
Код

Sub AddNewINN()
    Dim sh As Worksheet
    Dim sh1 As Worksheet
    Dim rCOunt As Long
    Dim i
    Dim myColor
    Dim myCell
    Dim newCell
    Dim lastrow As Long
    
Set sh = Sheets(2)
Set sh1 = Sheets(1)
' lastrow = Sheets("Динамика").Range("A65536").End(xlUp).Row
With sh
rCOunt = .Cells(.Rows.Count, 1).End(xlUp).Row
myColor = sh.Range("D9").Interior.Color
For i = 9 To rCOunt
If .Cells(i, "D").Interior.Color = myColor Then
Set myCell = sh1.Range("B:B").Find(.Cells(i, "D"))
If myCell Is Nothing Then Set newCell = (.Cells(i, "D"))
      
    If newCell <> 0 Then
         Sheets("Динамика").Select
          lastrow = Sheets("Динамика").Range("A65536").End(xlUp).Row
     Range("A" & lastrow).Select
     ActiveCell.EntireRow.Select
     Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    MsgBox (newCell & " копировать в Лист1")
    Range("B" & lastrow).Select
      newCell.Copy 'Destination:=Sheets("Динамика").Range("B" & lastrow)
          Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
      End If
    End If
    Next i
    End With
    Set sh = Nothing
    Set sh1 = Nothing
      End Sub
[/vba]
но теперь надо вставить формулы
К сообщению приложен файл: 3626199.xlsm (33.7 Kb)


Сообщение отредактировал petyavova - Суббота, 26.08.2017, 16:21
 
Ответить
СообщениеПолучилось скопировать.[vba]
Код

Sub AddNewINN()
    Dim sh As Worksheet
    Dim sh1 As Worksheet
    Dim rCOunt As Long
    Dim i
    Dim myColor
    Dim myCell
    Dim newCell
    Dim lastrow As Long
    
Set sh = Sheets(2)
Set sh1 = Sheets(1)
' lastrow = Sheets("Динамика").Range("A65536").End(xlUp).Row
With sh
rCOunt = .Cells(.Rows.Count, 1).End(xlUp).Row
myColor = sh.Range("D9").Interior.Color
For i = 9 To rCOunt
If .Cells(i, "D").Interior.Color = myColor Then
Set myCell = sh1.Range("B:B").Find(.Cells(i, "D"))
If myCell Is Nothing Then Set newCell = (.Cells(i, "D"))
      
    If newCell <> 0 Then
         Sheets("Динамика").Select
          lastrow = Sheets("Динамика").Range("A65536").End(xlUp).Row
     Range("A" & lastrow).Select
     ActiveCell.EntireRow.Select
     Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    MsgBox (newCell & " копировать в Лист1")
    Range("B" & lastrow).Select
      newCell.Copy 'Destination:=Sheets("Динамика").Range("B" & lastrow)
          Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
      End If
    End If
    Next i
    End With
    Set sh = Nothing
    Set sh1 = Nothing
      End Sub
[/vba]
но теперь надо вставить формулы

Автор - petyavova
Дата добавления - 26.08.2017 в 16:20
KuklP Дата: Суббота, 26.08.2017, 17:05 | Сообщение № 18
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Попробуйте вместо:
[vba]
Код
If newCell <> 0 Then
Sheets("Динамика").Select
lastrow = Sheets("Динамика").Range("A65536").End(xlUp).Row
Range("A" & lastrow).Select
ActiveCell.EntireRow.Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
MsgBox (newCell & " копировать в Лист1")
Range("B" & lastrow).Select
newCell.Copy 'Destination:=Sheets("Динамика").Range("B" & lastrow)
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
[/vba]
так:
[vba]
Код
                If newCell <> 0 Then
                    lastrow = sh1.Range("A65536").End(xlUp).Row
                    sh1.Rows(lastrow - 1).Copy
                    sh1.Rows(lastrow).Insert xlDown, xlFormatFromLeftOrAbove
                    sh1.Range("B" & lastrow).Value = newCell.Value
                    Application.CutCopyMode = 0
                End If
[/vba]


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеПопробуйте вместо:
[vba]
Код
If newCell <> 0 Then
Sheets("Динамика").Select
lastrow = Sheets("Динамика").Range("A65536").End(xlUp).Row
Range("A" & lastrow).Select
ActiveCell.EntireRow.Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
MsgBox (newCell & " копировать в Лист1")
Range("B" & lastrow).Select
newCell.Copy 'Destination:=Sheets("Динамика").Range("B" & lastrow)
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
[/vba]
так:
[vba]
Код
                If newCell <> 0 Then
                    lastrow = sh1.Range("A65536").End(xlUp).Row
                    sh1.Rows(lastrow - 1).Copy
                    sh1.Rows(lastrow).Insert xlDown, xlFormatFromLeftOrAbove
                    sh1.Range("B" & lastrow).Value = newCell.Value
                    Application.CutCopyMode = 0
                End If
[/vba]

Автор - KuklP
Дата добавления - 26.08.2017 в 17:05
petyavova Дата: Воскресенье, 27.08.2017, 09:30 | Сообщение № 19
Группа: Пользователи
Ранг: Новичок
Сообщений: 32
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
KuklP, Ругается: Variable not defined.
а в оригинальном файле ругается по другому:
ошибка 424 Object required.
Подскажите почему, и как исправить.
На вид вроде правильный скрипт.
 
Ответить
СообщениеKuklP, Ругается: Variable not defined.
а в оригинальном файле ругается по другому:
ошибка 424 Object required.
Подскажите почему, и как исправить.
На вид вроде правильный скрипт.

Автор - petyavova
Дата добавления - 27.08.2017 в 09:30
KuklP Дата: Воскресенье, 27.08.2017, 09:38 | Сообщение № 20
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Кнопку ткнуть осилите?
К сообщению приложен файл: _3626199.xlsm (33.8 Kb)


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеКнопку ткнуть осилите?

Автор - KuklP
Дата добавления - 27.08.2017 в 09:38
  • Страница 1 из 2
  • 1
  • 2
  • »
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!