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

• #33356 Delila_1 veterán Lasersailing #33355

  Új Válasz 2016-12-02 13:56:43 #33356

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

  Ha a sor kell, akkor

  Sub NyolcNagySora()
Dim i As Byte, sor As Byte

sor = 43
For i = 1 To 8
Sheets(2).Cells(sor + i, "M") = _
Application.Match(Application.Large(Sheets(1).Columns(2), i), _
Sheets(1).Columns(2), 0)
Next
End Sub

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