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

• #16895 Delila_1 veterán atillaahun #16891

  Új Válasz 2013-02-24 15:47:09 #16895

  Ú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 atillaahun #16891 üzenetére

  Ímé a makró hozzá:

  Sub email()
  Dim ter As Range, CV, WS As Worksheet, sor As Integer
  
  Cells(1).Select
  Selection.CurrentRegion.Select
  Set ter = Selection
  Set WS = Sheets("Munka2")
  sor = 1
  
  For Each CV In ter
  If InStr(CV, "@") Then
  WS.Cells(sor, 1) = CV
  sor = sor + 1
  End If
  Next
  End Sub

  A Munka1 lapon oszlopokba szétszedett adatokból a Munka2 lap A oszlopába gyűjti ki a címeket (@-ot) tartalmazó cellák tartalmát.

• #16892 Delila_1 veterán atillaahun #16891

  Új Válasz 2013-02-24 15:31:54 #16892

  Ú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 atillaahun #16891 üzenetére

  Segít, ha feltételes formázást adsz rá?
  A formázás képlete =SZÖVEG.TALÁL("@";A1)>0

  Esetleg egy makró, ami végigfut a területen, és egy másik helyre egymás alá beteszi a @-ot tartalmazó cellák tartalmát...

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