Elsa Matilde

Enviame tu hoja con el formulario porque estás haciendo lío ;) (Los correos aparecen en la portada de mi sitio que dejo al pie)

Funciona para un rango llamado 'PRECIOSXCLIENTE' ¿Qué otros rangos (y cuántos) tenés? Si los mismos textbox deben ser volcados en otros rangos también tendrás que repetir las líneas para el resto, por ej: fil = Range("otrorango").Cells(1, 1).Row +...

Esta vez no comprendí todo el tema pero aquí va la instrucción para las 6 celdas a derecha: Sub borraCeldas() 'x Elsamatilde 'borra 6 celdas a derecha de la activa Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, 6)).ClearContents End Sub En la...

Esta sería la macro: Sub CopiaFila() 'x Elsamatilde 'copia la fila anterior a la fila activa Rows(ActiveCell.Row - 1 & ":" & ActiveCell.Row - 1).Copy ActiveCell.EntireRow.PasteSpecial 'copia con formatos y fórmulas Range("A" & ActiveCell.Row).Select...

Se pueden realizar varias tareas. Los siguientes son solo algunos ejemplos para que adaptes a tu necesidad. 1 - Respondiendo al título de tu consulta, con la siguiente macro podrás eliminar módulos y Userforms a criterio desde otro libro: Sub...

La siguiente es una macro ejemplo para el envío de correo con adjuntos. Sub EnviaCorreo_Adjunto() 'x Elsamatilde. Extraída del manual 500Macros. Dim myOLApp Dim myOLItem Dim olMailItem Dim miasunto As String, mitexto As String, midire As String...

Se entiende la pregunta pero faltan algunos detalles para desarrollar la macro: ¿Por ej dónde se encuentran las 'tablas'? ¿Son hojas del mismo libro o se trata de libros diferentes? ¿O son rangos de datos que se encuentran en diferentes posiciones...

Una opción sería filtrar la tabla por ese criterio y eliminar datos encontrados y otra opción es esta macro que recorre la col E: Sub eliminaCA() 'x Elsamatilde 'comienza en E2 hasta el fin de rango que lo da la última fila ocupada filx = Range("E" &...

Seleccioná el rango de la col A y desde Formato Condicional seguí las pautas mostradas en la imagen.

Como se trata de un control del grupo Formularios, coloca este código en un módulo. Ajusta el nombre de tu control y la celda donde indicarás el valor máximo : Sub ajusteSpin() 'x Elsamatilde ActiveSheet.Shapes("Spinner 2").Select 'AJUSTAR NOMBRE...