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

• #3635 Delila_1 veterán gazsiazasz #3609

  Új Válasz 2008-06-06 20:13:34 #3635

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

  A makrót úgy írtam, hogy a 21. sor színeit, és a 22. sorban lévő IGAZ és HAMIS értékeket figyelje, azok alapján módosítsa a 41. sor valamelyik adatát. A linkelt képből nem derül ki világosan, hogy a 41-en kívül kell-e még máshol is változtatni.
  Előbb képletekkel szerettem volna megoldani, de nem sikerült, makróval viszont nem túl bonyolult.

  Sub Méretek()
  If Cells(41, 12) = 0 Then
  f = 0
  For oszlop = 3 To 11
  If Cells(22, oszlop) Then
  If Cells(21, oszlop).Font.ColorIndex <> 3 Then
  Cells(41, oszlop) = Cells(41, oszlop) - 1
  f = 1
  Else
  Cells(41, oszlop) = Cells(41, oszlop) + 1
  f = 1
  End If
  End If
  If f = 1 Then Exit For
  Next
  End If
  If Cells(41, 12) = 1 Then
  For oszlop = 2 To 11
  If Cells(22, oszlop) And f = 0 Then
  If Cells(21, oszlop).Font.ColorIndex <> 3 Then
  Cells(41, oszlop) = Cells(41, oszlop) + 1
  f = 1
  Else
  Cells(41, oszlop) = Cells(41, oszlop) - 1
  f = 1
  End If
  End If
  If f = 1 Then Exit For
  Next
  End If
  End Sub

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