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

• #46578 Pakliman tag kutga #46577

  Új Válasz 2021-05-05 10:30:07 #46578

  Ú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

  

  Pakliman

  tag

  válasz kutga #46577 üzenetére

  Sub btRogzit_Click()
Dim sor As Long
Dim lMax As Long
Dim l As Long

Dim emptyRow As Long

Munka2.Activate

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

For sor = 1 To emptyRow - 1
If Cells(sor, 1) Like "KSZ-#*" Then
l = Mid(Cells(sor, 1), 5)
If l > lMax Then lMax = l
End If
Next sor

Cells(emptyRow, 1).Value = "KSZ-" & lMax + 1 'tbSorszam.Value -> többé nem kell:)
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