Hola amigos, a versi me podéis echar una manita.

Tengo en la hoja1 Columna2 unos registros numéricos y en la columna4 de la misma hoja1, tengo unos datos que quiero que me compare con una tabla que tengo en la hoja2 y si coincide la columna4 de la hoja1 con latabla de la hoja2 que me sume los números columna2. hoja1 coincidentes

No se si me explico bien, bueno este es el código que manejo pero no me da resultado gracias.

Private Sub Boton_Prueba_Click()

DimUltimaFilH1 As Long

DimUltimaFilH2 As Long

DimagendaH1 As String

DimagendaH2 As String

DimVariable3 As Integer

DimcomprNum As Long

UltimaFilH1= Worksheets("fichero").Range("D" & Rows.Count).End(xlUp).Row

UltimaFilH2= Worksheets(1).Range("B" & Rows.Count).End(xlUp).Row


For a = 1To UltimaFilH1

  agendaH1 = Cells(a, 4).Value


For b = 1To UltimaFilH2

   agendaH2 = Cells(b, 2).Value

     VlorCelda3 = Cells(b, 3).Value


If agendaH1= agendaH2 And Variable3 = 1 Then

  comprNum = Cells(fila, 2)

    If IsNumeric(comprNum) Then

        sumar = sumar + 1

          End If

            End If


               Next

                  Next


End Sub [/CODE]

[/color][/size][/font]

Buenas, JavierFr

Si quieres que alguien pueda intentar echarte una mano, debes adjuntar un archivo ejemplo (con datos ficticios)..........normas del foro.....

Un saludo,

Tese

ok, gracias

Pero vas a adjuntar el archivo?

Chao,

Tese