Hirdetés

Új hozzászólás Aktív témák

  • kutga

    félisten

    Hölgyek/Urak!

    Van egy ehhez hasonló excel táblám:

    Sorszám Eladó Bruttó összeg Számla kelte
    KSZ-1 abc Kft. 123 Ft 2020.12.21

    Készítettem egy userformot, amivel új sort lehet benne megadni, a kérdésem, hogy hogyan tudnám vba-ban megoldani, hogy a sorszám mindig eggyel növekedjen?

    Eddig jutottam a kódrészletben.

    Private Sub btRogzit_Click()

    Dim emptyRow As Long

    Munka2.Activate

    emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1

    Cells(emptyRow, 1).Value = "KSZ-" & tbSorszam.Value
    Cells(emptyRow, 2).Value = tbElado.Value
    Cells(emptyRow, 3).Value = tbBrutto.Value
    Cells(emptyRow, 5).Value = cbEv.Value & "/" & cbHonap.Value & "/" & cbNap.Value

    Unload Me

    End Sub

Új hozzászólás Aktív témák