fejoal

. Buenas, Andrés De acuerdo a lo que solicitas exactamente, estas instrucciones redondean el valor de la celda activa al la decena, centena, etc según le indiques dentro del código, colocándolo en la celda debajo de ella: Sub redo() Posic = 100 '...

.07/09/16 Buenas noches, David En el siguiente ejemplo coloco dos instrucciones que dejan en una variable el primer día del mes actual: iniMes = Date iniMes = CDate(Year(iniMes) & "/" & Month(iniMes) & "/" & 1)

22/08/16 Hola, Federico En el caso de que busqués una macro para hacerlo en una única linea, esta es la rutina que necesitás. Accedé al Editor de VBA (Atajo: Alt + F11), insertá un módulo - si no tuvieras uno ya- y pegá el siguiente código: Sub...

.22/08/16 Buenas, Lina Asumiendo que ingresas tu dato en un TextBox de tu fórmulario, esta secuencia te ayudará a ingresarlo en las hojas y celdas que le indiques: '... (supongo que tienes otras líneas de código anteriores) ' Lina, Indica en las...

.22/08/16 Buenas, Jorge Intentaré una aproximación a una solución ya que tu caso puede tener algunas particularidades que desconozco. En principio, para resolver el tema del "Enter" pendiente, puedes usar la instrucción: Application.SendKeys...

.18/08/16 Buenas, Ramón Prueba esta que no se desplaza entre celdas, no necesita el palabra "Final" y no refresca pantalla: Sub DeleFila() 'Ramón, cambia aqu la columna donde están los datos, si fuese otra: Coldatos = "A" 'Aplication.ScreenUpdating =...

.11/08/16 Buenas, David En el archivo receptor de los datos inserta un módulo en el Editor de VBA (atajo: Alt + F11). En el panel de la derecha pega la siguiente rutina: Sub TraeCSV() 'David, escribe aquí la dirección de la celda donde empieza tu...

.10/08/16 Buenas, Horacio Acabo de ver tu consulta y me parece es que no está evaluando el cambio que haces en la celda. Podrías intentar con esto: Private Sub Worksheet_SelectionChange(ByVal Target As Range) ' On Error Resume Next <<< No es...

. Buenas, de nuevo Para lo que solicitas usaría estas dos instrucciones: NomMeses = Array("Enero", "Febrero", "Marzo", "Abril", "Mayo", "Junio", "Julio", "Agosto", "Setiembre", "Octubre", "Noviembre", "Diciembre") MesArchivo = NomMeses(Month(Now) -...