Excel - contar

   
Vista:

contar

Publicado por mike (16 intervenciones) el 30/03/2009 22:24:36
hola a todos!! saben estoy construyendo un programa y soy nuevito en esto y dese contar los proyectos que tiene un ingeniero segun la fecha de ingreso (las ingreso en 2 textbox) y solo me suma pero no deseo eso quiro CONTAR LOS PROYECTOS QUE ENTRARON EN ESA FECHA!!

alguien me puede ayudar??

este es mi codigo:

Private Sub CommandButton1_Click()
If TextBox2 = Empty Or TextBox3 = Empty Then
MsgBox "Ingrese fechas", vbCritical
Else
If OptionButton1 = True Then
Verificador2 = "Gobierno-Defensa y Salud"
End If
If OptionButton2 = True Then
Verificador2 = "Banca-Retail y Servicios financieros"

End If
If OptionButton3 = True Then
Verificador2 = "Minería-Industria y Regiones"
End If

Dim FechaI As Date
Dim FechaF As Date
Dim format As String
Dim Dato1 As String
Dim Dato As Date

FechaI = TextBox2.Value 'Donde tu pondrias 01/02/2009
FechaF = TextBox3.Value 'Donde tu pondrias 12/04/2009
Dato1 = ComboBox1.Value

ULT = Sheets("INGRESOS").Range("E65536").End(xlUp).Row - 1
fila = 2
contador = 0
For X = 1 To ULT
Gcomercial = Cells(fila, 10).Value

Dato = Cells(fila, 5).Value
dato2 = Cells(fila, 2).Value
For w = FechaI To FechaF
If Dato = w And Dato1 = dato2 And Gcomercial = Verificador2 Then
contador = contador + Cells(fila, 16).Value
End If
Next w
fila = fila + 1
Next X

Label4 = contador

gracias!!
End If
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:contar

Publicado por Santiago (193 intervenciones) el 30/03/2009 22:42:04
Hola, es muy simple
contador=contador+1

Espero que te sirva mucho :)

Un saludo desde Ambato, Ecuador
SCM
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar