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

• #12206 Delila_1 veterán torment #12203

  Új Válasz 2011-12-01 07:24:17 #12206

  Ú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 torment #12203 üzenetére

  A lapnév mindig szöveg formátumú, még ha "szemre" dátumot mutat is.

  Szúrj be egy lapot Lista névvel, ide listázza majd ki a lapok makró a dátumos lapneveket.

  Sub lapok()
  Dim lap%, lapnév As String, usor%
  
  For lap% = 1 To ThisWorkbook.Sheets.Count
  lapnév = Sheets(lap%).Name
  If Len(lapnév) = 10 And Mid(lapnév, 5, 1) = "." And Mid(lapnév, 8, 1) = "." Then
  usor% = Sheets("Lista").Range("A" & Rows.Count).End(xlUp).Row + 1
  Sheets("Lista").Range("A" & usor%) = lapnév
  End If
  Next
  End Sub

  A makróban feltételeztem, hogy a lapnevek 2011.12.01 formátumúak. A feltételt tartalmazó sort lehetne bővíteni, pontosítani. Itt csak a lapnév hosszát, és a két pont helyét ellenőriztettem.

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