Carmen Diaz Breceda

Dante Amor respondió: H o l a: Te anexo la macro para extraer. Sub Extraer() 'Por.Dante Amor u = Range("B" & Rows.Count).End(xlUp).Row Range("C3:F" & u).ClearContents For i = 3 To u For j = 2 To Range("j" & Rows.Count).End(xlUp).Row c = InStr(1, UCase(Cells(i, "B")),...

Dante Amor respondió: H o l a: Envíame tu archivo y me explicas con ejemplos. Pon tu nombre de usuario en el asunto.

Dante Amor respondió: H o l a: Envíame tu archivo con un ejemplo. Recuerda poner tu nombre de usuario en el asunto.

Dante Amor respondió: H o l a: Si el día a copiar tienes un número, por ejemplo 1 En la macro estás preguntando por el "1" (esto es texto) Select Case DiaACopiar Case "1" Entonces si compara 1 con "1" no son iguales, por lo tanto, no asigna una celda destino. cambia en la...

Dante Amor respondió: H o l a: Puedes poner una imagen con ejemplos de lo que se va a sumar Y en dónde quieres el resultado de la suma. En la imagen se tienen que ver los números de filas y las letras de las columnas.

Dante Amor respondió: H o l a: Sustituye todas las macros solamente por esta: Sub filtro() 'Por.Dante Amor Set h1 = Sheets("Saldos") u = h1.Range("C" & Rows.Count).End(xlUp).Row If u < 24 Then u = 24 h1.Range("C24:I" & u).ClearContents If h1.[D3] = "" Then Exit Sub If...

Dante Amor respondió: H o l a: Puedes poner la macro o enviarme tu archivo o archivos con los que trabajas.

Jacinto Trillo Jareño respondió: Carmen: En éste enlace tienes lo que buscas, pero debes adaptarlo a tus nombres y criterio de Filtrado. Copiar rango de celdas según condición VBA Ya me dirás si te fue bien. Saludos >> Jacinto