Elsa Matilde

Solo reemplaza la línea que dice: If Me.ComboBox1 = "Gastos Enero" Then Por esta otra: If Left(ComboBox1,6) = "Gastos" Then Te invito a mirar el vídeo 11 de mi canal donde comento el uso (innecesario) de 'ME'

Desde la sección Ejemplos de mi sitio podrás descargar un pequeño programa para adaptarlo a tus necesidades. http://aplicaexcel.galeon.com/descargas.htm Sdos y no olvides valorar esta respuesta (opciones: Excelente o buena) Elsa

Con el DO While que agregaste a la macro solo estás buscando en cada fila de la col DO. Tu libro contiene 4 hojas. Las macros se desarrollan según la particularidad de cada hoja. ¿Para cuál de las hojas necesitas el ajuste? Sdos. Elsa * Mi mejor...

La consulta ya te fue resuelta por lo que no diré nada de eso. Solo voy a comentar que acabo de ver que dejas todas las respuestas recibidas sin valorar. Comento esto para que los otros expertos también tomen nota de tu actitud y decidan si seguir...

Colocá en la lupa (buscador del foro) el texto: Elsamatilde FindNext y allí encontrarás varias de misrespuestas para búsqueda por 2 criterios. Luego, cuando tengas tu macro armada, si necesita algún ajuste me contactas nuevamente.

Deja una imagen de tu hoja marcando cuáles son las celdas que deben evaluarse bloquearse. Y aclara un poco más ... no se comprende del todo esto ni lo que sigue: '... En el caso que la filas del rango(D:K) no estuvieran totalmente completas "informar...

En la imagen se observan mis correos. Toma cualquiera de ellos y no olvides aclarar el tema que nos ocupa (o el link con esta consulta). Indica con un ejemplo qué columnas se copiarán, de qué hoja, a cuál hoja y celda. Además aclara: Si el libro...

Te sugiero utilices un pequeño formulario para la selección de los criterios. '...Que me preguntara por el texto a filtrar ... sería con el uso de cuadros InputBox... pero eso es poco confiable considerando que se puede tipear con error. Si esta...

La macro presenta un error de sintaxis en las últimas celdas al establecer la ref Target(fila, col) Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False If Target.Column = 40 Then Set H1 = Sheets("Facturas recibida")...

Como la consulta anterior quedó ya valorada continúo aquí. Sub dris() 'ajustada x Elsamatilde 'se declaran las hojas 'destino' para no tener que seleccionarlas Set hon = Sheets("MACRO-nutrientes") Set hod = Sheets("dris") 'se trabaja desde la hoja 2...