víctor ibarz

Si te he entendido correctamente, una posible solución sería realizar primero una consulta que te devuelva las ventas del cliente que quieres consultar y posteriormente otra consulta sobre esta. Vamos a verlo: He creado las tablas y las he llenado...

Si tienes posibilidad de acomodar tus datos tal y como te indico a continuación, entonces lo puedes resolver de forma muy sencilla: Los encabezados de columna pueden ser "zona 1", "zona 2", etc o lo que quieras. Se trata que los encabezados de filas,...

Me interesa tu oferta, te dejo un correo. [email protected]

La manera más sencilla de hacerlo es mediante una macro, algo así:

La manera de usar los msgbox de este modo es la siguiente: 'definimos el msgbox vmm = MsgBox("Atención!" & vbCrLf & vbCrLf & "Se ha encontrado el valor buscado, deseas seguir adelante con la ejecución de la macro?", vbCritical + vbYesNo, "Atención!")...

Prueba así a ver si te sirve: Dim h As Worksheet Set h = Hoja1 a = Range("E" & Rows.Count).End(xlUp).Row If a < 3 Then Exit Sub For B = 3 To a If Cells(B, 6) = Cells(B + 1, 5) Then ElseIf Cells(B, 6) > Cells(B + 1, 5) Then 'superpuesto vi = Cells(B,...

Puedes hacerlo así: Dim h As Worksheet Set h = Hoja1 a = Range("E" & Rows.Count).End(xlUp).Row If a < 3 Then Exit Sub For B = 3 To a If Cells(B, 6) = Cells(B + 1, 5) Then Else h.Cells(B, 5).EntireRow.Insert B = B + 1 End If Next Cambia donde dice...

Lo puedes hacer con una consulta de totales de este modo: En la imagen te he puesto los dos primeros cálculos, los demás es solo seguir con esta idea.

En un botón lo siguiente: Dim fileName As String Dim result As Integer With FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = False result = .Show If (result <> 0) Then fileName = Trim(.SelectedItems.Item(1)) End If End With 'Comprobamos que se...

Prueba así: =SI(HOY()>C12+6;("llamar "&F12&I12);SI(E12="aceptada";"avisado";""))