Здравствуйте уважаемые знатоки экселя! помогите пожалуйста решить задачку (для 1 класса Excel) есть данные, список огромный! необходимо разнести по выбору ячеек соответственно в свой лист автоматически, думаю что ВПР можно но не понимаю как?!?!?
что бы при вводе значения (например Х) на первом листе, данные ФИО скажем - заполнялись в соответствующем листе
Уважаемые форумчане помогите пожалуйста решить проблему: как в моем случае сделать автоматически удаляемые или добавляемые строки в примере (лист гр1, гр2), если по выпадающему списку на листе гр1 две строки данных а отображалось бы три (+ одна пустая),или гр2 - 4 строки занято + еще одна пустая, и в случае добавления в последней данных по выпадающему списку, автоматически добавлялась еще строка., но при этом данные под таблицей "спускались ниже". а в случае удаления данных из строк (лист гр1, гр2), таблица так же сокращалась!
Доброе утро друзья! помогите пожалуйста разобраться с макросом (взял его на одной из веток) штука хорошая, но мне нужно что бы она копировала не формулы из ячеек а значения, моих мозгов на это не хватит никогда, и вся надежда на Ваши Светлые головы!!!
Код
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
при работе с большим числом строк (от 300 и более) сложно удержать всю информацию в голове, а при выборе данных на другой странице (выпадающий список Лист2) хотелось бы видеть подсветку использованных строк с Лист 1
с моим зрением листать весь форум тяжеловато, подскажите пожалуйста!
Друзья! здравствуйте!!! разобрался как подсветить временной промежуток через УФ, но не могу понять как сделать это по выбору дня недели: (пример: пн вт пт) в примере..
задача: написать в желтой ячейке - лист гр1 - день недели (пн, вт, ср, чт, пт, сб, вс) - указать время начала и время окончания - подсветка соответствовала нужному дню.
Ребята! понимаю что дело ерундовое, но вот такая фишка: нужно колонку протянут со связями на существующую таблицу, там даты, а они гады переворачиваются в 00.01.1900 если нет пока еще даты в первой таблице.. я уже весь форум перерыл, глаза не видят! ПОМОГИТЕ пожалуйста!
Доброго времени суток уважаемые экселеводы!!! такая вот проблема: при установке защиты на листе, перестают работать кнопки фильтрации в таблице... у кого светлая голова и обе правые руки... ПОМОГИТЕ ПОЖАЛУЙСТА!!!
помогите пожалуйста упростить ввод даты по формату скажем: вторник, четверг - и в таблице В2-В26(см. приложение) автоматом встают полные даты (01.09.2016) с сентября по май именно вторника и четверга
не могу решить проблему изменения ссылки на соседний лист после удаления части таблицы в данных (а это необходимое условие) ссылка переходит =#ССЫЛКА! помогите пожалуйста решить эту проблему..
Здравствуйте ув. "ЭКСЕЛеводы" и эксперты в делах формул и макросов!
Прошу помощи в решении задачи сбора данных с книг: таких книг более 100! в каждой куча информации на первом листе - Лист1- требуется собрать воедино в отдельной книге данные со всех книг, с возможность обновления данных в исходниках и разумеется автоматических обновлением в собранном файле. Таблицы одинаковые, разница только в количестве заполненных строк. пример по ссылке не подходит, в силу сбора данных по разным листам, вызывает ошибки сбора информации и тд.. работать с этим файлом будет женщина! и нужно упростить до "включения чайника" кнопка "ТЫК" (обновить)
Простите заработался!! с таким количеством бумаг у педагога голова идет кругом!!!!! ПОМОГИТЕ ПОЖАЛУЙСТА!!!! посчитать столбик из ячеек при условии что: 0 или - не считать, а любое текстовое значение (лучик. солнышко) в сумму =2
Здравствуйте уважаемые форумчане! и ЭКСЕЛЕВОДЫ!!! я не молодой педагог - и мне требуется разнести большое количество данных в разные справки ( они есть в примере) но взятые из первой вкладки - алфавит - 11 строка есть колонка - соц.статус- (смотрите сокращения) пишем одно значение -м- я получаю во вкладке М - все что нужно. ТРЕБУЕТСЯ: строка 12 пишем в столбце I12 например м,с,ди - данные этого человека должны попасть на вкладки М С ДИ
вы очень поможете педагогу поспать лишний час ночью....СПАСИБО! данный файлик уже собран с вашей помощью.. за что низкий поклон.