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

• #33062 lenkei83 tag

  Új Válasz 2016-10-26 17:20:37 #33062

  Ú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

  

  lenkei83

  tag

  Sziasztok!

  Van egy olyan megoldásom, hogy copy paste-nél csak az értéket másolja be az adott cellába. Ezt gondolom nem kell tovább magyarázni, így néz ki:

  Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal target As Range)
Dim regiertek
Dim change_data As String

If sh.CodeName = "Munka7" Or sh.CodeName = "Munka10" Or sh.CodeName = "Munka8" Then
Debug.Print sh.Name
Stop
Exit Sub
Else
regiertek = target.Value
Application.EnableEvents = False
Application.Undo
target.Cells.NumberFormat = "@"
If Application.CutCopyMode <> False Then
target.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Else
target.Value = regiertek
End If
End If
Application.EnableEvents = True
Exit Sub
End Sub

  Ebbe szeretnék beoperálni egy olyan megoldást, hogy a másolt értékből csak a numerikus karakterek legyenek beillesztve.

  A nem numerikus karakterek eltávolítására is van megoldás:

  Sub RemoveNotNum()
Dim rng_cl As Range
Dim Workrng_cl As Range
Dim xOut As String
Dim i As Integer
Dim xTemp As String
Dim xstr As String

'On Error Resume Next
Set Workrng_cl = Selection
For Each rng_cl In Workrng_cl
xOut = ""
For i = 1 To Len(rng_cl.Value)
xTemp = Mid(rng_cl.Value, i, 1)
If xTemp Like "[0-9]" Then
xstr = xTemp
Else
xstr = ""
End If
xOut = xOut & xstr
Next i
rng_cl.Value = xOut
Next
End Sub

  Viszont nekem a kettő kombinációjára lenne szükségem, konkrétan ha mondjuk dátumot másolok át egy másik munkafüzetből, akkor törölje ki a dátum elválasztókat és csak a számot hagyja bent a cellában.

  Valakinek valami ötlet?

  Köszi.
  P.

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