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

• #46571 kutga félisten

  Új Válasz 2021-05-05 09:13:37 #46571

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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