Страницы: 1
RSS
При разных столбцах местонахождения активной ячейки передавать значение в разные ячейки, vba
 
Добрый день. В файле макрос передает значение активной ячейки в ячейку F2. Как передавать значение в разные ячейки?
Если активная ячейка в столбце B, то передавать значение ячейке F2. Если в столбце С, то ячейке Н2. Если в столбце D, то ячейке H5
Прошу помочь  
 
можно так
 
msi2102, спасибо большое!
Просто и понятно - это круто!
 
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim c&
  c = Target.Column: If c > 1 And c < 5 Then Range(Cells(c)) = Target
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
Я извиняюсь, а нельзя ли добавить в макрос условие: если активная ячейка в строке 20 или еще ниже, то не передавать значение?
Остается последнее активное значение выше строки 20
 
Айван,
Код
Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column = 2 And Target.Row < 20 Then [f2] = Selection.Value
If Target.Column = 3 And Target.Row < 20 Then [h2] = Selection.Value
If Target.Column = 4 And Target.Row < 20 Then [h5] = Selection.Value

End Sub
Не бойтесь совершенства. Вам его не достичь.
 
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim c&
  if target.row > 19 then exit sub
  c = Target.Column: If c > 1 And c < 5 Then Range(Cells(c)) = Target
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
Ігор Гончаренко, спасибо
Mershik,  спасибо большое! Также просто!
Ігор Гончаренко, спасибо еще раз!
Изменено: Айван - 10.08.2020 15:19:28
Страницы: 1
Наверх