Jump to content

isidrod

Members
  • Content Count

    233
  • Joined

  • Last visited

  • Days Won

    3

isidrod last won the day on July 22

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. 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
  2. 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
  3. 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
  4. 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
  5. 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
  6. buen día @eugeniocol sube un archivo de ejemplo por favor para alguien mas pueda ayudarte saludos isidro
  7. 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
  8. este otro link https://ayudaexcel.com/foro/topic/27567-reproducir-mp3/?_fromLogin=1 saludos isidro
  9. @Juan Pelfort te dejo este link si es lo que quieres http://www.exceleinfo.com/reproducir-archivos-de-audio-en-excel-vba-con-control-de-windows-media-player/ https://www.extendoffice.com/es/documents/excel/4483-excel-play-video.html saludos isidro reproducir video.xlsm
  10. @Juan Pelfort te dejo este link si es lo que quieres http://www.exceleinfo.com/reproducir-archivos-de-audio-en-excel-vba-con-control-de-windows-media-player/ saludos isidro
  11. 'https://www.extendoffice.com/es/documents/excel/3231-excel-import-multiple-text-files-to-multiple-sheets.html Sub CombineTextFiles() 'updateby Extendoffice 20151015 Dim xFilesToOpen As Variant Dim I As Integer Dim xWb As Workbook Dim xTempWb As Workbook Dim xDelimiter As String Dim xScreen As Boolean On Error GoTo ErrHandler xScreen = Application.ScreenUpdating Application.ScreenUpdating = False 'xDelimiter = "|" xFilesToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt", , "Kutools for Excel", , True) If TypeName(xFilesToOpen) = "Boolean" Then MsgBox "No files were selected", , "Kutools for Excel" GoTo ExitHandler End If I = 1 Set xTempWb = Workbooks.Open(xFilesToOpen(I)) xTempWb.Sheets(1).Copy Set xWb = Application.ActiveWorkbook xTempWb.Close False xWb.Worksheets(I).Columns("A:A").TextToColumns _ Destination:=Range("A1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=False, _ Tab:=False, Semicolon:=False, _ Comma:=False, Space:=False, _ Other:=True, OtherChar:="|" Do While I < UBound(xFilesToOpen) I = I + 1 Set xTempWb = Workbooks.Open(xFilesToOpen(I)) With xWb xTempWb.Sheets(1).Move after:=.Sheets(.Sheets.Count) .Worksheets(I).Columns("A:A").TextToColumns _ Destination:=Range("A1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=False, _ Tab:=False, Semicolon:=False, _ Comma:=False, Space:=False, _ Other:=True, OtherChar:=xDelimiter End With Loop ExitHandler: Application.ScreenUpdating = xScreen Set xWb = Nothing Set xTempWb = Nothing Exit Sub ErrHandler: MsgBox Err.Description, , "Kutools for Excel" Resume ExitHandler End Sub checa eso a ver si e lo quieres es todo lo que pude hacer por ti a ver alguien mas puede apoyarte saludos isidro
  12. checa este otro link https://www.extendoffice.com/es/documents/excel/456-combine-multiple-workbooks.html
  13. estos link https://www.rondebruin.nl/win/addins/rdbmerge.htm https://www.excelnegocios.com/macro-para-unir-varios-libros-excel-en-una-sola-hoja/ aver si te funcionan saludos isidro
  14. este otro link https://ayudaexcel.com/foro/topic/38226-importar-ficheros-txt-a-hojas/
×
×
  • Create New...

Important Information

Privacy Policy