Pregunta para dante amor cambiar columna

Dante mándame el archivo corregido para cambiar la ejecución de la columna L por O y explícame como lo hiciste gracias

Respuesta
1

¿Quieres qué la macro se active después de capturar algo en la columna "O"?

Solamente tienes que cambiar esto:

If Not Intersect(Target, Range("L:L")) Is Nothing Then    

Pero si vas a cambiar la columna L por la O, es decir, lo que capturabas en la columna L ahora lo vas a capturar en la columna O, tienes que cambiar esto

En las macros:

If Not Intersect(Target, Range("L:L")) Is Nothing Then    

Range("U10") = Cells(fila, "L")

En las fórmulas:

=SI(L2<>"",CUPON.FECHA.L2(B2,J2,L2,4),"")

=SI(L2<>"",D2*K2/L2,"")

=SI(L2<>"",RENDTO(B2,J2,K2,E2,G2,L2,3),"")

=SI(L2<>"",CUPON.DIAS.L1(B2,J2,L2,4),"")

=SI(L2<>"",D2*K2/360*P2,"")

=SI(L2<>"",SUMA(F2,O2,Q2),"")

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Al ingresar datos en un rango de celdas ejecute un macro

Elijo 2 columnas por ejempoi la columna A y la column J necesito que cuando ingrese algún dato en cualquier celda de la columna ejecute una macro que yo e y que cuando elija cualquier celda de la columna j me ejecute otra macro que distinta.
1 respuesta

Filtro múltiple con lista desplegable

Tengo un filtro avanzado con múltiples criterios, el cual funciona de manera eficaz y quiero mantenerlo intacto. Hay varios criterios de fechas que quisiera integrar en una celda con lista desplegable. ¿Cómo se puede hacer? Private Sub...
1 respuesta

Macro de Filtro Avanzado

Tengo una lista de datos y una macro que funciona como un filtro avanzado con las siguientes características: En la Hoja1 tengo la lista de datos: A B C D 1 FECHA FACTURA IMPORTE NOMBRE (Rango A1:D9 = Datos) 2 1-sep-12 120456 90,00€ Manuel 3 2-sep-12...
1 respuesta

Cambiar indistintamente el valor que comparten dos celdas ( II)

Lamentablemente la solución que me dió Elsa no me vale del todo: Private Sub Worksheet_Change(ByVal Target As Range) 'x Elsamatilde If Not Intersect(Target, Range("A1:A10")) Is Nothing Then Range("B" & Target.Row) = Target.Value ElseIf Not...
1 respuesta

¿Cómo puedo hacer una conversión en ambos sentidos (€/$-$/€)?

Necesito realizar una tabla en la que se utilizan varias monedas, actualmente € y $, aunque en un futuro podría haber más. Mi duda es si existe alguna forma de que se haga la conversión de una moneda a otra, independientemente de la moneda en que...
1 respuesta

Que hacer con el mensaje next sin For en visual basic

Tengo la siguiente macro y me esta apareciendo un mensajee que tengo un error de compilación Next sin For. Gracias de antemano Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("D2:D3")) Is Nothing Then...
1 respuesta

Llamar macro con valores de celda

Tengo el siguiente código que ejecuta una macro al cambiar el volor de una celda en un derterminado rango: Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("k5:k300")) Is Nothing Then Exit Sub End If ' If Target >= 0...
1 respuesta

Planilla de Stock

Elsa! Una vez más, recurro a su experiencia y conocimiento. Tengo una planilla con unos 1000 productos detallados en la comlumna A, en la columna B cargo el stock, en la columna C figuran las entradas y en la columna DE figuran las salidas. Cuando...
1 respuesta

Ayuda código vba ejecuta una resta urgente

Queridos amigos tengo el siguiente problemita tengo este código Private Sub Worksheet_Change(ByVal Target As Excel.Range) 'controla col H actualizando col G If Not Intersect(Target, Range("H2:H2000")) Is Nothing Then Target.Offset(0, -1) =...
1 respuesta