FabricioVianaCas

Márcio! Anexo o exemplo. Ver em Visual Basico formulário, linhas de comando, etc. Modelo para Exemplificar.xlsx

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 End Sub Obrigado! Desculpa pessoal. RESSALVA. Os dados da 2ª planilha estão dispostos em linhas.

Prezados Colegas, bom dia! Preciso de um help! Num Userform, tenho uma ComboBox que definirá a formatação da TextBox. Ou seja, quando a ComboBox estiver "PESSOA JURÍDICA", a TextBox assumirá a formatação "XX.XXX.XXX/XXXX-XX"; e quando a ComboBox for "PESSOA FÍSICA", TextBox assumindo formato "XXX.XXX.XXX-XX". As linhas de comando abaixo não funcionaram. If Len(ComboBox1) = "PESSOA JURÍDICA" Then If TextBox2.MaxLength = 22 Then 'Formato XX.XXX.XXX/XXXX-XX If Len(TextBox2) = 2 Then TextBox2.Text = TextBox2 & "." End If If Len(TextBox2) = 6 Then TextBox2.Text = TextBox2 & "." End If If Len(TextBox2) = 10 Then TextBox2.Text = TextBox2 & "/" End If If Len(TextBox2) = 15 Then TextBox2.Text = TextBox2 & "-" End If End If End If If Len(ComboBox1) = "PESSOA FÍSICA" Then If TextBox2.MaxLength = 14 Then 'Formato XXX.XXX.XXX-XX If Len(TextBox2) = 3 Then TextBox2.Text = TextBox2 & "." End If If Len(TextBox2) = 7 Then TextBox2.Text = TextBox2 & "." End If If Len(TextBox2) = 10 Then TextBox2.Text = TextBox2 & "-" End If End If End If Alguém pode me ajudar a solucionar esse problema? Aguardo retorno

Basole, continuou o mesmo problema. Obrigado pela sugestão!

Prezados e prezadas, boa tarde! Tenho um Userform, com diversos campos. Um deles é para inserir informações de valores. Já está parametrizado da seguinte forma: Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean) Number = TextBox4.Value Me.TextBox4.Value = Format((TextBox4.Value), "currency") End Sub No entanto, ao digitar as informações, os dados vão para a planilha certinho, MAS O VALOR FICA COMO TEXTO e ocorre aquela famosa inspeção VALOR INSERIDO COMO TEXTO. O comando para registro dos dados na planilha está assim descrito: ActiveCell.Offset(0, 5).Value = TextBox4.Value Será que alguém pode me ajudar a solucionar esse problema? Obrigado pela atenção!