Aktív témák

• #197 lapa veterán matekmatika #193

  2006-03-18 18:38:09 #197

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  lapa

  veterán

  válasz matekmatika #193 üzenetére

  mondjuk aktuálisan nem feltétlenül rövidebb, de elegánsabb:
  
  Sub agentx()
  With ActiveWorkbook.Sheets(''Sheet1'')
  .Cells(.Cells(1, 2).Value, .Cells(2, 1).Value) = .Cells(1, 1).Value
  End With
  End Sub
  '---
  Option Explicit
  Sub agenty()
  Dim shitegy As Worksheet
  Set shitegy = ActiveWorkbook.Sheets(''Sheet1'')
  shitegy.Cells(shitegy.Cells(1, 2).Value, shitegy.Cells(2, 1).Value) = shitegy.Cells(1, 1).Value
  End Sub
  

Aktív témák