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

• #41631 Delila_1 veterán MasterMark #41630

  Új Válasz 2019-08-22 14:06:28 #41631

  Ú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 MasterMark #41630 üzenetére

  "a sortolást nem jó helyről kezdte", mert nem adtad meg.

  Autoszűrő, sorszámozás, és formátum a lapokra:

  Sub AutSzuro_Sorszam_Formatum()
Dim lap As Integer

For lap = 1 To Sheets.Count
Sheets(1).Range("A:J").Copy
Sheets(lap).Range("A:J").PasteSpecial xlPasteFormats
Sheets(lap).Range("A2").AutoFilter
Sheets(lap).Range("A3" & ":A" & Range("A3").End(xlDown).Row) = "=row()-2"
Next
End Sub

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