2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    LOGOUT

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #40397 Declare őstag
    Új Válasz #40397
    Ú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

    Declare

    őstag

    Sziasztok!

    Van egy (szerintem) egyszerü es egy kisse komplexebb kerdesem.

    Ezt a makrot hogy kell modositanom, hogy az uj worksheetet mindig a worksheetek végére illessze be?

    (Egy gombot csinaltam az excelben, amire kattintva lefut ez a makro. A makro letrehoz egy uj sheetet es elnevezi az aznapi datummal es kiirja hogy kesz. Ha ilyen sheet mar van, akkor kiirja, hogy mar van ilyen es nem csinal semmit.)

    Private Sub CommandButton1_Click()
    Dim newSheetName As String
    Dim checkSheetName As String
    newSheetName = Format(Date, "DD/MM/YY")

    On Error Resume Next
    checkSheetName = Worksheets(newSheetName).Name
    If checkSheetName = "" Then
    Worksheets.Add.Name = newSheetName
    MsgBox "The sheet named ''" & newSheetName & _
    "'' Fertig."

    Else
    MsgBox "The sheet named ''" & newSheetName & _
    "''schon existiert."
    End If
    Unload Me

    Kerdes2. Ez a bonyi :(

    Van egy tablazat (tablazatkent formazva) A:I tartomanyban:

    A__________B___________C__________..... _______I
    Cegnev1 ___Szakág1___ Datum1 __....._______Emberek szama1
    .
    .
    Cegnev6 Szakág6 Datum1 ..................................Emberek szama6
    .
    .
    stb.

    Innen kellene kigyüjteni a fent letrehozott aznapi datummal elnevezett worksheetben a datumnak megfeleöen egymas ala kilistazva az elemeket.

    (Azaz a makronak a C oszlopban kellene keresni a datumnak megfelelö ertetekeket es ha talal egyet fentröl lefele haladva, akkor az uj tablazatba az A1 cellaba beirja a hozza tartozo ertekeket (azaz A1=>Cegnev1; B1=>Szakág1; C1=>Emberek szama1). Majd megy tovabb lefele es ha megint talal egy megfelelö datumot ott megint kigyüjti az ertekeket (azaz pl.: A2=>Cegnev6; B2=>Szakág6 ...stb)

    Egesz sok mindent összeraktam már ehhez a tablazathoz, de ezzel a feladattal sajna elakadtam :(

    Valakinek erre ötlet? :B :))

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