Avaleht
uus teema   vasta Tarkvara »  Tarkvara »  Excel: Dropdown list tühjade väljadeta märgi kõik teemad loetuks
märgi mitteloetuks
vaata eelmist teemat :: vaata järgmist teemat
Hinnavaatlus :: Foorum :: Uudised :: Ärifoorumid :: HV F1 ennustusvõistlus :: Pangalink :: Telekavad :: HV toote otsing
autor
sõnum Saada viide sõbrale.  :: Teata moderaatorile teata moderaatorile
otsing:  
maamees
HV vaatleja

liitunud: 28.03.2004
sõnum 21.10.2012 20:09:42 Excel: Dropdown list tühjade väljadeta vasta tsitaadiga
Terv,

Püüan siis oma muret võimalikult selgelt kirjeldada.

1. Sheet2 lehel defineeritud vahemik A1:A30 "Nimekiri". Kõik väljad ei ole täidetud, kusjuures nimekiri aegajalt muutub: täieneb ja tühjeneb.
2. Sheet1 lehel on Dropdown(DD) List, mis näitab "Nimekiri" sisu. See DD List näitab ka tühje välju.
3. Kuidas ja/või millise võttega/koodijupiga saaks lahti DD Listis tühjadest väljadest ja seda nii, et kui tühjale väljale midagi kirjutatakse, kajastub see DD Listis.

Ehk:

Sheet2:
Peeter
Tarmo
Jüri
Annika

Arno



Illimar
Arvet


-------<Lõpp

Sheet1:
DD List (kus kajastuksid vaid täidetud lahtrid)
Peeter
Tarmo
Jüri
Annika
Arno
Illimar
Arvet
-------<Lõpp

On keegi olukorraga kokku puutunud? Ilmlaivõrk annab väga palju erinevaid tagajärgi, ent pole neid läbi hammustanud icon_sad.gif.

Ette ja taha tänades,
K.
tagasi üles
vaata kasutaja infot saada privaatsõnum
alfreedo
HV vaatleja

liitunud: 20.06.2010
sõnum 22.10.2012 00:25:38 vasta tsitaadiga
Vöib olla midagi sellist: lood Nimekirja2, milesse loed Nimekir1 kasutatud väljadest ja siis DD-sse loed Nimekirja2?


Sub Loe_Unikaalsed()
Dim x As Range
Dim coll As Collection
Dim i As Long
 
Sheets("Sheet2").Activate
    Columns("A:A").Select
     On Error Resume Next
      Selection.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
     Error.Clear
   
    Columns("B:B").ClearContents
    Range("A1").Select
     Set coll = New Collection
     
      On Error Resume Next
   
      'Activate
        For Each x In ActiveCell.CurrentRegion
          coll.Add x.Value, x.Value
        Next
      On Error GoTo 0
     
       i = 1
     
        For i = 1 To coll.Count
           Cells(i, 2).Value = coll.Item(i)
        Next i
Range("A1").Activate

End Sub





viimati muutis alfreedo 22.10.2012 00:32:43, muudetud 1 kord
Kommentaarid: 2 loe/lisa Kasutajad arvavad:  :: 0 :: 0 :: 2
tagasi üles
vaata kasutaja infot saada privaatsõnum
maamees
HV vaatleja

liitunud: 28.03.2004
sõnum 22.10.2012 00:26:46 vasta tsitaadiga
alfreedo, tänud vastamast!

Siiski kolasin veel netis ringi ja leidsin ühe vägeva videoõpetuse: http://www.youtube.com/watch?v=6PcF04bTSOM&feature=related <- Üksipulki lahti seletatud, kes, mis, kus teeb. Sellega mure lahendatud.

Veel üks asjalik viide: http://people.highline.edu/mgirvin/YouTubeExcelIsFun/EMT916.xlsx <- Siin siis fail, kus valemid ja näited kõik sees. Tasub alla laadida!
tagasi üles
vaata kasutaja infot saada privaatsõnum
alfreedo
HV vaatleja

liitunud: 20.06.2010
sõnum 22.10.2012 00:48:31 vasta tsitaadiga
Vaatasin esimest videot.
Valemitega mässamine pole just meeldiv kuna valemid suht seavad kindlad piirid ,samas valemis vea puhul otsi halliks.
Peale selle vöib suurtes andmehulkades arvutamine vötta uima aja.
Aga hea on, kui lahenduse said.
Kommentaarid: 2 loe/lisa Kasutajad arvavad:  :: 0 :: 0 :: 2
tagasi üles
vaata kasutaja infot saada privaatsõnum
näita postitusi alates eelmisest:   
uus teema   vasta Tarkvara »  Tarkvara »  Excel: Dropdown list tühjade väljadeta
[vaata eelmist teemat] [vaata järgmist teemat]
 lisa lemmikuks
näita foorumit:  
 ignoreeri teemat 
sa ei või postitada uusi teemasid siia foorumisse
sa ei või vastata selle foorumi teemadele
sa ei või muuta oma postitusi selles foorumis
sa ei või kustutada oma postitusi selles foorumis
sa ei või vastata küsitlustele selles foorumis
sa ei saa lisada manuseid selles foorumis
sa võid manuseid alla laadida selles foorumis



Hinnavaatlus ei vastuta foorumis tehtud postituste eest.