Victor Rodriguez

Así de principio se me ocurre que hagas una copia de la BBDD actual en otra hoja, entonces, en la copia utilizas una columna que compare la misma celda de las dos hojas así =SI(hoja1!A1=hoja2!A1;0;1) De este modo, si no hay ningún cambio, todo serán...

a) If Not Intersect(Target, Range("B:C")) Is Nothing Then b) If Not Intersect(Target, Range("A10:C30")) Is Nothing Then c) If (Not Intersect(Target, Range("A10:C30")) Is Nothing OR Not Intersect(Target, Range("A50:C70")) Is Nothing OR Not...

El tema de las listas dependientes y como gestionarlo mediante la función INDIRECTO está detallado en el siguiente enlace https://exceltotal.com/listas-dependientes/

A ver que excel se adapta mejor a tus necesidades de control de stocks de los que se ofrecen por internet como por ejemplo: https://aplicaexcelcontable.com/blog/plantillas-excel-control-de-stock.html...

Para poder realizar lo que propones, en N4 tendrías que poner la siguiente fórmula: =BUSCARH(M4;$T$5:$Y$14;11;FALSO) y arrastrar hasta N8 Asimismo, en T15 deberás poner =T4 y arrastrar a la derecha hasta la columna Y

Para poder realizar lo que pides, deberás poner el siguiente código en la hoja en la cual tienes los datos Private Sub Worksheet_Change(ByVal Target As Range) Dim Rng As Range With Sheets("Hoja1").Range("H4:H23") Set Rng = .Find(What:="No", _...

¿Puedes poner el código? La solución será cambiar donde ponga sabe por saveas o savecopyas

Para solucionar tu problema, pon esta línea al principio del código Application.ScreenUpdating = False y esta otra al final Application.ScreenUpdating = True

Esta macro te servirá Sub control() Dim ultlinea As Integer Dim ayer As Date Dim hoy As Date Dim lineas As Integer hoy = Format(Now(), "dd/mm/yyyy") ultlinea = Sheets("Datos").Range("A" & Rows.Count).End(xlUp).Row Sheets("Aux").Range("A1").Value =...

Esta macro te srevirá Sub nombres() Sheets("Hoja1").Range("A3").Select m = 3 Do b = 1 j = ActiveCell.Offset(0, 1).Value For i = 1 To j Number = ActiveCell.Value Sheets("Hoja1").Range("D" & m) = Number & "_" & b Sheets("Hoja1").Range("E" & m) = 1 b =...