[URGENTE! Ajuda num trabalho de VBA]

Oi! Seria isto:

Range("A1").Value = ComboBox1.Text

Range("A2").Value = TextBox1.Text

[Setar valor de célula para uma forma]

Oi,

Exemplo de uma planilha com 4 retângulos:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

For i = 1 To ActiveSheet.Shapes.Count

Valor = Range("A" & i).Value

If Valor = 1 Then

ActiveSheet.Shapes("Retângulo " & i).Visible = msoTrue

ElseIf Valor = 2 Then

ActiveSheet.Shapes("Retângulo " & i).Visible = msoFalse

End If

Next i

End Sub

[Colar como valor em uma nova planilha]

Oi,

se quiser copiar e colar, pode fazer assim:

Sheets("Plan1").Rows("1:1").Copy

Sheets("Plan2").Cells(1, 1).PasteSpecial Paste:=xlPasteValues

[Ativar Userform Dependendo do valor da celula]

Oi!

segue uma sugestão:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address = "$A$1" Then
Exit Sub
End If

Select Case Range("A1").Value
Case 1
UserForm1.Show
Case 2
UserForm2.Show
Case 3
UserForm3.Show
End Select

End Sub

[Ajuda - Implementação de condiçoes]

Acho que não poderei lhe ajudar neste caso, pois seria necessário analisar todos os critérios para propor uma solução.

[Copiar somente char em uma planilha]

Oi,

sugestão:

if WorksheetFunction.IsText(Valor) then .....'retorna verdadeiro se o conteúdo da variável Valor for do tipo texto (string).

WorksheetFunction pode usar todas as fórmulas de planilha dentro do VBA.

Observe que if IsNumeric(Valor) Then 'Retorna verdadeiro se o conteúdo da variável Valor for qualquer tipo de número, não apenas para inteiros (Intenger). ex. 1 ou 1,1 ou 11,11

[Ajuda - Implementação de condiçoes]

Oi, Maxx77!

Talvez isto ajude:

ActiveSheet.Copy
ChDir "C:\Destino"
ActiveWorkbook.SaveAs Filename:="C:\Destino\Pasta1.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

Isto copia a planilha ativa para um novo arquivo de Excel.

Depois salva na pasta préviamente criada que nomeada como 'Destino'

[erro 91]

Oi, Danyy!

Nesses casos prefiro fazer assim:

Sub Erro()

On Error Resume Next 'De preferência no início

Do While ...

selection.Find...

If Err.Number <> 0 Then 'Se ocorrer um erro a propriedade Number será diferente de zero

msg = MsgBox("Erro " & Err.Number & " " & Err.Description) ' Se quizer mostrar o erro

Windows("RELATORIO DESCONTO.XLSX").Activate
ActiveCell.Offset(1, 0).Select

Err.Clear 'Limpa o erro para a próxima execução

End If

loop...

Acredito que o uso de 'On Error GoTo trataerro' seria mais indicado em casos que 'trataerro:' fosse usado fora do loop, que tivesse maior números e de preferência antes de 'End Sub' para encerrar o procedimento.

espero ter ajudado!

[erro 91]

Oi, Danyy!

Este erro é esperado quando nenhum valor correspondente à pesquisa é encontrado.

A solução é mesmo o tratamento de erro.

[Fechar userform]

Oi, Daniel!

Sugiro o seguinte:

Unload Me 'fecha o formulário, no caso o formulário de login

Private Sub UserForm_Terminate() 'este evento ocorre após o fechamento do formulário
UserForm2.Show 'inicia o segundo formulário
End Sub

[VBA IF E ELSE]

Oi, Admilton!

a sintaxe é

If condição Then

...

Elseif condição Then

...

End If

Private Sub textbox1_change()

IF (textbox2 * textbox3) > (textbox2 * textbox4) then

textbox1 = textbox2 * textbox3

Elseif (textbox2 * textbox3) < (textbox2 * textbox4) then

textbox1 = textbox2 * textbox4

End IF

End Sub

[Como pegar apenas parte de uma celula com vba]

Oi!

Segue uma sugestão:

vTexto = "111 - aaa22"

vPosição = InStr(1, vTexto, "-")

vTexto = Mid(vTexto, 1, vPosição - 2)

'a função InStr retorna a posição de "-" a partir da posição 1

'Mid retorna parte de um texto. Observe que "-" está na posição 5

Lembrando que no Excel podem ser usadas as funções LOCALIZAR() e EXT.TEXTO()

Em muitos casos é melhor usar a ferramenta 'Texto para colunas' disponível na guia Dados.

[Relatório somando de forma agrupada]

Anacleto,

Este exemplo classifica em ordem crescente uma tabela com auto filtro que inicia na célula A1 da planilha Plan1:

Sub Macro1()

Set Tabela = ActiveWorkbook.Worksheets("Plan1").AutoFilter.Sort

Tabela.SortFields.Clear

Tabela.SortFields.Add Key:=Range("A1"), Order:=xlAscending

Tabela.Apply

End Sub

[Tocar som em determinada hora]

Oi, Nelson!

Se ainda precisar, segue uma sugestão:

Application.OnTime TimeValue(Hora), Rotina

Hora é a hora em que a rotina deve ser executada.

Rotina é uma Sub salva no mesmo projeto.

A execução do código continua, mas a Rotina fica agendada pra ser executada.

este exemplo agenda 3 execuções da Rotina:

Application.OnTime TimeValue(Hora1), Rotina

Application.OnTime TimeValue(Hora2), Rotina

Application.OnTime TimeValue(Hora3), Rotina

[Calculo entre Horários]

Oi, Anacleto!

Uma solução simples pode ser:

Private Sub TextBox1_Enter()

If TextBox1.Text = "24:00" Then

TextBox1.Text = "00:00"

End If

End Sub

[Pesquisa por código ou descrição]

Oi, Enso!

Observe que um vetor inicia na posição 0.

então acho que precisa fazer algo assim:

For i = 0 To 31
coluna(i) = x.Columns(i+1)
Next i

Range("A" & y).Value = coluna(0)

também pode ser interessante copiar toda as colunas de uma só vez com o método copy

[VBA para limpar filtros de tabelas dinâmicas]

Oi, Edu Borges!

Set T1 = ActiveSheet.PivotTables("Tabela dinâmica1")

T1.PivotFields("Treinamento").ClearAllFilters

T1.PivotFields("Treinamento").CurrentPage = "Treinamento1"

End Sub

A instrução Set faz com que T1 represente a mesma coisa que ActiveSheet.PivotTables("Tabela dinâmica1"), assim podemos usar T1 para se referir a tabela dinâmica de nome Tabela dinâmica1.

Supondo que temos um filtro de relatório chamado Treinamento podemos usar o método ClearAllFilters para limpá-lo.

Supondo que temos um treinamento chamado Treinamento1 podemos a propriedade CurrentPage = "Treinamento1" para reativar o filtro.

segue um exemplo com parâmetros que tu pode usar para todas as tabelas dinâmicas:

Sub Atualizar(Tabela, Campo, Filtro)

Set T1 = ActiveSheet.PivotTables(Tabela).PivotFields(Campo)

T1.ClearAllFilters

T1.CurrentPage = Filtro

End Sub

Sub Principal()

Atualizar "Tabela dinâmica1", "Treinamento", "Treinamento1"

End Sub

[Função da Combobox]

Oi, slaino!

Copiei teu código e funcionou direitinho.

[VBA Excell Ocultar Linha se 4 celulas em diferentes colunas forem &#34]

Oi!

Este exemplo oculta as linhas 1 a 15 se o a células A1 e B2 estiverem vazias:

If Range("A1").Value = Empty and Range("B1").Value = EmptyThen

Rows("1:15").EntireRow.Hidden = True

End If

[Iniciando com VBA]

Oi, Claudio!

tente usar ActiveWorkbook.Sheets(1) para se referir a planilha 1 do arquivo ativo, neste caso o arquivo que acabou de ser aberto

outra sugestão é usar Set MinhaPlanilha = ActiveWorkbook.Sheets(1), assim não é necessário usar With-End With

use MinhaPlanilha.propriedade, assim é possível se referir esta planilha mesmo quando outra planilha estiver ativa.

[Código para quebra texto em células mescladas - Excel 2007]

Oi!

Teria um exemplo?

[combobox -AJUDEM POR FAVOR!]

Oi, raqkg!

Ainda precisa de ajuda?

[Excel VBA: Armazenar parte de uma condicional (if) dentro de uma variá]

Seria isto?

if verde = true then
condicao = "Verde"
else
condicao = "padrão"
end if

If Sheets("Cores").Cells(lin, 2) = "Ativo" AND Sheets("Cores").Cells(lin, 3) = condicao Then
'executa a ação
End If

se a primeira célula for igual a "Ativo" e a segunda célula for igual cor contida na variável condicao a ação deverá ser executada.

[Planilha Visivel]

Oi, Danny!

application.visible se refere a toda a aplicação, no caso todas os arquivos de Excel abertos.

talvez este recuso seja interessante no teu caso: ActiveWorkbook.IsAddin = True

mas cuidado, pois outro arquivo estiver ativo quando esta instrução for executada, ela também desaparecerá, por isso é melhor se referir ao workbook pelo nome.

no final não esqueça de mudar .IsAddin para false.

Se tiver problema durante o desenvolvimento, mude manualmente na janela de propriedades.

[VBA usando IF]

Oi, Adimilson!

Acho o problema é esta parte "Fretepeso2 ="

tente:

ElseIf Format(CDbl(Fretepeso) * CDbl(Peso) > CDbl(Fretepeso) * CDbl(cubagem), "#,##0.00") Then

ou

ElseIf (Fretepeso * Peso) > (Fretepeso * cubagem) Then