Poner datos en celdas

Hola Gfellay, recibe un cordial saludo por este medio.
Solicito tu ayuda para crear una macro, ya que por medio de fórmula si lo logro hacer pero el archivo se vuelve pesado por la cantidad de datos y fórmulas.
Quisiera lograr lo siguiente:
¿Qué cuándo en la columna D? Ponga PAGADA, ¿en la celda O? Me debe poner "SI", ¿en la celda P? Poner "SI", ¿en las celdas Q? ¿Y R? ¿El importe de E?
¿Cuándo en la columna D? Ponga CRÉDITO, ¿en la celda O? Me debe poner "NO", ¿en la celda P? Poner "SI", ¿en la celda Q? ¿Y R? ¿El importe de E?.
En las Columna siempre voy a poner PAGADA o CRÉDITO.
¿Cuándo me refiero a O?, ¿P?, ¿Q? ¿Y R? Hago referencia a las celdas O2, P2, Q2 y R2; O3, P3, Q3 y R3 y así sucesivamente ya que voy a ir ingresando los datos.
Agradezco de antemano tu apoyo.
Saludos
1

1 Respuesta

943.145 pts. "Todos somos genios. Pero si juzgas a un pez por su...
Creo que es mejor con fmlas pero si querés hacerlo con macros, hacé click derecho sobre la solapa del nombre de hoja y seleccioná Ver código; allí escribí
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then 'columna D
If Target.Value = "PAGADA" Then 'asumo lo que dijiste que las únicas opciones son Pagada ó Credito como dijiste
Cells(Target.Row, 15) = "SI"
Cells(Target.Row, 16) = "SI"
Cells(Target.Row, 17) = Cells(Target.Row, 5)
Cells(Target.Row, 18) = Cells(Target.Row, 5)
Else 'asumo que es Credito
Cells(Target.Row, 15) = "NO"
Cells(Target.Row, 16) = "SI"
Cells(Target.Row, 17) = Cells(Target.Row, 5)
Cells(Target.Row, 18) = Cells(Target.Row, 5)
End If
End If
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro en todos los libros excel

Quiero crear una macro que, según el rango de celdas que seleccione, me cambie los puntos (.) por las barras (/) Esto lo puedo hacer grabando una macro, pero me tengo que ceñir siempre al mismo rango de celdas y lo que quiero es que me haga esa...
2 respuestas

Dejar valores únicos y copiar el valor máximo de otra columna

Tengo la inquietud de como hacer lo siguiente en la columna A tengo valores ya sea 1-2-3-4-6-1-2-1- etc se pueden repetir y en columna B los valores asignados a la columna A .. La idea es que deje los valores únicos de la columna A y los valores...
2 respuestas

Buscar y Filtrar datos de excel en ListBox de un Userform

Alguien podría ayudarme por favor con esta situación: Tengo varias hojas de excel 2010, pero en una de ellas llamada "Certificados Emitidos".. En ella tengo una base de datos de aproximadamente 19 columnas y con 100 filas aumentando cada día.. El la...
2 respuestas

Copiar una hoja con formatos a un archivo existente

El archivo existente esta cerrado Tengo este código: Sub CHoja() Dim Carpeta As String Carpeta = "C:\empresa\" MesAño = shtTurnos.[e5] + shtTurnos.[f5] nombreaforo = "Af e Ing" & "(" & MesAño & ")" dia = shtTurnos.[d5]...
1 respuesta

Proteger una hoja con preferencias (Modificar filas) y al abrir el libro seguir con las preferencias VBA?

Como protejo una hoja con ciertas preferencias como "modificar filas" desde VBA.? Puedo hacerlo Manual Cierro el libro lo abro y siguen las preferencias pero cuando lo hago desde VBA abro el libro y solo están seleccionadas las dos primeras...
1 respuesta

Guardar una hoja del libro con contenido de celda

Espero que me puedan ayudar, necesito una macro ya que tengo un libro con varias hojas, para facilitar el guardado solo necesito guardar una hoja, esta se llama "Resultados", en esta hoja hay formulas, gráficas ligadas a una tabla y formatos...
1 respuesta

Como lograr encontrar una fila mediante un código de VBA?

Me gustaría que un dato se guardara en la fila y columna que le indique mediante un código único, tengo un código que me guarda un dato en un combobox y luego me muestra los datos de ese combo. Private Sub ComboBox2_Change()...
1 respuesta

¿Cómo podemos cambiar el valor 0 - 1 por una letra determinada según el valor correspondiente en la celda?

Tengo configurado en una determinada celda, .Value = 0 y .Value = 1. ¿Cómo puedo hacer que me aparezca letras dependiendo del valor? Ejemplo: Que "0" sea " " oculto (en blanco) y "1" sea "X".
1 respuesta

Necesito copiar un rango de varios ficheros a otro diferente, estoy usando esta macro pero necesito copiar solo valores

Necesito copiar un rango de varios ficheros a otro diferente, estoy usando esta macro pero necesito copiar solo valores, no fórmulas Sub libros() Application.ScreenUpdating = False Application.DisplayAlerts = False Set l1 = ThisWorkbook ruta =...
1 respuesta

¿Se puede llamar una macro parametrizada de un formulario desde otro formulario VBA?

Este es mi codigo en un formulario Sub newNotificacion(notice As String, tt As Integer) Notificacion.Show Bto = 0 With Me With .tipo Select Case tt Case 0 .Caption = "" Case 1 .Caption = "INFORMA" Case 2 .Caption = "PREGUNTA" Case False .Caption =...
1 respuesta