Подскажите пожалуйста. хочу сымитировать на листе визуальный вид бегущей строки. Задача такая: Если значение в ячейке i2=1, а в ячейке i4=1, то закрашиваются ячейки N2 и N4 красным цветом. Если значение в ячейке i2=2, 3,  и тд до 20, а в ячейке i4=6,7 и тд, до 10. то закрашиваются ячейки N2 до 20 (гориз), а N4 вниз (вертик)  3,4, и тд. ячейки, красным цветом. И еще важно чтобы границы ячеек были оформлены границей ячеек, что бы кубки видно было. Если можно все это организовать посредством функций, но на крайняк через VBA.

Может кто поможет разобраться !  
Картинка в примечаниях отображается так, как задан в параметрах данного кода  
А надо, что бы отображались так, как они есть(высота, ширина в натур величину)  
 
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)  
Columns(12).ClearComments  
On Error Resume Next  
Cells(Target.Row, 12).AddComment.Text Text:=""  
Cells(Target.Row, 12).Comment.Shape.Select True  
With Cells(Target.Row, 12).Comment.Shape  
.Fill.UserPicture Cells(Target.Row, 15).Value ' stolbec, gde ykazivaetsya put k kartinke  
 
.Visible = True  
.Fill.Transparency = 0#  
 
.ScaleWidth 3, msoFalse, msoScaleFromTopLeft  
.ScaleHeight 3, msoFalse, msoScaleFromTopLeft  
 
 
Dim x As Comment                'otdalennost ot kacejki  
For Each x In ActiveSheet.Comments  
   x.Shape.Left = x.Parent.Offset(0, 1).Left + 100  
   x.Shape.Top = x.Parent.Top  
Next                            'otdalennost ot kacejki

Добрый день!  
Может вы подскажите код textbox который и с числами работает  
этот код  с текстом работает, а с цифрами никак    
   
вот код, который текст признает а цифры нет    
   
Private Sub TextBox1_Change()    
If TextBox1.Text <> "" Then    
   Range("A2").AutoFilter Field:=1, Criteria1:="=" & TextBox1.Text & "*", Operator:=xlAnd    
Else    
   Range("A2").AutoFilter Field:=1    
End If    
End Sub    
   
Private Sub TextBox2_Change()    
If TextBox2.Text <> "" Then    
   Range("B2").AutoFilter Field:=2, Criteria1:="=" & TextBox2.Text & "*", Operator:=xlAnd    
Else    
   Range("B2").AutoFilter Field:=2    
End If    
End Sub