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

• #16304 Delila_1 veterán mr.nagy #16294

  Új Válasz 2013-01-17 16:25:59 #16304

  Ú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

  

  Delila_1

  veterán

  válasz mr.nagy #16294 üzenetére

  Feltételezem, hogy az első a címsorod, a másodiktól kezdve vannak folyamatosan az adataid.
  A lenti makró azt csinálja, amit kértél, plusz az AK oszlopba folyamatosan beírja a címsorban lévő üzlet nevét, ahol a plusz értéket átírta egy másik üzletbe (és ezt lenullázta), valamint azt, hogy mennyi volt ebben az üzletben és ebben a sorban az eredeti érték. Az AL oszlopba azt az üzletet írja, ahova át lett téve a plusz, az eredeti negatív értékkel és sorszámmal együtt.

  Pl. az Üzlet1-ben volt 5, az Üzlet5-ben -3, mindez a táblázatod 4. sorában, az AK oszlopban
  Üzelet1 4.sor_5 db, az AL-ben Üzlet5 4.sor_-3 db lesz.

  Sub javaslat()
  Dim oszlop As Integer, sor As Integer, usor, O1 As Integer, sorFelír
  usor = Cells(Rows.Count, "A").End(xlUp).Row
  sorFelír = 2
  Range("AK:AL") = ""
  Range("AK1") = "Honnan–eredeti érték": Range("AL1") = "Hova–eredeti érték"
  
  For sor = 2 To usor
  For oszlop = 14 To 32
  If Cells(sor, oszlop) > 0 Then
  For O1 = oszlop + 1 To 33
  If Cells(sor, O1) < 0 Then
  Cells(sorFelír, "AK") = Cells(1, oszlop) & " " & sor & ".sor_" & Cells(sor, oszlop) & " db"
  Cells(sorFelír, "AL") = Cells(1, O1) & " " & sor & ".sor_" & Cells(sor, O1) & " db"
  Cells(sor, O1) = Cells(sor, O1) + Cells(sor, oszlop)
  Cells(sor, oszlop) = 0
  sorFelír = sorFelír + 1
  Exit For
  End If
  Next
  End If
  Next
  Next
  End Sub

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