Dante Amor

Te anexo la macro 2 Sub aleatorio_2() 'Por Dante Amor Dim num As New Collection On Error Resume Next fila = ActiveCell.Row ini = Columns("Q").Column 'columna inicial fin = ini + Cells(fila, "AF").Value - 1 'columna final col = Columns("AH").Column...

Bien, como vamos a poner los 6 números aleatorios utilizando una macro, entonces ya no es necesario las fórmulas que tienes en las columnas A a F, tampoco serán necesarias las fórmulas de las columnas AG a AL Pon la siguiente macro en un botón. Sub...

Estos serían los cambios En la celda h1.[h2] supongo, tienes un número de columna y lo almacenas en la variable colsem Ahora bien en esta línea de la macro, estoy suponiendo que el valor debe ir 4 columnas a la derecha del número que tienes en la...

[H o l a estimado, gracias por los elogios. Lo anterior lo puedes realizar con una tabla dinámica. Prueba lo siguiente, selecciona el rango de tus datos, en el Menú selecciona Insertar, Tabla Dinámica, Tabla Dinámica, en la ventana de "Lista de...

[H o l a Te regreso el código actualizado: Private Sub Combobox_equipo_Change() On Error Resume Next Set h = Sheets("Base de datos") If OptionButton1.Value = True Then registro = xlNext Else registro = xlPrevious End If Set b =...

Te anexo el código para agregar 2 campos nuevos Además de agregar los textbox en el formulario: Este sería el código actualizado para pasar los datos con los campos nuevos a la hoja Private Sub CommandButton1_Click() Sheets("proveedores").Activate If...

Te anexo la macro. Cambia en esta línea el 3 por la fila donde comienzan tus datos For i = 3 To Range("R" & Rows.Count).End(xlUp).Row El resultado te lo pondrá separado por guiones Sub Cantidad_Pallets() 'Por Dante Amor For i = 3 To Range("R" &...

Para qué es le Userform2, ¿para consultar? Después de crear el COD1, ¿cierras el Userform1? Puedes poner una imagen de la hoja de excel donde estás almacenado: COD1, DATO1, DATO2, DATO3, FECHA1 y NUMERO1

¿Pero el consecutivo siempre va en aumento o debe iniciar de 1 cuando cambia el mes o cuando cambia el año? O el consecutivo se debe tomar de la columna A, si es así, ejecuta la siguiente macro: Sub Consecutivo() With Range("C2:C" & Range("B" &...

Va la macro Sub Macro1() 'Rellenar celdas vacías On Error Resume Next u = Range("A" & Rows.Count).End(xlUp).Row Range("B2:B" & u).SpecialCells(xlCellTypeBlanks).Value = "NO" End Sub'.[Sal u dos. Dante Amor. No olvides valorar la respuesta. '.[Avísame...