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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, китин  
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Как в excel из нескольких листов перенести данные в один? (Word)
Как в excel из нескольких листов перенести данные в один?
BUNKER2 Дата: Пятница, 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
 
Ответить
СообщениеНа работе в больнице создали лист в Exel 2007. Выписка больничных рецептов, внутри документа 2 листы первый - данные о пациэнте + лекарства + остальное. Этот лист врач должен вписать и выбрать из списка необходимые данные (уже забиты).

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

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

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

Автор - BUNKER2
Дата добавления - 21.04.2017 в 13:30
китин Дата: Пятница, 21.04.2017, 14:00 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
и что сделать, если лист Реестр запаролен? пароль тоже ломать надо?


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщениеи что сделать, если лист Реестр запаролен? пароль тоже ломать надо?

Автор - китин
Дата добавления - 21.04.2017 в 14:00
китин Дата: Пятница, 21.04.2017, 14:27 | Сообщение № 3
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация: 1073 ±
Замечаний: 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
 
Ответить
Сообщениевот такой ущербненький макросик
[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]

Автор - китин
Дата добавления - 21.04.2017 в 14:27
BUNKER2 Дата: Пятница, 21.04.2017, 19:59 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Простите, пока отсылал поставили пароль, от сотрудников. Пароль 01012013
 
Ответить
СообщениеПростите, пока отсылал поставили пароль, от сотрудников. Пароль 01012013

Автор - BUNKER2
Дата добавления - 21.04.2017 в 19:59
BUNKER2 Дата: Пятница, 21.04.2017, 22:01 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - BUNKER2
Дата добавления - 21.04.2017 в 22:01
BUNKER2 Дата: Пятница, 21.04.2017, 22:01 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

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

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

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

Автор - BUNKER2
Дата добавления - 21.04.2017 в 22:01
BUNKER2 Дата: Вторник, 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 и мало дается для базы.
Я честно непонимаю.
 
Ответить
Сообщениекитин, Добрій день! Все очень понравилось, только строка Sheets("Реєстр").Range("G" & k + 1).Value = Sheets("РЕЦЕПТ").Range("E32:E33").Value
не обьеденяет текст из 2х ячеек в одну.
Как сделать что бы обьеденяло только поменять значения на В32:С32 . Тут получаеться половина справочника верхнего пишет влево а половина вправо так как ексель 2007 и мало дается для базы.
Я честно непонимаю.

Автор - BUNKER2
Дата добавления - 25.04.2017 в 13:37
BUNKER2 Дата: Вторник, 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
 
Ответить
Сообщениекитин, Помоему получилось, посмотрите по крайней мере у меня такой код
Sheets("Ðåºñòð").Range("G" & k + 1).Value = Sheets("ÐÅÖÅÏÒ").Range("B32").Value & Sheets("ÐÅÖÅÏÒ").Range("E32").Value

Автор - BUNKER2
Дата добавления - 25.04.2017 в 13:47
китин Дата: Вторник, 25.04.2017, 14:01 | Сообщение № 9
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация: 1073 ±
Замечаний: 0% ±

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


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

Автор - китин
Дата добавления - 25.04.2017 в 14:01
BUNKER2 Дата: Вторник, 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
 
Ответить
Сообщениекитин, Да, простите, бегаю на работе из кабинета в кабинет. Не посмотрел. оправил как скопировал.
Sheets("Реєстр").Range("G" & k + 1).Value = Sheets("РЕЦЕПТ").Range("B32").Value & Sheets("РЕЦЕПТ").Range("E32").Value

Автор - BUNKER2
Дата добавления - 25.04.2017 в 14:28
китин Дата: Вторник, 25.04.2017, 14:46 | Сообщение № 11
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
посмотрите как у меня код оформлен


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщение
посмотрите как у меня код оформлен

Автор - китин
Дата добавления - 25.04.2017 в 14:46
Pelena Дата: Вторник, 25.04.2017, 14:52 | Сообщение № 12
Группа: Админы
Ранг: Местный житель
Сообщений: 19161
Репутация: 4412 ±
Замечаний: ±

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


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеBUNKER2, оформите уже коды тегами с помощью кнопки # в режиме правки поста. Иначе помощь будет приостановлена

Автор - Pelena
Дата добавления - 25.04.2017 в 14:52
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Как в excel из нескольких листов перенести данные в один? (Word)
  • Страница 1 из 1
  • 1
Поиск:

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