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

• #31330 Nowitzki csendes tag nobiand #31329

  Új Válasz 2016-04-21 22:42:59 #31330

  Ú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

  

  Nowitzki

  csendes tag

  válasz nobiand #31329 üzenetére

  Vagy pedig ami sokkal egyszerűbb, és minden esetben működik például ez
  Sub PONT()
  For Each c In Columns("A").Cells 'Itt add meg az érintett tartományt
  If InStr(c.Value, ".") > 0 Then c.Value = Left(c.Value, InStr(c.Value, ".") - 1)
  Next c
  End Sub
  Ez pédául az "A" oszlop összes cellájában levágja a pont utáni részt.

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