Jump to content

isidrod

Members
  • Content Count

    242
  • Joined

  • Last visited

  • Days Won

    4

isidrod last won the day on November 20 2019

isidrod had the most liked content!

1 Follower

About isidrod

  • Rank
    Advanced Member
  • Birthday 04/05/1971

Contact Methods

  • Website URL
    https://www.ayudaexcel.com/foro/profile.php?do=editprofile

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. @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
  2. 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
  3. @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
  4. bueno ahí te dejo el mio a ver si te funciona =SI(CONTAR.SI.CONJUNTO($B$6:$B$11,B6)=1,C6*0.3,"")
  5. 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
  6. @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
  7. @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
  8. @Leopoldo Blancasme atreví a hacerlo con formula y envió mi pequeño ejemplo a ver si es así juan ignacio saludos isidro FL.xlsm
  9. 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
  10. 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
  11. 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
  12. 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
  13. 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
  14. buen día @eugeniocol sube un archivo de ejemplo por favor para alguien mas pueda ayudarte saludos isidro
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png