Excel - Ayuda con extraccion de datos a otro excel

   
Vista:

Ayuda con extraccion de datos a otro excel

Publicado por Pedro (21 intervenciones) el 05/12/2012 16:44:32
He hecho esta Makro y no me funciona y nose poque, pretendo que al poner el numero que apareceria en una hoja extraerlo a donde aplico el makro,soy novatillo pero me esta causando muchos dpolores de cabeza estas makros

Sub consulta()

nDat = Columns("AA").Range("A65536").End(xlUp).Row

For Ix = 3 To nDat

If Val(Trim(Cells(Ix, 1))) = Durchmesser / Konstuktion Then

Sheets(Konstr).Cells(Iz, 1) = Durchmesser / Konstuktion

Sheets(Konstr).Cells(Iz, 2) = Cells(Ix, 2)

Sheets(Konstr).Cells(Iz, 3) = Cells(Ix, 3)

Sheets(Konstr).Cells(Iz, 4) = Cells(Ix, 4)

Sheets(Konstr).Cells(Iz, 5) = Cells(Ix, 5)

Sheets(Konstr).Cells(Iz, 6) = Cells(Ix, 6)

Sheets(Kontr).Cells(Iz, 7) = Cells(Ix, 7)

Sheets(Konstr).Cells(Iz, 8) = Cells(Ix, 8)

Ir = 1

End If

Next
If Ir = 0 Then
MsgBox ("No existe")

If Iz > 2 Then Iz = Iz - 1



End Sub
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

Ayuda con extraccion de datos a otro excel

Publicado por jcs (494 intervenciones) el 06/12/2012 10:53:29
Muy buenas.

Alguna aclaración: Veo unas cuantas variables definidas dentro de la macro, que entiendo lo que haces con ellas (nDat, lx, lr), pero hay otras que no se definen (Durchmesser, Konstuktion, lz) y que por tanto su valor será siempre cero. Entiendo que lz es la línea de la hoja Kontr en la que quieres colocar la información, pero siempre es cero, se supone que debería ir variando, por lo que tendría que partir de un valor inicial y luego ir dentro del If del bucle algo así como lz=lz+1.

Ya dirás.

Un saludo. Juanjo.
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