Открытие Групп строк, не через "+" 
				   
 
 
 BeetleGold  
 Дата: Суббота, 20.06.2020, 19:40 | 
 Сообщение № 1   
   
 
   
 
 
 Группа: Пользователи  
 
 
 Ранг: Прохожий  
 
 Сообщений:  4 
 
 
 
 
  Репутация:    
 0    
 ±  
 
  
 Замечаний:
 0%   ±  
       
  
 
 
 Доброго времени суток! 
 
 
Доброго времени суток! BeetleGold Сообщение отредактировал BeetleGold  - Воскресенье, 21.06.2020, 11:40 
   
  
 Ответить 
Сообщение Доброго времени суток! Автор - BeetleGold 20.06.2020  в 19:40   
 
 
 Tummz  
 Дата: Суббота, 20.06.2020, 20:34 | 
 Сообщение № 2   
   
 
   
 
 
 Группа: Пользователи  
 
 
 Ранг: Прохожий  
 
 Сообщений:  9 
 
 
 
 
  Репутация:    
 0    
 ±  
 
  
 Замечаний:
 0%   ±  
       
  
 
 
 ЗдравствуйтеКод
Sub Hidden()
 ЗдравствуйтеКод
Sub Hidden()
 Tummz Сообщение отредактировал Tummz  - Воскресенье, 21.06.2020, 09:42 
   
  
 Ответить 
Сообщение ЗдравствуйтеКод
Sub Hidden()
 Автор - Tummz 20.06.2020  в 20:34   
 
 
 BeetleGold  
 Дата: Суббота, 20.06.2020, 22:11 | 
 Сообщение № 3   
   
 
   
 
 
 Группа: Пользователи  
 
 
 Ранг: Прохожий  
 
 Сообщений:  4 
 
 
 
 
  Репутация:    
 0    
 ±  
 
  
 Замечаний:
 0%   ±  
       
  
 
 
 Tummz , Спасибо, большое!Код
If Rows("2").Hidden = True Then
Tummz , Спасибо, большое!Код
If Rows("2").Hidden = True Then
BeetleGold Сообщение отредактировал BeetleGold  - Воскресенье, 21.06.2020, 11:49 
   
  
 Ответить 
Сообщение Tummz , Спасибо, большое!Код
If Rows("2").Hidden = True Then
Автор - BeetleGold 20.06.2020  в 22:11   
 
 
 gling  
 Дата: Воскресенье, 21.06.2020, 00:05 | 
 Сообщение № 4   
   
 
   
 
 
 Группа: Друзья  
 
 
 Ранг: Участник клуба  
 
 Сообщений:  2661 
 
 
 
 
  Репутация:    
 747    
 ±  
 
  
 Замечаний:
 0%   ±  
       
  
 
 
 Здравствуйте. Ещё вариант в файлеКод
Private Sub Worksheet_Change(ByVal Target As Range)
 Здравствуйте. Ещё вариант в файлеКод
Private Sub Worksheet_Change(ByVal Target As Range)
 gling ЯД-41001506838083 
Сообщение отредактировал gling  - Воскресенье, 21.06.2020, 00:06 
   
  
 Ответить 
Сообщение Здравствуйте. Ещё вариант в файлеКод
Private Sub Worksheet_Change(ByVal Target As Range)
 Автор - gling 21.06.2020  в 00:05   
 
 
 BeetleGold  
 Дата: Воскресенье, 21.06.2020, 10:15 | 
 Сообщение № 5   
   
 
   
 
 
 Группа: Пользователи  
 
 
 Ранг: Прохожий  
 
 Сообщений:  4 
 
 
 
 
  Репутация:    
 0    
 ±  
 
  
 Замечаний:
 0%   ±  
       
  
 
 
 gling , Спасибо, интересный вариант. Пригодится для общего знания.gling , Спасибо, интересный вариант. Пригодится для общего знания.BeetleGold    
  
 Ответить 
Сообщение gling , Спасибо, интересный вариант. Пригодится для общего знания.Автор - BeetleGold 21.06.2020  в 10:15   
 
 
 BeetleGold  
 Дата: Воскресенье, 21.06.2020, 11:48 | 
 Сообщение № 6   
   
 
   
 
 
 Группа: Пользователи  
 
 
 Ранг: Прохожий  
 
 Сообщений:  4 
 
 
 
 
  Репутация:    
 0    
 ±  
 
  
 Замечаний:
 0%   ±  
       
  
 
 
 Всем спасибо, разобрался!     
  
 Ответить 
Сообщение Всем спасибо, разобрался!  Автор - BeetleGold 21.06.2020  в 11:48