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

• #16311 Delila_1 veterán Delila_1 #16304

  Új Válasz 2013-01-17 17:17:26 #16311

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

  Az előbbi makrónak hibája, hogy ha az első üzleteknél negatív értékek vannak, azok úgy maradnak.
  Kiegészítettem, az új részt az End Sub fölé kell betenni.

  For sor = 2 To usor
  For oszlop = 33 To 15 Step -1
  If Cells(sor, oszlop) > 0 Then
  For O1 = 32 To 14 Step -1
  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

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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