Dante Amor

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':) ':)

H o l a: Te anexo el código, cambia el 3 por el número de textbox y de combos. Private Sub CommandButton1_Click() 'Por.Dante Amor 'hacer visibles los textbox For i = 1 To 3 Me.Controls("TextBox" & i).Visible = True Next 'hacer visibles los combox For...

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

H o l a: Te anexo una macro para copiar la tercera hoja del libro "fichero_red.xlsm" Sub CopiarHoja() 'Por.Dante Amor Application.ScreenUpdating = False Set l1 = ThisWorkbook ' rutared = "\\Damor2\Blog\" archivored = "fichero_red.xlsm" Set l2 =...

H o l a: Envíame tu archivo para revisarlo. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Blás Gerardo Salinas Silguero” y el título de esta pregunta.

H o l a: Envíame tu archivo y me explicas con detalle un ejemplo de lo que quieres. En la hoja me explicas el ejemplo con colores, comentarios, imágenes, con todo lo que tengas, pero me explicas el ejemplo. Mi correo [email protected] En el asunto...