Jomar FC

Queridos colegas... Depois de labutar tanto e fazer tantos ajustes em alguns códigos, consegui resolver meu problema. Abaixo estão os códigos, se alguém quiser aproveitar a ideia, fique à vontade. Abraço a todos! Private Sub CommandButton3_Click() If ListBox2.ListIndex = -1 Then MsgBox "Nenhum número foi selecionado!" Exit Sub Else With ThisWorkbook.Sheets("Planilha3") .Activate Dim vBusca With .Range("A:XFD") Set vBusca = .Find(TextBox5.Value, LookIn:=xlValues) If Not vBusca Is Nothing Then .Range(vBusca.Address).Select ActiveCell.EntireColumn.Select Dim txtA As String Dim txtB As String txtA = TextBox6.Value txtB = TextBox7.Value ActiveCell.EntireColumn.Select ActiveCell.EntireColumn.Replace txtA, txtB End If End With End With End If End Sub

Aqui estou novamente em busca de uma ajuda bondosa de algum(a) colega... Estou labutando com o seguinte código VBA Excel, sem nenhum resultado até agora: Na Plan3, somente na linha2 tenho vários números em cada coluna, como se fossem os cabeçalhos. (Veja imagem "Plan3" em anexo) Abaixo de cada número tenho textos/frases. Ao clicar em alguma linha do UserForm2.ListBox1, ele envia um número ao TextBox5, daí simultâneamene o ListBox2 carrega os textos/frases da Plan3 correspondente àquele número.(Até aqui funciona corretamente) (Veja imagem "UserForm2" em anexo) MEU PROBLEMA: Fazer alteração em algum texto, na célula correta, através de um Botão de Comando no UserForm2. Para isso precisaria localizar a coluna onde está o número e somente no intervalo dessa coluna, localizar a célula com o texto desejado e fazer a alteração. OBS: Preciso alterar o valor da célula, não da linha, e sem alterar outras células com textos iguais. Por ex: A2= 223; A7= "cccccccc"; B2= 224; B5= "cccccccc"; D2= 568; D3= "cccccccc"( 3 células com textos iguais, mas supondo que apenas 1 precisa ser alterada, então as outras devem permanecer iguais) (Veja imagem "Alteração" em anexo) Por isso que é necessário localizar o "intervalo da coluna" para localizar a célula correta, senão ele altera a célula errada. Olhando as imagens em anexo dá pra entender melhor a ideia. Se tiverem a bondade de me ajudar, ficarei grato. Att.

Prezados colegas, Sobre o código acima, (fornecido bondosamente por Midori) funciona perfeitamente, mas agora eu preciso inserir os dados sempre nas próximas Linhas do ListBox. Ele está inserindo um em cima do outro. Já tentei .OffSet(1,0) , mas não funcionou, talvez porque eu tenha colocado no lugar errado ou de uma forma não permitida, ou sem definir outras propriedades. Poderiam me ajudar? Att.

Pessoal, desculpa a minha ignorância no assunto, só queria saber se isso é algum modelo SSD > "HFM128 GDJTNG - 831OA". Se puderem me informar, agradeço. Att.

Midori, o seu código funcionou perfeitamente ! RESOLVIDO ! Sou muito grato; você me salvou. Só tive que substituir o " Dim Numero As Long" por "Double", porque ele deu um erro quando digitei um numero com 11 dígitos na TxtBox1. O erro apareceu nessa linha --------> Numero = Val (TextBox1). Na janela de verificação apareceu como "Falso". kkk Mas agora ta rodando perfeitamente ! Me perdoe abusar de sua boa vontade de novo. Se eu inserir 02 Label: Label1. Para mostrar no mesmo UserForm a qtd. de registros q eu transportei p/ a ListBox - Que código eu teria que usar? Label2. Para mostrar no mesmo UserForm a qtd. de valores únicos que eu salvei na Plan2. Coluna 2 - Que código eu teria que usar? Ex.: Verde, Verde, Verde, Azul, Azul Azul = Total: 02 Sobre a Label2. Eu copiei uma fórmula "matriz" de um colega. Funciona certinho, mas ela exige q eu determine a qtd. de linhas. Mas as linhas vão variar, por isso dá erro. Desculpe meu atrevimento em pedir essa ajuda de novo. Desconsidere caso não tenha tempo, ok? obrigado. Abraço !

Prezados amigos, poderiam me ajudar? Sou iniciante em Excel VBA. Meu problema é o seguinte: Estou tentando transferir dados dos TxtBox1(p/ números), TxtBox2 (p/ Qtdade) e 3 OptButtions(Cor1=Verde, Cor2=Azul, Cor3=Preto), de forma sequencial, para o ListBox1. Ex.: Se digitar 1230 e colocar 5 Qtdades e escolher a cor Verde. Precisa transferir dessa forma: Coluna1 Coluna2 1230 Verde 1231 Verde 1232 Verde 1233 Verde 1234 Verde Mas meu código abaixo ocorre o Erro 381: "Não foi possível definir a propriedade List Índice de Matriz de Propriedade inválida. Se tiverem um tempinho, me ajudem por favor. Dim Cor1 As Boolean Dim Cor2 As Boolean Dim Cor3 As Boolean Private Sub OptionButton1_Click() Cor1 = Verde End Sub Private Sub OptionButton2_Click() Cor2 = Azul End Sub Private Sub OptionButton3_Click() Cor3 = Preto End Sub Sub CommandButton1_Click() Dim Numeros As Long Dim Lin As Long Dim Qtd As Double Numeros = TextBox1.Value Qtd = TextBox2.Value Lin = 1 Do While Lin < Qtd UserForm1.ListBox1.List(ListCount, 1).End(3)(2).Resize(, 1) = Array(Numeros) UserForm1.ListBox1.List(List.Count, 1).End(3)(2).Resize(, 1) = Array("Verde", "Azul", "Preto") Lin = Lin + 1 Numeros = Numeros + 1 Verde = Verde Azul = Azul Preto = Preto UserForm1.ListBox1.List(Lin, 1) = Numeros UserForm1.ListBox1.List(Lin, 2) = Array(Verde, Azul, Preto) Loop End Sub

Prezados, Sou iniciante em Excel VBA. Poderiam ter a bondade de me ajudar? Estou tentando transferir dados dos TxtBox1(p/ números), TxtBox2 (p/ Qtdade) e 3 OptButtions(Cor1=Verde, Cor2=Azul, Cor3=Preto), de forma sequencial, para o ListBox1. Ex.: Se digitar 1230 e colocar 5 Qtdades e escolher a cor Verde. Precisa transferir dessa forma: Coluna1 Coluna2 1230 Verde 1231 Verde 1232 Verde 1233 Verde 1234 Verde _________________________________ Label1 = "5" (porque foi transferido 5 números) Label2 = "1" (porque consta apenas 1 cor) Segue abaixo meu código com erro e faltando variáveis: Dim Cor1 As Boolean Dim Cor2 As Boolean Dim Cor3 As Boolean Private Sub OptionButton1_Click() Cor1 = "Verde" End Private Sub OptionButton2_Click() Cor2 = "Azul" End Sub Private Sub OptionButton3_Click() Cor3 = "Preto" End Sub Sub CommandButton1_Click() Dim Numeros As Long Dim Lin as Long Numeros = TextBox1.Value NumLinCop = TextBox2.Value Lin = 1 Do While Lin < NumLinCop + 1 UserForm1.ListBox1.List(List.Count, 1).End(3)(2).Resize(, 1) = Array(Numeros) UserForm1.ListBox1.List(List.Count, 1).End(3)(2).Resize(, 1) = Array("Verde", "Azul", "Preto") Lin = Lin + 1 Numeros = Numeros + 1 Verde = Verde Azul = Azul Preto = Preto UserForm1.ListBox1.List(0, 1) = Numeros UserForm1.ListBox1.List(0, 2) = Verde, Azul,Preto Loop End Sub

Sou iniciante em Excel VBA. Estou tentando transferir dados dos TxtBox1(p/ números), TxtBox2 (p/ Qtdade) e 3 OptButtions(Cor1=Verde, Cor2=Azul, Cor3=Preto), de forma sequencial, para o ListBox1. Ex.: Se digitar 1230 e colocar 5 Qtdades e escolher a cor Verde. Precisa transferir dessa forma: Coluna1 Coluna2 1230 Verde 1231 Verde 1232 Verde 1233 Verde 1234 Verde _________________________________ Label1 = "5" (porque foi transferido 5 números) Label2 = "1" (porque consta apenas 1 cor) Poderiam me ajudar? Meu código abaixo, com erros e faltando variáveis: Private Sub CommandButton3_Click() 'Botão Gerar Sequência If TextBox1.Value = "" And TextBox2.Value = "" And OptionButton1.Value = False And OptionButton2.Value = False And_ OptionButton3.Value = False Then MsgBox "Algum Campo sem preencher ou faltando selecionar!", vbCritical, "Gerar Sequências:" Exit Sub End If Dim LinhaList As Long Dim Numeros As Double Dim Qtd As Double Dim Cor1 As Boolean Dim Cor2 As Boolean Dim Cor3 As Boolean Numeros = TextBox1.Value Qtd = TextBox2.Value Cor1 = OptionButton1.Value = True Cor2 = OptionButton2.Value = True Cor3 = OptionButton3.Value = True Cor1 = Verde Cor2 = Azul Cor3 = Preto If Me.ListBox1.ListCount = 0 Then LinhaList = 0 Else LinhaList = Me.ListBox1.ListCount End If Numeros = Numeros + 1 Cor1 = Cor1 + 1 Cor2 = Cor2 + 1 Cor3 = Cor3 + 1 Me.ListBox1.AddItem TextBox1.Text ListBox1.List(LinhaList, 0) = TextBox1.Text ListBox1.List(LinhaList, 1) = TextBox2.Text TextBox1 = "" TextBox2 = "" OptionButton1.Value = False OptionButton2.Value = False OptionButton3.Value = False End Sub