Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
заполнение данных по выбору
 
Здравствуйте уважаемые знатоки экселя!
помогите пожалуйста решить задачку (для 1 класса Excel)
есть данные, список огромный! необходимо разнести по выбору ячеек соответственно в свой лист автоматически, думаю что ВПР можно но не понимаю как?!?!?

что бы при вводе значения (например Х) на первом листе, данные ФИО скажем - заполнялись в соответствующем листе
Изменено: Jystas - 9 Апр 2019 17:06:22
Автоматическое добавление или удаление строк в таблице.
 
Уважаемые форумчане помогите пожалуйста решить проблему:
как в моем случае сделать автоматически удаляемые или добавляемые строки в примере (лист гр1, гр2), если по выпадающему списку на листе гр1 две строки данных а отображалось бы три (+ одна пустая),или гр2 - 4 строки занято + еще одна пустая, и в случае добавления в последней данных по выпадающему списку, автоматически добавлялась еще строка., но при этом данные под таблицей "спускались ниже".
а в случае удаления данных из строк (лист гр1, гр2), таблица так же сокращалась!
Изменено: Jystas - 28 Июн 2018 14:29:43
Копирование значения а не формул, макрос копирует формулу, а необходимо значение
 
Доброе утро друзья! помогите пожалуйста разобраться с макросом (взял его на одной из веток) штука хорошая, но мне нужно что бы она копировала не формулы из ячеек а значения, моих мозгов на это не хватит никогда, и вся надежда на Ваши Светлые головы!!!
Код
Option Explicit

Sub CollectAllClients()
Dim BazaWb As Workbook 'текущая книга (общий файл)
Dim BazaSht As Worksheet 'лист База покупателей в общем файле
Dim iTempFileName As String 'имя по-очерёдно открываемого файла
Dim iPath As String 'путь к папке, где лежат все файлы
Dim iLastRowBaza As Long 'последняя заполненная строка в общем файле в столбце A
Dim iLastRowTempWb As Long 'последняя заполненная строка в по-очерёдно открываемом файле в столбце A
Dim iNumFiles As Long 'количество открываемых файлов

    With Application 'операции с приложением/отключаем для повышения скорости работы макроса
        .ScreenUpdating = False 'обновление экрана
        .DisplayAlerts = False 'выод системных сообщений
        .Calculation = xlManual 'автопересчет формул
        
        'присваиваем значения нашим переменным
        Set BazaWb = ThisWorkbook
        Set BazaSht = BazaWb.Sheets("данные")
        iPath = BazaWb.Path & "\"
        iTempFileName = Dir(iPath & "*.xlsm")
        Do While iTempFileName <> "" 'запускае цикл перебора файдов в папке
            If iTempFileName <> BazaWb.Name Then 'если имя файла не равно общему открываем
                With .Workbooks.Open _
                     (Filename:=iPath & iTempFileName, UpdateLinks:=False, ReadOnly:=True)
                     iNumFiles = iNumFiles + 1
                     'Рабочая книга не должна быть защищена паролем
                     With .Worksheets("алфавит") 'с конкретным листом в открытой книге
                          'номер последней заполенной строки
                          iLastRowTempWb = .Cells(Rows.Count, 2).End(xlUp).Row
                          'последняя строка в итоговом файле на листе
                          iLastRowBaza = BazaSht.Cells(Rows.Count, 1).End(xlUp).Row + 1
                          'копируем диапазон с открытой книги в заданный лист
                          .Range("B11:Q175").Copy Destination:=BazaSht.Cells(iLastRowBaza, 1)
                     End With
                     .Close saveChanges:=False
                End With
            End If
            iTempFileName = Dir 'следующий файл
        Loop
        
        'включаем что отключили
        .Calculation = xlAutomatic
        .DisplayAlerts = True
        .ScreenUpdating = True
    End With
    MsgBox "Информация собрана из " & iNumFiles & " файлов!", vbInformation, "Конец"
End Sub 
Изменено: Jystas - 20 Дек 2017 13:36:13
Выделение по условию использованной ячейки
 
Здравствуйте! уважаемые экселеводы и форумчане!

при работе с большим числом строк (от 300 и более) сложно удержать всю информацию в голове, а при выборе данных на другой странице (выпадающий список Лист2) хотелось бы видеть подсветку использованных строк с Лист 1

с моим зрением листать весь форум тяжеловато, подскажите пожалуйста!
Подсветить временной промежуток по выбору дня недели
 
Друзья! здравствуйте!!!
разобрался как подсветить временной промежуток через УФ,  но не могу понять как сделать это по выбору дня недели: (пример: пн вт пт) в примере..

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

пытаюсь автоматизировать заполнение "шахматного расписания", но не понимаю как это реализовать..
если есть какие либо идеи буду рад услышать!

и так: при расстановки заданного времени в ячейках верхних таблиц, цветовая градация заполнялась в общей, как в примере..
00.01.1900 в ячейке
 
Ребята! понимаю что дело ерундовое, но вот такая фишка: нужно колонку протянут со связями на существующую таблицу, там даты, а они гады переворачиваются в 00.01.1900 если нет пока еще даты в первой таблице..
я уже весь форум перерыл, глаза не видят! ПОМОГИТЕ пожалуйста!

ДД.ММ.ГГГГ;;;  это правильно? нашел!
Изменено: Jystas - 21 Сен 2017 21:52:00
Блокируются кнопки при установке защиты на лист, перестают работать кнопки фильтрации в таблице
 
Доброго времени суток уважаемые экселеводы!!!
такая вот проблема: при установке защиты на листе, перестают работать кнопки фильтрации в таблице...
у кого светлая голова и обе правые руки... ПОМОГИТЕ ПОЖАЛУЙСТА!!!
[ Закрыто] таблица с датами, вставка даты маске
 
Доброго времени всем экселеводам!

помогите пожалуйста упростить ввод даты по формату скажем: вторник, четверг - и в таблице В2-В26(см. приложение) автоматом встают полные даты (01.09.2016) с сентября по май именно вторника и четверга

простите, искал по форму, не нашел...
После удаления части таблицы ссылка переходит в =#ССЫЛКА!
 
не могу решить проблему изменения ссылки на соседний лист после удаления части таблицы в данных (а это необходимое условие) ссылка переходит =#ССЫЛКА!
помогите пожалуйста решить эту проблему..
Обьеденить данные с разных листов, получение сводной таблицы
 
Здравствуйте ув. "ЭКСЕЛеводы" и эксперты в делах формул и макросов!

Прошу помощи в решении задачи сбора данных с книг: таких книг более 100! в каждой куча информации на первом листе - Лист1- требуется собрать воедино в отдельной книге данные со всех книг, с возможность обновления данных в исходниках и разумеется автоматических обновлением в собранном файле. Таблицы одинаковые, разница только в количестве заполненных строк. пример по ссылке не подходит, в силу сбора данных по разным листам, вызывает ошибки сбора информации и тд..
работать с этим файлом будет женщина! и нужно упростить до "включения чайника" кнопка "ТЫК" (обновить)

ОЧЕНЬ ПРОШУ ПОМОЧЬ!!!
Изменено: Jystas - 18 Окт 2016 22:15:20
Счет ячеек с текстовым значением
 
Простите заработался!! с таким количеством бумаг у педагога голова идет кругом!!!!! ПОМОГИТЕ ПОЖАЛУЙСТА!!!! посчитать столбик из ячеек при условии что: 0 или - не считать, а любое текстовое значение (лучик. солнышко) в сумму =2
Изменено: Jystas - 29 Сен 2016 11:19:33
разнести данные из таблицы по нескольким значениям в одной ячейке, Помогите педагогу облегчить труд!
 
Здравствуйте уважаемые форумчане! и ЭКСЕЛЕВОДЫ!!!
я не молодой педагог - и мне требуется разнести большое количество данных в разные справки ( они есть в примере) но взятые из первой вкладки - алфавит - 11 строка есть колонка - соц.статус- (смотрите сокращения) пишем одно значение -м- я получаю во вкладке М - все что нужно.
ТРЕБУЕТСЯ: строка 12 пишем в столбце I12 например м,с,ди - данные этого человека должны попасть на вкладки М С ДИ

вы очень поможете педагогу поспать лишний час ночью....СПАСИБО!
данный файлик уже собран с вашей помощью.. за что низкий поклон.
Изменено: Jystas - 16 Сен 2016 22:23:05
Страницы: 1
Наверх