Здравствуйте!Очень нужна помощь этого форума.Пишу макрос, который копирует только ячейки, выделенные полужирным шрифтом, и вставляет их из Листа1 в Лист 2 Кое-что набрасала, но это неверно.Помогите пожалуйста довести до ума) [vba]
Код
Sub Макрос1() ' ' Макрос1 Макрос ' ActiveCell.Select If (Selection.Font.Bold = True) Then Range("A1:B2").Select Selection.Copy Sheets("Лист2").Select End If Range("A1:B2").Select ActiveSheet.Paste End Sub
[/vba]
Здравствуйте!Очень нужна помощь этого форума.Пишу макрос, который копирует только ячейки, выделенные полужирным шрифтом, и вставляет их из Листа1 в Лист 2 Кое-что набрасала, но это неверно.Помогите пожалуйста довести до ума) [vba]
Код
Sub Макрос1() ' ' Макрос1 Макрос ' ActiveCell.Select If (Selection.Font.Bold = True) Then Range("A1:B2").Select Selection.Copy Sheets("Лист2").Select End If Range("A1:B2").Select ActiveSheet.Paste End Sub
NikiBarselona, попробуйте это, хотя у меня опыт небольшой, но должно работать, если я правильно понял, что нужно. [vba]
Код
Sub KopyZhyr() Dim InputRange As Range, Cell As Range, KopyStr As Long, KopyStolb As Long
ActiveWorkbook.Worksheets("Лист1").Select Set InputRange = ActiveSheet.UsedRange
For Each Cell In InputRange If Cell.Font.Bold = True Then KopyStolb = Cell.Column KopyStr = Cell.Row Sheets("Лист2").Cells(KopyStr, KopyStolb).Value = Cells(KopyStr, KopyStolb).Value
End If Next Cell End Sub
[/vba]
NikiBarselona, попробуйте это, хотя у меня опыт небольшой, но должно работать, если я правильно понял, что нужно. [vba]
Код
Sub KopyZhyr() Dim InputRange As Range, Cell As Range, KopyStr As Long, KopyStolb As Long
ActiveWorkbook.Worksheets("Лист1").Select Set InputRange = ActiveSheet.UsedRange
For Each Cell In InputRange If Cell.Font.Bold = True Then KopyStolb = Cell.Column KopyStr = Cell.Row Sheets("Лист2").Cells(KopyStr, KopyStolb).Value = Cells(KopyStr, KopyStolb).Value
Подскажите как сделать чтобы выборка была по цвету? (с листа "месяца" в лист "выборка" копировались строки с красной заливкой). Очень нужно помогите.
Подскажите как сделать чтобы выборка была по цвету? (с листа "месяца" в лист "выборка" копировались строки с красной заливкой). Очень нужно помогите.vvl2007