Novas respostas marcadas com a tag excel-vba
0
tl;dr
Acredito que a formular SES resolva seu problema.
Sintaxe simples
Geralmente, a sintaxe da função SES é:
=SES([Algo é verdadeiro1, Valor se verdadeiro1,Algo é verdadeiro2,Valor se verdadeiro2,Algo é verdadeiro3,Valor se verdadeiro3)
Observe que a função SES permite testar até 127 condições diferentes. No entanto, não é recomendável aninhar muitas ...
respondida 4/03 às 19:02
David
4.27733 medalhas de ouro2424 medalhas de prata5757 medalhas de bronze
1
O problema é que o range que você está tentando excluir é variável, então antes de excluir você precisa descobrir quais são essas linhas usando a propriedade UsedRange.
' aplicar filtro
ActiveSheet.Range("$A$1:$K$161").AutoFilter Field:=2, Criteria1:= _
"=*EXT-11198*", Operator:=xlAnd
' pegar a área filtrada exceto o cabeçalho
Set ...
0
Salve!
O evento que detecta alterações em determinado campo é o Change do objeto Worksheet.
Se a rotina AdicionaConta já estiver no código do objeto Worksheet dessa planilha específica, é só adicionar o evento, como por exemplo:
Private Sub Worksheet_Change(ByVal Target As Range) ' O evento nos traz o objeto target, do tipo Range, que é a Range que foi ...
0
Tente desta forma:
For Each Item In IE.document.getelementsbytagname("tr")
If InStr(Item.InnerText, "SEU TEXTO FIXO") > 0 Then 'verifica se contém o texto
MeuTexto = Item.InnerText
End If
Next
0
Tente adicionar o seguinte ao codigo do email. Ajuste conforme necessário:
Const MyPath = "C:\Assinatura\"
Const MyPicture = "Assinatura1.jpg"
With CreateObject("Outlook.Application").CreateItem(0)
.Attachments.Add MyPath & MyPicture
.HTMLBody = "<html><p>This is a picture</p>" &...
0
Bom dia
O Excel tem uma Worksheet.function chamada Dec2Bin. Já experimentou?
Pode também experimentar (codegrapper.com):
Function DecToBin$(ByVal n&)
Do
DecToBin = n Mod 2 & DecToBin
n = n \ 2
Loop While n
End Function
Exemplo: MsgBox DecToBin(9512489) '<--resultado: 100100010010011000101001
0
Boa tarde Thaís,
Tudo bem com você?
Minha sugestão de código ficou gigante, mas acredito que resolverá seu problema.
Primeiramente, note que a estrutura das abas que eu usei para testar são as seguintes:
Aba "Base_Distribuicao":
Aba "base":
Basicamente, o que eu fiz foi copiar os cabeçalhos e valores que você queria transformar em ...
-1
Veja se o problema está nas configurações de formatação.
1
Olá,
Você pode fazer da seguinte forma:
ultCel = ActiveSheet.ListObjects("Tabela1").Range.Rows.Count 'Identifica a última linha
I = 2
Do Until ultCel = Empty
If Range("A" & I).Value = Empty Then
ultCel = Range("A" & I).Row 'Paga a linha vazia
Exit Do 'Sai do loop
End If
I = I + 1
Loop
1
Olá!
Como vai?
Eu testei seu código (obviamente, adaptando para salvar os arquivos nas minhas pastas) e o resultado foi que o código criou uma pasta com o valor da célula A9 na mesma pasta em que a planilha estava salva e o arquivo .txt foi salvo em outra pasta dentro do " C:\ " .
Pelo o que eu entendi da sua pergunta, você quer salvar o .txt ...
0
Na verdade o próprio erro já está falando: "Tipos incompatíveis". Isso significa que o programa não consegue comparar os dois valores para verificarem se são iguais e também não consegue converter um valor de um tipo para o tipo do outro para tentar comparar.
Para evitar o erro tente adicionar uma camada de verificação a mais para verificar se os ...
-1
Encontrei uma solução para o problema. Insira os dados assim no excel:
Sheets("Exemplo").Cells(1, 1).Value = DateAdd("yyyy", 0, VBA.Format(UserForm1.TextBox1.Value, "dd/mm/yyyy"))
Funciona 100%
0
Poxa... por favor, você criou as planilhas auxiliares que eu mencionei na explicação?
Além disso, o código que eu passei você incorporou no código original ou inseriu em um módulo separado?
O ideal é inserir em um módulo separado, com o código todo e as abas auxiliares. Esse erro que você apontou costuma ocorrer quando algum intervalo não está definido no ...
As 50 principais respostas recentes são incluídas
Tags relacionadas
excel-vba × 306vba × 228
excel × 147
macro × 19
visual-basic-6 × 9
excel-userform × 9
selenium × 5
internet-explorer × 5
userform × 5
selenium-webdriver × 4
planilhas × 4
listbox × 4
html × 3
sql × 3
banco-de-dados × 3
web-scraping × 3
vbscript × 3
string × 2
xml × 2
algoritmo × 2
vb.net × 2
loop × 2
data × 2
pdf × 2
busca × 2