Ayuda con el paso de información entre hojas de excel de datos de las celdas de las columnas
Necesito de una base de datos en la hoja1, extraer en la hoja2, poniendo el numero de agente, que me saque todos los clientes de ese comercial.
Doy algunos datos de la hoja1
a3: nº agente
b3: nº cliente
c3: nombre cliente
d3: importe venta
e3: direccion cliente
Y en la hoja2, en la celda a1, teclear el numero de comercial y a partir de la celda c1, que me salgan los datos de los clientes del comercial 1 por ejemplo. Y me totalice las ventas 2 filas más abajo de la ultima escrita.
Gracias de antemano. Un saludo.
Este programa es para una empresa sin animo de lucro, es para una hoguera de Alicante.
Doy algunos datos de la hoja1
a3: nº agente
b3: nº cliente
c3: nombre cliente
d3: importe venta
e3: direccion cliente
Y en la hoja2, en la celda a1, teclear el numero de comercial y a partir de la celda c1, que me salgan los datos de los clientes del comercial 1 por ejemplo. Y me totalice las ventas 2 filas más abajo de la ultima escrita.
Gracias de antemano. Un saludo.
Este programa es para una empresa sin animo de lucro, es para una hoguera de Alicante.
1 Respuesta
Respuesta de pekkas
1
Según vi conseguiste ya la solución a tu problema con las tablas dinámicas, me gustaría participarte una función se llama lookm que a lo mejor te pueda servir.
Es similar a buscarv buscar.
Mucha suerte
Function lookm(SearchItem, RangeFind As Range, RangeGetResult As Range, Optional NumDuplicate As Integer)
'SearchItem is the search item which can be text or range
'RangeFind is the range of your data you want to find for your match
'RangeGetResult is the range of your data you want to get
'NumDuplicate is the number of duplicate instance it finds and default is last duplicate
Dim ctr As Integer, i As Integer
For i = 1 To RangeFind.Count
If SearchItem = RangeFind.Cells(i) Then
ctr = ctr + 1
If NumDuplicate = 0 Then
lookm = RangeGetResult.Cells(i).Value
Else
If ctr = NumDuplicate Then
lookm = RangeGetResult.Cells(i).Value
Exit Function
End If
End If
End If
Next i
If ctr = 0 Then lookm = ""
End Function
Es similar a buscarv buscar.
Mucha suerte
Function lookm(SearchItem, RangeFind As Range, RangeGetResult As Range, Optional NumDuplicate As Integer)
'SearchItem is the search item which can be text or range
'RangeFind is the range of your data you want to find for your match
'RangeGetResult is the range of your data you want to get
'NumDuplicate is the number of duplicate instance it finds and default is last duplicate
Dim ctr As Integer, i As Integer
For i = 1 To RangeFind.Count
If SearchItem = RangeFind.Cells(i) Then
ctr = ctr + 1
If NumDuplicate = 0 Then
lookm = RangeGetResult.Cells(i).Value
Else
If ctr = NumDuplicate Then
lookm = RangeGetResult.Cells(i).Value
Exit Function
End If
End If
End If
Next i
If ctr = 0 Then lookm = ""
End Function
