isidrod

gracias @Gerson Pineda mil gracias solucionado saludos isidro

gracias @JSDJSD mil gracias solucionado saludos isidro

perdón JSDJSD lo subo de nuevo el ejemplo como debe que dar gracias mil disculpas ejemploTransponer filas a columnas.xlsm

gracias @JSDJSD @Gerson Pineda funciona, bien pero cuando tiene importes en la columna de retiros toma toda eso concepto, es que a mi se me paso ponerle con importes de retiros con la desesperación no me fije no tenia importe en la columna de retiro, si se puede modificar bien sino con esto me doy por bien servido mil gracias saludos isidro ejemploTransponer filas a columnas.xlsm

mil gracias @Gerson Pineda lo probare y te comento el lunes muchas bendiciones se derramen en tu familia entera por siempre, por estar ampollando en estos caso que ignoramos nosotros . gracias al que creo esta pagina que ustedes voluntariamente lo hacen saludos isidro

buen día a todos algún máster por aquí en mi auxilio por favor miles de datos por transponer, eso recurro a ustedes gracias de antemano por sus colaboraciones que e tenido. El tema es de columna a fila gracias saludos

buena tarde alguien puede ayudar con una macros para transponer un texto que estas fila pasarlas a columnas mil gracias a este equipo de este foro saludos isidro ejemplo.xlsx

te de dejo esto @alvaroballes buscar palabra saludos isidro

@davidgorros12 buen día te dejo este a ver si te funciona y es lo que buscas saludo isidro

@howling buen día un favor no escribas tus mensajes en mayúsculas, porque eso quiere decir que estas gritando gracias que tengas un excelente dia saludos isidro

bueno usando la macro de @Leopoldo Blancas y otra que agregue el e modulo 2, para ver si es lo que quieres @MAURO_1512 es todo lo que pude hacer saludos isidro ejemplolote.xlsm

@Luis paz ya probé tu macros y si meda el mismo error pero manual si cargan no los reconoce cuando las macro los carga esos archivo a ver si @avalencia @Leopoldo Blancas @Snake que nos dice saludos isidro

bueno ahí te dejo el mio a ver si te funciona =SI(CONTAR.SI.CONJUNTO($B$6:$B$11,B6)=1,C6*0.3,"")

gracias @Haplox por tus sabios consejos

gracias @Haplox por tu punto de vista lo tomaremos en cuenta para no usar ese control de errores y buscaremos una solución como la de @Antoni o como todos los maestros que aquí comparte su sabiduría saludos isidro

@manzano ejecute el código con dos archivo así y me funciono Sub TEST() ' ' TEST Macro Dim wbDestino As Workbook, _ wsOrigen As Excel.Worksheet, _ wsDestino As Excel.Worksheet, _ rngOrigen As Excel.Range, _ rngDestino As Excel.Range Sheets("DATA").Select Range("A1").Select On Error Resume Next Set wbDestino = Workbooks.Open(ActiveWorkbook.Path & "/1", Local:=True) Set wsDestino = wbDestino.Worksheets("1") Set wsOrigen = Worksheets("1") Const celdaOrigen = "A1" Const celdaDestino = "A1" Set rngOrigen = wsOrigen.Range(celdaOrigen) Set rngDestino = wsDestino.Range(celdaDestino) rngOrigen.Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy ThisWorkbook.Activate ActiveSheet.Paste Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Range("A1").Select wbDestino.Close primero: 'SEGUNDO ARCHIVO' 'On Error GoTo segundo Set wbDestino = Workbooks.Open(ActiveWorkbook.Path & "/2", Local:=True) Set wsDestino = wbDestino.Worksheets("2") Set wsOrigen = Worksheets("2") Set rngOrigen = wsOrigen.Range(celdaOrigen) Set rngDestino = wsDestino.Range(celdaDestino) rngOrigen.Select ActiveCell.Offset(1, 0).Range("A1").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy ThisWorkbook.Activate ActiveSheet.Paste Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Range("A1").Select wbDestino.Close segundo: 'TERCER ARCHIVO' 'On Error GoTo tercero Set wbDestino = Workbooks.Open(ActiveWorkbook.Path & "/3", Local:=True) Set wsDestino = wbDestino.Worksheets("3") Set wsOrigen = Worksheets("3") Set rngOrigen = wsOrigen.Range(celdaOrigen) Set rngDestino = wsDestino.Range(celdaDestino) rngOrigen.Select ActiveCell.Offset(1, 0).Range("A1").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy ThisWorkbook.Activate ActiveSheet.Paste Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Range("A1").Select wbDestino.Close Application.CutCopyMode = False tercero: End Sub solo me manda este mensaje saludos isidro

@juan Ignacio que bueno que ya se soluciono, @Leopoldo Blancas solo queda con macros para para que el archivo sea menos pesado y gracias @GabrielRaigosa por llegar con tus formulas al rescate y PQ saludos isidrod

@Leopoldo Blancasme atreví a hacerlo con formula y envió mi pequeño ejemplo a ver si es así juan ignacio saludos isidro FL.xlsm

buen día @CHEWACA a ver si te funciona este código 'https://www.extendoffice.com/es/documents/excel/2328-excel-open-multiple-hyperlinks.html Sub OpenHyperLinks() 'Update 20141124 Dim xHyperlink As Hyperlink Dim WorkRng As Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection 'Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) Set WorkRng = Range("G3:G" & Range("A65536").End(xlUp).Row) For Each xHyperlink In WorkRng.Hyperlinks xHyperlink.Follow Next End Sub saludos isidro

Sub quitar_letras() Dim lColumn As Long Application.ScreenUpdating = False With Worksheets("Hoja2").Range("A2:iv" & Cells(Rows.Count, "iv").End(xlUp).Column) .Replace What:="h", Replacement:="" End With Application.ScreenUpdating = True End Sub esta otra solución saludos

a ver si con este te funciona @alistair Sub quitar_letras() Application.ScreenUpdating = False With Worksheets("Hoja1").Range("D4:K" & Range("D65536").End(xlUp).Row) .Replace What:="h", Replacement:="" End With Application.ScreenUpdating = True End Sub en mi equipo funciono saludos isidro

buen día @ROVER1965 yo lo haría así sencillo con este tipo de formula y con mi poco conocimiento que tengo, pero los experto en excel puede hacerlo mas brillante que apoyan en este foro ejemplo control de revistas.xlsx

checa estos https://excelyvba.com/macro-para-copiar-y-pegar-celdas-en-excel/ https://www.todoexpertos.com/preguntas/5ka43xsgjoxfherf/copiar-celdas-de-una-hoja-a-otra-segun-un-criterio

buen día @eugeniocol sube un archivo de ejemplo por favor para alguien mas pueda ayudarte saludos isidro

Sub copiar() With Worksheets("hoja1").Range("L2:R" & Range("L2").End(xlDown).Row).ClearContents End With Application.ScreenUpdating = False 'inicializo la variable j J = 2 'comienzo el bucle For i = 2 To Range("A65536").End(xlUp).Row 'compruebo que el valor sea mayor que 0 If Cells(i, "R").Value = 0 Then 'copio la fila entera y la pego Range(Cells(i, "L"), Cells(i, "R")).Copy Destination:=Sheets("hoja1").Cells(J, "A") 'aumento la variable j para que vaya a la siguiente fila de la hoja filtros 'cuando encuentre una nueva fila que cumple con la condición de mayor que cero J = J + 1 End If Next End With Application.ScreenUpdating = True End Sub te dejo ese código a ver si te funciona solo modifica tus nombres de tus hojas saludos