Elsa Matilde

Este es otro modo: Range("A2") = CDate(txtFecha) Además la celda debe tener el formato deseado. Sdos. Elsa

Los ListBox tienen una propiedad denominada 'ColumnsWidths' donde se colocan los anchos de cada col, por ej: 15 pt;100 pt;30 pt Esto te obligaría a calcular cuál es el largo mayor de los datos de cada col para asignarle esta propiedad... trabajo...

Para fechas, este es un buen código para ingresarlas sin barras y que además se controle su contenido: Private Sub TextBox1_Change() If TextBox1 = "" Then Exit Sub Select Case Len(TextBox1) Case 2: If Right(TextBox1, 2) > 31 Then MsgBox "Debes...

Para una respuesta ajustada debieras colocar tu código, esto es solo un ejemplo. IF condición Then Msgbox mensaje Exit sub 'cancela el proceso End IF Debes colocar la condición y el mensaje según tu caso. Sdos Elsa

Si entendí bien la consulta, tu problema esta en que ahora mencionas una ruta de tu equipo y luego necesitas que sea la ruta del equipo de cada usuario. Lo que hacemos en esos casos puede ser: - Utilizar una carpeta común que existe en todo los...

Según tu ejemplo siempre son 2 dígitos, así que esta macro te servirá. Entrá al Editor de macros presionando juntas las teclas Alt y F11 Insertá un módulo y allí copiá esto: Sub separaXguion() 'x Elsamatilde 'recorre la col A, desde fila 2 hasta...

Solo me queda una duda: qué hacer con las hojas que se quedan en el 2do libro y no tienen correspondencia con el 1ro, ¿puede darse esta situación? Supongo que no habrá fórmulas que se perderían en la copia. Quedo atenta a tus aclaraciones para...

Me voy a permitir responderte hasta tanto Luis regrese al foro. Con la fórmula DESREF no debiera mostrarte filas vacías al final. Pero si tenés celdas vacías entremedio podés solventarlo de este modo: For Each celda In Range("Lista")If celda.Value <>...

Si por error te refieres a esos mensajes que presentan una opción de "Depurar", lo que debes hacer para evitarlo es proteger el Editor de macros, desde la ventana Herramientas del mismo Editor. De ese modo el mensaje solo te dirá que hubo un error en...

Podés utilizar una función de conversión para asegurarte que sea fecha y no solo texto con formato: Range("D5") = CDate(TextBox1) Sdos. Elsa