combobox

[kike281077]

hola compañeros, soy nuevo en esto y quisiera su apoyo. Tengo una base de datos de contratistas, lo que sucede es que los mismos contratistas se repiten en varias ciudades, por decir:

estos vienen a ser desrinatarios en la guia de remision:

ciudad ruc contratistas

-------------------------------

pisco 123 GyM

chincha 123 GyM

chincha 678 CGP

pisco 678 CGP

al momento que quiero generar una guia de remision y me pide el destinatario lo quiero jalar con un combobox, pero jala solo el primero de pisco o el primero de chincha. espero sus comentarios:

LO ESTUVE HACIENDO ASI:

-----------------------------------

Private Sub ComboBox1_CLICK()

Sheets("MAESTRO").Activate

If ComboBox1 = "" Then

MsgBox "Coloca algun dato para buscar", vbOKOnly + vbInformation, "AVISO"

ComboBox1.SetFocus

Exit Sub

End If

Set RANGO = Range("O:O").Find(What:=ComboBox1, _

LookAt:=xlWhole, LookIn:=xlValues)

If RANGO Is Nothing Then

MsgBox "El dato no fue encontrado", vbOKOnly + vbInformation, "AVISO"

ComboBox1 = "": ComboBox1.SetFocus

Exit Sub

Else

TextBox4 = Range("P" & RANGO.Row)

TextBox17 = Range("Q" & RANGO.Row)

TextBox5 = Range("R" & RANGO.Row)

TextBox19 = Range("S" & RANGO.Row)

TextBox6.SetFocus

End If

End Sub

--------------------------------------------------------