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

• #6060 Fire/SOUL/CD félisten Bicé #6057

  Új Válasz 2010-01-15 14:45:34 #6060

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Bicé #6057 üzenetére

  Hali!

  Mint előbb ulrik19 említette, más megoldást kell választanod.
  Nem írtad, mennyire vagy jártas VBA-ban, úgy hogy nem biztos hogy ez a kód segít.
  Ez Listbox-al dolgozik, ami a Munka1 lapon van ListBox1 néven, az adatok amikkel kitölti(üres cellákat kihagyja), az meg a Munka2, A oszlopában (bármelyikben lehet, csak módosítani kell egy elég egyértelmű sorban) A kód a munkafüzet megnyitásakor fut le, de a későbbiekben szükséges lesz belőle szubrutint készítened, hisz több esetben is szükség lesz, hogy lefusson.(Például, amikor módosítasz az adatokon)

  Private Sub Workbook_Open()
  
  Dim MySrcColumn As String
  Dim MySrcSheet As String, MyDestSheet As String
  Dim SourceRange As Range
  Dim LB1 As Object
  
  Application.ScreenUpdating = False
  
  MySrcSheet = "Munka2"
  MySrcColumn = "A"
  MyDestSheet = "Munka1"
  
  Set LB1 = Sheets(MyDestSheet).ListBox1
  
  Sheets(MySrcSheet).Activate
  
  MyUsedRange = Range(MySrcColumn & "65536").End(xlUp).Row
  Set SourceRange = Sheets(MySrcSheet).Range(MySrcColumn & "1:" & MySrcColumn & MyUsedRange)
  LB1.Clear
  LB1.MultiSelect = fmMultiSelectExtended
  For i = 0 To SourceRange.Rows.Count - 1
  MyItem = Cells(SourceRange.Row + i, SourceRange.Column)
  If Not IsEmpty(MyItem) Then
  LB1.AddItem MyItem
  End If
  Next i
  Sheets(MyDestSheet).Activate
  
  Application.ScreenUpdating = True
  
  End Sub

  Fire.

• #6059 Delila_1 veterán Bicé #6057

  Új Válasz 2010-01-15 14:45:27 #6059

  Ú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

  

  Delila_1

  veterán

  válasz Bicé #6057 üzenetére

  Valószínű, hogy a választható listát az Űrlap eszköztárról vett kombi panellel, vagy a Vezérlők eszköztáráról a beviteli lista segítségével akartad megoldani.
  Ne ezeket alkalmazd, hanem adj nevet az elemeket tartalmazó területnek (Beszúrás/Név/Név megadása), és a másik lapon a választható listát az Adatok/Érvényesítésnél add meg. A Megengedve mezőben Lista legyen, a Forrás pedig
  =Adott_név
  Ezt akárhány cellába (egyszerre is) beviheted, mindegyikben az ott kiválasztott érték marad meg.
  Ha azonos lapon vannak a választható elemek és az érvényesítés, még elnevezni sem kell a tartományt, csak beírni pl. =$A$5:$A$15
  Ha a tartomány A:A, akkor a teljes oszlopban szereplő elnevezések szerepelnek majd az érvényesítésben, követi az értékek számának bővülését, de a csökkenést nem, azok helyére üres sort ad. A csökkenés követéséhez érdemes az OFSZET függvény bevetése.

• #6058 ulrik19 tag Bicé #6057

  Új Válasz 2010-01-15 10:49:38 #6058

  Ú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

  

  ulrik19

  tag

  válasz Bicé #6057 üzenetére

  legördülőben egyszerre csak egy érték választható.

  ha a klikkelés eseményhez olyan eljárást rendelsz, ami nem felülírja a cellát, hanem a tartalmához hozzáfűzi az újonnan választott értéket, akkor szépen sorban belekerülnek a kiválasztott értékek.

  konkrétabb javaslathoz látni kellene a fájlodat.

  ha a választási lehetőséget mindenképp egyszerre kell megoldani, akkor másik vezérlő(ke)t kell alkalmazni.

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