Dante Amor

Te anexo una macro Pon tus 8500 filas en la "Hoja1", en esta hoja el barcode deberá estar en la columna A En la "Hoja2", en la columna A, pon los 1500 barcode Ejecuta la siguiente macro Sub Copiar_Barcode() 'Por.Dante Amor Application.ScreenUpdating...

Todo depende de cómo tienes los bancos y las cuentas en tu hoja. En este ejemplo, en la hoja "Bancos", los bancos están en la columna A y las cuentas en la columna B: Tienes que cargar los bancos en el combo1 en el evento Activate, y en el evento...

'En el evento click del listbox, puedes obtener los datos del registro seleccionado Por ejemplo, para almacenarlos en variables: Private Sub ListBox1_Click() 'con la propiedad listindex sabes cuál fila seleccionaste nom_ape =...

Te faltó poner la hoja y una letra "d" en Enabled Sub Bloqueo2() If Hoja1.Range("G3").Value = TimeValue("00:00:00") Then Hoja1.OptionButton1.Enabled = False End If End Sub . 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias . Avísame...

Puede ser así: Private Sub CommandButton1_Click() TextBox3 = TextBox1 & Format(TextBox2, "00000") End Sub . 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias . Avísame cualquier duda .

Pon el siguiente código en los eventos de tu libro Private Sub Workbook_Open() 'Por.Dante Amor Set h = Sheets("Hoja1") Set b = h.Columns("A").Find(Date, lookat:=xlWhole) If Not b Is Nothing Then h.Select b.Offset(0, 1).Select End If End Sub . 'S...

Te anexo la macro actualizada Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'Act.Por.Dante Amor If Not Intersect(Target, Columns("A")) Is Nothing Then If Target.Value = "" Then Exit Sub Set h1 = ActiveSheet Set h2...

Prueba con lo siguiente: Private Sub Workbook_Open() ' Application.ScreenUpdating = False Application.DisplayAlerts = False ThisWorkbook. RefreshAll ' 'Espera un minuto DoEvents Application. Wait Now + TimeValue("00:01:00") DoEvents ' Sheets. Copy...

Revisa el siguiente vídeo para utilizar la función BuscarV https://www.youtube.com/watch?v=_WxfHXzQxLU&t=37s Con la función obtienes la cantidad, ya con ese valor se lo puedes restar a la existencia Prueba y me comentas

Realiza las siguientes pruebas: Ya estás convirtiendo en fecha el textbox FechaEntrega, ya no debe ser necesario darle formato Range("A12") = CDate(form_AltaConductor.FechaENTREGA) Prueba y me comentas . 'S aludos. Dante Amor. Recuerda valorar la...