Angelo Augusto

Pessoal, bom dia !! Estou tentando colocar o horário em um formulario dentro de uma label mas não sei em qual evento eu tenho que chamar a label exemplo Private Sub hoarario (((( qual evento eu coloco aqui ))) Horario.Caption = Now() End Sub desde já muito obrigado

Meu amigo estou pegando o texto de uma celula normal no excel.... eu não sei o que acontece Olha o codigo ai !!! Label4.Visible = True TB_unidade.Visible = True Dim ITEMESC As String Dim CONT41 As Integer Dim CONT42 As Integer Dim ESPECIFICACAOITEM As String Dim UNIDADE As String UNIDADE = "" ITEMESC = "" CONT41 = 0 CONT42 = 0 ITEMESC = CB_Item.Text With Sheets("BD") For CONT41 = 3 To 20000 If .Cells(CONT41, 2).Text = ITEMESC Then ESPECIFICACAOITEM = .Cells(CONT41, 17).Text UNIDADE = .Cells(CONT41, 3).Text Exit For End If Next CONT41 If ESPECIFICACAOITEM = "" Then MsgBox "Não foi encontrada especificação para o item pesquisado.", vbCritical + vbOKOnly, "Erro !!!" RTB_especificacao.Text = "" Exit Sub End If 'Adiciona o item escolhido a caixa TB_unidade.Text = UNIDADE RTB_especificacao.Text = ESPECIFICACAOITEM End With Pessoal, o problrma não é com o textbex, pois eu peguei o mesmo texto que queria copiar para a textbox e ele aceitou, to achando que o problema é na string , so pode ser ...... alguém SABE O QUE EU FAÇO !!!!!!! Obrigado! Ai ai ai ai ai..... Olha so para vocês verem qual era o problema .. eu estava pegando a propriedade text da celula: ESPECIFICACAOITEM = .Cells(CONT41, 17).text Era simplesmente pegar a propriedade value: ESPECIFICACAOITEM = .Cells(CONT41, 17).Value Assim ..... Muito obrigado por tudo ai pessoal , fico muito grato pela a ajuda Valewwwwwwwwwwwwwwww Ate mais

uma combobox

è eu tentei aqui mesmo com a rich text box mais teve o mesmo problema eu não sei o que é isso . Pois contei quantos caracteres que a rich text box aceitou 1008 com espaços e o textbox também a mesma coisa.... O que sera que pode ser isso já que o text box acita 65000 carac. Me ajudem por favor.... Muito Obrigado

Amigo, é o seguinte , o rich text box foi minha primeira opçaõ mas so que nos computadores da empresa que eu estou fazendo não tem a biblioteca ai da erro , pois estou fazendo a programação em VBA ai é foda ... entendeu.. Aqui me manda um exemplo d como é a frame e a label !! Muito obrigado

Amigo, fiz justamente isso que nosso colega me disse so que o texto vem . mas não vem por completo .... ai eu não sei o que pode estar acontecendo .... Isso é de deixar maluco .... sera que na propriedade do text box tem alguma coisa que impede o tamanho do texto aceito ... O que sei é maxlength e coloquei ela com um valor absurdo ..... Me ajudem por favor !!!! Obrigado Mais uma coisa este exemplo que você me deu tem como você me dizer um exemplo, para ver o que esta acontecendo aqui com o meu!!! muito obrigado!!

valeu pela ajuada mas isso também não deu certo.. O texto que ela esta recebendo é muito grande e não da para ficar variaqndo o top assim.. Sera que você ou algume sabe algum objeto que uso para fazer isso funcionar.. Ou como fazer a scrollbar ficar "ligada" com a label!!! Muito obrigado

Anderson, infelizmente não obtive sucesso usando um TextBox. Muito obrigado pela ajuda..Sera que não tem outro jeito não. Estou precisando d+ disso é pra ontem para entregar um serviço. Quem puder me ajudar. Ajude!!!! Obrigado

Prezados, Gostaria de saber de vocês se tem jeito de colocar scrollsbars vertical em uma label se não tiver jeito por favor, me digam algum objeto que tenha esta propriedade .. Grato desde já!!!

Pessoal, Gostaria de saber qual o máximo de pts que o ListWidth pode ter !!! Objeto.ListWidth = Tamanho ( em pontos ). ===> Aqui qual é o máximo Gratop desde já

Ai pessoal estou com um serio problema, na hora que eu vou fazer um relatório eu não consigo incluir os valores das variaveis no word , sou novo em VB , não sei o que esta acontecendo , na verdade não sei como é que tenho que deixar as variaveis a serem substituidas no word. segue o codigo.... ME AJUDEM é de extrema importancia para meu trabalho! Private Sub CB_relatorioParcial_Click() Dim Word As Object Dim TempoImp As Date Dim sair As Boolean Set Word = CreateObject("Word.Application") 'Abre o documento Word.Documents.Open "C:\relatorioparcial.doc" 'não mostra o documento para usuario Word.Visible = False 'Seleciona o documento inteiro Word.Documents("relatorioparcial.doc").Select If OB_IE.Value = True Then FAM = OB_IE.Caption ElseIf OB_SE.Value = True Then FAM = OB_SE.Caption ElseIf OB_AMV.Value = True Then FAM = OB_AMV.Caption ElseIf OB_SC.Value = True Then FAM = OB_SC.Caption End If If OB_AFJ.Value = True Then SubFAM = OB_AFJ.Caption ElseIf OB_COMPONENTES.Value = True Then SubFAM = OB_COMPONENTES.Caption ElseIf OB_CONSTRUCAO.Value = True Then SubFAM = OB_CONSTRUCAO.Caption ElseIf OB_CORRECAO.Value = True Then SubFAM = OB_CORRECAO.Caption ElseIf OB_DEMOLICAO.Value = True Then SubFAM = OB_DEMOLICAO.Caption ElseIf OB_DORMENTE.Value = True Then SubFAM = OB_DORMENTE.Caption ElseIf OB_LASTRO.Value = True Then SubFAM = OB_LASTRO.Caption ElseIf OB_TRILHO.Value = True Then SubFAM = OB_TRILHO.Caption ElseIf OB_REMODELACAO.Value = True Then SubFAM = OB_REMODELACAO.Caption ElseIf OB_Nenhuma.Value = True Then SubFAM = OB_Nenhuma.Caption End If ' chama rotina para substituicao Call Substitui_Var("@familia", OB_IE.Caption) Call Substitui_Var("@subfamilia", OB_Nenhuma.Caption) Call Substitui_Var("@item", CB_Item.Text) Call Substitui_Var("@especificacao", RTB_Especificacao.Text) ' Salva o documento com um novo nome ObjWord.ActiveDocument.SaveAs (relatorioparcial.doc) 'Imprime o documento aberto Word.PrintOut True, True TempoImp = Time 'testa se ouve erro de impressão While Word.BackGroundPrintingStatus <> 0 And Not sairLaco If Minute(Time - TempoImp) > 1 Then Resp = MsgBox("O Word est´pa levando muito tempo para imprimir!!!" & vbCrLf & "Deseja encerrar?", vbYesNo) If Resp = vbYes Then sair = True Else TempoImp = Time End If End If Wend Word.Quit MsgBox "Documento Salvo e impresso!!" 'Encerra o word Word.Quit ' libera memoria Set Word = Nothing Exit Sub 'trata_erro: MsgBox "Ocorreu um erro durante o processamento " & " - Erro numero : " & Err.Number End Sub 'a rotina que faz a substituição das variáveis do texto Private Sub Substitui_Var(Header As String, Data As String) Dim Word As Object Set Word = CreateObject("Word.Application") 'Abre o documento Word.Documents.Open "C:\relatorioparcial.doc" 'não mostra o documento para usuario Word.Visible = False 'Seleciona o documento inteiro Word.Documents("relatorioparcial.doc").Select With Word.Selection.Find .ClearFormatting .Text = Header .Execute Forward:=True End With Clipboard.Clear /// está DANDO ERRO AQUI Clipboard.SetText (Data) Word.Selection.Paste Clipboard.Clear End Sub EU não SEI O QUE EU TENHO que COLOCRA NO WORD PARA FAZER ISSO FUNCIONAR POIS ABRE O ARQUIVO SELECIONA MAS não TROCA OS VALORES.. MUITO OBRIGADO