EXCELer Tudo sobre EXCEL em Português
Respostas criadas no fórum
-
Artigos
-
Anderson,
Vê o que alterei nos códigos correspondentes aos botões “Atualizar” e “Cadastrar”, relativamente aos textboxes opt_cliente (julgo que será a coluna B), pedido (coluna P) e negociação (coluna Q).
Se for mais ou menos isso que pretendes, tenta adaptar, ok?
Fica bem e diz qq coisa.
Private Sub CommandButton3_Click()
‘ Botão Atualizar
Dim id As Integerid = txt_id
linha = 2Sheets(“cadastro”).Select
Do Until Sheets(“cadastro”).Cells(linha, 1) = “” ‘vai executar o laço até encontrar uma célula vazia
‘condicção para localizar o registro
If Sheets(“cadastro”).Cells(linha, 1) = id Then ‘se encontrar o valor registro na célula pesquisada
Sheets(“cadastro”).Cells(linha, 1).Select ‘será selecionada a célula‘Sheets(“cadastro”).Cells(linha, 2) = opt_cliente
Sheets(“cadastro”).Cells(linha, 3) = TipoSheets(“cadastro”).Cells(linha, 4) = cmb_uf
Sheets(“cadastro”).Cells(linha, 5) = opt_juridicaSheets(“cadastro”).Cells(linha, 6) = cmb_cidade
Sheets(“cadastro”).Cells(linha, 7) = txt_fantasia
Sheets(“cadastro”).Cells(linha, 8) = txt_endereço
Sheets(“cadastro”).Cells(linha, 9) = txt_bairroSheets(“cadastro”).Cells(linha, 10) = prev_faturamento
Sheets(“cadastro”).Cells(linha, 11) = data_faturamento
Sheets(“cadastro”).Cells(linha, 12) = prev_chegadaSheets(“cadastro”).Cells(linha, 13) = previ_entrega
Sheets(“cadastro”).Cells(linha, 14) = status_faturamento
Sheets(“cadastro”).Cells(linha, 15) = dias_estoque‘Sheets(“cadastro”).Cells(linha, 16) = pedido ‘ retirei a atualização da célula da coluna P
‘Sheets(“cadastro”).Cells(linha, 17) = negociação ‘ retirei a atualização da célula da coluna Q
Sheets(“cadastro”).Cells(linha, 18) = conferênciaSheets(“cadastro”).Cells(linha, 19) = situação
Sheets(“cadastro”).Cells(linha, 20) = observaçãoMsgBox (“Cadastro alterado com sucesso!”)
Unload Me
form_cadastro.ShowExit Sub
End If
linha = linha + 1
LoopEnd Sub
__________________________________
Private Sub CommandButton1_Click()
‘ Botão Cadastrar
Sheets(“cadastro”).Select
Range(“A1048576”).Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).SelectDim data_cad As Date
id = txt_id
ActiveCell = id
ActiveCell.Offset(0, 1).Select
ActiveCell = opt_cliente
ActiveCell.Offset(0, 1).Select
ActiveCell = Tipo
ActiveCell.Offset(0, 1).Select
ActiveCell = cmb_uf
ActiveCell.Offset(0, 1).Select
ActiveCell = opt_juridica
ActiveCell.Offset(0, 1).Select
ActiveCell = cmb_cidade
ActiveCell.Offset(0, 1).Select
ActiveCell = txt_fantasia
ActiveCell.Offset(0, 1).Select
ActiveCell = txt_endereço
ActiveCell.Offset(0, 1).Select
ActiveCell = txt_bairro
ActiveCell.Offset(0, 1).Select
ActiveCell = prev_faturamento
ActiveCell.Offset(0, 1).Select
ActiveCell = data_faturamento
ActiveCell.Offset(0, 1).Select
ActiveCell = prev_chegada
ActiveCell.Offset(0, 1).Select
ActiveCell = previ_entrega
ActiveCell.Offset(0, 1).Select
ActiveCell = status_faturamento
ActiveCell.Offset(0, 1).Select
ActiveCell = dias_estoque
‘ActiveCell.Offset(0, 1).Select
‘ActiveCell = pedido
‘ActiveCell.Offset(0, 1).Select
‘ActiveCell = negociação
ActiveCell.Offset(0, 3).Select ‘ aqui, somei duas colunas, ou seja, deixa de fora as colunas P e Q porque têm formulas
ActiveCell = conferência
ActiveCell.Offset(0, 1).Select
ActiveCell = situação
ActiveCell.Offset(0, 1).Select
ActiveCell = observaçãoUnload Me
form_cadastro.ShowEnd Sub
Boas,
Acho que o assunto tem mais a ver com o tamanho das colunas.
Experimenta, nas propriedades da tua ListBox, colocar o tamanho das colunas que pretendes mostrar, separadas por ponto e vírgula (;), ou seja, por exemplo: 100;10;20 (no caso de teres três colunas).
Se pretenderes efectuar isso através de uma Listbox incorporada num Userform, então, o código poderá ser:
UserForm1.Listbox1.ColumnWidths = 100; 10; 20.Fica bem e diz qq coisa, ok?
Anderson,
Experimenta, adaptando:
Option Explicit
Sub Oval4_Clique() ‘ Este é o nome do botão criado para executar o código
Dim cl As Range, rTest As RangeSet rTest = Range(“F1”, Range(“F1”).End(xlToRight))
For Each cl In rTest
If Not cl.Value = “não” Then
cl.EntireColumn.Hidden = True
End If
Next cl
End Sub
Sub Triânguloisósceles6_Clique() ‘ Este é o nome do botão criado para executar o códigoColumns(“F:X”).EntireColumn.Hidden = False ‘ Aqui está a coluna X como última coluna, mas pode ser a que se quiser
Range(“A1”).Select
End SubAnderson,
Estive a tentar adaptar o meu código à tua planilha. Experimenta a planilha que te envio em anexo. Contém dois novos botões de comando: o primeiro, para colocar hidden as colunas que tenham a palavra “sim” na primeira célula; o segundo, é para voltar a mostrar todas as colunas novamente.
Diz qq coisa, ok?
Fica bem.
Anderson,
Experimenta, adaptando:
Option Explicit
Sub Esconder()
Dim cl As Range, rTest As RangeSet rTest = Range(“A1”, Range(“A1”).End(xlToRight))
For Each cl In rTest
If Not cl.Value > 0 Then
cl.EntireColumn.Hidden = True
End If
Next cl
End Sub———————–
Sub mostrar()
Columns(“A:I”).EntireColumn.Hidden = False ‘ Aqui está a coluna I como última coluna, mas pode ser a que se quiser
Range(“A1”).Select
End SubFica bem e diz qq coisa, ok?
Anderson,
Qualquer coisa como isto – botão de comando com esta macro – (adaptado, é claro, às tuas necessidades), faz com que a célula a selecionar seja na seguinte linha, na coluna C, mas há que ter em atenção que a coluna C tem que estar vazia abaixo do último nome inserido ( o que, no teu caso, não é verdade, uma vez que tens dados entre C74:C78):
Sub Vai_Local()
Dim RNum As Integer
MySheet = ActiveSheet.Name
Worksheets(MySheet).Select
RNum = Sheets(MySheet).Range(“C” & Rows.Count).End(xlUp).Row + 1
Cells(RNum, 3).Select
End SubFica bem e diz qq coisa, ok?
Boas, Albino!!!!
Começa por aqui…. Pode ser que te ajude. De qq modo, se tiveres dificuldades, mostra um pequeno projecto em Excel, para melhor compreensão do problema, ok?
Abraço.
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim Dta1 As String
Dim Dta2 As StringWorksheets(1).Select
Dta1 = Worksheets(1).Range(“Y9”).Value
Dta2 = Worksheets(1).Range(“Y11”).Value
If Dta1 = “” Or Dta2 = “” Then
MsgBox ” É favor colocar data”, vbOKOnly, “Aviso”
Range(“Y9”).Select
Exit Sub
Else
Worksheets(2).Select
Worksheets(2).Range(“$A$5:$L$5000″).AutoFilter Field:=2, Criteria1:=”>=” & Dta1, Operator:=xlAnd, Criteria2:=”<=” & Dta2Application.ScreenUpdating = True
End IfEnd Sub
Boas, Albino,
Dá uma olhada neste link: http://www.mrexcel.com/forum/excel-questions/51199-user-name-password-open-excel-file.html
Pode ser que te dê algumas pistas para o que pretendes..
Fica bem e diz qq coisa, ok?
Boas, Rick!
Podes começar, vendo o seguinte link: http://www.fontstuff.com/vba/vbatut10.htm
Fica bem.
Olá Ana,
Crias uma nova coluna A e digitas, por exemplo, em A2, a seguinte fórmula, que, depois copiarás pela coluna A até à ultima linha que pretendas: =”0″&SUBTOTAL(2;B$2:B2)&”0″. O resultado será 010, 020,030, etc. Quando fizeres o filtro, a sequência será alterada apenas para as linhas visíveis, como segue: 010,020,030, etc.
Envio um ficheiro com o exemplo, a fim de adaptares, certo?
Depois, diz qq coisa, ok?
Fica bem.
Olá Elza,
Julgo que o que pretendes, será um pouco difícil… No entanto, sempre podes utilizar no teu documento, um campo “linkado” a uma célula de uma folha de Excel, que contenha o resultado fornecido pela Função PROCV() a partir de uma tabela.
Se isso for razoável para os teus intentos, diz-me, que eu tentarei explicar como deverás fazer, ok?
Fica bem.
José,
Se formatares a coluna I como número e repetires a introdução da fórmula na coluna J, já dará, como poderás ver no anexo que te reenvio. Eu, na coluna D, tinha como texto, mas o correcto é colocar como número.
Fica bem e diz qq coisa, ok?
Boas, Jomamata,
Uma resposta possível: através de formula, retornando os valores correctos numa nova coluna (por exemplo coluna E) e dando os resultados na coluna F.
Fórmula a copiar de E3 até onde pretenderes dentro desta coluna:
=SE(DIREITA(D3;1)=”-“;”-“&ESQUERDA(D3;NÚM.CARACT(D3)-1);”+”&ESQUERDA(D3;NÚM.CARACT(D3)-1))*1
Reenvio-te a planilha com as fórmulas, para melhor compreensão.
Fica bem e diz qq coisa, ok?
