Elsa Matilde

Te adjunto macro e imagen para poder ajustarla a tus referencias. Sub COPIA() 'x Elsamatilde 'la tabla de datos empieza en fila 4 'el dato a copiar en C1 'el fin de rango lo da la col con datos hasta el final, aquí es A Range("C1").Copy Range("C4:C"...

Te adelanto parte de la macro porque al llegar al pegado de los detalles no coinciden los rangos que indicaste. Sub paseBBDD() 'x Elsamatilde Dim hbd Dim filx As Long Set hbd = Sheets("BBDD") Set hor = Sheets("Ordenes despacho") 'guarda la primer...

Entra al Editor de macros (con Alt y F11). Inserta un módulo y allí copia lo siguiente: Sub comparaMesas() 'x Elsamatilde 'se ejecuta desde la Hoja1 Hoja1.Select dato = [A1] 'se busca en Hoja2 el contenido de A1 Set busco = Hoja2.[A:A].Find(dato,...

Según tu perfil no quieres el código sino la idea... entonces te comento: Hay varios tipos de controles de error (para los que tienen mi manual 500Macros se encuentran en el cap 11: Controlando errores). La instrucción es: On Error ... Desde la Ayuda...

Debes agregar esta otra subrutina siguiendo el modelo que tengo de la consulta anterior. Private Sub cbm_US_Click() 'agregada x Elsamatilde Dim busco, hojaB Dim dato As String Dim i As Long 'al seleccionar un elemento se busca en hoja BASE y se...

Hay un par de puntos que no se comprenden, por ej la subrutina BorrarInforme. ¿Qué intentas: borrar las celdas del rango? Con Offset(0,0) no avanzas ni filas ni col... por lo tanto siempre estas en el mismo lugar. Si intentas limpiar ese rango...

Se puede asociar el textbox con la celda desde su propiedad LinkedCell (estando en modo Diseño). Pero cuando limpies el control se borrará el contenido de la celda... entonces quizás te convenga una macro. Imaginé que se ejecute desde otro botón,...

Lo más rápido sería filtrar la tabla por estas 3 condiciones y luego copiar las celdas filtradas a su nuevo destino. A continuación podrás eliminar las filas filtradas del original (verifica de tener previamente una copia). Si necesitas una macro,...

Ingresá al Editor de macros (con Alt y F11), insertá un módulo y allí copiá esto. Ajusta los detalles que comento. Sub cortaFilaColor() 'x Elsamatilde 'recorre las filas hasta la última según col A ....AJUSTAR INICIO DE RANGO Range("A3").Select While...

Al seleccionar el combobox, observá en el panel a tu izquierda la lista de Propiedades. Allí podés modificar ColumnCount y dejarla en 4. También la propiedad RowSource debe indicar un rango de 4 columnas. ColumnWidths es la que te permite ajustar...