Victor Rodriguez

Esto te debería servir. Sub Concatena_mails() Set MyRing = Range("B1").CurrentRegion.Cells For Each MyCell In MyRing Concatenate = MyCell & "; " & Concatenate Next Range("A1").Value = Mid(Concatenate, 1, Len(Concatenate) - 2) End Sub

Allá va, tendrás que modificar tasl vez el nombre de la hoja Sheets("Hoja1").Range("A2").Select Do While ActiveCell.Value <> "" PrevCell = ActiveCell.Address If ActiveCell.Value > 0 Then ActiveCell.Offset(0, 1).Cut ActiveCell.Offset(-1, 10).Select...

Primero debes poner una macro en Thisworkbook que llame a la macro "Programa" que se ejecutará a las 23:59:59h Prrivate Sub Workbook_Open() Application.OnTime TimeValue("23:59:59"), "Programa" End Sub La Macro "Programa" es : Sub Programa() Dim celda...