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

• #29712 sztanozs veterán Miv #29711

  Új Válasz 2015-12-04 11:34:16 #29712

  Ú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

  

  sztanozs

  veterán

  válasz Miv #29711 üzenetére

  Makróval a legegyszerűbb:
  Sub Feltolt()
  Dim s As Worksheet
  Dim r(), ix
  ReDim r(1 To ActiveWorkbook.Worksheets.Count, 1 To 2)
  ix = 1
  For Each s In ActiveWorkbook.Worksheets
  If s.Type = xlWorksheet Then
  r(ix, 1) = s.Name
  r(ix, 2) = s.Cells(1, 1).Value2
  ix = ix + 1
  End If
  Next
  Set s = ActiveWorkbook.Worksheets.Add(Before:=ActiveWorkbook.Worksheets(1))
  s.Range(s.Cells(1, 1), s.Cells(ActiveWorkbook.Worksheets.Count - 1, 2)).Value2 = r
  End Sub

• #9269 bugizozi őstag Miv #9268

  Új Válasz 2011-01-28 10:58:09 #9269

  Ú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

  

  bugizozi

  őstag

  válasz Miv #9268 üzenetére

  Count Rows with Data in a Macro

  rowCount = Application.WorksheetFunction.CountA(Range("A1:A9999"))

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