paramisolo

Bien la macro quedaría así ( ya sabes luego tendremos que corregirla, jejejeje), de momento escribes que tienes en B celdas en blanco y me pones que blanco esta en A... bueno en fin: Sub subtotal() Dim mi_celda, celdaINI, celdaFIN As String...

Pues crea 4 nombres para las imágenes, al principio las eliminas (como ya haces) y a continuación primero eliges la celda donde insertarlas (la esquina superior izquierda será el punto de inserción) corriges el ancho y el alto y vuelves a elegir la...

Vale, prueba esto: ActiveCell.Offset(1, 0).Select valor = ActiveCell.Value Range(ActiveCell, ActiveCell.End(xlDown)).Select Set n = Selection.Find(What:=valor) If Not n Is Nothing Then MsgBox "Este nombre ya esta en la lista" End If If...

Pues puedes ponr un textbox auxiliar con un botón para que en función de lo que pongas en él puedas abrir el libro que necesites al pulsar en el botón. Mira a ver si te soluciona tu problema, si necesitas alguna ayuda me lo dices. >Un saludo >Julio

Explicame como tienes configurada la hoja de excel, en A tal, en B cual... y así para que creemos tantas variables de contador en función de tus campos y que cada vez que selecciones un Id pueda aumentar en 1 las veces que consultas por él. >Un...

Las lineas de código del correo no están correctas, cambia por estas y me dices: Application.Dialogs(xlDialogSendMail).Show _ arg1:="[email protected]", arg2:="cupos preparados a la fecha" >Un saludo >Julio PD: Thunderbird debe de ser el gestor de correo...

Mirate a ver si por cualquier circunstancia (ejecución de macro) se ha desactivado sigue es tos pasos: Activar o desactivar opciones de comandos del Portapapeles de Office Mostrar todo Ocultar todo Muestre el Portapapeles de Microsoft Office en el...

Cuando un formulario (userform) esta mostrado (Show) no es posible modificar el tamaño ni la ubicación en la pantalla debes de indicar en la macro el tamaño y ubicación antes y después mostrarlo, realiza las pruebas con las propiedades del Userform y...

Quedaría así: Private Sub Textbox1_Change() Range("A1").Select ActiveCell.End(xlDown).Select Do While ActiveCell.Address<>"$A$1" valor=ActiveCell.Value If ActiveCell.Value>0 Then Textbox1.Text=ActiveCell.Value Exit Do Else...

De acuerdo me pongo con ello y te contesto, ahora tengo que marcharme pero luego me pondré con ello, esta noche te contesto. >Saludos >Julio