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

• #38488 lappy őstag Salex1 #38486

  Új Válasz 2018-07-06 17:13:56 #38488

  Ú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 Salex1 #38486 üzenetére

  Sub FormatShortdate()
Dim Sh As Worksheet
Set Sh = ThisWorkbook.Sheets(1)
Sh.Range("C2:C9").NumberFormat = "yyyy.mm.dd"
End Sub

  ez a C2 - C9 lévő dátumot formázza ilyenre pl. 2015.06.05

• #38487 Fferi50 Topikgazda Salex1 #38486

  Új Válasz 2018-07-06 17:02:18 #38487

  Ú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

  

  Fferi50

  Topikgazda

  válasz Salex1 #38486 üzenetére

  Szia!

  Az miért nem opció, hogy beírod a rengeteg dátumodat vesszőkkel, majd a Ctrl+F funkcióval kicseréled a vesszőket pontra? Ha kijelölöd az egész oszlopot, akkor ez egy menetben megvan.
  Vagy makróval, eseménykezeléssel, ezt a makrót írd be a munkalap kódlapjára (jobb egérgomb a fülön, kód megjelenítése):
  Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub 'ide azt az oszlopszámot tedd az 1 hely?re, ahova a dátumot írod
Application.EnableEvents = False
Target.Value = Replace(Target.Value, ",", ".")
Application.EnableEvents = True
End Sub

  Utána makróbarát füzetként kell mentened.

  Üdv.

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