Dante Amor

H o l a: Pon la siguiente macro en los eventos de tu hoja Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Por.Dante Amor If Not Intersect(Target, Range("C:E")) Is Nothing Then Columns(Target.Column).ColumnWidth = 33.57 Else...

La macro funciona si en la hoja 1 tienes encabezados en la fila 1: En la hoja2 el resultado quedará así: La macro: Sub CopiarTranspuesto() 'Por.Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2")...

H o l a: Entiendo que los datos en la hoja empiezan en la fila 2. Te anexo la macro Sub CopiarTranspuesto() 'Por.Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") h2.Cells.Clear h1.[A1:B1].Copy h2.[A1]...

Te anexo la macro para abrir los 2 libros, copiar el rango "B7:AB55", del libro1 "formatoNOK" al libro2 "formatoOK", guarda el libro2 y cierra los 2 libros. Pon la macro en un libro nuevo. Los 2 libros deben estar en la misma carpeta:...

Te anexo 2 alternativas que realicé: Macro para genear un pdf por cada línea de excel Datos de excel a formulario rellenable pdf -para dante Sal u dos

H o l a: Te anexo la macro Sub Pintar() 'Por.Dante Amor On Error Resume Next Set celda = Application.InputBox("Selecciona la celda incial", _ Default:=Selection.Address, Type:=8) If celda Is Nothing Then Exit Sub ' If celda.Count > 1 Then MsgBox...

H o l a: Te anexo la macro, pon la siguiente macro en un módulo. Sub CopiarHojas() 'Por.Dante Amor Set h1 = Sheets("iteracion1") h1.Select n = 2 Do While True If ActiveSheet.Range("AY34") < 0.018 Then Exit Do h1.Copy After:=Sheets(Sheets.Count) Set...

H o l a: Envíame tu archivo y me explicas con un ejemplo en dónde buscar y en dónde quieres los resultados. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Jonathan Andres Ramon Murcia” y el título de esta pregunta.

H o l a: Te anexo la macro Sub CopiarFilas() 'Por.Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("hoja original") Set h2 = Sheets("Hoja3") ' h2.Cells.Clear h1.Rows(1).Copy h2.Rows(1) ' For i = h1.Cells(Rows.Count, 53).End(xlUp).Row To...

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