лист с фиксированным размером шрифта

[Kraimon]

Подскажите, а можно ли как нибудь зафиксировать размер шрифта в excel для листа, т.е чтобы при вставке в этот лист каких либо значений с разными размерами шрифта они автоматически менялись на тот шрифт который был задан данному листу.

[VictorM]

Вставляйте данные на этот лист Специальной вставкой - Только значения.

[Kraimon]

так не получится, данные на лист автоматом вставляются вот этим макросом

Private Sub Worksheet_Change(ByVal Target As Range)
With Sheets("лист1")
.Select
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, [h:h]) Is Nothing And Target.Value = "J" Then
.Rows(Target.Row).Copy Sheets("лист2").Rows(WorksheetFunct ion.CountA(Sheets("лист2").[a:a]) + 1)
.Rows(Target.Row).Delete
End If
End With
End Sub

[IgorGO]

интересно, почему это не получится:

Private Sub Worksheet_Change(ByVal Target As Range)
  With Sheets("лист1")
    .Select
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [h:h]) Is Nothing And Target.Value = "J" Then
      .Rows(Target.Row).Copy 
      Sheets("лист2").Rows(WorksheetFunct ion.CountA(Sheets("лист2").[a:a]) + 1).PasteSpecial Paste:=xlPasteValues
      .Rows(Target.Row).Delete
    End If
  End With
End Sub

[Kraimon]

Все замечательно работает, спс большое

[Kraimon]

увы но этот способ не подходит, т.к при перемещении строк таким образом исчечают все мои примечания и цвет шрифта, может можно как-то исправить макрос чтобы только размер шрифта изменялся. Либо просто зафиксировать размер шрифта листа.

[kuklp]

Так вставьте перед end sub:
Me.UsedRange.Font.Size = 10

[Kraimon]

дак точно же, нужно просто на листе2 поставить макрос

Private Sub Worksheet_Change(ByVal Target As Range)
Me.UsedRange.Font.Size = 7
End Sub

и все !!!! спс всем за помощь