bEbEr
-
Total de itens
502 -
Registro em
-
Última visita
Posts postados por bEbEr
-
-
Não tem como..
A não ser que este botão esteja dentro de um UserForm
;)
-
-
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
;)
-
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!
-
mais não me ajudou esse tuto
:/
-
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!!
-
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
-
mas então,
como faço pra buscar?
-
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
If Target.Column = 2 ThenIf Target.Value = "" Then
Me.Range("B" & Target.Row).Value = ""
Else
Set busca = Sheets(1).Cells.Find(Target.Text)
If Not busca Is Nothing Then
Me.Range("B" & Target.Row).Value = Sheets(1).Range("B" & busca.Row).Text
Me.Range("T" & Target.Row).Value = Sheets(1).Range("C" & busca.Row).Text
Me.Range("U" & Target.Row).Value = Sheets(1).Range("D" & busca.Row).Text
Me.Range("V" & Target.Row).Value = Sheets(1).Range("E" & busca.Row).Text
Me.Range("G" & Target.Row).Value = "=F" & Target.Row & ""
Me.Range("J" & Target.Row).Value = "=I" & Target.Row & ""
Me.Range("K" & Target.Row).Value = "=IF(C" & Target.Row & "=E" & Target.Row & ",""S"",""N"")"
Me.Range("M" & Target.Row).Value = "=C" & Target.Row & "+M" & Target.Row - 1 & ""
Me.Range("N" & Target.Row).Value = "=C" & Target.Row & "-E" & Target.Row & "+N" & Target.Row - 1 & ""
Me.Range("P" & Target.Row).Value = "=C" & Target.Row & "*L" & Target.Row & ""
Me.Range("que" & Target.Row).Value = "=P" & Target.Row & "-O" & Target.Row & "+que" & Target.Row - 1 & ""
Me.Range("S" & Target.Row).Value = "=D" & Target.Row & "+S" & Target.Row - 1 & ""
Else
Me.Range("B" & Target.Row).Value = "-"
End If
End If
End If
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!
-
-
Como faço pra criar um barra de progressao pra dizer quando termina a operação?
de 0 a 100%?
valeuuu
-
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í
-
conseguiu pra mim renato!?
valeu
-
te adicionei no MSN
ou se não.. coloquei o arquivo no meu site
www.carnadim.com.br/controle.xls
falou
-
já consegui com um decompilerrr
;D
-
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
-
como eu faço?
-
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
-
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
-
mas tp
como faco pra aparecer os minutos carregados já?
falou
-
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
-
consegui!
:D
-
Galera..
Como faço pra copiar uma planilha pra um novo arquivo?!
Valeu
-
Adicionar Número Numa Variável
em VBA
Postado
Label.Caption = Label.Caption + Variavel_que_deseja_adicionar
Pelo que eu entendi, acho que seria isso pra você.
:)