Luis Mondelo

Esta es la fórmula que necesitas anotar en la celda O3 =si(Y(F3>=1;F3<=23);8;"") recuerda finalizar

Prueba con la macro así: Private Sub CommandButton2_Click() Sheets("DEVOLUCIONES").Activate range("a10").select For i = 0 To ListBox1.ListCount - 1 activecell.value = ListBox1.List(i,0) activecell.offset(0,2).value = listbox1.list(i,1)...

Para modificar un valor del combobox, primero lo pasamos a un textbox... lo modificamos... lo pasamos a excel y volvemos a cargar el combobox

No me funciona el enlace. Mándamelo por mail con un ejemplo [email protected]

Para poder ayudarte mejor, mándame los datos con un ejemplo manual explicado [email protected]

En el siguiente enlace te dejo un ejemplo ya programado http://share.myflare.com/b5FDvh No olvides finalizar la consulta

Ejecuta esta macro en una hoja en blanco y tendrás un listado en excel de todos los archivos jpg de la carpeta C:\. Después solo queda comparar datos con fórmulas Sub proceso() 'por luismondelo ChDir "c:\" archi = Dir("*.*") Do While archi <> "" If...

En el siguiente enlace te dejo un un ejemplo para que luego lo puedas desarrollar http://share.myflare.com/4cqM28 No olvides finalizar

Esta sería la macro: sub proceso() 'por luismondelo sheets("hoja2").select valor = range("a10").value range("a10").select do while activecell.offset(0,1).value <>"" activecell.value = valor activecell.offset(1,0).select loop end sub<h2...

Mándame los datos con un pequeño ejemplo manual [email protected]