Microsoft Excel topic - Mobilarena Hozzászólások

Legfrissebb anyagok

Mobilarena témák

PROHARDVER! témák

IT café témák

GAMEPOD témák

LOGOUT témák

Mobilarena

Frissítve: 2023-11-13 08:31 Téma összefoglaló

Mobilarena

A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

sztanozs veterán

2015-12-04 11:34:16 #29712

Új Válasz
Ú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

sztanozs

veterán

válasz Miv üzenetére #29711

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

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

Topikgazda

Bővebben a topikgazda rendszerről...

Aktív témák

Hirdetés

Új fizetett hirdetések

Üzleti előfizetők hirdetései

Állásajánlatok

Számítástechnikai értékesítő

Cég: Laptopműhely Bt.

Város: Budapest

Részletek