Aneudys Martinez

1 -presentamos tu hoja de como estas 2 - otra hoja de como quiere quede 3 y si tiene una para ver en que podemos ayudarte

Eso lo puede conseguir de la siguiente manera Private Sub CommandButtonBuscar_Click() Application.ScreenUpdating = False ruta = "C:\Users\dani.martinez\Desktop\rntt\" nombre = "rntt.xls" Workbooks.Open Filename:=ruta & nombrenombre.xls"...

No olvides valorar si te silve para cerrar la pregunta obuenas Presentanos una imagen de tu base de datos donde tiene los datos que se van a carga en los combobox Un ejemplo seria range("a2").select Do While ActiveCell <> "" ComboBox1. AddItem...

Puede ayudarnos a ver como podemos ayudarte. ¿Dónde iría estas información? ¿ ¿Podrías enviar una imagen de como quiere que que el correo a enviar?

¿A ver si entendí quiere que se abra el document en la hoja2? ¿O qué copien el nombre del archive en la hoja2?

Si lo haces con in userform lo consigues de la siguiebet manera En el botón de agregar los datos a la hoja Private Sub CommandButton1_Click() Sheets("nombre de tu hoja a proteger"). Unprotect "tuclave" macro que copias los datos ... Sheets("nombre de...

Si he por combobox seria de la siguiente manera Private Sub UserForm_Initialize() Range("d4").Select Do While ActiveCell <> "" ComboBox2.AddItem ActiveCell ActiveCell.Offset(1, 0).Activate Loop Range("d4").Select Do While ActiveCell <> ""...

Feliz año Nuevo En el caso de que c=0 y D=1 existe esa condición en tu planteamiento de ser así podrías usar la fórmula así =IF((B1+A1)=1,(Formula1),"")&IF((A1+B1)=2,(Formula2),"")&IF((A1+B1)=4,(Formula4,"") en macro seria de esta manera Sub ahora()...

Feliz año nuevo Seria de la siguiente forma me confirmas que las celda no están vacías tiene "s" y "m" Sub buscarMyS() Sheets("hoja1").Select Range("c15").Select Do While ActiveCell.Value <> "" If ActiveCell = "m" Then ActiveCell.Offset(0, 15) =...

Feliaz año Nuevo Presentanos tu hoja y una de como quiere que se vea y si tiene una macro muestranola y así ver en que ue podemos ayudarte