James Bond

Este es un ejemplo adáptalo a tu macro solo cambia los range por textbox, como ves el resultado da 5 Sub fecha() inicio = CDate(Range("b2")) fin = CDate(Range("b3")) resta = Hour(CDate(((inicio - fin))) - 2) End Sub

Prueba con esta macro, cuenta los valores mayores a 0 y luego busca el valor mínimo descartando los 0 Sub busca_minimo() Set datos = Range("a1:a10") With datos cuenta = WorksheetFunction.CountIf(datos, 0) minimo = WorksheetFunction.Small(datos,...

La instrucción correcta es la siguiente: BUSCARV(D6, tabla_productos[[PRODUCTO]:[SALDO]], 4,0), de la forma que tu tienes establecida la fórmula esta busca el producto en la columna cod, por eso te sale error, con la fórmula que te propongo la...

Hay dos formas una tu macro modificada y otra una macro más corta tu eliges, en ambos casos la macro en cualquier hoja que este solo trabaja con la hoja mensual y con la hoja prim quinc. Sub Guarda_PrimQuinc() Application.ScreenUpdating = False '...

Esta macro elimina los duplicados y al final te pone un mensaje de cuantos elimino Sub cuenta() With Range("a1").CurrentRegion inicio = .Rows.Count .RemoveDuplicates Columns:=3 fin = Range("a1").CurrentRegion.Rows.Count registros = inicio - fin...

Hay dos formas una que la macro cambie las letras de la base de datos a color blanco range("x:y"). Font.colorindex=2 La otra ocultado totalmente el excel para que solo quede el formulario a la vista application.visible=false Aqui iria tu codigo, en...

¿Ya intentaste esta instrucción?, cada que cierres el libro en automático se grabara la macro sin preguntarte, solo ponla en el modulo thisworkbook de VBA Private Sub Workbook_BeforeClose(Cancel As Boolean) Workbooks("Pruebas.xlsm").Close...

Para Excel quedaria asi con esta macro Sub numerar_productos() Set datos = Range("a1").CurrentRegion With datos .Cells(1, 2) = 1 .Cells(1, 2).AutoFill Destination:=Range(.Columns(2).Address), Type:=xlFillSeries Set datos = .CurrentRegion .Sort...

Esta macro hace algo parecido, cuenta las casillas no urbanas y urbanas luego hace la división entre 5 o 10 según la condición y te da el total de personas si la cantidad no es exacta te dirá cuantas personas necesitas para completarlas. Sub...

Sin necesidad de apagar la pantalla Prueba con esta macro, copiara todo lo que este alrededor de la celda A1 a la hoja2 celda a1 sin moverse de la hoja1 Sub copiar_datos() Worksheets("hoja1"). Range("a1"). CurrentRegion. Copy Worksheets("hoja2")....