Jump to content

isidrod

Members
  • Content Count

    229
  • Joined

  • Last visited

  • Days Won

    3

Everything posted by isidrod

  1. 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
  2. buen día @eugeniocol sube un archivo de ejemplo por favor para alguien mas pueda ayudarte saludos isidro
  3. 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
  4. este otro link https://ayudaexcel.com/foro/topic/27567-reproducir-mp3/?_fromLogin=1 saludos isidro
  5. @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
  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/ saludos isidro
  7. '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
  8. checa este otro link https://www.extendoffice.com/es/documents/excel/456-combine-multiple-workbooks.html
  9. 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
  10. este otro link https://ayudaexcel.com/foro/topic/38226-importar-ficheros-txt-a-hojas/
  11. checa este link Luis Antonio https://excelsignum.com/2016/02/15/importar-archivos-txt-delimitados-por-caracteres/ saludos isidro
  12. 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
  13. no se que es lo quieres hacer, con lo que te pase ya quedo. solucionado?
  14. es todo lo pude hacer por ti subo el archivo tiendas dias.xlsm
  15. si hay solo grabando esa formula y insertas un modulo y pegas este código Sub Macro1() 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 ahí esta a ver si te funciona saludos isidro
  16. copiar pega esa formula Luis Antonio a ver si te funciona =SI(IZQUIERDA(B2,1)="T",B2,A1) saludos isidrod
  17. ahí esta por si no lo quiere con tabla dinámica https://onedrive.live.com/?id=5AAEBD13773A2C23%21130&cid=5AAEBD13773A2C23 se llama: resultado de Prueba Utilidades.xlsm saludos isidro
  18. buen día @Iphant te dejo un ejemplo a ver si es lo que quieres ejemplo.xlsx
  19. como comprenderás los xml no tienen un solo formato te dejo estos link https://lerh13.blogspot.com/2018/11/vba-excel-macro-para-leer-xml-cfdi-33-y.html https://ayudaexcel.com/foro/topic/39035-importar-datos-de-xml-cfdi-33-a-excel/ 'https://www.extendoffice.com Sub From_XML_To_XL() 'UpdatebyKutoolsforExcel20151214 Dim xWb As Workbook Dim xSWb As Workbook Dim xStrPath As String Dim xFileDialog As FileDialog Dim xFile As String Dim xCount As Long With Application .ScreenUpdating = False .Calculation = xlCalculationManual On Error GoTo ErrHandler With Worksheets("Hoja1").Select Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker) xFileDialog.AllowMultiSelect = False xFileDialog.Title = "Select a folder [Kutools for Excel]" If xFileDialog.Show = -1 Then xStrPath = xFileDialog.SelectedItems(1) End If If xStrPath = "" Then Exit Sub Application.ScreenUpdating = False Set xSWb = ThisWorkbook xCount = 1 xFile = Dir(xStrPath & "\*.xml") Do While xFile <> "" Set xWb = Workbooks.OpenXML(xStrPath & "\" & xFile) xWb.Sheets(1).UsedRange.Copy xSWb.Sheets(1).Cells(xCount, 1) xWb.Close False xCount = xSWb.Sheets(1).UsedRange.Rows.Count + 2 xFile = Dir() Loop End With .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With xSWb.Save Exit Sub ErrHandler: MsgBox "no files xml", , "Kutools for Excel" End Sub de este código no tengo exactamente el link pero de esa pagina lo baje
  20. ahí esta formula para =SI(F3="002",(C3*0.16),"") saludos isidro
  21. hola @Banguala sube un ejemplo para poner ahí la formula, pero si te funciona así ahí esta
  22. ahí mira ya con formato personalizado https://sheepotaku.wordpress.com/2011/01/29/convertir-fecha-de-formato-sap-a-excel/ saludos isidro
  23. ahí esta de nuevo con formula EJEMPLO de fechas.xlsx
×
×
  • Create New...

Important Information

Privacy Policy

Ayuda Excel - Madrid, Madrid, ES - Valorada por 6254 personas - Aprender Excel - Total: 4.7 / 5