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

• #13389 Delila_1 veterán jaszy83 #13388

  Új Válasz 2012-04-08 10:55:37 #13389

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

  Az előző makróból hagyd ki a Cells(sor, oszlop) = "K" sort, mivel manuálisan írod be.
  Az uoszlop = Range("IV1").End(xlToLeft).Column sorban az egyenlőség jobb oldala helyett beírhatod fixen az 55 értéket (BD oszlop száma).

  A kézi bevitel után indíthatod a másik makrót, ami a BD oszlopba beírja a legnagyobb elhúzott súlyt.

  Sub LegnSuly()
  Dim sor%, usor As Integer, oszlop%
  
  Sheets("Verseny").Select
  usor = Range("B2").End(xlDown).Row
  
  For sor% = 2 To usor
  For oszlop% = 55 To 5 Step -1
  If Cells(sor, oszlop%) = "K" Then
  Cells(sor, "BD") = Cells(1, oszlop%)
  Exit For
  End If
  Next
  Next
  End Sub

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