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 = 2Sheets("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
0