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

• #1574 lapa veterán mahatma #1567

  Új Válasz 2006-09-27 20:28:04 #1574

  Ú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

  

  lapa

  veterán

  válasz mahatma #1567 üzenetére

  itt egy minta:
  
  Option Explicit
  Dim sor, ful As Long
  
  Sub konsz_fulbol()
  
  sor = 1
  
  For ful = 1 To ThisWorkbook.Sheets.Count
  
  If Not Sheets(ful).Name = ''célfül'' Then
  
  ThisWorkbook.Sheets(''célfül'').Cells(sor, 1) = Sheets(ful).Name
  ThisWorkbook.Sheets(''célfül'').Cells(sor, 2) = Sheets(ful).Cells(1, 1)
  
  sor = sor + 1
  
  End If
  
  Next ful
  
  End Sub
  
  
  itt a ''célfül'' nevű fülbe gyűjti az adatokat.

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