Кажется у вас где то ошибка, или у меня?

Sub Auto_SumIf()  
   With Application.WorksheetFunction  
       MsgBox .SumIf([A1:A100], "петя", [B1:B100]) + _
       .SumIf([C1:C100], "петя", [D1:D100]) + _
       .SumIf([E1:E100], "петя", [F1:F100])
   End With  
End Sub

{quote}{login=Doc}{date=14.02.2009 02:58}{thema=}{post}Что не так?{/post}{/quote}Разместите код в обычном модуле: Insert -> Module  
 
> Кажется у вас где то ошибка, или у меня?  
Никакой ошибки нет, - просто разное написание.

Извиняюсь, совсем плохой стал. ко сну дело наверно. Но почему то у меня считает не корректно. Старые данные которые я вводил раньше они не все считаются, а вот которые новые ввожу они считаются. В чём дело может?

вот

ВЫ знаете теперь и она мне тоже нравится. Хорошая функция. действительно всё дело в форматах. И тогда один последний вопрос. Как можно в диапазоне A:A,B:B, и т.д во всех значениях одним махом поменять запятые на точки и чтобы в будущем даже если будет введена запятая, превращалась в точку. прям поле чудес какое то. :) Спасибо Вам

а можно как нибудь ускорить, у меня секунд 5 думает прежде чем найдёт    
 
Sub AnalogSumIf()  
Dim tmp As Double  
For Each i In Range("c:c,f:f,i:i")  
If LCase(i.Text) = "фев.09" Then  
tmp = tmp + Val(Replace(i.Offset(0, 1).Text, ",", "."))  
End If  
Next  
MsgBox tmp  
End Sub

А можно поподробнее расписать этот код по словам. А то у меня опять неправильно работает. Мож опять чё напутал

У меня такая непонятка.    
1. В одной ячейке "фев.08" - формат "ДДД.ГГ"  
2. В другой ячейке тоже "фев.08" -  формат "ДДД.ГГ"  
так при выделении первой в строке формул отображается 01.02.2008, а второй фев.08.  
Не пойму. И с Вашей формулой он считает только второе значение

"##.02.2008 я так понял это любое другое число + февраль

{quote}{login=doc}{date=14.02.09 17:21}{thema=}{post}А как сделать поиск по всем месяцам и вставить их в листбокс.{/post}{/quote}Найдите в нижеследующем коде десять отличий от предыдущего и станет понятно как. :))  
 
Private Sub UserForm_Initialize()  
Dim Mmn(1 To 12) As String, mnI As Byte, n As Byte, m As Single  
Dim tmp As Double, myRng As Range, i As Range  
 For mnI = 1 To 12 'для каждого месяца  
   fText1 = Format("1." & mnI & ".2009", "MMM.YY") 'критерий1  
   fText2 = "##." & Format(mnI, "00") & ".2009" 'критерий2  
 Set myRng = Range("c:c,f:f,i:i") 'диапазон  
 For n = 1 To myRng.Areas.Count  
   msv1 = myRng.Areas(n)  
   msv2 = myRng.Areas(n).Offset(0, 1) 'смещение  
   For m = 1 To UBound(msv1)  
     If Not Len(msv1(m, 1)) = 0 Then  
       If msv1(m, 1) = fText1 Or msv1(m, 1) Like fText2 Then 'сравниваем  
         tmp = tmp + msv2(m, 1) 'суммируем  
 End If: End If: Next: Next  
 Mmn(mnI) = fText1 & vbTab & tmp: tmp = 0 'запоминаем  
 Next  
 Me.ListBox1.List = Mmn 'заполняем лист  
End Sub

{quote}{login=doc}{date=14.02.09 19:34}{thema=}{post}спаибо Турбо-ёж, только очень долговато открывается форма, секунд 3.{/post}{/quote}Пожалуйста. Вот так (перевложил циклы) будет ровно в три раза быстрее:  
 
Private Sub UserForm_Initialize()  
Dim Mmn(1 To 12) As String, mnI As Byte, n As Byte, m As Single  
Dim tmp As Double, myRng As Range, i As Range, fText1 As String, fText2 As String  
 Set myRng = Range("c:c,f:f,i:i") 'диапазон  
 For n = 1 To myRng.Areas.Count  
   msv1 = myRng.Areas(n)  
   msv2 = myRng.Areas(n).Offset(0, 1) 'смещение  
   For mnI = 1 To 12 'для каждого месяца  
     fText1 = Format("1." & mnI & ".2009", "MMM.YY") 'критерий1  
     fText2 = "##." & Format(mnI, "00") & ".2009" 'критерий2  
     For m = 1 To UBound(msv1)  
       If Not Len(msv1(m, 1)) = 0 Then  
         If msv1(m, 1) = fText1 Or msv1(m, 1) Like fText2 Then 'сравниваем  
           tmp = tmp + msv2(m, 1) 'суммируем  
     End If: End If: Next  
     Mmn(mnI) = fText1 & vbTab & tmp: tmp = 0 'запоминаем  
   Next  
 Next  
 Me.ListBox1.List = Mmn 'заполняем лист  
End Sub