Как в excel из нескольких листов перенести данные в один? - Мир MS Excel

Регистрация

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

= Мир MS Excel/Как в excel из нескольких листов перенести данные в один? - Мир MS Excel

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

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

Как в excel из нескольких листов перенести данные в один? (Word)

Как в excel из нескольких листов перенести данные в один?

Дата: Пятница, 21.04.2017, 13:30 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

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

Замечаний: 0% ±

Excel 2007

На работе в больнице создали лист в Exel 2007. Выписка больничных рецептов, внутри документа 2 листы первый - данные о пациэнте + лекарства + остальное. Этот лист врач должен вписать и выбрать из списка необходимые данные (уже забиты).

На втором листе таблица с шапкой сверху в низ, колонки есть, сюда нужно как то перенести данные, которые будут меняться (у врача постоянно открыты 1й рецепт, он внес данные и например может какую-то кнопку сделать ), но что бы они друг друга не стирали, а писались в колонку. Дата, номер рецепта, фамилия пациента, адрес проживания и т. д.

Функцию (=) и нажать Ентер я пробовал пробует писать не не все, а на следующую строку не знаю как сделать переход, при приеме нового пациента. И что бы не стирало или не перезаписывало данные предыдущего пациента.

Помогите пожалуйста. Я в этом не очень.

К сообщению приложен файл: 7310946.xlsx (51.7 Kb)

Сообщение отредактировал BUNKER2 - Пятница, 21.04.2017, 13:30

Ответить

Дата: Пятница, 21.04.2017, 14:00 | Сообщение № 2

Группа: Модераторы

Ранг: Экселист

Сообщений: 7029

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

Замечаний: 0% ±

Excel 2007;2010;2016

и что сделать, если лист Реестр запаролен? пароль тоже ломать надо?

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

Ответить

Дата: Пятница, 21.04.2017, 14:27 | Сообщение № 3

Группа: Модераторы

Ранг: Экселист

Сообщений: 7029

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

Замечаний: 0% ±

Excel 2007;2010;2016

вот такой ущербненький макросик
[vba]

Код

Sub RRR()
  Dim k&
  k = Sheets("Реєстр").Cells(Rows.Count, 2).End(xlUp).Row


      Sheets("Реєстр").Range("D" & k + 1).Value = Sheets("РЕЦЕПТ").Range("F5").Value
      Sheets("Реєстр").Range("E" & k + 1).Value = Sheets("РЕЦЕПТ").Range("I5").Value
      Sheets("Реєстр").Range("F" & k + 1).Value = Sheets("РЕЦЕПТ").Range("A7").Value
      Sheets("Реєстр").Range("C" & k + 1).Value = Sheets("РЕЦЕПТ").Range("C10").Value
      Sheets("Реєстр").Range("G" & k + 1).Value = Sheets("РЕЦЕПТ").Range("E32:E33").Value
      Sheets("Реєстр").Range("B" & k + 1).Value = Sheets("РЕЦЕПТ").Range("H10").Value

End Sub

[/vba]

К сообщению приложен файл: _7310946.xlsm (51.8 Kb)

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

Ответить

Дата: Пятница, 21.04.2017, 19:59 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

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

Замечаний: 0% ±

Excel 2007

Простите, пока отсылал поставили пароль, от сотрудников. Пароль 01012013

Ответить

Дата: Пятница, 21.04.2017, 22:01 | Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

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

Замечаний: 0% ±

Excel 2007

Большое спасибо. Скажу про реакцию врачей в понедельник hands

hands

Ответить

Дата: Пятница, 21.04.2017, 22:01 | Сообщение № 6

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

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

Замечаний: 0% ±

Excel 2007

Цитата китин, 21.04.2017 в 14:27, в сообщении № 3 ()

вот такой ущербненький макросик

Большое спасибо. Скажу про реакцию врачей в понедельник hands

hands

hands

hands

Ответить

Дата: Вторник, 25.04.2017, 13:37 | Сообщение № 7

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

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

Замечаний: 0% ±

Excel 2007

китин, Добрій день! Все очень понравилось, только строка Sheets("Реєстр").Range("G" & k + 1).Value = Sheets("РЕЦЕПТ").Range("E32:E33").Value
не обьеденяет текст из 2х ячеек в одну.
Как сделать что бы обьеденяло только поменять значения на В32:С32 . Тут получаеться половина справочника верхнего пишет влево а половина вправо так как ексель 2007 и мало дается для базы.
Я честно непонимаю.

Ответить

Дата: Вторник, 25.04.2017, 13:47 | Сообщение № 8

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

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

Замечаний: 0% ±

Excel 2007

китин, Помоему получилось, посмотрите по крайней мере у меня такой код
Sheets("Ðåºñòð").Range("G" & k + 1).Value = Sheets("ÐÅÖÅÏÒ").Range("B32").Value & Sheets("ÐÅÖÅÏÒ").Range("E32").Value

Ответить

Дата: Вторник, 25.04.2017, 14:01 | Сообщение № 9

Группа: Модераторы

Ранг: Экселист

Сообщений: 7029

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

Замечаний: 0% ±

Excel 2007;2010;2016

BUNKER2, вы посмотрите как у меня код оформлен. очень хорошо читается и как ваш не видать
Как оформлять сообщения?
[p.s.] и когда код копируете копируйте его в русской раскладке. тогда кракозябров не будет

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

Ответить

Дата: Вторник, 25.04.2017, 14:28 | Сообщение № 10

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

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

Замечаний: 0% ±

Excel 2007

китин, Да, простите, бегаю на работе из кабинета в кабинет. Не посмотрел. оправил как скопировал.
Sheets("Реєстр").Range("G" & k + 1).Value = Sheets("РЕЦЕПТ").Range("B32").Value & Sheets("РЕЦЕПТ").Range("E32").Value

Ответить

Дата: Вторник, 25.04.2017, 14:46 | Сообщение № 11

Группа: Модераторы

Ранг: Экселист

Сообщений: 7029

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

Замечаний: 0% ±

Excel 2007;2010;2016

Цитата китин, 25.04.2017 в 14:01, в сообщении № 9 ()

посмотрите как у меня код оформлен

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

Ответить

Дата: Вторник, 25.04.2017, 14:52 | Сообщение № 12

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

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

Сообщений: 19403

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

Замечаний: ±

Excel 365 & Mac Excel

BUNKER2, оформите уже коды тегами с помощью кнопки # в режиме правки поста. Иначе помощь будет приостановлена

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Как в excel из нескольких листов перенести данные в один? (Word)

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

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