Popravljanje podatkov

Pomoč pri izdelavi makrov
Odgovori
BJ
Prispevkov: 170
Pridružen: Sr Okt 26, 2005 5:46 pm

Popravljanje podatkov

Odgovor Napisal/-a BJ »

Pozdravljeni!
Prosim za pomoč-
V DZ imam dva lista. Na prvem je ukazni gumb, kateri mi prikaže UserForm1, na drugem listu pa so podatki.
UserForm ima ComboBox, dva textBox-a, tri opcijska stikala, DateTimePicker in tri CheckBox-e.
Ker moram na drugem listu večkrat popravljati podatke, bi želel nekako takole:
Ko v ComboBox-u izberem nek zapis (iz lista 2, stolpec »B«), bi se v textBox izpisal podatek iz iste vrstice, stolpec »C« in če je možno, tudi katero opcijsko stikalo je izbrano (stolpec »E«) oziroma
Kateri CheckBox je potrjen (stolpec »F«)
Prilagam tudi kodo za ComboBox

Koda: Izberi vse

Private Sub UserForm_Initialize()
 Dim UniqueList()    As String
    Dim x               As Long
    Dim Rng1            As Range
    Dim c               As Range
    Dim Unique          As Boolean
    Dim y               As Long
      
    Set Rng1 = Sheets("Podatki").Range("B5:B2000")
    y = 1
      ReDim UniqueList(1 To Rng1.Rows.Count)
      For Each c In Rng1
        If Not c.Value = vbNullString Then
            Unique = True
            For x = 1 To y
                If UniqueList(x) = c.Text Then
                    Unique = False
                End If
            Next
            If Unique Then
                y = y + 1
      'Več podatkov v comboBox-u
                Me.cboNajdi.AddItem c.Offset(0, -1) & ".   " & (c.Text) & ",  " & c.Offset(0, 1)   
    UniqueList(y) = c.Text
 
            End If
        End If
 Next

 End Sub
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Popravljanje podatkov

Odgovor Napisal/-a admin »

Pozdravljeni,

Na žalost je pa tole že "majhna aplikacija", ki bi mi vzela preveč časa, da bi jo reševal in objavljal na forumu :(
lp,
Matjaž Prtenjak
Administrator
BJ
Prispevkov: 170
Pridružen: Sr Okt 26, 2005 5:46 pm

Re: Popravljanje podatkov

Odgovor Napisal/-a BJ »

Kaj pa samo tole?
Ko v ComboBox-u izberem nek zapis (iz lista 2, stolpec »B«), bi se v textBox izpisal podatek iz iste vrstice, stolpec »C
cedra
Prispevkov: 264
Pridružen: Po Jul 25, 2005 11:11 pm
Kraj: Kamnik

Re: Popravljanje podatkov

Odgovor Napisal/-a cedra »

Takole nekako bi šlo:

Koda: Izberi vse

Sub ComboBox1_Change()

    For Each cell In Range(Range("B2"), Range("B2").End(xlDown))
        If cell = ComboBox1.Value Then TextBox1 = cell.Offset(0, 1)
    Next cell
    
End Sub
lp,

cedra
Odgovori