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

[Hej Prueba la macro Sub generar_txt() 'Adriel Ortiz ruta = ThisWorkbook.Path & "\" & "nombre_archivo.txt" ' fin = Range("X" & Rows.Count).End(xlUp).Row Open ruta For Output As #1 For i = 2 To fin Print #1, Cells(i, "X").Value Next Close #1 MsgBox...

[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´"...

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

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

Inserta un módulo y pegas el código que está en la página y listo Link https://www.elblogdeluisreyes.com/2019/08/macro-para-pasar-de-numeros-letras-vba.html?m=1

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

Las columnas en el listbox inicia de 0, entonces la cuarta columna ListAuditoresInterlocutores.ColumnWidths = "0 pt;0 pt;0 pt;0 pt;20 pt;0 pt;0 pt;0 pt"