Jump to content

isidrod

Members
  • Content Count

    254
  • Joined

  • Last visited

  • Days Won

    4

Everything posted by isidrod

  1. gracias @Gerson Pineda mil gracias solucionado saludos isidro
  2. perdón JSDJSD lo subo de nuevo el ejemplo como debe que dar gracias mil disculpas ejemploTransponer filas a columnas.xlsm
  3. 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
  4. 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
  5. 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
  6. 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
  7. te de dejo esto @alvaroballes buscar palabra saludos isidro
  8. @davidgorros12 buen día te dejo este a ver si te funciona y es lo que buscas saludo isidro
  9. @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
  10. 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
  11. @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
  12. bueno ahí te dejo el mio a ver si te funciona =SI(CONTAR.SI.CONJUNTO($B$6:$B$11,B6)=1,C6*0.3,"")
  13. 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
  14. @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
  15. @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
  16. @Leopoldo Blancasme atreví a hacerlo con formula y envió mi pequeño ejemplo a ver si es así juan ignacio saludos isidro FL.xlsm
  17. 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
  18. 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
  19. 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
  20. 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
  21. 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
  22. buen día @eugeniocol sube un archivo de ejemplo por favor para alguien mas pueda ayudarte saludos isidro
  23. 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
×
×
  • Create New...

Important Information

Privacy Policy