Dante Amor

Revisa: Macro para enviar hoja excel por gmail Macro en access o Excel para Enviar Correos con Archivos a Varias Personas desde Gmail

¿Y de todos los registros que tienes en la hoja inventario debe restar?

Private Sub CommandButton1_Click() ActiveSheet.CommandButton1.BackColor = vbBlack End Sub Y cómo lo regresas a blanco? Sería mejor si tienes ToggleButton. Algo como esto: Para eso son. Puedes apagar y prender. Entonces las combinaciones serían:...

Las opciones que conozco en VBA, son abrir el archivo, actualizar el archivo, guardar el archivo y cerrar el archivo. Con el apagado de la pantalla, no se percibe que el libro se abra y se cierre. En VBA puedes leer datos de un libro cerrado. Pero...

Las fórmulas se calculan TODAS en automático, la única manera de "detenerlas" es cambiando el cálculo de fórmulas a Manual Si tienes muchas fórmulas y agregas otra fórmula para verificar la fórmula de otra celda, ahora tendrás el doble de fórmulas....

Prueba lo siguiente: Sub Filtrar() Dim h As Worksheet Dim b As Range Dim fecha As Date ' Set h = Sheets("Hoja1") If h.AutoFilterMode Then h.AutoFilterMode = False fecha = CDate(h.[F1]) With h.Range("A:D") Set b = .Find(fecha, , xlValues, xlWhole) If...

Prueba así: Sub test() Dim MiMatriz As Variant Dim lr As Long ' Worksheets("Clientes").Activate lr = Range("O" & Rows.Count).End(3).Row If Range("O1").Value = "N° Cod" Then 'Poner aquí el valor del encabezado MiMatriz = Range("O2:O" & lr).Value Else...

Cambia la línea: h2.Range("H" & u) = h1.Range("H" & i) Por esta: h1.Range("H" & i).copy h2.Range("H" & u)

lr = .Range("A" & Rows.Count).End(3).Row + 1 Esa instrucción es para buscar la última fila con datos de la columna "A" en la hoja6. Revisa en la hoja6 en la columna A, que no haya datos abajo del encabezado, o celdas con fórmulas o celdas con...

Puedes poner una imagen de tu hoja1. ¿Cómo identificas entre rango y rango de celdas a copiar?