Mostrar en otra hoja..

Hola! Sabes deseo mostrar en otra hoja los datos que tengo en la hoja INGRESOS mostralos en otra según la fecha de búsqueda tengo este código:
Private Sub CommandButton1_Click()
Dim FechaI As Date
Dim FechaF As Date
Dim format As String
Dim Dato1 As String
Dim Dato As Date
FechaI = TextBox1.Value 'Donde tu pondrias 01/02/2009
FechaF = TextBox2.Value 'Donde tu pondrias 12/04/2009
'MsgBox "El resultado es " & format(FechaF - FechaI, 0) & " dias"
If UserForm1.OptionButton2.Value = True Then
Dato1 = "Pequeña"
End If
If UserForm1.OptionButton3.Value = True Then
Dato1 = "Mediana"
End If
If UserForm1.OptionButton4.Value = True Then
Dato1 = "Grande"
End If
If UserForm1.OptionButton5.Value = True Then
Dato1 = "Licitación"
End If
ULT = Sheets("INGRESOS").Range("E65536").End(xlUp).Row - 1
If Dato1 = Empty Then
MsgBox "selecione un Dato", vbCritical
Exit Sub
Else
fila = 2
contador = 0
For X = 1 To ULT
Dato = Cells(fila, 5).Value
dato2 = Cells(fila, 15).Value
For w = FechaI To FechaF
If Dato = w And Dato1 = dato2 Then
contador = contador + 1
End If
Next w
fila = fila + 1
Next X
Label3 = "Existe " & contador & " proyectos " & Dato1
End If
End Sub
Que me cuenta los datos que tengo pero no c como hacer que los muestre los que cuenta en otra hoja!
¿Cómo lo hago para mostrar los datos en la otra hoja?.
Gracias.

1 Respuesta

Respuesta
1
Podes agregar un listBox (por ejemplo) y a medida que los cuenta los metés dentro del listbox
¿Si trate de hacer eso pero como soy nuevo en esto no pude realizarlos me puedes ayudar en esta parte?
Gracias saludos.
Supongo que lo que querés poner en el listbox es "dato2" (que es una de las cosas que estas comparando antes de incrementar el contador), si es así, la macro la podrías modificar de la siguiente forma
Private Sub CommandButton1_Click()
Dim FechaI As Date
Dim FechaF As Date
Dim format As String
Dim Dato1 As String
Dim Dato As Date
FechaI = TextBox1.Value 'Donde tu pondrias 01/02/2009
FechaF = TextBox2.Value 'Donde tu pondrias 12/04/2009
'MsgBox "El resultado es " & format(FechaF - FechaI, 0) & " dias"
If UserForm1.OptionButton2.Value = True Then
Dato1 = "Pequeña"
End If
If UserForm1.OptionButton3.Value = True Then
Dato1 = "Mediana"
End If
If UserForm1.OptionButton4.Value = True Then
Dato1 = "Grande"
End If
If UserForm1.OptionButton5.Value = True Then
Dato1 = "Licitación"
End If
ULT = Sheets("INGRESOS").Range("E65536").End(xlUp).Row - 1
If Dato1 = Empty Then
MsgBox "selecione un Dato", vbCritical
Exit Sub
Else
fila = 2
contador = 0
For X = 1 To ULT
Dato = Cells(fila, 5).Value
dato2 = Cells(fila, 15).Value
For w = FechaI To FechaF
If Dato = w And Dato1 = dato2 Then
contador = contador + 1
Listbox1.AddItem dato2
End If
Next w
fila = fila + 1
Next X
Label3 = "Existe " & contador & " proyectos " & Dato1
End If
End Sub
Te repito que tienes que agregar el listbox (y llamarlo ListBox1)
Hola! ¿Y puedo mostrar todos los totales en la lista inmediatamente sin enviarla al label?
Gracias
¿Qué totales? ¿Lo qué tenés en el Label3? Si querés que figure al final del listbox, en lugar de hacer
Label3 = "Existe"...
haces
Listbox1.AddItem "Existe " & contador...
O algo parecido
Saludos (y no olvides finalizar)
Gfellay

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas