edoedokra
06.09.20,17:19
Som začiatočník pri programovaní VBA.Používam čítačku čiarových kódov na plnenie databazy "sklad" cez Excel UserForm ktorý má 3 prvky - ComboBox1 - TabIndex=0 to je pole s názvom tovaru , TextBox1-TbIndex=1 to je množstvo, a CommandButton1 - (Potvrdiť) TabIndex2 .
Formulár funguje výborne až po TabIndex2, kedy by mala nasledovať slučka aby sa vrátil na TabIndex=0, pre plnenie ďalšej položky, a tu som zatiaľ bezradný .
Použil som priložený kód, kde časť "Me!ComboBox1.TabIndex = 0"
som si našiel na sieti aby som sa pohol ďalej.Takto mi program funguje ,ale je to primitívne riešenie a určite by to malo vypadať inakšie.
Chcel by som pekne poprosiť, či sa najde niekto kto by mi s tým pomohol - poradil.
Vopred moc ďakujem
Edkra

Private Sub CommandButton1_Click()
' Makro pre "Faktúra"2"
'Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim x As Integer 'Variant
Dim y As Integer
Dim cel As Range
Dim ComboBox As Integer 'ComboBox1
Dim Textbox As Integer 'TextBox1
Dim CommandButton As Integer 'CommandButton1
Dim Keycode As Integer

x = Range("B114") + 1
y = Range("D114") + 2
Range("F114").Select
' ActiveSheet.Select ' ???
Selection.Copy
Cells(x, y).Select
ScreenUpdating = False

Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False

Me!ComboBox1.TabIndex = 0
Me!TextBox1.TabIndex = 1
Me!CommandButton1.TabIndex = 2
Me!ComboBox1.Text = ""
ScreenUpdating = True


Unload UserForm13
UserForm13.Show
Application.Calculation = xlCalculationAutomatic
End Sub