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

• #35929 Delila_1 veterán föccer #35928

  Új Válasz 2017-08-04 17:39:59 #35929

  Ú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 föccer #35928 üzenetére

  Dim a

On Error Resume Next
Set a = Sheets(Range("C2"))
If Err.Number <> 0 Then
Sheets.Add.Name = Range("C2")
On Error GoTo 0
End If

Columns("A:D").ColumnWidth = 20

  Az alsó sor az A:D oszlopok szélességét állítja be, és teszi ezt az újonnan létrehozott lapon, mert hivatalból az új lap az aktív. Ha másik lapon akarod a szélességet beállítani, akkor ezt jelezni kell.

  Sheets(1).Columns("A:D").ColumnWidth = 20

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