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

• #26096 Louro őstag mustang08 #26095

  Új Válasz 2015-03-19 19:59:35 #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 mustang08 #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

  [ Szerkesztve ]

  Mess with the best / Die like the rest

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