Dante Amor

Cambia esta línea: r.Copy h2.[A1] Por estas: r.Copy h2.[A1].PasteSpecial Paste:=xlPasteValues h2.[A1].PasteSpecial Paste:=xlPasteFormats sal u dos

H o l a: Pon la siguiente macro en los eventos de tu hoja. Dim valor ' Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Range("A:A")) Is Nothing Then 'valor = Target If...

Así quedarían tus macro completas en el evento thisworkbook Dim salir Private Sub Workbook_BeforeClose(Cancel As Boolean) 'Por.Dante Amor If ActiveSheet.Name <> "Hoja1" Then MsgBox "Este libro solo se cierra en la hoja1, posiciónate para cerrar"...

H o l a: Te anexo la macro Sub CopiarDatos() 'Por.Dante Amor j = 1 For Each c In Sheets("Hoja1").Range("A1").CurrentRegion Sheets("Hoja2").Cells(j, "A") = c.Value j = j + 1 Next MsgBox "Fin" End Sub':) ':)

Pon el siguiente evento en los eventos de Thisworkbook Private Sub Workbook_BeforeClose(Cancel As Boolean) 'Por.Dante Amor If ActiveSheet.Name <> "Hoja1" Then MsgBox "Este libro solo se cierra en la hoja1, posiciónate para cerrar" Cancel = True End...

H o l a: Te anexo el código. Cambia contribuyente y periodo por los valores que deben llevar esas variables. Cambia el texto que se va a agregar al comentario. Sub AgregarComentario() 'Por.Dante Amor Contribuyente = 10 'fila periodo = 3 'columna...

H o l a: te anexo la macro para tomar los datos de las celdas Sub GuardarRango1() 'Por.Dante Amor 'guarda el libro y toma los datos de la celda Application.ScreenUpdating = False Application.DisplayAlerts = False Set l1 = ThisWorkbook Set h1 =...

H o l a: Consulta el siguiente enlace, tiene un código para las versiones de 32 y 64 bits y para Excel 2013. http://blogs.itpro.es/exceleinfo/2014/10/23/hacer-macros-compatibles-con-excel-de-32-y-64-bits/ Yo he probado esta opción y me funciona:...

H o l a: Esa macro es para enviar el correo por outlook desde microsft excel. ¿Tienes instalado office outlook y excel para PC? ¿Qué versiones tienes?

H o l a: Supongo que llega un momento en que outlook está ocupado y no se puede establecer la aplicación. Prueba con lo siguiente. Cambia esta línea: Set AppOutlook = CreateObject("outlook.application") Por estas: Set AppOutlook = Nothing On Error...