Dante Amor

Aquí otra macro para ti para tu consideración: Sub Test() Sheets("BD").Rows(2).Insert Sheets("BD").[A2].Resize(1, 3).Value = Array(Sheets("REGISTRO").[B4], Sheets("REGISTRO").[B6], Sheets("REGISTRO").[B8]) End Sub

Otra opción con una fórmula normal: =si(esnumero(hallar(b2,c2&f2&h2)),0,1)+si(esnumero(hallar(c2,f2&h2)),0,1)+si(esnumero(hallar(f2,h2)),0,1)+1

En esta parte ListBox1. AddItem Cells(fila, columna - (columna - 1)) Te faltó hacer referencia a la hoja, solamente falta el punto: ListBox1. AddItem .Cells(fila, columna - (columna - 1)) Hice algunos ajustes a tu código. Eliminé el uso de algunas...

Prueba lo siguiente: Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim Pregunta As Variant Pregunta = MsgBox("Deseas Eliminar Hoja Global?", vbYesNoCancel + vbInformation, "Advertencia") Select Case Pregunta Case Is = vbYes MsgBox "Presionaste...

Prueba esto: Selecciona las celdas A1 a A7 Fórmula: =A1<>A11

Prueba lo siguiente, no es necesario seleccionar la hoja "Listados" Private Sub CBoxEstado_Change() CBoxCiudad.Clear If CBoxEstado = "" Or CBoxEstado.ListIndex = -1 Then Exit Sub With Sheets("Listados") CBoxCiudad.List = .Range(.Cells(2,...

Prueba lo siguiente: Sub sum_ref() Dim lr As Long, f As Range lr = Sheets("Cartera").Range("C" & Rows.Count).End(xlUp).Row Set f = Sheets("Clientes").Range("C:C").Find(Sheets("Visitas").Range("C7"), , xlValues, xlWhole) If Not f Is Nothing Then...

Suponiendo lo siguiente: - La segunda hoja se llama "Hoja2" - Las identificaciones están en la columna "A" - El combo se llama combobox1, el listbox se llama listbox1. - Te pongo 4 columnas de ejemplo para cargar en el listbox (B, C, D y E) Private...

Puedes agregar cada hora con el método AddItem. Al momento de agregar utilizas el formato de hora que desees. Private Sub UserForm_Initialize() Dim c As Range COMBUSTIBLE.List = Worksheets("BD").Range("Tabla2").Value 'HORA.List =...

Si en la celda tiene el valor VERDADERO, entonces debes utilizarlo como VERDADERO, sin las comillas. Por ejemplo: =SI(A1=VERDADERO,1,0) O también: =SI(A1,1,0) Si preguntas por la celda y la celda es verdadera entonces el resultado es verdadero, en...