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

• #24224 m.zmrzlina senior tag tgumis #24223

  Új Válasz 2014-11-15 01:59:41 #24224

  Ú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

  

  m.zmrzlina

  senior tag

  válasz tgumis #24223 üzenetére

  Ennél a sornál az idézőjelbe annak a munkalapnak a nevét írod amelyikre az eredményt másolni szeretnéd.
  Set eredmeny = ThisWorkbook.Worksheets("eredmeny")

  Itt is kijavítod az eredmeny-t a munkalap nevére és ha nem az A tartományba akarod kiiratni az eredményt azt is megváltoztathatod (lényeg, hogy 4 oszlopnyi tartományt adj meg)
  eredmeny.Range("A1:D" & j).Value = Application.Transpose(tomb)

  Option Base 1
  Sub nagyobbnulla()
  Dim tomb()
  ReDim tomb(4, 1)
  Set eredmeny = ThisWorkbook.Worksheets("eredmeny")
  j = 1
  For Each ws In Worksheets
  For Each cella In ws.Range("AO1:AO49")
  If cella.Value > 0 Then
  For i = 1 To 4
  tomb(i, j) = ws.Cells(cella.Row, cella.Column - (4 - i)).Value
  Next
  ReDim Preserve tomb(4, j + 1)
  j = j + 1
  End If
  Next
  Next
  eredmeny.Range("A1:D" & j).Value = Application.Transpose(tomb)
  End Sub

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