macros_excel

Dentro de tu código antes de asignarle el valor de la celda al textbox dale un formato standard Textbox1 = Format(Textbox1,"Standard") Saludos Para aprender más visita www.expertosmacrosexcel.es.tl

Pega esta macro en el editos de visual y agrégasela al botón que ya tienes Sub Mymacro() If WorkSheets("Datos").Range("a2")>0 Then Sheets("Datos").select Else MsgBox("No hay datos en la delda a2") End If End Sub Saludos Quieres aprender más... Visita...

La en tu código la contraseña esta escrita como fija en el código visual lo que debes hacer es que ya no este ecrita hay en vusual, si no que la contraseña se almacene en determinada celda de determinada hoja y siempre que tu quieras cambiarla la...

La tabla dinámica es un concentrado de una table general, esta se actualiza cuando tu haces cambios en la tabla origen En este caso dices que se te borro la hoja donde estaba la tabla origen.. Lo que debes hacer para saber de donde que datos componen...

Esto Reliza lo que necesitas Sub MyMacro() 'Esta macro sirve para enviar un correo con el Outlook 2007, pero antes de enviarlo nos muestra la pantalla del 'correo para poner nosotros los datos del correo, direccion de correo, sujeto, y presionar...

Claro que si se puede.. Mira.. Lógicamente para esto utilizaras uno de esos liibros para poner la fecha.. Lo que debes hacer es que a los otros 9 libros la macro la vas a llamar Auto_Open, eso con el fin de que esa macro se autoejecute al abrir ese...

Convierte el texto a numero Es decir cada carácter lo puede convertir a su equivalencia en lenguaje ACII por ejemplo si en la celda c1 tiene, hablando de carros (Focus) Primero tienes que separar cada una de las letras y después convertirlas en dato...

Te envío el código que realiza lo que necesitas... solo comea la macro y adáptalo a tu archivo Si te sirvió el código o si necesitas el archivo de ejemplo, mandame un mensaje en: www.expertosmacrosexcel.es.tl Saludos Sub MyMacro()...

Visita: www.expertosmacrosexcel.es.tl descargate la plantilla, Inpide_Entrada_Datos_repetidos.xls

Corregí un poco el código pero es la misma función, solo cambie la ruta y el nombre del archivo Sub DeleteFile() Dim fso Dim file As String Evaluate1 = Evaluate("=now()") a = Format(Evaluate1, "dd-mm-yy") file = "C:\Copia Material" & a & ".xls" Set...