Adriel Ortiz Mangia

Ingreso valores en la columna I y colorea la fila "C" a "H" y el asunto es al borrar uno a uno los valores quita el color pero al seleccionar un rango también debe hacer lo mismo. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count >...

Para Elsa. Por cambios realizados en la hoja solicito ayuda con la macro. Sub graficandoSeries() 'x Elsamatilde Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual Range("J11").Select...

Necesito mejorar el rendimiento de macro de crear gráfico, todos los datos de la tabla son a través de fórmulas y demora 27 segundos. Macro Sub graficandoSeries() 'x Elsamatilde Range("J11").Select ActiveSheet.Shapes.AddChart2(240,...

Necesito ajustar la macro para la lectura de datos con filas variadas. Macro Sub graficandoSeries() 'x Elsamatilde Range("J11").Select ActiveSheet.Shapes.AddChart2(240, xlXYScatterSmooth).Select Application.CutCopyMode = False 'se establece cuál será...

Cordial a los expertos del foro por su apoyo, necesito leer datos para crear gráfico en automático por ahora lo hago manualmente, como muestro 3 imágenes como va el proceso de lectura y obtener el resultado, según mi hoja se creará 8 gráficos en una...

Necesito macro para crear el gráfico en una nueva hoja pero no se como recorrer la tabla con datos descontinuos, también los datos varían entre filas y columnas. Macro grabado Sub Makro3() ' ' Makro3 Makro ' ' Range("J11").Select...

Como puedo seleccionar rango de datos viarables de fila y columna, sabiendo que tengo formulas en filas hasta 800 y columna hasta AG. Desde otra hoja ingreso datos y se reflejan en esta hoja los resultados. Como resultado es seleccionar el rango de...

Necesitosu ayuda en el formulario muestra inicio y fin para insertar datos en horizontal y vertical solo me faltaría hacer la cuadricula y dependerá de las filas y columnas utilizadas. Macro Private Sub CommandButton1_Click() Set h = Sheets("Blad1")...

Tengo una lista por semestres (semestre I al semestre X) de la columna L a AF, necesito copiar rango cada semestre con sus respectivas notas y pegar como muestra en la segunda imagen . Hice copiar por rango pero las filas de cada semestre es variable.

[Buenos días estoy intentando arrojar los en la columna b pero me pega todo Sub ejemplo() a = Range("A2:C" & Range("A" & Rows.Count).End(3).Row) For i = 1 To UBound(a, 1) If a(i, 1) > 40 Then a(i, 2) = "OBSERVADO" Next i Range("C2").Resize(UBound(a,...