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

963.700 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

4 combobox dependientes en un formulario de VBA en EXCEl línea de actividad, causa de línea y actividad, subcausa de causa.

Debo realizar un formulario de daño de equipos que me permita filtrar la información, es decir que si selección la actividad "empaque", me muestre la líneas de producción que la realiza "8"y luego me filtre las causas de acuerdo a la línea y...
3 respuestas

Busqueda rapida en Excel 2 Sheets

Tengo 2 sheets y en un modulo tengo dos for (uno para cada sheet) que recorre el primer sheet y pregunta si el código esta en el segundo sheet, lo hace registro por registro y conforme va encontrando hace una operación adicional. Mi inconveniente es...
3 respuestas

Eliminar Datos repetidos y el Max y Min

Como puedo eliminar datos repetidos pero con el ordenamiento de menor a mayor estos debo eliminar el Max y el Min dependiendo de los duplicados o repetidos ejemplo En este lo tengo ya ordenado por nombre pero quiero buscar por ejemplo de pedro el...
2 respuestas

¿Cómo escribir un texto con formato de texto en negritas?

Quisiera saber si me pueden ayudar con el siguiente caso: Mediante una instrucción de Excel, inserto un texto en cierta hoja cada que se cumple una condición dentro de un ciclo; lo que quiero hacer es que al momento de que se inserte el texto en la...
3 respuestas

Macro para vincular celdas de diferentes hojas

Necesito que mediante una macro, en una celda que nunca es la misma, escriba una fórmula para que traiga unos datos de otra hoja por ejemplo de la Hoja2 de la celda E10 Con el grabador de macros obtuve esto pero no me funciona ActiveCell.FormulaR1C1...
1 respuesta

Usar función sumar.si con subtotales

Necesito apoyo como aplicar la fórmula de subtotales aplicando sumar. Si En la primer imagen describo lo que necesito en esta otro imagen quiero aplicar la formula Ojala puedan ayudarme
2 respuestas

Exportar a png hoja de cálculo de google drive

Estoy realizando una hoja de cálculo en Google drive y necesito poder exportarla a png o jpg. Solo consigo la opción de exportar en pdf pero no me sirve. No sé si existe algún complemento de google drive que lo permita. ¿Alguna idea?
1 respuesta

Como hago una macro para calcular a un rango de celdas un porcentaje y ponerlo en otro rango de celdas

Necesito a partir de unos saldos poder calcular el 10% ó 20% ó no y poner su resultado en una columna distinta. Había pensado en usar dos casillas de verificación que una vez clicadas se recogiera el resultado en esa columna nueva o se mantuviera a...
2 respuestas

Devolver 2 valores de una función Macros Excel

Tengo esta función que me trabaja muy bien, pero solo me muestra un valor de una tabla excel en mi formulario. Function consultarProducto(codigo As String, marca As String) As String Dim ultLinea As Long Dim ultLineaDatos As Long Dim...
1 respuesta

Macro para guardar hojas en excel como pdf

Estoy haciendo una macro para guardar las hojas de un libro en excel como pdf, mi código funciona pero al final me aparece un error y quisiera depurarlo. Espero alguien Sub GPDF() Dim Ruta As String Dim NombreArchivo As String Dim Hoja As Object Ruta...
2 respuestas