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

• #25423 Delila_1 veterán pirit28 #25420

  Új Válasz 2015-02-12 13:51:37 #25423

  Ú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

  

  Delila_1

  veterán

  válasz pirit28 #25420 üzenetére

  Makróval:

  Sub Szetcincal()
  Dim adat
  
  If InStr(Selection, "*") > 0 Then
  adat = Split(Selection, "*")
  Selection.Offset(, 1) = adat(0)
  Selection.Offset(, 2) = adat(1)
  On Error Resume Next
  Selection.Offset(, 3) = adat(2)
  Else
  Selection.Offset(, 1) = Selection.Value
  End If
  End Sub

  Ráállsz a szétszedendő cellára, és indítod a makrót.
  Sajnos saját készítésű függvényt nem lehet rá írni, mert az nem tud a szomszédos cellákba rajzolni.

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