Dante Amor

H o l a: ¿Puedes indicar qué es lo que cambia? ¿El nombre de la carpeta? ¿O el nombre del archivo? ¿Puedes poner ejemplos de cómo se llamaba ayer y cómo se llama hoy? ¿Puedes poner la macro que tienes para revisarla y realizar las actualizaciones?

H o l a: Quedaría de esta forma: c = Val(txt1.Value) * Val(txt2.Value) txt3 = Val(txt3) + c':) ':)

H o l a: Si la lista desplegable es una validación de datos en una celda. Pon la siguiente macro en la misma hoja donde tienes la lista: Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Target.Count > 1 Then Exit Sub If Not...

H o l a: Cambia esta línea: FechaPago = Year(txtFechaPago) Por estas: If txtFechaPago <> "" Then If IsDate(txtFechaPago) Then FechaPago = Year(txtFechaPago) Else FechaPago = "" End If End If':) S a l u d o s . D a n t e A m o r ':) Si es lo que...

H o l a : Suponiendo que tienes los textos en la columna B y las cantidades en la columna C. Selecciona la columna B, toda la columna B. Entra al menú Inicio, Formato condicional, Nueva regla, Utilice una fórmula..., en fórmula pones lo siguiente:...

H o l a: Te anexo la macro para abrir el libro del día actual, y copiar un rango. En la macro te puse un ejemplo para copiar el rango y para pegar el rango. Cambia en la macro "C:\trabajo\varios\", por la ruta en donde se encuentra el archivo a...

H o l a: Prueba con la siguiente macro. Técnicamente hace lo mismo que tu macro, es decir selecciona las celdas desde la celda que tiene el dato hacia abajo y hacia la derecha y elimina la información. Pero lo hace para toda la columna. Private Sub...

H o l a: Pon la siguiente macro en los eventos de la hoja1: Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Target.Count > 100 Then Exit Sub If Not Intersect(Target, Columns("C")) Is Nothing Then For Each c In Target Set b =...

H o l a: Para saber si se puede automatizar con una macro (vba), realiza lo siguiente: Entra a excel y activa la grabadora de macros en el menú Programador, Grabar macro: En la ventana "Grabar macro" presiona Acepta. Ahora, abre tu archivo txt y...

Te anexo las macros actualizadas: Dim valor Const rango = "G4:G10" Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Range(rango)) Is Nothing Then Application.EnableEvents =...