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

Страницы: 1
вставка значений в ячейки зависит от строчки из выпадающего списка
 
Всем доброго время суток! Подскажите как это можно решить при выборе строчке из выпадающего списка значения в другие ячейки вставлялись из таблицы данных. И при вводе значений в другой ячейке вставлялось время. В файле есть форма моей задачи.....
Соединение подобных макросов на одном листе
 
Всем доброй времени суток!
Подскажите как соединять подобные макросы с ссылками на разные ячейки. В прикрепленном файле требуется три ячейки с динамическим пополняемым выпадающим списком (G11,D12 и L13).
вот для G11 макрос:
Private Sub Worksheet_Change(ByVal Target As Range)

Dim lReply As Long

   If Target.Cells.Count > 1 Then Exit Sub
       If Target.Address = "$G$11" Then
           If IsEmpty(Target) Then Exit Sub
               If WorksheetFunction.CountIf(Range("Покупатель"), Target) = 0 Then
                   lReply = MsgBox("Добавить хозяйтво " & Target & " в список?", vbYesNo + vbQuestion)
                       If lReply = vbYes Then
                           Range("Покупатель").Cells(Range("Покупатель").Rows.Count + 1, 1) = Target
                       End If
               End If
       End If
End Sub
и второй D12:
Private Sub Worksheet_Change(ByVal Target As Range)

Dim lReply As Long

   If Target.Cells.Count > 1 Then Exit Sub
       If Target.Address = "$D$12" Then
           If IsEmpty(Target) Then Exit Sub
               If WorksheetFunction.CountIf(Range("В_лице"), Target) = 0 Then
                   lReply = MsgBox("Добавить введенное имя " & Target & " в выпадающий список?", vbYesNo + vbQuestion)
                       If lReply = vbYes Then
                           Range("В_лице").Cells(Range("В_лице").Rows.Count + 1, 1) = Target
                       End If
               End If
       End If
End Sub
После создания второго макроса попал  тупик КАК?.
Навыки в VBA сводятся к поиску подобного и подстройки под себя........
задача №1
Как организовать работу ячеек с выпадающими списками?
задача №2
Как автоматически изменить шрифт в ячейке Y42, чтоб всё влезло?
ну и задача №3
Возможно ли сделать так - когда в базу списков введены в ручную данные...... и при следующем выборе в ячейке G11из списка,  ячейки D12 и L13 заполнялись автоматически согласно введенным данным ранее?
P.S. смайлики это - скобки закрыть ")"
автоматический счет при наличии знака "№" в соседние ячейке
 
Спасибо за оперативность, работают последние два варианта...............
автоматический счет при наличии знака "№" в соседние ячейке
 
Всем доброго времени суток!
Требуется подсказка по решению задачи........ Как организовать автоматическую нумерацию строк при наличии в соседней ячейке знака "№". В примере показано как ведется счет при заполнении соседней ячейки, а также показан пример поставленной задачи........
Найти повторы, объединить и удалить
 
Спасибо за макрос к61!
Макросом переместил, через "найти" выделил объединенные ячейки и удалил. Пустые строки удалил с помощью PLEX. Операция одноразовая так, что макрос спас от ручной работы по удалению двойных ячеек................ P.S. В прошлый раз потребовалось два дня.
Найти повторы, объединить и удалить
 
Все доброго время суток!

Есть задача........ в одном столбце есть данные в которых есть повторяющие данные - которые надо удалить. Но есть условия, (1)надо удалить только те повторы у которых нет цифры в начале строки, (2) перед удалением объединить с верхней  ячейкой, (3) после удаления повторов - удалить пустые строки, с условием чтоб осталась одна пустая  строка перед фамилией.
Все мои попытки решить задачу были такие:
выделить и переместить ячейку "При контроле ошибки не обнаружены" во второй столбик на против фамилии......
объединить по строкам столбцы без потери данных......
через найти и выделить удалить данные.........
и командой PLEX удалить пустые строки....
Вопрос? Как выделить все ячейки "При контроле ошибки не обнаружены" чтоб можно было переместить....... или скопировать, а потом вставить на одну строку выше?
P.S. Ссылки на примеры или темы приветствуются.........
Страницы: 1
Наверх