Dante Amor

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

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

Para esos casos tengo varias respuestas, en ellas encontrarás las explicaciones y las formas para resolverlo: Como borrar linea en ListBox y modificar datos linkeados a esa linea del ListBox Para dante - Buscar datos con combobox ¿Cómo eliminar...

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

Una opción es poner las validaciones en el commandbutton. Por ejemplo: Private Sub CommandButton1_Click() 'Validaciones If TextBox1.Value = "" Then MsgBox "Captura un texto en el textbox1" TextBox1.SetFocus Exit Sub End If txt1 = TextBox1.Value For i...

Te anexo la macro Sub Copiar_TD() 'Por Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") u1 = h1.Range("A" & Rows.Count).End(xlUp).Row u2 = h2.Range("B" & Rows.Count).End(xlUp).Row + 1 h1.Range("A10:F" & u1).Copy h2.Range("B" &...