Extraer datos para una factura en excel

Hola, Esteban Dido

si gusta mandame como la tienes diceñada y la adecuamos sino de cualquier
fomarma creo que esta seria la orden utilizando la funcion BUSCARV

Mira pon la siguiente formula en donde esta la descrpcion ,
=" "&SI($A7<>"",BUSCARV(A7,Datos!$A$2:E500,2,0),"")

y esta otra donde va el precio
=" "&SI($A7<>"",BUSCARV(A7,Datos!$A$2:E500,3,0),"")

si tienes duda comenta

Un saludo,
Daniel.

Daniel,
Mil gracias, acomodé los numeros de filas y letras de columna que tu
estimaste a lo que tiene mi planilla, y funciona perfecto.
Sos tremendo, sos.
Una cosa, si no te es molestia: ¿podrías explicarme un poco la fórmula, cómo
funciona?
Un abrazo.

Saludos
"Daniel S.L." escribió en el mensaje
news:#

Hola, Esteban Dido

si gusta mandame como la tienes diceñada y la adecuamos sino de cualquier
fomarma creo que esta seria la orden utilizando la funcion BUSCARV

Mira pon la siguiente formula en donde esta la descrpcion ,
=" "&SI($A7<>"",BUSCARV(A7,Datos!$A$2:E500,2,0),"")

y esta otra donde va el precio
=" "&SI($A7<>"",BUSCARV(A7,Datos!$A$2:E500,3,0),"")

si tienes duda comenta

Un saludo,
Daniel.

hola..
creo que esta de mas " "&
quedaria asi

=SI($A7<>"",BUSCARV(A7,Datos!$A$2:E500,2,0),"")

Un saludo,
Daniel.

Hola a todos.

Queria saber si puedo hacer lo siguiente:
Tengo un libro con 4 hojas. Las hojas tienen identica estructura aunque
datos diferentes. Quiero hacer una hoja nueva que tenga las filas de las
otras cuatro ordenadas de modo que la primera fila sea la primera de la
primera hoja, la segunda la primera de la segunda hoja, la tercera la
primera de la tercera hoja y la cuarta la primera de la cuarta hoja. Es
decir, una tabla que reuna todas las filas pero ordenadas por la primera
columna de cada hoja (es una fecha). No tengo problema para hacerlo con
la primera fila mediante esta macro que encontre, pero solo me extrae la
primera fila, ¿como se puede repetir para todas?


Sub Test4()
Dim sh As Worksheet
Dim DestSh As Worksheet
Dim Last As Long



On Error Resume Next
If Len(ThisWorkbook.Worksheets.Item("Master").Name) = 0 Then
On Error GoTo 0
Application.ScreenUpdating = False
Set DestSh = Worksheets.Add
DestSh.Name = "Master"
For Each sh In ThisWorkbook.Worksheets
If sh.Name <> DestSh.Name Then
Last = LastRow(DestSh)



sh.Rows("3").Copy DestSh.Cells(Last + 1, "A")
End If
Next
Cells(1).Select
Application.ScreenUpdating = True
Else
MsgBox "The sheet Master already exist"
End If
End Sub

La funcion LastRow es:

Function LastRow(sh As Worksheet)
On Error Resume Next
LastRow = sh.Cells.Find(What:="*", _
After:=sh.Range("A1"), _
Lookat:=xlPart, _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False).Row
On Error GoTo 0
End Function


Lo que quiero es esto pero para la totalidad de las hojas.


Gracias de antemano. Perdon por lo extenso.


Salu2. Martin

¿Que cambio debería hacerle a la formula BUSCARV para extraer datos de
varias hojas diferentes, por ejemplo:
Datos1, Datos2, Datos3, etc.
Es que quiero tener hojas diferentes por tipo de producto. ¿Se puede?

Saludos
"Esteban Dido" escribió en el mensaje
news:

Daniel,
Mil gracias, acomodé los numeros de filas y letras de columna que tu
estimaste a lo que tiene mi planilla, y funciona perfecto.
Sos tremendo, sos.
Una cosa, si no te es molestia: ¿podrías explicarme un poco la fórmula,

cómo

funciona?
Un abrazo.

Saludos
"Daniel S.L." escribió en el mensaje
news:#
> Hola, Esteban Dido
>
> si gusta mandame como la tienes diceñada y la adecuamos sino de

cualquier

> fomarma creo que esta seria la orden utilizando la funcion BUSCARV
>
> Mira pon la siguiente formula en donde esta la descrpcion ,
> =" "&SI($A7<>"",BUSCARV(A7,Datos!$A$2:E500,2,0),"")
>
> y esta otra donde va el precio
> =" "&SI($A7<>"",BUSCARV(A7,Datos!$A$2:E500,3,0),"")
>
> si tienes duda comenta
>
> Un saludo,
> Daniel.
>
>
>
>