Здравствуйте, на этом форуме мне как-то помогли с макросом:
всё правильно работает, но мне теперь нужно что-бы комбобокс вставлял данные не в столбик (А3:А42) а в строку, в диапазон С1:АР1
менял я местами... менял... не получается...
Код |
---|
Private Sub ComboBox1_Change() Лист1.Range("A3:A42").ClearContents With Лист5 Set rc = .Cells.Find(ComboBox1) If Not rc Is Nothing Then c = rc.Column .Cells(3, c).Resize(.Cells(.Rows.Count, c).End(xlUp).Row).Copy Лист1.[a3] End With End Sub |
всё правильно работает, но мне теперь нужно что-бы комбобокс вставлял данные не в столбик (А3:А42) а в строку, в диапазон С1:АР1
менял я местами... менял... не получается...