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

• #18083 m.zmrzlina senior tag Aladaar #18081

  Új Válasz 2013-05-16 09:57:50 #18083

  Ú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

  

  m.zmrzlina

  senior tag

  válasz Aladaar #18081 üzenetére

  

  Ha a cellákon belül van vegyesen szám és betű amiből csak a szám kell ahogyan a képen van akkor használd a következő makrót:

  Sub csakaszamok()
  For Each cella In Selection.Cells
  For i = 1 To Len(cella.Value)
  If Asc(Mid(cella.Value, i, 1)) > 47 And Asc(Mid(cella.Value, i, 1)) < 58 Then
  csakaszam = csakaszam & Mid(cella.Value, i, 1)
  End If
  Next
  cella.Offset(0, 1).Value = csakaszam
  csakaszam = ""
  Next
  End Sub

  Természetesen a makró csak az elvet mutatja ha azt csinálja amit szeretnél akkor igény szerint faragható.

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