Dante Amor

H o l a : Si tienes alguna de mis versiones para enviar correo y tienes esta línea: dam.To = Range("B" & i) Hay que cambiarla por esta: dam.To = Range("B" & i).Value Te anexo la macro completa: '***Macro Para enviar correos Sub correo() 'Por.Dante...

H o l a : Pero no puedes guardar en una variable simple todos los datos seleccionados. Podrías almacenar en un arreglo todos los datos seleccionados; pero no tiene caso pasarlo a un arreglo, el ListBox es como un arreglo de datos y en el ListBox...

H o l a: Anexo comentarios en la macro Sub Lineas() 'Por.Dante Amor 'Borrando líneas anteriores For Each s In ActiveSheet.Shapes If s.Name = "milineacreada" Then s.Delete End If Next ' Set r = Range("B:B, G:G") Set b = r.Find("CALIF",...

H o l a : Los nombres de los directorios y de la supcarperta deben ir entre comillas. Revisa que los nombres estén bien escritos. Te anexo la macro actualizada Sub Borrar() 'Act.Por.Dante Amor directorios = "C:\documents\marcas\" subcarpeta = "Nike"...

H o l a: ¿El correo lo quieres enviar por outlook?

H o l a: Te explico lo que sucede. En esta línea: Y = Format(Year(d), "yyyy") Le indicas que obtenga el año de la variable d Year(d) Luego le dices que en la variable "y" te ponga solamente el año de year(d). Entonces el año de year(d) = 2016. Las...

Te anexo la macro actualizada Sub InsertarTotales() 'Por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False Set l1 = ThisWorkbook Set h1 = l1.Sheets("Pagos") h1.Copy Set l2 = ActiveWorkbook Set h2 = l2.Sheets(1) '...

H o l a: Te anexo la macro actualizada Sub Macro1() 'Act.Por.Dante Amor ' Application.ScreenUpdating = False Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,...

H o l a: ¿Podrías poner el mensaje de error que te aparece? ¿Cómo se llaman los combos? ¿Podrías poner el código de tu formulario?

H o l a: Te anexo la macro. Antes deberás ordenar la información por la columna A Sub PonerNombres() 'Por.Dante Amor ini = 1 ant = Cells(ini, "A") For i = ini To Range("A" & Rows.Count).End(xlUp).Row + 1 If Cells(i, "A") <> ant Then nombre =...