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

Вход

Регистрация

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

 

= Мир MS Excel/Импорт последнего значения столбца на другой Лист Книги - Мир MS Excel

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Импорт последнего значения столбца на другой Лист Книги
pianeer91 Дата: Вторник, 14.03.2017, 17:14 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010
Добрый день!
Требуется помощь. Необходимо на ЛИСТ1 в ячейку b1 импортиовать последние значение столбца С (время) с Листа2.
На ЛИСТ2 в течении дня идет импорт данных, значения меняются. Чтобы видеть на каком значении сейчас импорт данных.
К сообщению приложен файл: 1327267.xls (24.0 Kb)


Сообщение отредактировал pianeer91 - Вторник, 14.03.2017, 17:16
 
Ответить
СообщениеДобрый день!
Требуется помощь. Необходимо на ЛИСТ1 в ячейку b1 импортиовать последние значение столбца С (время) с Листа2.
На ЛИСТ2 в течении дня идет импорт данных, значения меняются. Чтобы видеть на каком значении сейчас импорт данных.

Автор - pianeer91
Дата добавления - 14.03.2017 в 17:14
buchlotnik Дата: Вторник, 14.03.2017, 17:21 | Сообщение № 2
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
так?
Код
=ПРОСМОТР(9^9;Лист2!B:B)
К сообщению приложен файл: 1332989.xls (24.5 Kb)
 
Ответить
Сообщениетак?
Код
=ПРОСМОТР(9^9;Лист2!B:B)

Автор - buchlotnik
Дата добавления - 14.03.2017 в 17:21
pianeer91 Дата: Вторник, 14.03.2017, 17:54 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010
К сообщению приложен файл: 1332989.xls(24Kb)

Да смысл правильный.
Но я пока писал ошибься.
Надо на ЛИСТ1 отдавать значение столбца С, где время. Пробую перенастроить на столбец С, пишет НД.
 
Ответить
Сообщение
К сообщению приложен файл: 1332989.xls(24Kb)

Да смысл правильный.
Но я пока писал ошибься.
Надо на ЛИСТ1 отдавать значение столбца С, где время. Пробую перенастроить на столбец С, пишет НД.

Автор - pianeer91
Дата добавления - 14.03.2017 в 17:54
buchlotnik Дата: Вторник, 14.03.2017, 18:41 | Сообщение № 4
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
Цитата
смысл правильный
и на том спасибо.
Цитата
пишет НД
может потому что там на самом деле не время, а текст?
Код
=ПРОСМОТР("яяя";Лист2!C:C)
К сообщению приложен файл: 6997860.xls (25.5 Kb)
 
Ответить
Сообщение
Цитата
смысл правильный
и на том спасибо.
Цитата
пишет НД
может потому что там на самом деле не время, а текст?
Код
=ПРОСМОТР("яяя";Лист2!C:C)

Автор - buchlotnik
Дата добавления - 14.03.2017 в 18:41
китин Дата: Среда, 15.03.2017, 08:08 | Сообщение № 5
Группа: Модераторы
Ранг: Экселист
Сообщений: 7034
Репутация: 1079 ±
Замечаний: 0% ±

Excel 2007;2010;2016
без формул, макросом
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)

Dim TT&
  TT = Cells(Rows.Count, 3).End(xlUp).Row
    If Intersect(Target, Range("C" & TT)) Is Nothing Then Exit Sub
     
      Application.ScreenUpdating = False
      Application.Calculation = xlCalculationManual
      Application.EnableEvents = False
    Range("B" & TT).Copy
     Sheets("Лист1").Activate
      Dim r&
       r = Sheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Row
     ActiveSheet.Range("A" & r + 1).Select
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Sheets("Лист2").Activate
        
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
        
End Sub
[/vba]
[p.s.]критика гуру приветствуется
К сообщению приложен файл: 333111.xls (35.5 Kb)


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852


Сообщение отредактировал китин - Среда, 15.03.2017, 08:27
 
Ответить
Сообщениебез формул, макросом
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)

Dim TT&
  TT = Cells(Rows.Count, 3).End(xlUp).Row
    If Intersect(Target, Range("C" & TT)) Is Nothing Then Exit Sub
     
      Application.ScreenUpdating = False
      Application.Calculation = xlCalculationManual
      Application.EnableEvents = False
    Range("B" & TT).Copy
     Sheets("Лист1").Activate
      Dim r&
       r = Sheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Row
     ActiveSheet.Range("A" & r + 1).Select
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Sheets("Лист2").Activate
        
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
        
End Sub
[/vba]
[p.s.]критика гуру приветствуется

Автор - китин
Дата добавления - 15.03.2017 в 08:08
pianeer91 Дата: Среда, 15.03.2017, 10:50 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010
смысл правильный
и на том спасибо.
Цитата
пишет НД
может потому что там на самом деле не время, а текст?

=ПРОСМОТР("яяя";Лист2!C:C)
К сообщению приложен файл: 6997860.xls(26Kb)

Я видимо все-таки всех немного ввел в заблуждение недостатком информации.
Если еще есть желающие помочь, буду очень благодарен.
Есть программа из которой в режиме онлайн идет экспорт данных. Все данные экспортируются в определенный файл для экспорта назовем его файл №1.
В другом файле №2 идут расчеты. ПОчему не идет в экспорт в 1 файл, объяснять долго, 100500 причин.
Расчет ведутся на основании данных в файла №1.
Усовершенствую пример, приблизив к тому, что есть. только заменю файл 1 на лист 3 файла 2.
Как будто экспорт постоянно идет в лист 3. из него необходимые данные мы начинаем экспортировать в ЛИСТ 2. Чтобы было удобно мы экспортируем все
формулой =ЕСЛИ(Лист3!A1<>"";Лист3!A1;"") и протягиваем вниз и вправо, в день бывает 30 тысяч строк.
Как мы видим в работе формулы есть загвоздка она отдает значение последней ячейки значения, а нас получается всегда будет формула.
На листе 1 мы должны видить время последней закачанной строки (то есть последние закачанное значение столбца B), чтобы понимать идет импорт или возникла ошибка и он остановился.
Надеюсь на этот раз смогут объяснить подробно. буду очень благодарен за помощь!!!
Еще раз извиняюсь.
[moder]Нарушение п.5j и п.3 в части тегов Правил форума
Блин! Когда 2 цитаты, то при редактировании поста верхняя стирается[/moder]
К сообщению приложен файл: 0038833.xls (27.5 Kb)
 
Ответить
Сообщение
смысл правильный
и на том спасибо.
Цитата
пишет НД
может потому что там на самом деле не время, а текст?

=ПРОСМОТР("яяя";Лист2!C:C)
К сообщению приложен файл: 6997860.xls(26Kb)

Я видимо все-таки всех немного ввел в заблуждение недостатком информации.
Если еще есть желающие помочь, буду очень благодарен.
Есть программа из которой в режиме онлайн идет экспорт данных. Все данные экспортируются в определенный файл для экспорта назовем его файл №1.
В другом файле №2 идут расчеты. ПОчему не идет в экспорт в 1 файл, объяснять долго, 100500 причин.
Расчет ведутся на основании данных в файла №1.
Усовершенствую пример, приблизив к тому, что есть. только заменю файл 1 на лист 3 файла 2.
Как будто экспорт постоянно идет в лист 3. из него необходимые данные мы начинаем экспортировать в ЛИСТ 2. Чтобы было удобно мы экспортируем все
формулой =ЕСЛИ(Лист3!A1<>"";Лист3!A1;"") и протягиваем вниз и вправо, в день бывает 30 тысяч строк.
Как мы видим в работе формулы есть загвоздка она отдает значение последней ячейки значения, а нас получается всегда будет формула.
На листе 1 мы должны видить время последней закачанной строки (то есть последние закачанное значение столбца B), чтобы понимать идет импорт или возникла ошибка и он остановился.
Надеюсь на этот раз смогут объяснить подробно. буду очень благодарен за помощь!!!
Еще раз извиняюсь.
[moder]Нарушение п.5j и п.3 в части тегов Правил форума
Блин! Когда 2 цитаты, то при редактировании поста верхняя стирается[/moder]

Автор - pianeer91
Дата добавления - 15.03.2017 в 10:50
pianeer91 Дата: Четверг, 16.03.2017, 17:11 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010
Прошу прощения, если это сообщение считается оффтопом.
Но я так понял данную задачу не возможно решить не макросом?
 
Ответить
СообщениеПрошу прощения, если это сообщение считается оффтопом.
Но я так понял данную задачу не возможно решить не макросом?

Автор - pianeer91
Дата добавления - 16.03.2017 в 17:11
  • Страница 1 из 1
  • 1
Поиск:

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