Не правильно переносит данные

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Не правильно переносит данные (Макросы/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

Ответить

_Boroda_

Дата: Четверг, 14.02.2019, 21:17 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16718

Репутация: 6505 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Прочитайте Правила форума
Переназовите тему согласно п.2 Правил
код засуньте в теги (в п.3 есть ссылка на пояснялку)
Приложите файл и полный текст макросов

Цитата rty, 14.02.2019 в 21:05, в сообщении № 1 ()

Есть макрос который обновляет данные из внешнего источника

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

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Не правильно переносит данные (Макросы/Sub)

Страница 1 из 1
1