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

Вход

Регистрация

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

 

= Мир MS Excel/Не правильно переносит данные - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Не правильно переносит данные (Макросы/Sub)
Не правильно переносит данные
rty Дата: Четверг, 14.02.2019, 21:05 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Доброго времени уважаемые форумчане!
Прошу Вашей помощи в решении проблемы:
Есть макрос который обновляет данные из внешнего источника( Данные-Получение данных из внешних источников- Из ACCESS), потом берет эти данные и выбирает из них последнюю строчку
и вставляет в нужное место и печатает лист.
Суть проблемы: Данные обновляются но не вставляются в нужные ячейки. Только при повторном срабатывании макроса

[vba]
Код
Sub Paste()

Dim shSrc As Worksheet, shRes As Worksheet
Dim lr As Long

Application.ScreenUpdating = False

Set shSrc = Worksheets("База")
Set shRes = Worksheets("Лист1")

lr = shSrc.Cells(shSrc.Rows.Count, "A").End(xlUp).Row
shRes.Range("E24").Value = shSrc.Cells(lr, "B").Value
shRes.Range("E5").Value = shSrc.Cells(lr, "E").Value
shRes.Range("E6").Value = shSrc.Cells(lr, "G").Value
shRes.Range("E7").Value = shSrc.Cells(lr, "F").Value
shRes.Range("E8").Value = shSrc.Cells(lr, "C").Value
shRes.Range("E9").Value = shSrc.Cells(lr, "D").Value
shRes.Range("E11").Value = shSrc.Cells(lr, "M").Value

MsgBox "Ok", vbInformation
Application.ScreenUpdating = True
ActiveSheet.PrintOut
End Sub
[vba][code]
[/vba]
К сообщению приложен файл: 123456789.xlsm(28.4 Kb)


Сообщение отредактировал rty - Четверг, 14.02.2019, 22:46
 
Ответить
СообщениеДоброго времени уважаемые форумчане!
Прошу Вашей помощи в решении проблемы:
Есть макрос который обновляет данные из внешнего источника( Данные-Получение данных из внешних источников- Из ACCESS), потом берет эти данные и выбирает из них последнюю строчку
и вставляет в нужное место и печатает лист.
Суть проблемы: Данные обновляются но не вставляются в нужные ячейки. Только при повторном срабатывании макроса

[vba]
Код
Sub Paste()

Dim shSrc As Worksheet, shRes As Worksheet
Dim lr As Long

Application.ScreenUpdating = False

Set shSrc = Worksheets("База")
Set shRes = Worksheets("Лист1")

lr = shSrc.Cells(shSrc.Rows.Count, "A").End(xlUp).Row
shRes.Range("E24").Value = shSrc.Cells(lr, "B").Value
shRes.Range("E5").Value = shSrc.Cells(lr, "E").Value
shRes.Range("E6").Value = shSrc.Cells(lr, "G").Value
shRes.Range("E7").Value = shSrc.Cells(lr, "F").Value
shRes.Range("E8").Value = shSrc.Cells(lr, "C").Value
shRes.Range("E9").Value = shSrc.Cells(lr, "D").Value
shRes.Range("E11").Value = shSrc.Cells(lr, "M").Value

MsgBox "Ok", vbInformation
Application.ScreenUpdating = True
ActiveSheet.PrintOut
End Sub
[vba][code]
[/vba]

Автор - rty
Дата добавления - 14.02.2019 в 21:05
_Boroda_ Дата: Четверг, 14.02.2019, 21:17 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 14442
Репутация: 5779 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Прочитайте Правила форума
Переназовите тему согласно п.2 Правил
код засуньте в теги (в п.3 есть ссылка на пояснялку)
Приложите файл и полный текст макросов
Есть макрос который обновляет данные из внешнего источника

Обновляет как? Вернее, как данные тянутся?


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеПрочитайте Правила форума
Переназовите тему согласно п.2 Правил
код засуньте в теги (в п.3 есть ссылка на пояснялку)
Приложите файл и полный текст макросов
Есть макрос который обновляет данные из внешнего источника

Обновляет как? Вернее, как данные тянутся?

Автор - _Boroda_
Дата добавления - 14.02.2019 в 21:17
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Не правильно переносит данные (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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