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

• #33130 Fferi50 Topikgazda lenkei83 #33119

  Új Válasz 2016-11-04 09:14:08 #33130

  Ú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 lenkei83 #33119 üzenetére

  Szia!

  A (#33122) hozzászólásban rosszul adtam meg a módosítandó sort.
  Ide kell beszúrni:

  If Application.CutCopyMode <> False Then
  target.PasteSpecial Paste:=xlPasteValues
  Application.CutCopyMode = False
  target.Value = RemoveNotNum(target.value)
  else

  Bocs.

  Üdv.

• #33122 Fferi50 Topikgazda lenkei83 #33119

  Új Válasz 2016-11-03 18:36:41 #33122

  Ú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 lenkei83 #33119 üzenetére

  Szia!

  A második makróból csinálj egy függvényt (pl):
  Function RemoveNotNum(ByVal ertek As String)
Dim xOut As String, xTemp As String, i As Integer, xstr As String
xOut = ""
For i = 1 To Len(ertek)
xTemp = Mid(ertek, i, 1)
If xTemp Like "[0-9]" Then
xstr = xTemp
Else
xstr = ""
End If
xOut = xOut & xstr
Next i
RemoveNotNum = xOut
End Function

  Ezután az első makróban a target.Value = regiertek sort cseréld ki erre:

  target.Value = RemoveNotNum(regiertek)

  Üdv.

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