Aktív témák

• #324 matekmatika tag lapa #323

  2006-05-24 20:47:49 #324

  Ö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

  

  matekmatika

  tag

  válasz lapa #323 üzenetére

  ''ha nem select-eled a fület hanem csak sheets(''összegzés'').cells(i,1) =''mittomén''-ként írod be nem telik el több idő.''
  No igen, ha az a sheet ugyanabban a munkafüzetben lenne, mint amelyikben az adatok vannak akkor nem is töprengtem volna ennyit rajta. De az egy másik munkafüzetben van, és az ugrálást e két munkafüzet között értettem.
  Végül is sikerült imigyen:
  Private Sub CommandButton6_Click()
  Dim munkalap(1 To 31) As Integer
  Dim de(1 To 31) As Integer
  Dim du(1 To 31) As Integer
  a = 0
  For Each Worksheet In ActiveWorkbook.Worksheets
  Set nev = Worksheets(Worksheet.Name)
  If IsNumeric(Worksheet.Name) Then
  a = a + 1
  munkalap(a) = Worksheet.Name
  ....
  de(a) = nev.Cells(b - 1, 1)
  ....
  du(a) = nev.Cells(b - 1, 1)
  End If
  Next
  End Sub
  
  Köszi a segítséget.
  
  
  [Szerkesztve]

Aktív témák