Visual Basic - Problema con método

Life is soft - evento anual de software empresarial
   
Vista:

Problema con método

Publicado por Felipe (1 intervención) el 24/05/2013 07:09:34
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Private Sub CommandButton5_Click()
 
    Dim i As Double
    Dim k As Double
    Dim h As Double
    Dim personaA As String
    Dim personaB As String
    Dim filaVacia As String
 
    filaVacia = ""
    i = 2
    k = 3
    h = 2
 
    Sheets("listar2").Select
    Cells(1, 1) = "Varios Trabajos"
    Sheets("Macro2").Select
 
    Do While (Cells(i, 1) <> filaVacia)
 
        personaA = Cells(i, 1)
 
        Do While (Cells(k, 1) <> filaVacia)
 
            personaB = Cells(k, 1)
 
            If (personaA = personaB) Then
 
                Sheets("listar2").Select
                Cells(h, 1) = personaA
                Sheets("Macro2").Select
                h = h + 1
 
            End If
            k = k + 1
 
        Loop
        i = i + 1
 
    Loop
 
End Sub


Al clickear el boton se deberia imprimirme en otra hoja de EXCEL la lista de los trabajadores que se repiten en la lista. Pero al ejecutarlo no muestra nada. La lista empieza desde la celda ubicda en (2,1) ya que la celda (1,1) es el titulo de la lista. Las hoja "Macro2" es donde esta la lista y la hoja "listar2" es donde voy a imprimir la nueva lista

Alguien podria ayudarme sin usar herramientas muy avanzadas? ya que en la universidad no me es permitido usar más de lo que se me fue enseñado
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

Problema con método

Publicado por amigo (24 intervenciones) el 28/05/2013 07:15:49
creo que el problema esta en esta linea
Sheets("listar2").Select
Cells(h, 1) = personaA
Sheets("Macro2").Select
h = h + 1 'principalmente aqui
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