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

• #35162 lappy őstag the radish #35160

  Új Válasz 2017-05-11 17:00:49 #35162

  Ú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 the radish #35160 üzenetére

  Sub RemoveAllButLastWord()
'Updateby20140612
Dim Rng As Range
Dim WorkRng As Range
Dim xChar As String
On Error Resume Next
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xChar = Application.InputBox("String", xTitleId, "", Type:=2)
For Each Rng In WorkRng
xValue = Rng.Value
Rng.Value = VBA.Right(xValue, VBA.Len(xValue) - VBA.InStrRev(xValue, xChar))
Next
End Sub
  pl

• #35161 Fferi50 Topikgazda the radish #35160

  Új Válasz 2017-05-11 16:59:42 #35161

  Ú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 the radish #35160 üzenetére

  Szia!

  Makróval

  Range("A1:A250").Replace What:="alma",Replacement:="",lookAt:=xlPart
Ugyanez az idézőjelre:

Range("A1:A250").Replace What:=Chr(34),Replacement:="", lookAt:=xlPart

  De a Keresés - Csere párbeszédpanelben ugyanezt meg tudod csinálni, ha kijelölöd a tartományt.

  Arra kell figyelni, hogy ez a párbeszédpanel megőrzi az előző keresési beállításokat! (vagyis azt, hogy miben keressen, egész cellát nézzen-e stb.)

  Üdv.

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