busqueda de datos de una hoja a otra

Nota: el llenado de los combos lo realizo con el siguiente codigo
Private Sub cmbClaseVehiculo_DropButtonClick()
Call cmbClaseVehiculoCargarTablas
cmbClaseVehiculo.DropDown
End Sub
y en un modulo..
Sub cmbClaseVehiculoCargarTablas()
Application.ScreenUpdating = False
Sheets("Tablas_Generales").Select
ActiveSheet.Range("g2", Range("g2").End(xlDown)).Select
rgo = Selection.Address
Sheets("Cotización").cmbCotizadorClaseVehiculo.ListFillRange = "Tablas_Generales!" & rgo
Sheets("Cotización").Select
End Sub

y se repite para cada combo.

hola, Jorge !

1) (re)creando un modelo de trabajo +/- "igual al tuyo" (o tratando de
hacerlo)
me resulta con las siguientes caracteristicas:

a) 3 hojas ("cotizacion", "tablas_generales" y "tablas_calculo")
b) en la hoja "cotizacion" tienes incrustados los siguientes controles
("cuadro de controles - ActiveX")aa

- 3 checkboxes (chbmapfre, chbgenerali, chbsolidaria)
- 1 commandbutton (btncotizar)
c) ninguno de estos tiene una "LinkedCell" (o sea, lo que el usuario
seleccione se queda "en el limbo")
d) 3 celdas para rescatar un determinado valor segun la combinacion de
los controles anterioes (i6, i8 e i9)

2) lo unico que no me "cuadro" en la exposicion que haces es el "llenado"
del combo "cmbclasevehiculo"
ya que usas un nombre diferente en el evento del control y la rutina
que llamas para llenarlo -???-
y que (mencionas) tienes "otros combos" (en otros lados que hacen otras
cosas ?)
asi que el modelo lo (re)construi SOLO con los datos "aplicables" a los
controles anteriores

prueba con los siguientes procedimientos EN el modulo de codigo de la hoja
"cotizaciones"
OJO por si existe palabras "acentuadas" o con caracteres "poco
ales" -???-
y si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Private Sub cmbclasevehiculo_DropButtonClick()
Actualiza cmbclasevehiculo, "g"
End Sub
Private Sub cmbservicio_DropButtonClick()
Actualiza cmbservicio, "i"
End Sub
Private Sub cmbtomaasistencia_DropButtonClick()
Actualiza cmbtomaasistencia, "j"
End Sub
Private Sub btncotizar_Click()
Range("i6,i8:i9").ClearContents
If LCase(cmbtomaasistencia) <> "si" Then Range("i6,i8:i9") = 0: Exit Sub
If chbmapfre Then Cotiza "i6", "mapfre"
If chbgenerali Then Cotiza "i8", "generali"
If chbsolidaria Then Cotiza "i9", "solidaria"
End Sub
Private Sub Actualiza(Control As MSForms.ComboBox, Col As String)
With Worksheets("tablas_generales")
Control.ListFillRange = _
.Name & "!" & .Range(.Range(Col & 2), .Range(Col &
2).End(xlDown)).Address
End With
End Sub
Private Sub Cotiza(Celda As String, Cia As String)
With Worksheets("tablas_calculo")
With .Range(.Range("b2"), .Range("b2").End(xlDown))
Range(Celda) = Evaluate("sumproduct(--('" & _
.Parent.Name & "'!" & .Address & "=""" & Cia & """),--('" & _
.Parent.Name & "'!" & .Offset(, 1).Address & "=""" &
cmbclasevehiculo & """),--('" & _
.Parent.Name & "'!" & .Offset(, 2).Address & "=""" & cmbservicio &
"""),'" & _
.Parent.Name & "'!" & .Offset(, 4).Address & ")")
End With
End With
End Sub

OJO: de tu codigo original expuesto en la consulta a la que estoy
contestando...
esta parte del codigo no hace referencia al mismo nombre del control
==> cmbClaseVehiculo_DropButtonClick "versus"
cmbCotizadorClaseVehiculo.ListFillRange -?????-

Nota: el llenado de los combos lo realizo con el siguiente codigo
Private Sub cmbClaseVehiculo_DropButtonClick()
Call cmbClaseVehiculoCargarTablas
cmbClaseVehiculo.DropDown
End Sub
y en un modulo..
Sub cmbClaseVehiculoCargarTablas()
Application.ScreenUpdating = False
Sheets("Tablas_Generales").Select
ActiveSheet.Range("g2", Range("g2").End(xlDown)).Select
rgo = Selection.Address
Sheets("Cotización").cmbCotizadorClaseVehiculo.ListFillRange =
"Tablas_Generales!" & rgo
Sheets("Cotización").Select
End Sub

y se repite para cada combo.

... ahora necesito hacer lo mismo para las celdas j6, j8 y j10, en el mismo boton
y la seleccion la debe hacer con los mismos chekbox y los mismos combobox
pero ahora es para otra variable de calculo asi:
tengo el combobox cmbCotizadorAP si esta en NO, j6, j8 y j10 = 0
si esta en SI, debe calcular de acuerdo a las siguientes columnas:
en la hoja "tablas calculo"
fila G Companias
fila H Clase de Vehiculo
Fila I Servicio
Fila J el valor que me debe colocar en j6, j8 y j10 respectivamente
es decir al dar click en el btncotizar, debe llenar las celdas i6 i8 i10 y la j6, j8 y j10 ...

1) (re)creando un modelo de trabajo +/- "igual al tuyo" (o tratando de hacerlo)
me resulta con las siguientes caracteristicas:

a) 3 hojas ("cotizacion", "tablas_generales" y "tablas_calculo")
b) en la hoja "cotizacion" tienes incrustados los siguientes controles ("cuadro de controles - ActiveX")

- 3 comboboxes (cmbclasevehiculo, cmbservicio, cmbtomaasistencia)

- 3 checkboxes (chbmapfre, chbgenerali, chbsolidaria)
- 1 commandbutton (btncotizar)
c) ninguno de estos tiene una "LinkedCell" (o sea, lo que el usuario seleccione se queda "en el limbo")
d) 3 celdas para rescatar un determinado valor segun la combinacion de los controles anterioes (i6, i8 e i9)

2) lo unico que no me "cuadro" en la exposicion que haces es el "llenado" del combo "cmbclasevehiculo"
ya que usas un nombre diferente en el evento del control y la rutina que llamas para llenarlo -???-
y que (mencionas) tienes "otros combos" (en otros lados que hacen otras cosas ?)
asi que el modelo lo (re)construi SOLO con los datos "aplicables" a los controles anteriores

prueba con los siguientes procedimientos EN el modulo de codigo de la hoja "cotizaciones"
OJO por si existen palabras "acentuadas" o con caracteres "poco generales" -???- ...

Private Sub cmbclasevehiculo_DropButtonClick()
Actualiza cmbclasevehiculo, "g"
End Sub
Private Sub cmbservicio_DropButtonClick()
Actualiza cmbservicio, "i"
End Sub
Private Sub cmbtomaasistencia_DropButtonClick()
Actualiza cmbtomaasistencia, "j"
End Sub
Private Sub btncotizar_Click()
Range("i6,i8:i9").ClearContents
If LCase(cmbtomaasistencia) <> "si" Then Range("i6,i8:i9") = 0: Exit Sub
If chbmapfre Then Cotiza "i6", "mapfre"
If chbgenerali Then Cotiza "i8", "generali"
If chbsolidaria Then Cotiza "i9", "solidaria"
End Sub
Private Sub Actualiza(Control As MSForms.ComboBox, Col As String)
With Worksheets("tablas_generales")
Control.ListFillRange = _
.Name & "!" & .Range(.Range(Col & 2), .Range(Col & 2).End(xlDown)).Address
End With
End Sub
Private Sub Cotiza(Celda As String, Cia As String)
With Worksheets("tablas_calculo")
With .Range(.Range("b2"), .Range("b2").End(xlDown))
Range(Celda) = Evaluate("sumproduct(--('" & _
.Parent.Name & "'!" & .Address & "=""" & Cia & """),--('" & _
.Parent.Name & "'!" & .Offset(, 1).Address & "=""" & cmbclasevehiculo & """),--('" & _
.Parent.Name & "'!" & .Offset(, 2).Address & "=""" & cmbservicio & """),'" & _
.Parent.Name & "'!" & .Offset(, 4).Address & ")")
End With
End With
End Sub

hola, Jorge !

- antes eran las filas 6, 8 y 9 y ahora las filas 6, 8 y 10 -???-

- cuales son las diferencias entre las columnas B,C,D y F en relacion con
las columnas G,H,I y J -???-
antes la hoja "tablas_calculo" tenia en las columnas B,C,D,F (companias,
clase, servicio, valor)
ahora comentas que las columnas (y la misma hoja) G,H,I y J tienen los
mismos titulos -???-
(te recuerdo que no me fue posible (re)construir un modelo completo (y
exactamente) "igual al tuyo") -?-

(creo que hay bastantes detalles "aun en el tintero")
saludos,
hector.

__ OP __

... ahora necesito hacer lo mismo para las celdas j6, j8 y j10, en el
mismo boton
y la seleccion la debe hacer con los mismos chekbox y los mismos combobox
pero ahora es para otra variable de calculo asi:
tengo el combobox cmbCotizadorAP si esta en NO, j6, j8 y j10 = 0
si esta en SI, debe calcular de acuerdo a las siguientes columnas:
en la hoja "tablas calculo"
fila G Companias
fila H Clase de Vehiculo
Fila I Servicio
Fila J el valor que me debe colocar en j6, j8 y j10 respectivamente
es decir al dar click en el btncotizar, debe llenar las celdas i6 i8 i10
y la j6, j8 y j10 ...

__ previos __

1) (re)creando un modelo de trabajo +/- "igual al tuyo" (o tratando de
hacerlo)
me resulta con las siguientes caracteristicas:

a) 3 hojas ("cotizacion", "tablas_generales" y "tablas_calculo")
b) en la hoja "cotizacion" tienes incrustados los siguientes
controles ("cuadro de controles - ActiveX")

- 3 comboboxes (cmbclasevehiculo, cmbservicio, cmbtomaasistencia)

- 3 checkboxes (chbmapfre, chbgenerali, chbsolidaria)
- 1 commandbutton (btncotizar)
c) ninguno de estos tiene una "LinkedCell" (o sea, lo que el usuario
seleccione se queda "en el limbo")
d) 3 celdas para rescatar un determinado valor segun la combinacion
de los controles anterioes (i6, i8 e i9)

2) lo unico que no me "cuadro" en la exposicion que haces es el
"llenado" del combo "cmbclasevehiculo"
ya que usas un nombre diferente en el evento del control y la rutina
que llamas para llenarlo -???-
y que (mencionas) tienes "otros combos" (en otros lados que hacen
otras cosas ?)
asi que el modelo lo (re)construi SOLO con los datos "aplicables" a
los controles anteriores

prueba con los siguientes procedimientos EN el modulo de codigo de la
hoja "cotizaciones"
OJO por si existen palabras "acentuadas" o con caracteres "poco
generales" -???- ...

Private Sub cmbclasevehiculo_DropButtonClick()
Actualiza cmbclasevehiculo, "g"
End Sub
Private Sub cmbservicio_DropButtonClick()
Actualiza cmbservicio, "i"
End Sub
Private Sub cmbtomaasistencia_DropButtonClick()
Actualiza cmbtomaasistencia, "j"
End Sub
Private Sub btncotizar_Click()
Range("i6,i8:i9").ClearContents
If LCase(cmbtomaasistencia) <> "si" Then Range("i6,i8:i9") = 0: Exit
Sub
If chbmapfre Then Cotiza "i6", "mapfre"
If chbgenerali Then Cotiza "i8", "generali"
If chbsolidaria Then Cotiza "i9", "solidaria"
End Sub
Private Sub Actualiza(Control As MSForms.ComboBox, Col As String)
With Worksheets("tablas_generales")
Control.ListFillRange = _
.Name & "!" & .Range(.Range(Col & 2), .Range(Col &
2).End(xlDown)).Address
End With
End Sub
Private Sub Cotiza(Celda As String, Cia As String)
With Worksheets("tablas_calculo")
With .Range(.Range("b2"), .Range("b2").End(xlDown))
Range(Celda) = Evaluate("sumproduct(--('" & _
.Parent.Name & "'!" & .Address & "=""" & Cia & """),--('" & _
.Parent.Name & "'!" & .Offset(, 1).Address & "=""" &
cmbclasevehiculo & """),--('" & _
.Parent.Name & "'!" & .Offset(, 2).Address & "=""" & cmbservicio
& """),'" & _
.Parent.Name & "'!" & .Offset(, 4).Address & ")")
End With
End With
End Sub

-. la diferencia es que en la primera exposicion... existia la cobertura de asistencia
y ahora me piden que le adicione otra cobertura llamada accidentes personales..
... B,C,D y F tienen los datos de asistencia y en G,H,I y J, los datos de accidentes..
... (esto lo hice después de realizar la consulta) comparando las columnas BCD con GHI
tienen los mismos datos por lo que podría obviar G,H e I
y en la columna G colocar los precios de accidentes personales (la nueva cobertura)
y tomar las variables de combinación de las columnas BCD
si el usuario elige en el cmbCotizadorAP = NO, los valores para j6, j8 y j10 = 0
si elige SI debe hacer la misma combinación para la columna I (de la exposición anterior)
pero colocar el valor de la columna G en las celdas j6, j8 y j10 ...