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

• #26092 Louro őstag Dr. Mózes #26090

  Új Válasz 2015-03-19 18:59:46 #26092

  Ú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 #26090 üzenetére

  Szia,

  nem tudom elég -e a rávezetés vagy kód kell -e.

  Ahogy én csinálnám: Adott egy oszlop, amiben számok vannak (legyen A oszlop). Először megfognám az A1-et és ciklussal és elágazással a következőt csinálnám.
  Első operandusra ciklus
  Második operandusra ciklus
  Ha A1+Akövetkező = C1, akkor
  A1.Cut
  Kelső_üres_sor.Paste
  Akövetkező.Cut
  Kkövetkező_üres_sor.Paste
  Ellenkező esetben következő
  Ciklus vége.
  Ciklus vége.

  Dim LastRow As Integer = ActiveSheet.UsedRange.Rows.Count
  For i = 1 to LastRow-1 (azért minusz 1, mert az utolsó összeadás az utolsó előtti+utolsó)
  For j = 1 to LastRow
  If Cells(i,1)+Cells(j,1) = Range("C1") then
  Cells(i,1).Cut
  Cells(ActiveSheet.Cells(.Rows.Count, "K").End(xlUp).Row+1,11).Paste
  Cells(j,1).Cut
  Cells(ActiveSheet.Cells(.Rows.Count, "K").End(xlUp).Row+1,11).Paste
  End if
  Next
  Next

  Bár mostanában nem VBA-ztam, de asszem valahogy így nézne ki a kódom.

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