Questions[vba]

The macro has this problem:

• If Monica buys only flowers (see image 1), then on Sheet 2 she inserts 4 empty rows.

• If Monica buys only flowers and wrapping paper, then on Sheet 2 she inserts 3 empty rows.

• If Monica buys only flowers, gift wrap and a card, then on Sheet 2 she inserts 2 rows (see image 2).

How can I make it so that the macro does not insert empty rows in Sheet 2?

Sub Compras_del_Cliente()

    'Compras del cliente Macro
    Sheets("Hoja2").Select
    Range("A9:A13").EntireRow.Insert

    'Nombre / Empresa
    Sheets("Hoja1").Select
    Range("C9").Copy      
    Sheets("Hoja2").Select
    Range("A9").PasteSpecial xlPasteValues

    'Código
    Sheets("Hoja1").Select
    If Range("B12:B16").Select <> Empty Then
        Range("B12:B16").Copy 
    End If
    Sheets("Hoja2").Select
    Range("C9").PasteSpecial xlPasteValues

    'Descripción del Producto
    Sheets("Hoja1").Select
    If Range("C12:C16").Select <> Empty Then
        Range("C12:C16").Copy    
    End If
    Sheets("Hoja2").Select
    Range("B9").PasteSpecial xlPasteValues

    'Cantidad
    Sheets("Hoja1").Select
    If Range("D12:D16").Select <> Empty Then
        Range("D12:D16").Copy    
    End If
    Sheets("Hoja2").Select
    Range("D9").PasteSpecial xlPasteValues

    'Precio
    Sheets("Hoja1").Select
    If Range("E12:E16").Select <> Empty Then
        Range("E12:E16").Copy    
    End If
    Sheets("Hoja2").Select
    Range("E9").PasteSpecial xlPasteValues

End Sub

Sub Borrar()
    'Botón para borrar valores en la tabla "Compras del CLIENTE" en Hoja 1
    Range("C9").Value = Empty
    Range("B12:B16").Value = Empty
    Range("C12:C16").Value = Empty
    Range("D12:D16").Value = Empty
    Range("E12:E16").Value = Empty
End Sub

Sub Eliminar_venta()
    'Botón para eliminar venta en la tabla "Lista de VENTAS" en la Hoja 2
    Sheets("Hoja2").Select
    Selection.EntireRow.Delete
End Sub

Hi guys! I hope everybody is fine.

I have a table [BALANCE_MOV] (Inventory Movement Balance) with the following fields:

*[ID]: product (text)

*[INCOME]: amount entered for each product (number)

*[ALM_ING]: input warehouses (text)

With which I want to make a query to know THE ENTERED QUANTITY OF EACH ID, ACCORDING TO A PARTICULAR WAREHOUSE NAMED "NNPU" . For this I use the following fields:

*[POINT]: warehouse maintainer (text, in another table)

*[IDP]: products in stock (text, in another query)

*[INCOMES_X_ALMACEN]: sum field...with the problem.

To do the above, I plan to use the DSum function, similar to the SUMAR.IF.SET of excel from what I understand , which works if I execute it with only one criterion : either to add the quantity according to an ID, or the warehouse in question . BUT if I combine them, it DOES NOT work , and it calculates a total for which I cannot discover the reason.

This is the syntax I use; Access does not recognize an error in it, it just does not calculate correctly. Is there something wrong? Thank you guys in advance.

INGRESOS_X_ALMACEN: DSuma("[INGRESOS]";"[BALANCE_MOV]";"[ID]='" & [IDP] & "'" Y "[ALM_ING]='NNPU'")

I am working with vba for data processing within excel, I have some reports, each one on its own sheet, in which I need to fill in the cells that are blank with the value of the cell above them.

The problem is that when I finish the first sheet, it gives me a 1004 error, and I would like it to go past that error, and continue with the next sheet. The code I have is the following:

Function structure_sheets()
    With ThisWorkbook
        For Each Sheet In .Sheets
            If (InStrRev(Sheet.Name, "Node") > 0) Then
                LastRow = Sheet.UsedRange.Rows.Count
                With Range("A8:F" & Range("F" & LastRow).End(xlDown).Row)
                    .SpecialCells(xlBlanks).FormulaR1C1 = "=R[-1]C"
                    .Value = .Value
                End With
            End If
        Next
    End With
End Function

And the error:

OnErrors don't seem to work with these blocks of code.

If anyone has an idea, suggestions are welcome.

Thank you very much.

What I want is to create a procedure but for it to receive n parameters (meaning that it is unknown how many parameters they will create) I have only managed to do it knowing the number of parameters

Sub Actualizar_Ribbon(ByVal boton1 As String, Optional boton2 As String)
    UNIVidaTab.InvalidateControl (boton1)
    If boton2 <> Empty Then
        UNIVidaTab.InvalidateControl (boton2)
    End If
End Sub

What I have in mind is something like this. I clarify that I have not figured out yet how to refer to all the parameters and in this example I have 5 parameters but I clarify that what I want is to receive n parameters

Sub Actualizar_Ribbon(ByVal boton1 As String, Optional boton2 As String, Optional boton3 As String, Optional boton4 As String, Optional boton5 As String)
    Dim i As Integer
    For i = 1 To 5
        If boton & i <> Empty Then
            UNIVidaTab.InvalidateControl (boton & i)
            Exit For
        End If
    Next i
End Sub

I would really appreciate it if you can help me

I have the error 91 in VBAwith the following code:

Dim i, c, b, a, 

With wsMissingSCM2.ListObjects("tblReportData2")
    .TableStyle = "TableStyleLight6"
    '
    ' LocationColumn
    '
    i = 1
    .ListColumns(i).DataBodyRange.HorizontalAlignment = xlCenter 'ERROR HERE
    .HeaderRowRange.Columns(i).Value = "Missing Item"
    .ListColumns(i).DataBodyRange.ColumnWidth = 14

Any suggestion?