Вот с этим макросом у меня проблема:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range( "K3" )) Is Nothing And Target.Cells.Count = 1 Then
Application.EnableEvents = False
If Len(Target.Offset(1, 0)) = 0 Then
Target.Offset(1, 0) = Target
Else
Target.End(xlDown).Offset(1, 0) = Target
End If
Target.ClearContents
Application.EnableEvents = True
End If
End Sub
Если сюда введу "K3" то у меня не работает выпадающий список. Если ввожу туда (i+1) он у меня работает но только "m"- ки смещаются вниз. Ну и "Р" пропадает. Можете помощь, как то решить эту проблему? Чтобы "m" и "P" остались на своих местах а выпадающий список выбирал на все столбцы.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range( "K3" )) Is Nothing And Target.Cells.Count = 1 Then
Application.EnableEvents = False
If Len(Target.Offset(1, 0)) = 0 Then
Target.Offset(1, 0) = Target
Else
Target.End(xlDown).Offset(1, 0) = Target
End If
Target.ClearContents
Application.EnableEvents = True
End If
End Sub
Если сюда введу "K3" то у меня не работает выпадающий список. Если ввожу туда (i+1) он у меня работает но только "m"- ки смещаются вниз. Ну и "Р" пропадает. Можете помощь, как то решить эту проблему? Чтобы "m" и "P" остались на своих местах а выпадающий список выбирал на все столбцы.