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

• #52455 Delila_1 veterán Pá #52454

  Új Válasz 2024-04-10 06:35:01 #52455

  Ú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 Pá #52454 üzenetére

  Na még egy próba.
  Mikor a lapra lépsz, akkor indul. A makró a B oszlopot formázza, B2-től az utolsó adatig.
  A laphoz kell rendelni.
  Megjegyzem, továbbra is a címsorba írnám, nem a teljes oszlopba.
  Private Sub Worksheet_Activate()
    Dim ter As Range
    Set ter = Range("B2:B" & Range("B2").End(xlDown).Row)
    ter.NumberFormat = "#,##0 [$" & Range("A1").Text & "]"
End Sub

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