juan perez

La macro es así : Sub ExtraerFolioFiscal2() 'Act.Por.Dante Amor Dim cp, Archivos Dim y, Fila, FolioFiscal Application.ScreenUpdating = False ActiveSheet.DisplayPageBreaks = False Fila = Range("A" & Rows.Count).End(xlUp).Row + 1 ' With...

¿Qué conceptos quieres extraer del xml y como los quieres extraer?

Yo te consigo la app que se llama "peggo" buscala en el internet es buena y fácil de usar te da opción de bajar video o mp3 y un reproductor le voy más musixmatch ese si esta en la playstore además de ofrecerte bajar imágenes de la caratula.

Te paso el macro, para que lo pongas en el botón, no en un modulo, ami si me sirvió, pruébalo y me dices que tal, saludos. Private Sub CommandButton1_Click() Dim Celda As Range For Each Celda In Range("g2:g30") Celda = Celda.Formula Next Celda End Sub

Amigo le di una revisada a tu archivo y si hace el filtrado bien, hay veces que me ha pasado que tienes que limpiar tu historial, de office, por que creo que les pasa como el historial web, cuando no te sales de tu cuenta de correo, que nada más le...

Discúlpenme por preguntarme y responderme solo, pero mi inpaciencia creo que es más, jaajja ya encontré la solución, es con una sencilla fórmula que es esta :=MED(A9, 1, ENCONTRAR(".", A9, 1)-¿1) Me costo un buen de trabajo buscarla en internet pero...

Que tal amigo la verdad, si supieras, el trabajo que me costo para encontrar este macro, y un compañero de esta página, me ayudo a modificarlo, te lo pongo a ver que tal creo que es más de lo que pides por extraer xml masivos okey, bueno comparto el...

Disculpen mi macro es: Dim i, items, xEmpleado Private Sub btn_Buscar_Click() If Me.txt_Buscar.Value = Empty Then MsgBox "Escriba un registro para buscar" Me.ListBox1.Clear Me.txt_Buscar.SetFocus Exit Sub End If Me.ListBox1.Clear items =...