Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/изменение даты строки в зависимости от текста в соседней яч - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » изменение даты строки в зависимости от текста в соседней яч (Макросы/Sub)
изменение даты строки в зависимости от текста в соседней яч
micholap_denis Дата: Понедельник, 15.06.2020, 20:45 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 105
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
в примере описал все...
причем УФ не подходит..так как очень много строк в табл.каждй день по сотне и боле строк вводится и при копировании-- УФ "размножается" и файл начинает тупить
поэтому прошу макрос. госпожа Pelena помогала уже на похожую тему но сам не допедриваю как по аналогии сделать.
К сообщению приложен файл: 7202458.xlsb(21.8 Kb)
 
Ответить
Сообщениев примере описал все...
причем УФ не подходит..так как очень много строк в табл.каждй день по сотне и боле строк вводится и при копировании-- УФ "размножается" и файл начинает тупить
поэтому прошу макрос. госпожа Pelena помогала уже на похожую тему но сам не допедриваю как по аналогии сделать.

Автор - micholap_denis
Дата добавления - 15.06.2020 в 20:45
Апострофф Дата: Вторник, 16.06.2020, 07:18 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 267
Репутация: 82 ±
Замечаний: 0% ±

Excel 1997
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
  If Target.Column = 3 Then
    If Target = "ПРОГНОЗ" Then
      Target.Offset(, -2) = Date
    End If
  End If
End If
End Sub
[/vba]
 
Ответить
Сообщение[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
  If Target.Column = 3 Then
    If Target = "ПРОГНОЗ" Then
      Target.Offset(, -2) = Date
    End If
  End If
End If
End Sub
[/vba]

Автор - Апострофф
Дата добавления - 16.06.2020 в 07:18
micholap_denis Дата: Вторник, 16.06.2020, 09:46 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 105
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Апострофф, спасибо работает....а подскажите еще как объединить два макроса....
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Target.Column = 3 Then
If Target = "ПРОГНОЗ" Then
Target.Offset(, -2) = Date
End If
End If
End If
End Sub
[/vba]
и
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:I50, K2:M50")) Is Nothing Then Cells(Target.Row, 10) = "1"
End Sub
[/vba]
пример прикладываю
К сообщению приложен файл: 4800541.xlsb(14.6 Kb)


Сообщение отредактировал micholap_denis - Вторник, 16.06.2020, 10:21
 
Ответить
СообщениеАпострофф, спасибо работает....а подскажите еще как объединить два макроса....
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Target.Column = 3 Then
If Target = "ПРОГНОЗ" Then
Target.Offset(, -2) = Date
End If
End If
End If
End Sub
[/vba]
и
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:I50, K2:M50")) Is Nothing Then Cells(Target.Row, 10) = "1"
End Sub
[/vba]
пример прикладываю

Автор - micholap_denis
Дата добавления - 16.06.2020 в 09:46
китин Дата: Вторник, 16.06.2020, 10:17 | Сообщение № 4
Группа: Модераторы
Ранг: Экселист
Сообщений: 6323
Репутация: 970 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
micholap_denis, - Прочитайте Правила форума
- Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь)


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
Сообщениеmicholap_denis, - Прочитайте Правила форума
- Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь)

Автор - китин
Дата добавления - 16.06.2020 в 10:17
Pelena Дата: Вторник, 16.06.2020, 10:43 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 16812
Репутация: 3623 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Цитата micholap_denis, 16.06.2020 в 09:46, в сообщении № 3 ()
как объединить

[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:I50, K2:M50")) Is Nothing Then Cells(Target.Row, 10) = "1"
If Target.Count = 1 Then
If Target.Column = 3 Then
If Target = "ПРОГНОЗ" Then
Target.Offset(, -2) = Date
End If
End If
End If
End Sub
[/vba]


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
Сообщение
Цитата micholap_denis, 16.06.2020 в 09:46, в сообщении № 3 ()
как объединить

[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:I50, K2:M50")) Is Nothing Then Cells(Target.Row, 10) = "1"
If Target.Count = 1 Then
If Target.Column = 3 Then
If Target = "ПРОГНОЗ" Then
Target.Offset(, -2) = Date
End If
End If
End If
End Sub
[/vba]

Автор - Pelena
Дата добавления - 16.06.2020 в 10:43
micholap_denis Дата: Вторник, 16.06.2020, 12:34 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 105
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Pelena, спасибо. работает...только почему то если добавляешь строчку или несколько в таблицу копируеш и тд, потом передумал и хочешь удалить...одну строчку не удаляет..очищает но не удаляет..в чем причина может быть?
 
Ответить
СообщениеPelena, спасибо. работает...только почему то если добавляешь строчку или несколько в таблицу копируеш и тд, потом передумал и хочешь удалить...одну строчку не удаляет..очищает но не удаляет..в чем причина может быть?

Автор - micholap_denis
Дата добавления - 16.06.2020 в 12:34
micholap_denis Дата: Вторник, 16.06.2020, 14:44 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 105
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Pelena, и как предусмотреть чтоб при открытии файла все даты где ПРОГНОЗ автоматом менялись на текущую дату
 
Ответить
СообщениеPelena, и как предусмотреть чтоб при открытии файла все даты где ПРОГНОЗ автоматом менялись на текущую дату

Автор - micholap_denis
Дата добавления - 16.06.2020 в 14:44
micholap_denis Дата: Четверг, 02.07.2020, 19:59 | Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 105
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Pelena, день добрый...помогите..как все таки сделать чтобы все работало как есть и еще кнопкой макрос менял дату на сегодняшнюю при условии при определенных (нескольких) значениях в другом столбце..
К сообщению приложен файл: 6554207.xlsb(17.0 Kb)
 
Ответить
СообщениеPelena, день добрый...помогите..как все таки сделать чтобы все работало как есть и еще кнопкой макрос менял дату на сегодняшнюю при условии при определенных (нескольких) значениях в другом столбце..

Автор - micholap_denis
Дата добавления - 02.07.2020 в 19:59
micholap_denis Дата: Четверг, 02.07.2020, 20:00 | Сообщение № 9
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 105
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
весь макрос запускается с кнопки
 
Ответить
Сообщениевесь макрос запускается с кнопки

Автор - micholap_denis
Дата добавления - 02.07.2020 в 20:00
Pelena Дата: Четверг, 02.07.2020, 20:46 | Сообщение № 10
Группа: Админы
Ранг: Местный житель
Сообщений: 16812
Репутация: 3623 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Здравствуйте.
Цитата micholap_denis, 02.07.2020 в 20:00, в сообщении № 9 ()
весь макрос запускается с кнопки
К сообщению приложен файл: 7875910.xlsb(19.2 Kb)


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеЗдравствуйте.
Цитата micholap_denis, 02.07.2020 в 20:00, в сообщении № 9 ()
весь макрос запускается с кнопки

Автор - Pelena
Дата добавления - 02.07.2020 в 20:46
micholap_denis Дата: Четверг, 02.07.2020, 21:46 | Сообщение № 11
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 105
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Pelena, был бы не женат...женился! спасибо
 
Ответить
СообщениеPelena, был бы не женат...женился! спасибо

Автор - micholap_denis
Дата добавления - 02.07.2020 в 21:46
Extybr Дата: Четверг, 02.07.2020, 22:15 | Сообщение № 12
Группа: Пользователи
Ранг: Участник
Сообщений: 59
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Pelena, можно напишу в личку...есть проблема с файлом.нужно обсудить
 
Ответить
СообщениеPelena, можно напишу в личку...есть проблема с файлом.нужно обсудить

Автор - Extybr
Дата добавления - 02.07.2020 в 22:15
Pelena Дата: Четверг, 02.07.2020, 22:23 | Сообщение № 13
Группа: Админы
Ранг: Местный житель
Сообщений: 16812
Репутация: 3623 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Если проблема та, что описана в Вашей теме, то ответила там.
А в личку - это дорого))


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеЕсли проблема та, что описана в Вашей теме, то ответила там.
А в личку - это дорого))

Автор - Pelena
Дата добавления - 02.07.2020 в 22:23
Мир MS Excel » Вопросы и решения » Вопросы по VBA » изменение даты строки в зависимости от текста в соседней яч (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

jooble Яндекс цитирования
© 2010-2020 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!