Juan Fer

De TE quisiera una ayuda con esta cnsulta: Qusiiera eliminar mediante una macro las columnas de una hoja que contengan una palabra especifica, es decir: "Si columna = "CONDICION" then ' "CONDICION" es la palabra que contiene la seegunda celda de la...

Necesito ayida con este código: Private Sub ListBox1_Click() For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) = True Then Set busco = ActiveSheet.Range("A:A").Find(Me.ListBox1, LookIn:=xlValues, LookAt:=xlWhole) 'selecciono la columna y...

DAM quisiera una ayuda con esta macro que facilitaste a un colega, funciona bien el detalle es que el segundo combo carga datos repetidos, ¿Sera posible adaptarlo para que también cargue datos únicos? Gracias. '***Macro*** 'Pone los valores...

Feliz 2017 a toda la comunidad... Quisiera que me ayuden con esta consulta de como poner esta fórmula en una columna especifica después de ejecutar una macro: =SI([@[F_FIN]]="","ESTADO 1",SI(HOY()>[@[F_FIN]],"ESTADO 2","ESTADO 3")) ¿Seria posible con...

Tengo el siguiente código que me permite filtrar los datos cargados a un listbox, esta parte funciona casi a la perfección, el detalle esta en que solo muestra 10 columnas y sin encabezado, se que VBA tiene esa limitación al usar el .AddItem, ¿Pero...

Private Sub ListBox1_Click() For i = 1 To ListBox1.ListCount - 1 If ListBox1.Selected(i) = True Then Set busco = ActiveSheet.Range("a:a").Find(Me.ListBox1, LookIn:=xlValues, LookAt:=xlWhole) If Not busco Is Nothing Then busco.Select End If End If...

Tengo esta consulta que quisiera que me ayude con este código: Private Sub ListBox1_Click() fila = Me.ListBox1.ListIndex + 6 For i = 1 To 33 Cells(fila, 1).Activate Next i End Sub Lo que hace esto es seleccionar toda la fila de un listbox que carga...

Quisiera ayuda con este código para poder complementarlo: Private Sub UserForm_Initialize() With ListBox1 .ColumnCount = 15 .ColumnWidths = "60 pt;60 pt;70 pt" .ColumnHeads = True End With ListBox1.RowSource = "RegistroAutoridades" End Sub Como dice...

Comunidad de TE, tengo este error que se muestra al presionar un boton que ejecuta una macro, el detalle esta en que si funciona desde la misma hoja donde se realiza el evento, pero si lo quiero ejecutar desde otra hoja me sale error, ¿Qué puede ser?

Tengo una hoja con controles (txt y chk, etc...) el caso es que el checkbox que tengo tiene la opción que si esta activo el txt visible= false, si no es visible= true: (Este código es fácil y si funciona) Private Sub CheckBox1_Change() If...