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

• #48844 lappy őstag bali114 #48842

  Új Válasz 2022-04-18 20:19:09 #48844

  Ú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

  

  lappy

  őstag

  válasz bali114 #48842 üzenetére

  Sub ListSheets()

  Dim ws As Worksheet
  Dim x As Integer

  x = 1

  For Each ws In Worksheets
  If ws.Name <> "List" Then
  Sheets("List").Cells(x - 1, 1) = ws.Name
  Sheets("List").Cells(x - 1, 2) = ws.Range("a1").Value
  End If
  x = x + 1
  
  Next ws

  End Sub

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