Ir para conteúdo
Fórum Script Brasil

bEbEr

Membros
  • Total de itens

    502
  • Registro em

  • Última visita

Tudo que bEbEr postou

  1. bEbEr

    Adicionar Número Numa Variável

    Label.Caption = Label.Caption + Variavel_que_deseja_adicionar Pelo que eu entendi, acho que seria isso pra você. :)
  2. bEbEr

    Desabilitar Button - Vba

    Não tem como.. A não ser que este botão esteja dentro de um UserForm ;)
  3. bEbEr

    Vbs Excel

    basta colocar no botão a seguinte ação: page2.textbox2.SetFocus ;)
  4. bEbEr

    Desabilitar O "x"

    falaa galera.. blza?! to fazendo uns negocio no excel com macro.. coloquei um UserForm.. gostaria de saber como faço para desabilitar aquele "X" de fechar do windows.. vou colocar um botao no UserForm para fechar a janela.. flwwww ;)
  5. bEbEr

    Add Coment

    Galera.. To querendo por comentário em célula, mas eu queria que ficasse com tamanho automático. Eu usei o seguinte: With Selection .HorizontalAlignment = xlLeft .VerticalAlignment = xlTop .ReadingOrder = xlContext .Orientation = xlHorizontal .AutoSize = True End With Mas não funcionou.. Valeu.. Abraço!
  6. mais não me ajudou esse tuto :/
  7. galera... desculpe estar postando aqui.. mas eu não sabia onde postar! estou com um problema.. tenho no meu pc o win98se e o ie 6.0.. e tem algumas imagens que não estão abrindo no ie 6.0.. fui pegar o codigo da pagina tem algum tipo de codificação em 64 bits.. e o win98é 32 bits. tem alguma forma que eu possa ver estas imagens? o problema é o seguinte: Tipo do Encryption: Encoding da base 64 valeu galera abraço!!
  8. galera.. seguinte.. tenho 2 planilhas no meu excel.. 1 com o nome de CLIENTES e outra com nome de DADOS na CLIENTES eu tenho uma relação completa dos meus clientes e na outra, DADOS, é onde eu digito o nome parcial do meu cliente e ele busca na planilha CLIENTES o nome completo.. eu utilizo o seguinte script: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then If Target.Value = "" Then Me.Range("A" & Target.Row).Value = "" Me.Range("B" & Target.Row).Value = "" Else Set busca = Worksheets("Clientes").Cells.Find(Target.Text) If Not busca Is Nothing Then Me.Range("A" & Target.Row).Value = Worksheets("Clientes").Range("A" & busca.Row).Text 'cod cliente Me.Range("B" & Target.Row).Value = Worksheets("Clientes").Range("B" & busca.Row).Text 'nome cliente Me.Range("N" & Target.Row - 1 & ":S" & Target.Row - 1).Select 'copia cola Selection.AutoFill Destination:=Range("N" & Target.Row - 1 & ":S" & Target.Row), Type:=xlFillDefault 'copia cola Me.Range("C" & Target.Row).Select Else Me.Range("A" & Target.Row).Value = "-" Me.Range("B" & Target.Row).Value = "N Ã O E N C O N T R A D O !" Me.Range("B" & Target.Row).Select End If End If End If End Sub esse script demora dmais pois alem de buscar o nome faz outros processos junto e demora demais.. existe outra forma de eu fazer isso para que seja mais rapido? valeuuu
  9. bEbEr

    Cells.find

    mas então, como faço pra buscar?
  10. bEbEr

    Cells.find

    Galera.. estou com um probleminha.. seguinte.. tenho uma tabela com alguns nomes e outra é onde eu digito uma parte do nome do cliente e aparece o nome inteiro. so que o que esta acontecendo é que ele busca o um outro nome. ANGELA TECIA SOARES SENA ARANY FERNANDES SOARES SAMPAIO ARIANE CARVALHO MOREIRA SANTANA ARLINDO MAYCON CAVALCANTE DE JESUS C.L.DA SILVA SALES RENATO MACEDO quando eu digito "RENATO" e dou um enter.. que é para aparecer RENATO MACEDO ele aparece ARIANE CARVALHO MOREIRA SANTANA. queria sabe o porque disso. valeeeu abraço!
  11. bEbEr

    <> "rr*"

    Galera... Como faço pra identificar dentro de um If se a célula é diferente de "RR*"? Tenho várias células.. Abaixo segue o que tem nelas: 0100123 0100455 RR0002 RR0004 Eu queria que aquelas que começassem com RR substituisse por 0. valeuuu
  12. bEbEr

    Barra De Progressao

    Como faço pra criar um barra de progressao pra dizer quando termina a operação? de 0 a 100%? valeuuu
  13. grandee galera.. blza?! to com um problema aqui.. eu carrego um texto atraves de um .txt (loadvariables).. so que eu queria faze uns efeito sabe.. quando passa o mouse em cima do botao que eu tenho no swf.. ele carrega o texto já na hr.. mais eu queria faze um efeito alpha.. i d 0 a 100 entende pra não aparece já d cara.. valeuuu aí
  14. bEbEr

    Copiar Dados De Outra Planilha

    conseguiu pra mim renato!? valeu
  15. bEbEr

    Copiar Dados De Outra Planilha

    te adicionei no MSN ou se não.. coloquei o arquivo no meu site www.carnadim.com.br/controle.xls falou
  16. bEbEr

    Efeito Revista

    já consegui com um decompilerrr ;D
  17. Galera.. seguinte.. na planilha PRODUTOS tenho os seguintes dados: Referência Tipo 5000 BANCO 5001 MOTO 5002 BANCO 5003 CARRO 5004 CARRO 5005 BICICLETA e na planilha VAZIO tenho os seguintes dados: NUM C_DAT RE QNT VAL EMRRESA TIPO 02000001 9/4/2005 5000 3,0000 10,00 x BANCO 02000001 9/4/2005 5000 3,0000 20,00 x BANCO 02000001 9/4/2005 5001 3,0000 30,00 x 02000001 9/4/2005 5006 3,0000 40,00 x 02000002 9/4/2005 5000 3,0000 50,00 x e tenho um botão com a seguinte ação: Private Sub CommandButton1_Click() i = 2 e = 2 While Worksheets("vazio").Range("A" & i).Value <> "" If Worksheets("vazio").Range("C" & i).Value = Worksheets("produtos").Range("A" & e).Value Then Worksheets("vazio").Range("G" & i).Value = Worksheets("produtos").Range("B" & e).Value Worksheets("vazio").Range("H" & i).Value = Worksheets("produtos").Range("C" & e).Value Worksheets("vazio").Range("I" & i).Value = Worksheets("produtos").Range("D" & e).Value Worksheets("vazio").Range("J" & i).Value = Worksheets("produtos").Range("E" & e).Value Worksheets("vazio").Range("K" & i).Value = Worksheets("produtos").Range("F" & e).Value Worksheets("vazio").Range("L" & i).Value = Worksheets("produtos").Range("G" & e).Value Worksheets("vazio").Range("M" & i).Value = Worksheets("produtos").Range("H" & e).Value i = i + 1 e = 2 Else e = e + 1 End If Wend End Sub ele faz o seguinte.. quando você clica nele.. ele procura na planilha produtos o tipo da referencia selecionada na vazio pra jogar naquela planilha.. ate ai td certo.. so que quando ele encontra uma referencia que não tem no produtos ele para pelo caminho.. e eu gostaria que ele adicionasse aquela referencia em produtos com o tipo DIVERSOS... flwww
  18. bEbEr

    Efeito Revista

    cara.. mas esse tipo de revista ai.. o book_of_pages.. não me ajuda.. eu precisava mesmo daquele igual ao site que eu mencionei.. :S
  19. galera.. alguém sabe onde eu encontro o .fla da revista igual a esse site?? www.costapublica.com.br > catalogo eu já baixei o pagesean.. uma coisa assim.. so que não é iguall.. precisa ser igual ao desse site.. alguém sabe onde eu encontro?? flwwww
  20. bEbEr

    Buffer Do Som

    mas tp como faco pra aparecer os minutos carregados já? falou
  21. Galera.. como eu que faço pra o meu player de musica... pegue vamos supor.. a mp3 no servidor e comecei a buferiza e comeca a toca?! entendem?? porque c eu deixar no player.. ele demora muito.. primeiro carrega td pra dpss comecar a tocar ;/ valeu
  22. Galera.. Como faço pra copiar uma planilha pra um novo arquivo?! Valeu
  23. bEbEr

    Combobox

    alguém me ajuda
×
×
  • Criar Novo...