Dante Amor

H o l a: Envíame el archivo plano con algunos registros. También me envías el archivo de excel con los mismo registros que vienen en el archivo plano, pero me tienes que poner cómo deben quedar. Deberás ajustar los espacios de manera manual, para que...

Pon esta fórmula en E3 y la copias o arrastras hacia abajo hasta el final de los datos de la columna D =SI(D3="SI",CONTAR.SI($D$3:D3,"SI"),"") 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

Supongo que también la búsqueda se tiene que hacer en la otra hoja. Cambia en la macro "Hoja4" por el nombre de la otra hoja. Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Target.Count > 100 Then Exit Sub If Target.Row = 1...

H o l a: Al parecer el dato que se almacena en el campo de la tabla dinámica, cuando lo ocupas en los filtros, lo almacena como Texto. Realicé unas pruebas y me funciona así: Sub items() ' Dim PvtTbl As PivotTable Dim pvtItm As PivotItem...

H o l a: Solamente te faltó comentar en cuál columna quieres la fórmula. En la macro que te estoy enviando la fórmula la estoy poniendo en la columna F, cambia las F's en esta línea de la macro por la letra de la columna donde quieres la fórmula:...

H o l a: Te anexo la macro para poner los subtotales Sub GenerarCorreos() 'Por.Dante Amor Application.ScreenUpdating = False Set l1 = ThisWorkbook Set h1 = l1.Sheets("BASE DATOS") Set h2 = l1.Sheets("Temp") Call BorrarHojas ' If h1.AutoFilterMode...

H o l a: Quieres cortar la imagen y pegarla como con formato de imagen, pero no pusiste exactamente a cuál formato de imagen te refieres, ya que existen varios. Te anexo la macro para cortar y pegar, le puse de ejemplo: ActiveSheet.PasteSpecial...

H o l a: Todos los datos de un userform están en memoria mientras mantienes activo el formulario, cuando cierras el formulario, la memoria se destruye y todos los datos se pierden. Para cargar los datos en un formulario cuando abres el formulario, se...

H o l a: Envíame un archivo con 3 hojas. También me envías 3 archivos, cada uno de estos 3 archivos será una de las hojas que me estás enviando en el primer archivo, esto con la finalidad de ver cómo quieres la hoja en un archivo. También los nombres...

Te anexo algunas opciones: Sub im4() 'Por.Dante Amor ruta = "c:\trabajo\" arch = "fig1.gif" ' Set fotografia = ActiveSheet.Pictures.Insert(ruta & arch) With fotografia .Name = "imagen temporal" .Top = Range("F2").Top 'Para poner en la celda F2 .Left...