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

• #22445 Delila_1 veterán zhari #22444

  Új Válasz 2014-07-15 10:29:04 #22445

  Ú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 zhari #22444 üzenetére

  Ennél az A:D tartományból számolsz valamit a kalkulátor lapon. Ha úgy írnám, ahogy mondtad, az eredmény minden sorból a lista lap E2 és F2 cellájába kerülne, felülírva az előző adatokat. A másolást az E2 és F2 cellába tettem első esetben, a továbbiakat rendben ezek alá.

  Sub Valami()
  Dim sor As Long, WS As Worksheet, sor1 As Long
  Set WS = Sheets("kalkulátor")
  sor = 1: sor1 = 2
  Sheets("lista").Activate
  
  Do While Cells(sor, "A") <> ""
  Range("A" & sor & ":D" & sor).Copy
  WS.Range("B2").PasteSpecial Paste:=xlPasteAll, Transpose:=True
  WS.Range("O6").Copy
  Range("E" & sor1).PasteSpecial xlPasteValues
  WS.Range("R6").Copy
  Range("F" & sor1).PasteSpecial xlPasteValues
  sor = sor + 1: sor1 = sor1 + 1
  Loop
  End Sub

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