Dante Amor

Pon la siguiente macro en los eventos de tu libro Private Sub Workbook_Open() 'Por Dante Amor 'Verifica la fecha de vencimiento ' Set h = Sheets("Hoja1") For i = 2 To h.Range("D" & Rows.Count).End(xlUp).Row If h.Cells(i, "E").Value - h.Cells(i,...

Puedes poner un par de imágenes explicando lo que necesitas. En la primera imagen pon tus datos originales, en la segunda imagen pon el resultado esperado. Explica con los datos de la imagen qué datos deben ser ordenado o eliminados. Nota: Para poner...

Como te había comentado el código se hace un poco más complejo al tener celdas combinadas. Sería más práctico si utilizas tu base de esta forma: Normalmente así es como se trabaja con una base de datos, de esa forma es más práctico, crear, insertar...

Por ejemplo, si pones los números en la "hoja3", en la columna "A", como se muestra en la imagen: Entonces el ciclo debe empezar en la fila 2 y termina en la última fila con datos de la columna A, el código sería así: Sub Imprimir_Hojas() For i = 2...

Puede ser así Private Sub cmdevie_Click() codigo = 1011000 Set h = Sheets("ID_Usuario") Do While True Set a = h.Columns("A").Find(codigo, LookIn:=xlValues, lookat:=xlWhole) If a Is Nothing Then MsgBox "ID disponible = " & codigo Exit Do End If codigo...

Haber si es lo que necesitas Después de esta línea: .RowSource = h2.Name & "!A2:" & col & u2 Pon esta línea h2.range("A1:" & col & u2).copy . Con eso estás copiando el rango de celdas filtradas, ya lo tienes copiado en memoria, ya lo puedes pegar,...

Te anexo el código para el siguiente y también para el anterior Private Sub CommandButton1_Click() 'SIGUIENTE n = 1 RowPos = ActiveCell.Row Do While True If ActiveCell.Offset(n, 0).EntireRow.Hidden = False Then If IsEmpty(ActiveCell.Offset(n, 0))...

Te anexo la macro Sub Copiar_Celdas() u = Range("B" & Rows.Count).End(xlUp).Row If u > 6 Then Range("AM6:AP6").Copy Range("AM7:AP" & u) End If End Sub sal u dos

Revisa lo siguiente y comentas Sub Actualizar() Dim ultLinea As Long, u As Long, ultLineaDatos As Long Dim codigo As String, cantidad As Long, movimiento As String Dim posicion As String, ordenpicking As String Dim busquedaFilaDatos As Range Dim...

Si quieres revisar un rango de números, y quieres saber cuántos son pares, por ejemplo: Sub Contar_Pares() Set rango = Range("B3:B9") 'rango de celdas con números For Each numero In rango If WorksheetFunction.IsEven(numero) Then contar = contar + 1...