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

• #42183 Delila_1 veterán Richard #42179

  Új Válasz 2019-11-14 07:40:34 #42183

  Ú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

  

  Delila_1

  veterán

  válasz Richard #42179 üzenetére

  Sub Lap_Tabla()
    Dim sor As Integer, CV, lap As Integer, oszlop As Integer
    
    sor = 1
    For lap = 1 To Worksheets.Count
        With Sheets(1)
            oszlop = 1
            .Cells(sor, oszlop) = Sheets(lap).Name
            For Each CV In Sheets(lap).ListObjects
                oszlop = oszlop + 1
                .Cells(sor, oszlop) = CV.Name
            Next
        End With
        sor = sor + 1
    Next
End Sub

• #42180 Fferi50 Topikgazda Richard #42179

  Új Válasz 2019-11-13 17:19:30 #42180

  Ú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

  

  Fferi50

  Topikgazda

  válasz Richard #42179 üzenetére

  Szia!
  1. Az i és x változód ne Single legyen, hanem Integer vagy Long (ha sok munkalapod van).
  2. A Range("A1").Cells(x,1) helyett használd nyugodtan a Cells(x,1) formát, ez a helyes.
  3. A Cells(i,x+1) cella az i-edik sor x+1-edik oszlopban, tehát biztosan nem az x-edik sorban.
  4. A For Each tbl ciklus pontosan a lehetséges több tábla miatt van.
  5. Ha a táblák nevét az A oszlopba betett munkalapnév mellé a B,C stb oszlopban szeretnéd látni, akkor a Cells(x,i) cellába kell íratnod és i értéke 2-től induljon, továbbá minden táblás ciklus előtt 2-re kell állítanod az értékét, hogy ne írja felül az A oszlopban levő értéket.
  Remélem, ez alapján már menni fog.
  Üdv.

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