Hirdetés

  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

    Mobilarena

    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

  • #15527 kokopeti csendes tag Delila_1 #15510
    Új Válasz #15527
    Ú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

    kokopeti

    csendes tag

    válasz Delila_1 #15510 üzenetére

    Szia!

    Üres lapba bemásolva minden jól működik köszönöm. Viszont annyi változás történt, hogy a táblázatom elhelyezkedését muszáj lejjebb helyeznem.

    Így az elhelyezkedésük ez lesz:
    Mód: B13
    Nettó: C13
    Bruttó: D13
    Megjegyzés: E13

    A módosuláshoz gondolom ebben kellene szerkeszteni pár értéket:

    WS1.Select
    usor% = Cells(Rows.Count, "A").End(xlUp).Row
    usorN% = 2
    For sor% = 2 To usor%
    If Cells(sor%, 1) = datum Then
    usorN% = usorN% + 1
    f = True
    WS3.Cells(usorN%, 1) = Cells(sor%, 2)
    WS3.Cells(usorN%, 2) = Cells(sor%, 3) * -1
    WS3.Cells(usorN%, 3) = WS3.Cells(usorN%, 2) / 1.27
    WS3.Cells(usorN%, 4) = Cells(sor%, 5)
    End If
    Next

    WS2.Select
    usor% = Cells(Rows.Count, "A").End(xlUp).Row
    For sor% = 2 To usor%
    If Cells(sor%, 1) = datum Then
    f = True
    usorN% = usorN% + 1
    WS3.Cells(usorN%, 1) = Cells(sor%, 2)
    WS3.Cells(usorN%, 2) = Cells(sor%, 3)
    WS3.Cells(usorN%, 3) = WS3.Cells(usorN%, 2) / 1.27
    WS3.Cells(usorN%, 4) = Cells(sor%, 4)

    Próbálom egyedül is hátha sikerül, de egyelőre nehezen értelmezem a deklarálásokat sajnos.

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