Hirdetés

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

    PROHARDVER!

    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

  • #26096 Louro őstag Dr. Mózes #26095
    Új Válasz #26096
    Ú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

    Louro

    őstag

    válasz Dr. Mózes #26095 üzenetére

    Lecsekkoltam és a Cut simán nem jó, hanem előbb "szelektálni" kell a mezőt és a szelektációt kivágni. Bár a kivágás nem akart működni, de lehet azért, mert itthon csak 2007-es van. Ha újabban se megy, akkor a topikguru lesz a kulcs ;)

    Kicsit kozmetikáztam. Komment, hibakezelés, képernyőfrissítés kikapcsolása és esetleg ami még mehetne, hogy a végén Range("A1").Activate (ez már tényleg csak "elegancia")

    Sub Választó()
    Dim LastRow As Integer
    LastRow = ActiveSheet.UsedRange.Rows.Count
    Range("K1") = "Első operandus"
    Range("L1") = "Második operandus"
    For i = 1 To LastRow - 1
    For j = 1 To LastRow
    If Cells(i, 1) + Cells(j, 1) = Range("C1") Then
    Cells(i, 1).Select
    Selection.Copy
    Cells(ActiveSheet.Cells(Rows.Count, "K").End(xlUp).Row + 1, 11).PasteSpecial xlPasteValues
    Cells(j, 1).Select
    Selection.Copy
    Cells(ActiveSheet.Cells(Rows.Count, "L").End(xlUp).Row + 1, 12).PasteSpecial xlPasteValues
    End If
    Next
    Next
    End Sub

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