isidrod

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

buen día @eugeniocol sube un archivo de ejemplo por favor para alguien mas pueda ayudarte saludos isidro

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

este otro link https://ayudaexcel.com/foro/topic/27567-reproducir-mp3/?_fromLogin=1 saludos isidro

@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

@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

eres un genio Antoni saludos isidro

'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

checa este otro link https://www.extendoffice.com/es/documents/excel/456-combine-multiple-workbooks.html

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

este otro link https://ayudaexcel.com/foro/topic/38226-importar-ficheros-txt-a-hojas/

checa este link Luis Antonio https://excelsignum.com/2016/02/15/importar-archivos-txt-delimitados-por-caracteres/ saludos isidro

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

no se que es lo quieres hacer, con lo que te pase ya quedo. solucionado?

listo para ejecutar macros tiendas dias.xlsm

es todo lo pude hacer por ti subo el archivo tiendas dias.xlsm

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

copiar pega esa formula Luis Antonio a ver si te funciona =SI(IZQUIERDA(B2,1)="T",B2,A1) saludos isidrod

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

buen día @Iphant te dejo un ejemplo a ver si es lo que quieres ejemplo.xlsx

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

ahí esta formula para =SI(F3="002",(C3*0.16),"") saludos isidro

hola @Banguala sube un ejemplo para poner ahí la formula, pero si te funciona así ahí esta

ahí mira ya con formato personalizado https://sheepotaku.wordpress.com/2011/01/29/convertir-fecha-de-formato-sap-a-excel/ saludos isidro

ahí esta de nuevo con formula EJEMPLO de fechas.xlsx