Pesquisa UserForm buscando dados de duas planilhas

FabricioVianaCas · 15 de setembro de 2014

Prezados Colegas,

Estou com um problema.

Tenho um Userform que alimenta duas planilhas. Na primeira, os dados estão dispostos em colunas e, na segunda, em linhas. No entanto, criei uma concatenação para que em ambas as planilhas, eu tenha uma referência identica.

Ao criar os comandos de pesquisa, verifiquei que, ao buscar dados da planilha com informações dispostas em linhas, veio linha adicional não pertencente ao rol de registros identicos da coluna concatenada. Vou postar aqui o código de pesquisa. Se alguém puder me ajudar.

    'Ativar a planilha para cadastro
    ThisWorkbook.Worksheets("BDDISPENSA").Activate
    'Verificar se foi digitado o nº da Notificação
    If ComboBox1.Text = "" Then
    MsgBox "INFORME O FORNECEDOR / PROCESSO ADMINISTRATIVO / SECRETARIA DEMANDANTE"
    ComboBox1.SetFocus
    End If
    With Worksheets("BDDISPENSA").Range("B:B") *(1ª Planilha - dados em colunas)
    Set c = .Find(ComboBox1.Value, LookIn:=xlValues, LookAt:=xlPart)
    If Not c Is Nothing Then
    c.Activate
    ComboBox1.Value = c.Value
    ComboBox2.Value = c.Offset(0, 11).Value
    TextBox01.Value = c.Offset(0, 12).Value
    TextBox02.Value = c.Offset(0, 13).Value
    TextBox03.Value = c.Offset(0, 14).Value
    TextBox04.Value = c.Offset(0, 15).Value
    TextBox05.Value = c.Offset(0, 16).Value
    ComboBox3.Value = c.Offset(0, 17).Value
    TextBox06.Value = c.Offset(0, 18).Value
    ComboBox4.Value = c.Offset(0, 19).Value
    TextBox07.Value = c.Offset(0, 20).Value
    TextBox08.Value = c.Offset(0, 21).Value
    TextBox09.Value = c.Offset(0, 22).Value
    TextBox10.Value = c.Offset(0, 23).Value
    TextBox11.Value = c.Offset(0, 24).Value
    TextBox12.Value = c.Offset(0, 25).Value
    ComboBox5.Value = c.Offset(0, 29).Value
    ComboBox6.Value = c.Offset(0, 30).Value
    ComboBox7.Value = c.Offset(0, 31).Value
    ComboBox8.Value = c.Offset(0, 32).Value
    ComboBox9.Value = c.Offset(0, 33).Value
    TextBox13.Value = c.Offset(0, 26).Value
    TextBox14.Value = c.Offset(0, 27).Value
    TextBox015.Value = c.Offset(0, 34).Value
    TextBox16.Value = c.Offset(0, 35).Value
    TextBox17.Value = c.Offset(0, 36).Value
    TextBox18.Value = c.Offset(0, 37).Value
    TextBox19.Value = c.Offset(0, 38).Value
    TextBox20.Value = c.Offset(0, 39).Value
    TextBox21.Value = c.Offset(0, 40).Value
    TextBox22.Value = c.Offset(0, 41).Value
    TextBox23.Value = c.Offset(0, 42).Value
    TextBox24.Value = c.Offset(0, 43).Value
    ThisWorkbook.Worksheets("BDDOTORÇAMENTÁRIA").Activate *(2ª Planilha - dados em colunas)
    With Worksheets("BDDOTORÇAMENTÁRIA").Range("B:B")
    Set c = .Find(ComboBox1.Value, LookIn:=xlValues, LookAt:=xlPart)
    If Not c Is Nothing Then
    TextBox27.Value = c.Offset(0, 5).Value
    TextBox28.Value = c.Offset(0, 6).Value
    TextBox29.Value = c.Offset(0, 2).Value
    TextBox30.Value = c.Offset(1, 5).Value
    TextBox31.Value = c.Offset(1, 6).Value
    TextBox32.Value = c.Offset(1, 2).Value
    TextBox33.Value = c.Offset(2, 5).Value
    TextBox34.Value = c.Offset(2, 6).Value
    TextBox35.Value = c.Offset(2, 2).Value
    TextBox36.Value = c.Offset(3, 5).Value
    TextBox37.Value = c.Offset(3, 6).Value
    TextBox38.Value = c.Offset(3, 2).Value
    TextBox39.Value = c.Offset(4, 5).Value
    TextBox40.Value = c.Offset(4, 6).Value
    TextBox41.Value = c.Offset(4, 2).Value
    TextBox42.Value = c.Offset(5, 5).Value
    TextBox43.Value = c.Offset(5, 6).Value
    TextBox44.Value = c.Offset(5, 2).Value
    End If
    Else
    MsgBox "DOCUMENTO NÃO ENCONTRADO"
    End If
    End With
    End If
    End With