¿Cómo contar los proyectos que entraron en un rango de fecha concreto con el Microsoft Excel?

Podrías utilizar la función =SumaProducto(). Voy a suponer que los proyectos están en A y las fechas en B, que las fechas las pones en E4 y E5, por último el nombre del proyecto en E3.
=SumaProducto((A2:A100=E3)*(B2:B100>=E4)*(B2:B100<=E5))
[email protected]

Hola! Sabes quiero una ayudita tengo un botón consultar con el siguiente código:
Private Sub CommandButton4_Click()
Dim c As Integer
consu = InputBox("Ingrese su consulta")
With Worksheets(1).Range("A4:b65536")
Set c = .Find(what:=consu, LookIn:=xlFormulas)
If Not c Is Nothing Then
Range(c.Address).Select
ActiveCell.Offset(0, -1).Select
TextBox2 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox3 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox4 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox5 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox6 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox7 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox8 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox9 = ActiveCell
ActiveCell.Offset(0, 1).Select
ComboBox4 = ActiveCell
ActiveCell.Offset(0, 1).Select
ComboBox10 = ActiveCell
ActiveCell.Offset(0, 1).Select
ComboBox9 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox13 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox14 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox15 = ActiveCell
ActiveCell.Offset(0, 1).Select
ComboBox1 = ActiveCell
ActiveCell.Offset(0, 1).Select
ComboBox2 = ActiveCell
ActiveCell.Offset(0, 1).Select
ComboBox3 = ActiveCell
TextBox2.Enabled = False
TextBox3.Enabled = False
TextBox4.Enabled = False
TextBox5.Enabled = False
TextBox6.Enabled = False
TextBox7.Enabled = False
TextBox8.Enabled = False
TextBox9.Enabled = False
ComboBox4.Enabled = False
ComboBox10.Enabled = False
ComboBox9.Enabled = False
TextBox13.Enabled = False
TextBox14.Enabled = False
TextBox15.Enabled = False
ComboBox1.Enabled = False
ComboBox2.Enabled = False
ComboBox3.Enabled = False
MsgBox "Reguistro Existente"
Else
MsgBox "No Existe el Numero Sison"
consu = Empty
End If
Set c = Nothing
End With
End Sub
Y me dice que tengo un error de compilación (SE REQUIERE UN OBJETO) Y ME MARCA C que es mi variable y no se que error es ese me puedes ayudar!
Gracias.

Por lo general el Set se le asigna a un rango, un objeto o valor. Observa que tu variable la declaras primero como Integer, tal vez cambiándola por Range o Variant.
[email protected]

Hola gracias por la yuda anterior me resulto bien era eso!
Sabes ahora tengo un problema con el botón modificar, tengo este código::
Dim C As Variant
consu1 = InputBox("Ingrese EL SISON A MODIFICAR")
If consu1 = 0 Then
End If
With Worksheets(1).Range("A3:b65536")
Set C = .Find(what:=consu1, LookIn:=xlFormulas)
If Not C Is Nothing Then
Range(C.Address).Select
ActiveCell.Offset(0, 0).Select
TextBox2 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox3 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox4 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox5 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox6 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox7 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox8 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox9 = ActiveCell
ActiveCell.Offset(0, 1).Select
ComboBox4 = ActiveCell
ActiveCell.Offset(0, 1).Select
ComboBox10 = ActiveCell
ActiveCell.Offset(0, 1).Select
ComboBox9 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox13 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox14 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox15 = ActiveCell
ActiveCell.Offset(0, 1).Select
ComboBox1 = ActiveCell
ActiveCell.Offset(0, 1).Select
ComboBox2 = ActiveCell
ActiveCell.Offset(0, 1).Select
ComboBox3 = ActiveCell
Selection.EntireRow.Delete
TextBox2.Enabled = False
TextBox3.Enabled = False
TextBox4.Enabled = False
TextBox5.Enabled = False
ComboBox10.Enabled = False
ComboBox9.Enabled = False
TextBox13.Enabled = False
MsgBox "Modifique los Datos y luego ingreselos"
consu1 = Empty
End If
Set C = Nothing
End With
End Sub
Y cuando pongo en el inputbox cancelor la modificación igual me elimina el reguistro no entiendo y no c como hacer para que no me elimine el reguistro cuando cancelo la modificación me puedes ayudar! Por favor!
Gracias!

Prueba con:
If consu1 = "" Then
Exit Sub
[email protected]

Gracias amigo!

Con gusto.

Si me sirvió! ¿Pero cuándo hago las modificaciones me queda en la hoja ese reguisto y otro con las modificaciones que realic (2) como puedo solucionar este asunto?, el código te lo envíe!
Me puedes dar una mano por favor!
xau.

No entiendo.

Gracias ya esta listo! Sabes tengo otra duda! Cuando quiero consultar un reguistro me deja en un combobox"Gobierno- Defensa y Salud" cuando debería mostrar el nombre del ingeniero te adjunto el código!
Private Sub CommandButton4_Click()
Dim C As Variant 'la variable para usar en este ciclo de busqueda es de tipo variant o ranger
consu = InputBox("Ingrese su consulta")
With Worksheets(1).Range("A3:b65536")
Set C = .Find(what:=consu, LookIn:=xlFormulas)
If Not C Is Nothing Then
Range(C.Address).Select
ActiveCell.Offset(0, 0).Select
TextBox2 = ActiveCell
ActiveCell.Offset(0, 1).Select
ComboBox10 = ActiveCell     ' Aqui deberia mostrar lo datos de la columna B pero muestra otros lo de la columna J  !!!
ActiveCell.Offset(0, 1).Select
TextBox4 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox5 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox6 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox7 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox8 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox9 = ActiveCell
ActiveCell.Offset(0, 1).Select
ComboBox4 = ActiveCell
ActiveCell.Offset(0, 1).Select
ComboBox10 = ActiveCell
ActiveCell.Offset(0, 1).Select
ComboBox9 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox13 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox14 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox15 = ActiveCell
ActiveCell.Offset(0, 1).Select
ComboBox1 = ActiveCell
ActiveCell.Offset(0, 1).Select
ComboBox2 = ActiveCell
ActiveCell.Offset(0, 1).Select
ComboBox3 = ActiveCell
TextBox2.Enabled = False
ComboBox10.Enabled = False
TextBox4.Enabled = False
TextBox5.Enabled = False
TextBox6.Enabled = False
TextBox7.Enabled = False
TextBox8.Enabled = False
TextBox9.Enabled = False
ComboBox4.Enabled = False
ComboBox9.Enabled = False
TextBox13.Enabled = False
TextBox14.Enabled = False
TextBox15.Enabled = False
ComboBox1.Enabled = False
ComboBox2.Enabled = False
ComboBox3.Enabled = False
MsgBox "Reguistro Existente"
Else
MsgBox "No Existe el Numero Sison"
consu = Empty
End If
Set C = Nothing
End With
End Sub
Pe puedes echar una ayudita por favor!
Gracias.

No comprendo por qué estás mostrando en un ComboBox el contenido de una sola celda, pero en fin.
ComboBox10 = ActiveCell.OffSet(0,1).Text
[email protected]

Gracias! Por tu ayuda!
Que estés bien.

Hola! Sabes deseo saber si un listbox lo puedo cargar con datos de la hoja.
Gracias.

Por supuesto, con la propiedad RowSource pones el rango y listo.
[email protected]

Igual no c trabajar con listcombo! Y deseo mostrar unos datos en una lista pero no c como se hace esto!
¿Tu me podrías ayudar con eso?.
Gracias!.

Pues insertas un ListBox en el UserForm y en la propiedad RowSource pones el rango deseado. En ColumnCount pones las columnas que deseas desplegar.

¿Y cómo trabajan esas propiedades?, deseo poner + de una columna como lo hago y lo de los rango no lo entiendo! ¿Cómo hagos esto?.
Gracias.

Te aconsejo que busques en Google porque no puedo darte clases de lo que se supone que deberías saber. Si estás haciendo un programa y quieres que te de todo, ¿cuándo vas a aprender algo?.

Igual llevo harto rato buscando información en diferentes páginas y no encuentro lo que deseo saber! aaa! (No soy Programador) estoy aprendiendo amigo! Y hay muchas cosas que ni sabia que se podianhacer con excel por esa causa pido ayuda, ¿otars la corrijo solo erreo tras erroe pero si tu conoces alguna página que me orien me dices? .
Gracias!.