Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
VBA подстановка значения из заданного столбца и активной строки
 
#1
18.10.2011 13:10:26
Добрый день, форумчане. Нужно из столбца "B" активной строки вытянуть значение в "M17". Private Sub Worksheet_SelectionChange(ByVal Target As Range)  
   Dim WorkRange As Range, CrossRange As Range  
   Set WorkRange = Range("B25:B300")  
   If Target.Count > 1 Then Exit Sub  
   If Range("R19") = "*Выключено" Then  
       Exit Sub  
   End If  
   Application.ScreenUpdating = False  
   If Not Intersect(Target, WorkRange) Is Nothing Then  
       Range("M17") = Cells(ActiveCell.Row, 2)  
   End If  
End Sub  
 
Не работает. Помогите, пожалуйста.
 
 
 
#2
18.10.2011 13:19:23
Попробуйте так:  
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)  
Set WorkRange = Range("B25:B300")  
If Target.Count > 1 Then Exit Sub  
If Range("R19") like "*Выключено" Then Exit Sub  
If Not Intersect(Target, [B25:B300]) Is Nothing Then _
[M17].Value = target.Value
End Sub
Редко но метко ...
 
 
 
#3
18.10.2011 13:19:29
If Range("R19") = "*Выключено" Then  
 
замените на  
 
If Range("R19") Like "*Выключено" Then
 
 
 
#4
18.10.2011 13:19:58
даже так:  
 
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)  
If Target.Count > 1 Then Exit Sub  
If Range("R19") like "*Выключено" Then Exit Sub  
If Not Intersect(Target, [B25:B300]) Is Nothing Then _
[M17].Value = target.Value
End Sub
Редко но метко ...
 
 
 
#5
18.10.2011 13:30:15
Хм... работает только если выделяю ячейку столбца "B"  
ПыСы.  
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)  
If Target.Count > 1 Then Exit Sub  
If Range("G1") Like "*Âûêëþ÷åíî" Then Exit Sub  
If Not Intersect(Target, [B2:B5]) Is Nothing Then _
[E1].Value = Target.Value
End Sub
 
 
 
#6
18.10.2011 13:45:48
А как сделать, чтобы отображалось значение из столбца "B" при любой активной ячейке в строке? Т.е. если жму на Е2 - отображает В2, жму на С3-В3,  жму на F77-В77, Если выхожу за пределы рабочего диапазона (например жму на G3) то процедура заканчивается.
 
 
 
#7
18.10.2011 14:14:17
Private Sub Worksheet_SelectionChange(ByVal Target As Range)  
If Target.Count > 1 Then Exit Sub  
If Intersect(Target, Target.Parent.UsedRange) Is Nothing Then Exit Sub  
If [G1] Like "*Выключено" Then Exit Sub
[E1].Value = Cells(Target.Row, 2).Value
End Sub  
 
см файл
Редко но метко ...
 
 
 
#8
18.10.2011 14:30:46
Это оно, спасибо большое:)
 
 
 
Страницы: 1
Читают тему
Наверх