Buscar en rango y columnas
Hola Elsa, un saludo de Monterrey, Mx. Tengo poco tiempoen en el lenguaje vba, por lo que creo que mi pregunta es algo sencillo: Realizo una búsqueda en el rango H1:H1000, al encontrar este valor (supongamos H20), imprimo el valor A20 celda en una label, el de B20 en otra label, etc y no me funciona, me pone el valor de otras celdas, me puedes orientar como realizar este código correctamente. Te anexo el código..
With Worksheets("Reporte").Range("H1:H100")
For i = 1 To .Count
If .Cells(k) = variable Then
Label1 = .Cells(k, 9).Value 'I20
Label2 = .Cells(k, 10).Value 'J20
Label3 = .Cells(k, 11).Value 'K20
Label4 = .Cells(k, 1).Value 'A20
Label5 = .Cells(k, 2).Value 'B20
End If
Next
End With
Se que tiens mucho trabajo, por lo que te doy las gracias de antemano.
With Worksheets("Reporte").Range("H1:H100")
For i = 1 To .Count
If .Cells(k) = variable Then
Label1 = .Cells(k, 9).Value 'I20
Label2 = .Cells(k, 10).Value 'J20
Label3 = .Cells(k, 11).Value 'K20
Label4 = .Cells(k, 1).Value 'A20
Label5 = .Cells(k, 2).Value 'B20
End If
Next
End With
Se que tiens mucho trabajo, por lo que te doy las gracias de antemano.
1 Respuesta
Respuesta de Elsa Matilde
1
El problema está en que las coordenadas que le das son a partir de donde estás parado, por eso si estás en H será 1, entonces G será 0, A será -6 y QUE será 3
With Worksheets("Hoja1").Range("H1:H1000")
'debes utilizar la misma variable en el For que en los Cells
For k = 1 To .Count
If .Cells(k).Value = variable Then
ActiveSheet.Label1 = .Cells(k, 2).Value 'I20
ActiveSheet.Label2 = .Cells(k, 3).Value 'J20
ActiveSheet.Label3 = .Cells(k, 4).Value 'K20
ActiveSheet.Label4 = .Cells(k, -6).Value 'A20
ActiveSheet.Label5 = .Cells(k, -5).Value 'B20
End If
Next
End With
With Worksheets("Hoja1").Range("H1:H1000")
'debes utilizar la misma variable en el For que en los Cells
For k = 1 To .Count
If .Cells(k).Value = variable Then
ActiveSheet.Label1 = .Cells(k, 2).Value 'I20
ActiveSheet.Label2 = .Cells(k, 3).Value 'J20
ActiveSheet.Label3 = .Cells(k, 4).Value 'K20
ActiveSheet.Label4 = .Cells(k, -6).Value 'A20
ActiveSheet.Label5 = .Cells(k, -5).Value 'B20
End If
Next
End With
¿Qué tal Elsa?, espero que todo este bien. Ya modifique el código y el proyecto se ejecuto perfectamente. Muchas Gracias por tu tiempo y apoyo. Saludos
