isidrod

@José_Santos me estoy perdiendo tus vídeos tengo bloqueado para ver vídeo, no se cuando me lo desbloquean, este vídeo lo estoy viendo de mi celular, pero no es lo mismo. saludos isidro

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

@José_Santos java lo lleve en la carrera por tres semestres pero me costo mucho trabajo al grado que lo reprobé en el primer semestre y lo pase un un especial, por eso te menciono que llore por reprobar el examen en java en dos intentos y lo pase en el tercer intento, los temas que impartían de java se guiaban de un autor español no recuerdo su nombre que hasta llego impartir una conferencia ahí en la escuela. Espero tu apoyo para poder entender bien y iniciar en este lenguaje gracias saludos isidro

si en vba me cuesta trabajo modificar ciertas código en java me va hacer volver a llorar, pero tenemos que aprender gracias @José_Santos saludos isidro

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