zinhovba

Bom dia!! Leia também: http://www.davesexcel.com/selectapicture.htm Att

Bom dia!! Tente adaptar usando meu arquivo! Att

Boa noite!! mande seu arquivo!! Veja um modelo de como fazer isso http://www.4shared.com/office/yV819p2Y/MINUTA_DE_TRANSPORTEII.html

Bom dia!! Perdão mas eu não olhei sua rotina. Sendo assim você consegue criar uma ideia baseada no código abaixo? Private Sub Editar_Click() With Worksheets("SuaGuiaAqui").Columns(1) i = .Find(what:=TextBox4.Value, after:=.Cells(1), LookIn:=xlValues, LookAt:=xlWhole).Row j = i j = Cells.FindNext(after:=ActiveCell).Row UserForm5.TextBox4.Value = .Cells(j, 1).Value UserForm5.TextBox5.Value = .Cells(j, 2).Value UserForm5.TextBox6.Value = .Cells(j, 3).Value UserForm5.TextBox7.Value = .Cells(j, 4).Value UserForm5.TextBox8.Value = .Cells(j, 5).Value UserForm5.TextBox9.Value = .Cells(j, 6).Value UserForm5.TextBox10.Value = .Cells(j, 7).Value UserForm5.TextBox11.Value = .Cells(j, 8).Value UserForm5.TextBox12.Value = .Cells(j, 9).Value UserForm5.TextBox13.Value = .Cells(j, 10).Value UserForm5.TextBox14.Value = .Cells(j, 11).Value UserForm5.ComboBox1.Value = .Cells(j, 12).Value End With End Sub

Boa noite!! Você deveria explicar melhor. Imagine que vai inserir uma linha (2)... Sub NaoEntendiNada() With Rows(2) .Copy .Insert End With Application.CutCopyMode = False End Sub Para escolher qualquer linha. Sub ParaQualquerLInha() 'Selecione a linha antes de executar With Selection.EntireRow .Copy .Insert End With Application.CutCopyMode = False End Sub Att

Boa tarde!! Tente assim (#)0000-0000

Boa tarde!! Veja em: http://www.juliobattisti.com.br/accbasico/modulo2/licao11.htm

Bom dia!! Se o arquivo é seu tente lembra, se não solicite ao dono!! esse tipo de coisa é anti ético!! Att

Bom dia!! Você não diz claramente o que quer!!!!..como vamos ajudalo????????

Boa tarde!!! Deveria ter postado sua planilha como recomendado. Só podemos te ajudar se nos ajudar a te ajudar. Deveria ter simulado o resultado de como e que critério a macro copiaria a duplicidade. Tente adaptar...à sua necessidade Formatar Duplicidades com Cores DiferentesSub InteriorColorDuplicados() Dim LLoop As Integer Dim LTestLoop As Integer Dim LClearRange As String Dim Lrows As Integer Dim LRange As String 'Variaveis para a Coluna e Valor Dim LChangedValue As String Dim LTestValue As String 'Cor Inicial Dim sCor As Integer sCor = 1 'Teste em 20 linhas na planilha Lrows = 500 'Atere aqui para mais Linhas LLoop = 2 'Limpa a formatação anterior LClearRange = "C2:C" & Lrows Range(LClearRange).Interior.ColorIndex = xlNone 'Verifica primeiro as 20 linhas na planilha While LLoop <= Lrows 'Define a Coluna C LChangedValue = "C" & CStr(LLoop) If Len(Range(LChangedValue).Value) > 0 Then 'Testa cada valor se são unicos LTestLoop = 2 While LTestLoop <= Lrows If LLoop <> LTestLoop Then LTestValue = "C" & CStr(LTestLoop) 'Se o valor for duplicado If (Range(LChangedValue).Value = Range(LTestValue).Value) Then 'Altera a cor de Fundo da celula Range(LChangedValue).Interior.ColorIndex = sCor Range(LTestValue).Interior.ColorIndex = sCor End If End If LTestLoop = LTestLoop + 1 Wend End If LLoop = LLoop + 1 'Soma + 1 para a proxima Cor sCor = sCor + 1 If sCor = 20 Then sCor = 1 End If Wend End Sub Att..

Boa noite!!! Aperte as teclas Alt + F11 para entrar no Editor VBA. Depois aperte as teclas Alt + i + m e cole o código da postagem anterior. Att..

Boa tarde!!! Tem duas opções uma por VBA e a outra através da Validação de dados. 1º é via VBA:Favor adaptar a sua necessidade.. Sub Limite() 'Limita o número de cacteres na célula If Len(ActiveCell) > 6 Then ActiveCell = Left(ActiveCell, 6) MsgBox "Limite de caracteres Ultrapassado na Célula: " _ & ActiveCell, Address End If End Sub 2º Por Validação de dados Aperte as teclas ISSO PARA TEXTO...Alt + D e V -->Em Permitir selecione ->Comprimento de Texto--> É menor do que -->no campo Máximo digite a quantidade de caractere. Att..

Boa noite!!! Testei e deu certo!!! Faça um teste........... http://www.4shared.com/document/Ln2lUD1o/filtro_automatico.html Att...

Boa noite! Veja se isso pode te ajudar.. Sub teste() Set Nome = CreateObject("Wscript.Network") MsgBox "Nome de Usuário: " & Nome.UserName & vbCr & "Nome do Computador: " & Nome.ComputerName End Sub Att..