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

• #17167 Mutt senior tag m.zmrzlina #17157

  Új Válasz 2013-03-09 19:38:42 #17167

  Ú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

  

  Mutt

  senior tag

  válasz m.zmrzlina #17157 üzenetére

  Hello,

  Ezek a lépések kellenek neked.

  1. Hozz létre egy beviteli listát (Active X).
  2. A ListFillRange-be add meg a választható listát.
  3. A munkalap change eseményéhez add ezt a kódot.
  'csak akkor fut, ha az A-oszlopban történik változás
  If Target.Column = 1 Then
  'beállítjuk hogy a
  ComboBox1.LinkedCell = "B" & Target.Row
  'beugrunk a beviteli listába
  ComboBox1.Activate
  End If

  Enterhez köthető eseménye nincsen, de pl. ESC-es van ha ez is jó neked, akkor használd ezt a kódot.
  Private Sub ComboBox1_LostFocus()
  
  Range("A" & Range("A" & Rows.Count).End(xlUp).Row + 1).Activate
  
  End Sub

  Tehát így fogod tudni használni:
  1. A-oszlopba írsz vmit.
  2. Enter-rel (vagy máshogy) kilépsz a cellából beugrik a beviteli listába.
  3. Kiválasztod az értéket, majd nyomsz Esc-et és az A-oszlop első üres sorába kerülsz.

  Ide felraktam a mintát.

  üdv.

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