Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Pavel Ginoris
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
UserForm для умной таблицы, Изменения данных в умной таблице по условиям
 
#
14.05.2022 16:16:58
Тему можно закрыть.
 
Перейти    
UserForm для умной таблицы, Изменения данных в умной таблице по условиям
 
#
14.05.2022 13:57:36
New, Первый раз делаю платный заказ, возможно я мало еще понимаю что именно для реализации надо предоставить по ТЗ, по этому думал картинками будет все понятно
 
Перейти    
UserForm для умной таблицы, Изменения данных в умной таблице по условиям
 
#
14.05.2022 13:54:34
Игорь, Чтобы ее умножить надо мне сначала понимать что это реально сделать. А пака все что я вижу, это слова.
Качество зависит от того как правильно она будет работать и все ли по ТЗ удалось реализовать.
New, Пример таблицы по файлу скинул
Изменено: Pavel Ginoris - 14.05.2022 13:59:06
 
Перейти    
UserForm для умной таблицы, Изменения данных в умной таблице по условиям
 
#
13.05.2022 23:18:11
Цитата
написал:
ТС сообщил, что файла с данными нет. Примеры на картинках в теме.
К сожалению, я макросы без файла/таблицы не умею писать (иначе будет - а у меня этот столбец по-другому называется, а у меня этот столбец на другом листе, а у меня этот столбец 2-й, а не 5-й, а мне такая таблица не подходит и т.д.). Может кто другой поможет.
Мне не нужен макрос под конкретную таблицу, мне нужна форма которую можно адаптировать под нужную умную таблицу. Если проблема только в отсутствии файла я вам могу набросать но она будет такая же что и на картинке в примере выше
Изменено: Pavel Ginoris - 13.05.2022 23:18:33
 
Перейти    
UserForm для умной таблицы, Изменения данных в умной таблице по условиям
 
#
12.05.2022 21:15:40
Увеличиваю бюджет от 1500 р. до 3000 р. в зависимости от качества работы.
Изменено: Pavel Ginoris - 13.05.2022 23:21:03
 
Перейти    
UserForm для умной таблицы, Изменения данных в умной таблице по условиям
 
#
08.05.2022 11:55:14
Нужно чтобы изменения в умной таблице происходило через UserForm по выбранной дате из столбца, по выбранной категории, так же по заполненным строкам "Фамилия И. О.", пустые строки игнорировались. При выборе столбца даты, если есть заполненные ячейки то информация о них отображалась
В качестве примера сделал скрин желаемой Userfom-ы и таблицы

Бюджет 500 р. Если будет готово сегодня в течения дня то 750 р. Если прям все как надо то 1000 р.
Оплата возможна на банковскую карту и моб. телефон.
Изменено: Pavel Ginoris - 13.05.2022 23:19:08
 
Перейти    
Как объединить два макроса в одной процедуре Worksheet_Change(ByVal Target As Range)
 
#
07.11.2021 18:39:04
Новый лист создал, перенес всю информацию туда, воспользовался еще раз вашим кодом, чудо! оно заработало) но блин почему на старом листе не сработало хз
Спасибо большое за помощь!!!
 
Перейти    
Как объединить два макроса в одной процедуре Worksheet_Change(ByVal Target As Range)
 
#
07.11.2021 18:19:02
https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=144947&a...

Нет никакой реакции, не сработал
 
Перейти    
Как объединить два макроса в одной процедуре Worksheet_Change(ByVal Target As Range)
 
#
07.11.2021 17:51:25
Код
Private Sub Worksheet_Change(ByVal Target As Range)
 
    Dim NewCellValue$, OldComment$
    Dim cell As Range
    If Intersect(Target, Range("C13:C112")) Is Nothing Then Exit Sub
    For Each cell In Intersect(Target, Range("C13:C112"))
        If IsEmpty(cell) Then
            NewCellValue = "Ячейка очищена"
        Else
            NewCellValue = cell.Formula     
        End If
        On Error Resume Next
        With cell
            OldComment = .Comment.Text & Chr(10)
            .Comment.Delete     
            .AddComment         
            .Comment.Text Text:=OldComment & Application.UserName & " " & _
                            Format(Now, "MM.DD.YY h:MM:ss") & " : " & NewCellValue
            .Comment.Shape.TextFrame.AutoSize = True    
            .Comment.Shape.TextFrame.Characters.Font.Size = 8
        End With
    Next cell
End Sub
1 макрос - Автоматическая вставка текущей даты в ячейку при вводе данных - https://www.planetaexcel.ru/techniques/6/44/
Код
Private Sub Worksheet_Change(ByVal Target As Range)

For Each cell In Target   
       If Not Intersect(cell, Range("E13:E112,M13:M112,U13:U112,AC13:AC112,AK13:AK112,AS13:AS112,BA13:BA112,BI13:BI112,BQ13:BQ112,BY13:BY112,CG13:CG112")) Is Nothing Then
            With cell.Offset(0, 2)       
               .Value = Now
            End With
       End If
    Next cell
End Sub
2 макрос - История изменения ячейки в примечаниях - https://www.planetaexcel.ru/techniques/5/208/
Надо их соединить, чтобы работали оба на одном листе. На форуме то что были подобные решения ни один не сработал.
 
Перейти    
Как объединить два макроса в одной процедуре Worksheet_Change(ByVal Target As Range)
 
#
07.11.2021 16:14:18
Код
Private Sub Worksheet_Change(ByVal Target As Range)

    Dim NewCellValue$, OldComment$
    Dim cell As Range
    If Intersect(Target, Range("C13:C112")) Is Nothing Then Exit Sub
    For Each cell In Intersect(Target, Range("C13:C112"))
        If IsEmpty(cell) Then
            NewCellValue = "Ячейка очищена"
        Else
            NewCellValue = cell.Formula     
        End If
        On Error Resume Next
        With cell
            OldComment = .Comment.Text & Chr(10)
            .Comment.Delete     
            .AddComment         
            .Comment.Text Text:=OldComment & Application.UserName & " " & _
                            Format(Now, "MM.DD.YY h:MM:ss") & " : " & NewCellValue
            .Comment.Shape.TextFrame.AutoSize = True    
            .Comment.Shape.TextFrame.Characters.Font.Size = 8
        End With
    Next cell

    For Each cell In Target   
       If Not Intersect(cell, Range("E13:E112,M13:M112,U13:U112,AC13:AC112,AK13:AK112,AS13:AS112,BA13:BA112,BI13:BI112,BQ13:BQ112,BY13:BY112,CG13:CG112")) Is Nothing Then
            With cell.Offset(0, 2)       
               .Value = Now
            End With
       End If
    Next cell
End Sub

Добрый, в этом коде два макроса но не один не работает если их написать под Private Sub Worksheet_Change (ByVal Target As Range), как правильно их составить чтобы оба заработали для одного листа?
В написании VBA кода я ноль)
 
Перейти    
Страницы: 1
Наверх