Jump to content

isidrod

Members
  • Content Count

    230
  • 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 @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
  2. 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
  3. buen día @eugeniocol sube un archivo de ejemplo por favor para alguien mas pueda ayudarte saludos isidro
  4. 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
  5. este otro link https://ayudaexcel.com/foro/topic/27567-reproducir-mp3/?_fromLogin=1 saludos isidro
  6. @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
  7. @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
  8. '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
  9. checa este otro link https://www.extendoffice.com/es/documents/excel/456-combine-multiple-workbooks.html
  10. 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
  11. este otro link https://ayudaexcel.com/foro/topic/38226-importar-ficheros-txt-a-hojas/
  12. checa este link Luis Antonio https://excelsignum.com/2016/02/15/importar-archivos-txt-delimitados-por-caracteres/ saludos isidro
  13. Sub Macro3() If Range("A1").Value = "" Then 'valida que haya texto en la celda "A1" para que pueda realizarlo. Range("A1").FormulaR1C1 = "=+RC[1]" End If With Worksheets("Hoja1").Range("A2:A" & Range("B65536").End(xlUp).Row) .FormulaR1C1 = "=IF(LEFT(RC[1],1)=""T"",RC[1],R[-1]C)" .Value = .Value End With End Sub así funciono en mi equipo
  14. no se que es lo quieres hacer, con lo que te pase ya quedo. solucionado?
×
×
  • Create New...

Important Information

Privacy Policy