Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 След.
Как обновить форму при выборе из ComboBox
 
gling здравствуйте, спасибо Вам за подсказку, помогло!!!
МатросНаЗебре, MikeVol спасибо Вам за помощь!!!
Как обновить форму при выборе из ComboBox
 
Цитата
написал:
Что-то я вообще не понял, какая форма и как она должна перезагрузится? Вариант для
Перезагрузиться должно та форма, на которой находится "ComboBox"
Цитата
написал:
Unload Средства_измеренийVBAProject.A00_Заказчик.Show (0)
Вот тут писал, название формы, которая должна перезагрузится. Допусти ошибку, извините, надо не так:
Цитата
написал:
Unload Средства_измеренийVBAProject.A00_Заказчик.Show (0)
А вот так:
Код
Unload Средства_измерений
VBAProject.Средства_измерений.Show (0)

Как обновить форму при выборе из ComboBox
 
Цитата
написал:
А вам точно отдельная форма нужна?
Да, очень нужна, просто на ней еще несколько Combobox, которые обновляются толь после перезагрузки формы
Как обновить форму при выборе из ComboBox
 
МатросНаЗебре, так заработала только форма не перезагружается при выборе из "ComboBox, куда дописать это?:
Код
Unload Средства_измерений
VBAProject.A00_Заказчик.Show (0)
Ну или при выборе из "ComboBox записать данные и запустить макрос?
Изменено: Delux - 27.06.2025 13:18:52
Как обновить форму при выборе из ComboBox
 
МатросНаЗебре, когда помещаю Ваш код в форму, и пытаюсь запустить форму, выбрасывает из Excel, железо нормальное
Как обновить форму при выборе из ComboBox
 
Msi2102, исправил на "загружает")) опечатка
Как обновить форму при выборе из ComboBox
 
Здравствуйте, подскажите подскажите пожалуйста! У меня имеется "Форма" на ней "ComboBox", он загружает список дат с листа "Нор_Док_МРК" и при выборе даты записывает на лист "Данные" ячейка "G5". Как сделать так? чтобы при выборе из списка "ComboBox", форма перезагружалась, и чтобы даты в списки загружались в формате "dd/mm/yyyy", и записывались на лист "Данные" ячейка "G5" в таком же формате.
Изменено: Delux - 27.06.2025 12:29:11
Создать список в столбце без повторов
 
Muxa K, Sanja, Огромное Вам спасибо очень выручил!!!

Создать список в столбце без повторов
 
Здравствуйте, форумчане подскажите пожалуйста. В столбце "D:D" имеется, список Наименование, нужно в этом списке удалить дубликаты, которые повторяются больше одного раза, и подтянуть этот список. Например из этого списка:
Яблоко
Яблоко
Груша
Лимон
Киви
Киви
Лайм
Арбуз
Яблоко
Арбуз
Дыня
Груша
Банан
Виноград
Банан
Виноград
Апельсин
Грейпфрут

Должно получиться это:
Лимон
Лайм
Дыня
Апельсин
Грейпфрут
В примере, есть макрос, который удаляет дубликаты, но только проблема в том, что если "Яблоко" повториться более 1 раза, то он удалит только один повтор, а надо оба.
Код
Sub СоздатьСписокБезПовторов()
    Dim vItem, avArr, i As Long, iColl As New Collection, lastRow As Long
     
    With ActiveSheet
        lastRow = .Cells(.Rows.Count, 4).End(xlUp).Row
        ReDim avArr(1 To lastRow, 1 To 1)
        On Error Resume Next
        For Each vItem In .Range("D2:D" & lastRow).Value
            If Not IsEmpty(vItem) Then
                iColl.Add vItem, CStr(vItem)
                If Err = 0 Then
                    i = i + 1
                    avArr(i, 1) = vItem
                Else
                    Err.Clear
                End If
            End If
        Next
     .Range("D2:D" & lastRow).Value = Empty    ' очистить эти ячейки
    End With
    On Error GoTo 0
    
    If i Then Sheets("Продукты").[D2].Resize(i).Value = avArr
End Sub
Изменено: Sanja - 18.06.2025 07:00:32 (удалил один файл)
Объединение значений нескольких столбцов в один столбец с помощью макроса
 
МатросНаЗебре, огромное спасибо Вам!!!
Объединение значений нескольких столбцов в один столбец с помощью макроса
 
МатросНаЗебре, здравствуйте подскажите пожалуйста, а как сделать чтобы первые две ячейки не копировались, в этих двух столбцах, когда в этой строке меняю с "Range(Cells(1, j)" на "Range(Cells(3, j)"
Код
    Cells(iLR_A, H).Resize(iLastRow).Value = Range(Cells(3, j), Cells(iLastRow, j)).Value
макрос копирует с нужной строки, но в конце каждого столбца добавляет "#Н/Д". Подскажите, как можно это подправить?

Как скопировать строку заданное число раз
 
МатросНаЗебре, спасибо за помощь!!!
Как скопировать строку заданное число раз
 
Подниму тему в топ, может есть решение
Как скопировать строку заданное число раз
 
Строки не скрываются после выполнения макроса
Изменено: Delux - 09.04.2025 08:48:35
Как скопировать строку заданное число раз
 
МатросНаЗебре, спасибо то как я и просил, ещё один момент), а можно чтобы на этом же листе "Яблоко" копировал только ниже
Как скопировать строку заданное число раз
 
МатросНаЗебре, спасибо что откликнулись, но формулами не вариант, т.к  надо чтобы строки были скрыты и формулы копировались
Как скопировать строку заданное число раз
 
Извините не подскажите а как быть, если нужно будет копировать таблицу в которой часть строк скрыто? Как в примере.
Изменено: Delux - 08.04.2025 11:37:26
Как скопировать строку заданное число раз
 
Александр П., спасибо Вам большое то что нужно!!!
Как скопировать строку заданное число раз
 
Здравствуйте, помогите мне с макросом. Этот макрос я взял от сюда, а  как можно сделать так, чтобы не выделять каждую строку, а автоматически нажать на кнопку и он пройдет и создаст нужное количество строк, но только на другом листе например со строки "A79". Т.е запускаем макрос на листе "Яблоко", а создаст нужное количество строк на листе "Лимон", как в примере
Сортировка по датам
 
Так получается, что ли дорожно получится
Код
Sub Макрос1()
    With ActiveWorkbook.ActiveSheet
        .Sort.SortFields.Clear
        .Sort.SortFields.Add Key:=.UsedRange.Range("D4").Resize(.UsedRange.Rows.Count - 1), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .Sort.SetRange .UsedRange
        .Sort.Header = xlYes
        .Sort.MatchCase = False
        .Sort.Orientation = xlTopToBottom
        .Sort.SortMethod = xlPinYin
         Range("A1:H3").MergeCells = False
        .Sort.Apply
         Range("A1:H3").Merge (True)
    End With
End Sub
но он начинает сортировку с "D2", надо с "D4"
Сортировка по датам
 
Здравствуйте, посмотрите такой макрос:
Код
Sub Макрос1()
    With ActiveWorkbook.ActiveSheet
        .Sort.SortFields.Clear
        .Sort.SortFields.Add Key:=.UsedRange.Range("D4").Resize(.UsedRange.Rows.Count - 1), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .Sort.SetRange .UsedRange
        .Sort.Header = xlYes
        .Sort.MatchCase = False
        .Sort.Orientation = xlTopToBottom
        .Sort.SortMethod = xlPinYin
        .Sort.Apply
    End With
End Sub
Проблема следующая, когда пытаюсь отсортировать по датам , а в  переди есть объединенные строки, то выдаёт ошибку ".Sort.Apply". Что можно сделать?
Как макросом в не пустых ячейках выделить все границы
 
Спасибо Вам ребята!!!
Как макросом в не пустых ячейках выделить все границы
 
Здравствуйте, подскажите можно ли макросом в не пустых ячейках выделить все границы. Как это делать "условным форматированием" я знаю, а можно без него, количество ячеек может быть разное? Чтобы получилось как в примере.
Макрос из списка разбить на другой лист в три столбца
 
Тимофеев, спасибо Вам, прикольно. Не знал, что так можно.
Изменено: Delux - 19.01.2023 22:02:47
Макрос из списка разбить на другой лист в три столбца
 
Здравствуйте, у меня такая просьба можно как-то макросом столбец "E" на "Лист1" разбить на 3 столбца, в "Лист2". Пример прикладываю. Спасибо
Скопировать данные с формулами из одной книги в другую не изменяя формул
 
Спасибо Вам, помогло!!!
Скопировать данные с формулами из одной книги в другую не изменяя формул
 
Здравствуйте. Подскажите пожалуйста, а как можно указать путь, если все файлы будут лежать в одной папке, а файл с которого будет проводиться запись в другой?
Как ускорить формулу
 
Цитата
Формулу или макрос?
Макрос
Как ускорить формулу
 
Здравствуйте подскажите, пожалуйста, как ускорить этот макрос.
Код
Sub Vstavit_formulu1()
    Application.ScreenUpdating = False
    ActiveCell.Offset(0, 2).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],CHOOSE({1,2},'Средства измерений'!C6,'Средства измерений'!C2),2,0)"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-3],CHOOSE({1,2},'Средства измерений'!C6,'Средства измерений'!C3),2,0)"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-4],CHOOSE({1,2},'Средства измерений'!C6,'Средства измерений'!C4),2,0)"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-5],CHOOSE({1,2},'Средства измерений'!C6,'Средства измерений'!C5),2,0)"
    ActiveCell.Offset(0, -3).Range("A1:D1").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveCell.Offset(1, -2).Range("A1").Select
    Application.ScreenUpdating = True
End Sub
Как создать листы из списка и скопировать все данные из определенного листа
 
МатросНаЗебре, спасибо Вам большое!!!
Страницы: 1 2 3 4 5 6 След.
Наверх