Netrox92

Boa tarde! Estou fazendo uma rotina, onde eu tenho 2 arrays. Eu faço um loop onde ele compara a mesma posição nas duas arrays. For i = 0 To UBound(Array1) If Array1(i) <> Array2(i) Then Else End If Next i Eu quero que o texto da array1 seja reescrito, porém as posições que não forem iguais, eu quero deixar em Negrito. Exemplo: Nesse caso a posição 2, do array1 e do array2, são diferentes. Portanto elas seriam alteradas para negrito. Segue o que eu tinha pensado: For i = 0 To UBound(Array1) If Array1(i) <> Array2(i) Then palavra_negrito = Array1(i) palavra_negrito.Font.Bold = True texto1_negrito = texto1_negrito & palavra_negrito & Chr(10) Else texto1_negrito = texto1_negrito & Array1(i) & Chr(10) End If Next i A ideia era ir concatenando as palavras que estão no array, e se fossem diferentes ele concatenava em negrito. Alguém sabe como fazer isso? Eu li em alguns lugares sobre InStr. Porém nos textos que eu vou comparar existem muitas palavras repetidas. Não sei se InStr resolveria.

Ola, Tenho uma planilha no excel, onde uso ListView. Para criar a planilha eu tive que adicionar la no "controles adicionais" controles adicionais -> Microsoft ListView Control 6.0 (SP6) Até ai não tenho problema nenhum, porém quando eu tento abrir essa planilha em outros PCs eu tenho q fazer esse procedimento de novo. E acabo perdendo os ListView que já estavam feitos. Segue minha pergunta: Tem algum cód no vba para, ao iniciar a planilha ele já verifique e faça isso sozinho? Ou seja um cód que quando eu abrir a planilha eu não precise ir la na caixa de ferramentas e controle adicionais e fazer todo esse procedimento? Agradeço desde já a atenção Obrigado

Boa tarde Basole, Obrigado pela resposta, pelo jeito ta dando certo sim, desculpe pela demora na resposta. Obrigado abraços

Ola Gostaria de saber se tem algum jeito de verificar até onde está escrito um texto em uma célula, e mesclar com as celulas até onde está escrito. Exemplo: No texto: "Texto aleatório, para teste." está escrito na celula 'A1', porém o texto vai até o começo da celula 'F1". Gostaria de um código vba para verificar até onde o texto está escrito, e mesclar até a celula correta. No exemplo mesclaria da celula 'A1:F1' Agradeço desde já Abraços

Ola estou com um problema, Estou criando uma planilha vinculada com access, porém nao sei porque em um computador ele funciona sem dar erro, e em outro nao funciona e da erro. Erro em tempo de execução '91': A variável do objeto ou a variável do bloco 'With' não foi definida Eu li em algum lugar que pode ser o sistema operacional. No PC que funciona é 32 bits e no que não funciona é 64 bits Se for esse o erro, como eu faço para funcionar no de 64? Estou postando a planilha e o banco de dados. Excel: (OBS: A Planilha não está em branco! Vá na guia Desenvolvedor http://www.4shared.com/get/aSt2jBJLba/Excel_Access.html Banco Dados(Access): http://www.4shared.com/get/uVcY4wsHba/bd_dados.html Agradeço desde já Abraços

Ola vagnersouza1976Obrigado pela resposta. Funcionou sim. valeu Abraços

Ola vagnersouza1976,Obrigado pela resposta! Vou testar aqui, e ja falo se funcionou abraços

Ola, Estou fazendo uma planilha e preciso organizar uma tabela. porém essa tabela precisa ser organizada levando em conta 4 colunas. Eu consigo fazer o codigo para organizar levando em conta até 3 colunas, porém quando eu coloco mais da erro Segue o codigo que eu utilizo: (Organiza levando em conta apenas 3 colunas) Range("B7:CG256").Select ActiveWorkbook.Worksheets("DB").Sort.SortFields.Clear Worksheets(2).Range("B7:CG256").Sort Key1:=Worksheets(2).Range("C7"), Order1:=xlAscending, _ Key2:=Worksheets(2).Range("D7"), Order1:=xlAscending, _ Key3:=Worksheets(2).Range("E7"), Order1:=xlAscending With ActiveWorkbook.Worksheets("DB").Sort .SetRange Range("B7:CG256") .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Quando eu coloco a Key4 trava.... alguem sabe como organizar levando em conta 4 colunas? A Quarta coluna seria a ("F7") Agradeço desde ja a atenção Abraços