Telefonszámunk: 1-472-0679

feladatok egy gombra összpontosítása

Kezdőlap Fórumok Excel programozás feladatok egy gombra összpontosítása

Ennek a témakörnek tartalma 2 hozzászólás, 2 résztvevő. Utolsó frissítés:  Titok 3 napja, 3 órája telt el a bejegyzés óta.

3 bejegyzés megtekintése - 1-3 / 3
  • Szerző
    Bejegyzés
  • #5157

    Potus
    Résztvevő

    Sziasztok!

    A már annyiszor idecitált “program”-omról lenne ismét szó.
    Találtam a neten egy remek szűrő programot, makrót, nem is tudom hogyan nevezzem, amit kissé átalakítgatva több dologra is tudok használni. Többek között arra is, hogy felviszem a különböző feladatokat , találkozókat, határidőket stb egy táblázatba – rendezi sem kell őket dátum szerint – és kiszűri az adatokat a kért kritérium szerint.
    Amiről most szó van az megjeleniti a “mai” dátumhoz kapcsolodó feladatokat egy – ill. most még kettő – kattintásra. Abban szeretnék segítséget kérni, hogy ez a két kattintás egy legyen.
    Most jelen pillanatban a nyító lapon rákattintok egy gombra az előhívja a userformot és még egyet kattintanom kell, hogy az adatok is megjelenjenek. Szeretném, ha ez egy kattintással megoldható lenne.

    a kód, a macro:
    Sub cmdMa_Click()

    Application.screenupdating = False
    Sheets(“adat”).Select
    Range(“B8:G209”).Select
    Selection.copy

    Range(“CQ8”).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

    Dim DataSH As Worksheet
    On Error GoTo errhandler:

    Set DataSH = Sheets(“adat”)
    DataSH.Range(“cy8”).Value = Sheets(“adat”).Range(“b2”)
    DataSH.Range(“cy9”).Value = Sheets(“adat”).Range(“b1”)
    DataSH.Range(“cq8”).CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=DataSH.Range(“adat!criteria4”) _
    , CopyToRange:=DataSH.Range(“adat!extract4”)
    ‘Set myRng = Sheet1.Range(“outdata”)
    lboMa.RowSource = Sheets(“adat”).Range(“outdata4″).Address(external:=True)
    Exit Sub
    errhandler:
    ‘if error occurs then show me exactly where the error occurs
    Call msgbox5.show ‘”No match found for ” & txtSearch.Text
    On Error GoTo 0
    Exit Sub
    Application.screenupdating = True

    End Sub

    Private Sub lboMa_Click()
    Me.txtDate.Value = Me.lboMa.Value
    Me.txtMonth.Value = Me.lboMa.Column(1)
    Me.txtTali.Value = Me.lboMa.Column(2)
    Me.txthido.Value = Me.lboMa.Column(3)
    Me.txtFeladat.Value = Me.lboMa.Column(4)
    Me.txtID.Value = Me.lboMa.Column(5)
    End Sub

    Private Sub UserForm_Click()

    End Sub

    előre is köszönöm a segítséget! Üdv.: Potus

    #5158

    Potus
    Résztvevő

    Attachments:
    You must be logged in to view attached files.
    #5181

    Titok
    Résztvevő

    Beírod az első végére, hogy Call lboMa_Click()???

3 bejegyzés megtekintése - 1-3 / 3

Be kell jelentkezni a hozzászóláshoz.