Error Doble Click en una hoja de calculo
Ok Srs gracias por este año de ayuda, siendio que soy nuevo en esto me ha sido muy útil este foro... Les dejo este error que me da la hoja de calculo que me da este error... La VBA consiste que al momento de hacer doble clic en el nombre de cliente se ejecute el formulario donde de los detalles que ese cliente donde se hace doble clic el ejemplo lo vi en este video https://www.youtube.com/watch?v=B5NUyGowa_Y aqui les dejo el link del archivo donde estamos trabajando https://drive.google.com/file/d/0Bx-zCa0B8OvbenJQNzA4OXBEenc/view?usp=sharing
1 respuesta
Te anexo el código al activar le userform
Private Sub UserForm_Activate()
'Actualizado.Por.Dante Amor
ComboBox1.RowSource = "Clientes!B2:B" & Sheets("Clientes").Range("B" & Rows.Count).End(xlUp).Row
If ComboBox1.Visible = False Then
txt_codigo = Cells(ActiveCell.Row, "A")
txt_rif = Cells(ActiveCell.Row, "C")
For i = 0 To ListBox1.ListCount - 1
wtot = wtot + Val(ListBox1.List(i, 6))
Next
txt_CostoFinal = wtot
End If
End SubEl código del evento dobleclick
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(ActiveCell, Range("$B:$B")) Is Nothing Then
Application.ScreenUpdating = False
ActiveCell.Copy
Range("O2").PasteSpecial xlPasteValues
Filtrado
'ConsultaCliente.Consultar.Enabled = False
'ConsultaCliente.Consultar.Visible = False
ConsultaCliente.ComboBox1.Enabled = False
ConsultaCliente.ComboBox1.Visible = False
ConsultaCliente.ListBox1.RowSource = "TABLA_FILTRADO"
ConsultaCliente.Show
Range("$A1").Select
End If
End SubEl código del filtro
Sub Filtrado()
Columns("$A:$G").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("O1:O2"), _
CopyToRange:=Columns("$Q:$W"), Unique:=True
End SubTambién te anexo el archivo con los cambios. Tienes que dar dobleclick sobre un nombre de la columna "B".
https://www.dropbox.com/s/dd9psi0gfnhwgvk/Control%20de%20Facturas%20%2811122014%29%20dam2.xlsm?dl=0
