Adriel Ortiz Mangia

>Prueba esto Private Sub CommandButton_aceptar_Click() '>Adriel Ortiz ' Set h = Sheets("Datos") ' dni = Val(TextBox_dni) Set col = h.Columns("A") Set b = col.Find(dni, lookat:=xlWhole) ' If Not b Is Nothing Then MsgBox "En dni ya existe" Exit Sub...

[hola Si los nombres de los combox son correlativos Private Sub ComboBox8_Change() Dim i As Long Select Case ComboBox8.Text Case "12x6´" ComboBox5.Visible = True For i = 10 To 50 Me.Controls("ComboBox" & i).Visible = False Next i Case "12x7´"...

Cambia xlpart por xlwhole

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,...

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...

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 hojas de resultados y necesito extraer cuantos puntos tiene comparando con las alternativas correctas de la 2da fila. Yo lo hice con contar. Si pero necesito minimizar el trabajo en sacar el resultado directamente.

¿Será para colorear? Macro Sub colorxcondicion1() Columns("E").Interior.ColorIndex = xlNone For i = 2 To Range("E" & Rows.Count).End(xlUp).Row If Cells(i, "H") = 9 Then Cells(i, "E").Interior.ColorIndex = 6 Next i MsgBox "Terminado" End Sub