Eliminar filas escogidas en un combobox

hola Dario,

...al presionar un botón llamado guardar, se eliminen de la hoja
FhichaTécnica, la(s) fila(s) seleccionadas en el combobox Productos?

La primera fila es de títulos.
Los códigos (productos) pueden repetirse en la hoja FichaTécnica y no están
en orden correlativo.

=>como requisito previo =>

.-> suponiendo que cargas el combo con 'List' y con todos los
registros de la hoja [como creo recordar del otro hilo],

.-> y que no realizas modificaciones en el orden y/o cantidad de
elementos de la hoja entre la ultima carga del combo y la pulsacion
del boton

a) si 'solo' quisieses eliminar la fila del producto seleccionado en
el combo te bastaria con algo tipo =>

worksheets("FichaTécnica").rows(tuCombobox.listindex + 2).delete

b) pero como incluyes un/os plural/es, y dado que, si no recuerdo mal,
los combobox de vba no tienen la propiedad multiselect, unido a que
comentas que los codigos pueden estar duplicados en la hoja, creo que
=>

una posible solucion seria cargar en algun sitio el nº de fila de cada
elemento segun cargues cada textbox (pej. en el Tag de cada textbox, o
en una matriz, o en ...) y recorrelo con un bucle al pulsar el boton,
eliminando las filas correspondientes.

aunque OJO, como los textbox no tendrian que cargarse necesariamente
en un orden 'creciente' (en lo que a nº de fila se refiere), antes de
proceder a la eliminacion deberias asegurarte de que esta se hace en
orden inverso, es decir del nº de fila mas alto al mas bajo, para lo
que deberias usar alguna forma de ordenacion previa o durante el bucle

pej., suponiendo que has ido cargando en el tag de cada textbox
el .listindex del combo con cada producto cargado, pej. con algo
parecido a esto dentro del mismo bucle que carga los textbox =>

Me.Controls("TextBox" & n).Tag = ComboBox1.ListIndex

puedes poner esto en el boton (pero OJO, deberias borrar los textbox,
o al menos el tag, cada vez que elimines las filas (tambien deberias
actualizar el combo))

Private Sub CommandButton1_Click()
Dim f As Long, max As Long, cont As Byte, n As Byte
max = ComboBox1.ListCount
cont = 0
Do
f = -1
For n = 1 To 7
With Me.Controls("TextBox" & n)
If .Tag > f And .Tag < max Then _
f = .Tag
End With
Next
If f > -1 Then Worksheets("FichaTécnica").Rows(f + 2).Delete
max = f
Loop Until max = -1
borrarTxts
cargarCombo ComboBox1, "FichaTécnica"
End Sub

' Para borrar los textbox
'
Sub borrarTxts()
Dim n As Byte
For n = 1 To 7
With Me.Controls("TextBox" & n)
.Text = ""
.Tag = ""
End With
Next
End Sub

' Para volver a cargar el combo
'
Sub cargarCombo(ByRef combo As ComboBox, ByVal hj As String)
Dim rng As Range
Set rng = Worksheets(hj).[a1].CurrentRegion
With combo
.Clear
.List = rng.Offset(1).Resize(rng.Rows.Count - 1, _
rng.Columns.Count).Value
End With
Set rng = Nothing
End Sub

OJO: en los ej. el combo se llama CombBox1

puedes inhabilitar el refresco de pantella (application.screenUpdating
= false) al principio del procedimiento del boton y habilitarlo al
final, aunque con 7 filas solo tampoco creo que se note mucho

lo dicho, solo alguna posibilidad

espero te ayude

Un saludo
Ivan

hola de nuevo,

cambia el codigo del boton y de cargar el combo por estos otros =>

' en este, aunque el de antes funcionaba igual, se habia
' quedado algo de chatarra, aparte de un par de detalles
' que ahora [a mi] me gustan mas
'
Private Sub CommandButton1_Click()
Dim f As Long, max As Long, n As Byte
max = ComboBox1.ListCount
Do
f = -1
For n = 1 To 7
With Me.Controls("TextBox" & n)
If .Tag > f And .Tag < max Then _
f = .Tag
End With
Next
If f = -1 Then Exit Do
Worksheets(nombreHoja).Rows(f + 2).Delete
max = f
Loop
borrarTxts
cargarCombo ComboBox1, nombreHoja
End Sub

' en este se previene que no queden mas filas en la hoja
'
Sub cargarCombo(ByRef combo As ComboBox, ByVal hj As String)
Dim rng As Range
Set rng = Worksheets(hj).[a1].CurrentRegion
With combo
.Clear
If rng.Rows.Count > 1 Then _
.List = rng.Offset(1).Resize(rng.Rows.Count - 1, _
rng.Columns.Count).Value
End With
Set rng = Nothing
End Sub

un saludo
Ivan

Hola, Ivan!
Me dió:
Error de compilación
y marca el código:
borrarTxts

Por cierto el código para volver a cargar el combobox? supongo que debo
dejar mi código para cargar el combobox, es decir no eliminar mi código
UserForm nitialize()
... Yo entiendo que tu código es para cargar el combobox cada vez que haga
click.

Gracias por tu ayuda!

Darío




"Ivan" escribió:

hola de nuevo,

cambia el codigo del boton y de cargar el combo por estos otros =>

' en este, aunque el de antes funcionaba igual, se habia
' quedado algo de chatarra, aparte de un par de detalles
' que ahora [a mi] me gustan mas
'
Private Sub CommandButton1_Click()
Dim f As Long, max As Long, n As Byte
max = ComboBox1.ListCount
Do
f = -1
For n = 1 To 7
With Me.Controls("TextBox" & n)
If .Tag > f And .Tag < max Then _
f = .Tag
End With
Next
If f = -1 Then Exit Do
Worksheets(nombreHoja).Rows(f + 2).Delete
max = f
Loop
borrarTxts
cargarCombo ComboBox1, nombreHoja
End Sub

' en este se previene que no queden mas filas en la hoja
'
Sub cargarCombo(ByRef combo As ComboBox, ByVal hj As String)
Dim rng As Range
Set rng = Worksheets(hj).[a1].CurrentRegion
With combo
.Clear
If rng.Rows.Count > 1 Then _
.List = rng.Offset(1).Resize(rng.Rows.Count - 1, _
rng.Columns.Count).Value
End With
Set rng = Nothing
End Sub

un saludo
Ivan

Hola otra vez,
No sería másfácil vincular siete celdas de una hoja de cálculo con los siete
textbox indicándole que para cada cambio en los texbox inserte el número de
línea del combobox? y luego ordenar las celdas y luego eliminar las filas de
mayor a menor?

Darío

"Ivan" escribió:

hola de nuevo,

cambia el codigo del boton y de cargar el combo por estos otros =>

' en este, aunque el de antes funcionaba igual, se habia
' quedado algo de chatarra, aparte de un par de detalles
' que ahora [a mi] me gustan mas
'
Private Sub CommandButton1_Click()
Dim f As Long, max As Long, n As Byte
max = ComboBox1.ListCount
Do
f = -1
For n = 1 To 7
With Me.Controls("TextBox" & n)
If .Tag > f And .Tag < max Then _
f = .Tag
End With
Next
If f = -1 Then Exit Do
Worksheets(nombreHoja).Rows(f + 2).Delete
max = f
Loop
borrarTxts
cargarCombo ComboBox1, nombreHoja
End Sub

' en este se previene que no queden mas filas en la hoja
'
Sub cargarCombo(ByRef combo As ComboBox, ByVal hj As String)
Dim rng As Range
Set rng = Worksheets(hj).[a1].CurrentRegion
With combo
.Clear
If rng.Rows.Count > 1 Then _
.List = rng.Offset(1).Resize(rng.Rows.Count - 1, _
rng.Columns.Count).Value
End With
Set rng = Nothing
End Sub

un saludo
Ivan

hola Dario, te contesto por aqui a los dos mensajes. Lo 1º el ultimo=>

No sería másfácil vincular siete celdas de una hoja de cálculo con los siete
textbox indicándole que para cada cambio en los texbox inserte el número de
línea del combobox? y luego ordenar las celdas y luego eliminar las filas de
mayor a menor?

es una posibilidad, pero con algun que otro condicionante. Pej: =>

.-> tendrias que:

a) o bien usar una hoja diferente,
b) o usar un rango de celdas 'por debajo' de tu lista,
c) o eliminar solo las celdas de la fila que te interesen [no la fila
entera]
d) o usar cualquier otra forma de evitar 'superposicion' de rangos/
filas

de no ser asi, corres el riesgo de que una de las filas eliminadas
incluya alguna de las celdas vinculadas, con lo que podria suceder que
la fila incluida en dicha celda no se eliminase

por otro lado, y salvo que quieras darle un uso diferente al Tag de
los textbox, no tengo muy claro que fuese mas 'eficiente'. Incluso con
el uso de este (y salvo que usases una hoja aparte), te evitas riesgos/
tareas innecesarios en el caso de que la hoja contenga algun otro tipo
de elementos, tipo formulas, formatos, etc

. Aunque en cualquiera de los casos, para ese volumen de trabajo (7
texts, 7 filas, 7 etc...) no creo que la diferencia sea muy apreciable


en cuanto al otro mensaje =>

Hola, Ivan!
Me dió:
Error de compilación
y marca el código:
borrarTxts

a mi me funciona perfectamente =>

.-> asegurate de que estas copiando todos los elementos exactamente
como estan en el mensaje, y cambia solo lo que pueda referirse a
nombre de la hoja, del combo, etc.

.-> asegurate tambien de que no hay procedimientos REPETIDOS. Es
decir, no puede haber 2 procedimientos llamados igual

.-> aunque si lo copias tal cual esta en un nuevo formulario con el
modulo en blanco (y claro, una vez insertados los controles >textBox1,
2, .., 7, ComboBox1 y CommandButton1>) no deberia darte problemas,
echale un ojo a lo que te comentaba en el otro hilo sobre los
procedimientos y las instrucciones en un modulo

.-> revisa los codigo e intenta analizarlos con la ayuda de F1 <que
ayuda mas de lo que parece>

Por cierto el código para volver a cargar el combobox? supongo que debo
dejar mi código para cargar el combobox, es decir no eliminar mi código
UserForm nitialize()
... Yo entiendo que tu código es para cargar el combobox cada vez que haga
click.

[te comento mi parecer, aunque, por lo que despues te comento, en este
caso no haria falta 'recargar' el combo, es tan solo una forma entre
otras,]

.-> en realidad dicho codigo lo podrias usar tambien para la carga
inicial, Y en todas y cada una de las ocasiones en que A TI te
interese actualizar el contenido del combo

.-> lo que debes de tener claro es que lo que llamas 'tu codigo
UserForm nitialize() ', no tiene nada que ver con la carga del combo
en si mismo.

dicho 'Procedimiento' es un tipo de procedimiento de los admitidos por
VBa, que a grosso modo podriamos resumir en tres tipos: procedimientos
Sub, procedimientos Function y procedimientos Property

.-> un tipo de procedimiento especial [aunque reamente sean Sub]
serian los procedimientos de evento, que por decirlo en plan simple,
son procedimientos que se 'disparan/ejecutan' como reaccion a alguna
accion sobre un objeto. Estas acciones pueden ser de varios tipos,
pero para no liarte dejemoslo en las mas evidentes:=>

.-> hacer click sobre un form/control (dispara el evento Click de
dicho control),
,-> pulsar una tecla cuando un form/control tiene el foco dispara una
sucesion de eventos para dicho control >KeyDown, KeyPress, KeyUp ...<
.-> cambia el contenido de una celda de una hoja de calculo dispara el
evento Change de esa hoja de calculo
.-> cambiar el contenido de un textbox dispara el evento Change del
textbox
.-> cargar un Userform en memoria (es decir, crearlo y/o mostrarlo por
1ª vez) dispara, entre otros el evento Initialice

bueno, hay muchos mas, y en generl conviene tener lo mas claro posible
cuando y en que orden se disparan antes de utilizarlos, si no que
remos llevarnos mas de una sorpresa (usa lo mas que puedas F1).

Todos estos ejemplos vienen predefinidos por la aplicacion, es decir,
tu no tienes que crearlo, sencillamente te limitas a utilizar el que
mas te interese para realizar una accion aprovechando que sabes en que
momento se ha de disparar determinado evento. (NOTA: tambien podemos
crear nuestros propios eventos, pero esa es otra historia])

en tu caso estas aprovechando el evento Initialice del formulario,
para, entre otras cosas, cargar el contenido del combo al crear el
formulario. [dicho evento es uno de los varios que dicho objeto
'Expone']

en este caso podrias sustituir el 'FRAGMENTO' de codigo con el que
cargas el combo por el uso del procedimiento 'cargarCombo', que al fin
y al cabo hace exactamente lo mismo pero usando un mismo procedimiento
cada vez que quieras volver a cargar el combo, en lugar de tener que
repetir un codigo basicamente identico cada vez que quieras hacerlo
(recuerda que en este caso el procedimiento lleva dos parametros a los
que le tienes que pasar como argumentos el propio combo y el nombre de
la hoja)

pero ten en cuenta que, tanto si usas dicho procedimiento, como si
usas el codigo que tenias, este debe de ir 'DENTRO' de alguno de los
tipos de procedimientos comentados (en el caso de 'cargarCombo', lo
que haces es solamente LLAMARLO desde dentro de ese otro procedimiento
<Initialice en este caso>), y en si mismos no lo sustituyen, sino que
las acciones que conlleva se ejecutaran cuando se ejecute dicho
procedimiento.

bueno, lo mismo te he hecho la picha un lio, que se dice por aqui,
pero para que al menos te suene. Lo suyo es seguir insistiendo y
practicando. Y recurrir sin miedo a F1. Al final se acaba entendiendo
y haciendose imprescindible

un saludo
Ivan