Ú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.

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