-
Posts
3.542 -
Cadastrado em
-
Última visita
Tipo de conteúdo
Artigos
Selos
Fabricantes
Livros
Cursos
Análises
Fórum
Tudo que Midori postou
-
Excel VBA excluir linhas que contém de 0 à 180
Midori respondeu ao tópico de jcgmcs em Microsoft Office e similares
Este tópico deve ajudar, Aplique o mesmo método no loop. O critério será If Valor >= 0 And Valor <= 180. https://www.clubedohardware.com.br/forums/topic/1563307-código-vba-excel-excluir-varias-linhas-baseadas-se-uma-certa-palavra-existe -
Outro Erro em tempo de execução 9 Subscrito fora do intervalo
Midori respondeu ao tópico de barbara amorin em Programação - outros
Um dos motivos desse erro é quando a aba não existe. Verifique se o nome é Geral mesmo. -
Excel VBA - Fazer ComboBox listar na ListView somente "ON" ou "OFF"
Midori respondeu ao tópico de jcgmcs em Microsoft Office e similares
Uma alternativa para a questão das listagens é usar RowSorce no lugar de Add, mas para isso teria que trocar o ListView por ListBox já que o View não tem essa propriedade. -
Excel VBA - Fazer ComboBox listar na ListView somente "ON" ou "OFF"
Midori respondeu ao tópico de jcgmcs em Microsoft Office e similares
With ListView1 .Gridlines = True .View = lvwReport .FullRowSelect = True .MultiSelect = True .ColumnHeaders.Clear .ColumnHeaders.Add Text:="ID", Width:=35, Alignment:=0 .ColumnHeaders.Add Text:="Cliente", Width:=220, Alignment:=0 'Alinh. Esquerda ... -
Excel VBA - Fazer ComboBox listar na ListView somente "ON" ou "OFF"
Midori respondeu ao tópico de jcgmcs em Microsoft Office e similares
Assim não vai funcionar porque Clear é o procedimento e não a classe. O VBA mostra os membros de uma classe assim, Se digitar o ponto depois de Clear o VBA não tem como listar algo. Então é simples, basta chamar Clear uma única vez. -
Word preciso de ajudar para baixar o pacote office
Midori respondeu ao tópico de Joao vitor Gomes211 em Microsoft Office e similares
Para uso doméstico e pagamento único a microsoft.com também oferece a licença do office home & student 2021. -
Excel VBA - Fazer ComboBox listar na ListView somente "ON" ou "OFF"
Midori respondeu ao tópico de jcgmcs em Microsoft Office e similares
ColumnHeaders é uma classe. Quando você adicionou as colunas, chamou Add que é membro dela assim como Clear também é. No caso de Add você passou argumentos, mas Clear não tem nenhum. Então é só fazer a chamada de Clear antes de Add. -
Excel Erro 1004 VBA Excel
Midori respondeu ao tópico de Ismael Garcia em Microsoft Office e similares
Devia funcionar mesmo com a planilha oculta. Talvez o problema seja nas variáveis. Verifique se os valores das linhas são válidos. -
Excel VBA - Fazer ComboBox listar na ListView somente "ON" ou "OFF"
Midori respondeu ao tópico de jcgmcs em Microsoft Office e similares
Para não duplicar chame o procedimento Clear, membro de ColumnHeaders. -
Excel VBA - Fazer ComboBox listar na ListView somente "ON" ou "OFF"
Midori respondeu ao tópico de jcgmcs em Microsoft Office e similares
No seu procedimento Carregar_Dados você pode colocar um parâmetro para escolher isso, p.ex, Enum dtStatus dtTodos dtON dtOFF End Enum Sub Carregar_Dados(Optional Status As dtStatus = dtTodos) Dim Carrega As Boolean On Error GoTo Erro ... With ListView1 Carrega = True If Status = dtON And Plan1.Cells(Linha, 14).Value <> "ON" Then Carrega = False ElseIf Status = dtOFF And Plan1.Cells(Linha, 14).Value <> "OFF" Then Carrega = False End If If Carrega = True Then Set Lista = ListView1.ListItems.Add(Text:=Plan1.Cells(Linha, 2).Value) 'Cód. "B" Lista.ListSubItems.Add Text:=Plan1.Cells(Linha, 3).Value 'Cliente "C" Lista.ListSubItems.Add Text:=Plan1.Cells(Linha, 4).Value 'Contato "D" Lista.ListSubItems.Add Text:=Plan1.Cells(Linha, 5).Value 'Fixo/Celular "E" Lista.ListSubItems.Add Text:=Plan1.Cells(Linha, 6).Value 'WhatsApp "F" Lista.ListSubItems.Add Text:=Plan1.Cells(Linha, 7).Value 'Cidade "G" Lista.ListSubItems.Add Text:=Plan1.Cells(Linha, 8).Value 'Bairro "H" Lista.ListSubItems.Add Text:=Plan1.Cells(Linha, 9).Value 'HáDias "I" 'Lista.ListSubItems.Add Text:=Plan1.Cells(Linha, 6).Text 'Col. com formatação R$ - Valor "G" 'Lista.ListSubItems.Add Text:=VBA.Format(Plan1.Cells(Linha, 7).Value, "Currency") 'Col. sem formatação R$ - Valor "G" Lista.ListSubItems.Add Text:=Plan1.Cells(Linha, 10).Text 'Cont.Dia "J" Lista.ListSubItems.Add Text:=Plan1.Cells(Linha, 11).Value 'Observações "K" Lista.ListSubItems.Add Text:=Plan1.Cells(Linha, 12).Text 'OnlineDia "L" Lista.ListSubItems.Add Text:=Plan1.Cells(Linha, 13).Text 'ComprDia "M" Lista.ListSubItems.Add Text:=Plan1.Cells(Linha, 14).Text 'StatusZap "N" End If ... E no Combo, Private Sub cbStatusZAP_Change() If cbStatusZAP.Value = "ON" Then Call Carregar_Dados(dtON) Else Call Carregar_Dados(dtOFF) End If End Sub -
Excel Macro copia e cola PDF a partir da busca de uma lista
Midori respondeu ao tópico de pedroch em Microsoft Office e similares
Veja se assim resolve, Sub CopiaArquivos() Dim Dialogo As FileDialog Dim Area As Range Dim Nome As Range Dim TermoNE As Range Dim DirOrig As String Dim DirDest As String Dim Arquivo As String Set Area = [A2:A30] Set TermoNE = [E2] Set Dialogo = Application.FileDialog(msoFileDialogFolderPicker) Dialogo.Title = "Origem" Dialogo.Show If Dialogo.SelectedItems.Count = 1 Then DirOrig = Dialogo.SelectedItems(1) Dialogo.Title = "Destino" Dialogo.Show If Dialogo.SelectedItems.Count = 1 Then DirDest = Dialogo.SelectedItems(1) If DirOrig <> "" And DirDest <> "" Then For Each Nome In Area Arquivo = DirOrig & "\" & Trim(Nome.Value) & ".pdf" If Dir(Arquivo) <> "" Then Call FileCopy(Arquivo, DirDest & "\" & Trim(Nome.Value) & ".pdf") Else TermoNE.Value = Nome.Value Set TermoNE = TermoNE(2) End If Next Nome Else MsgBox "Diretório(s) inválido(s)", vbExclamation End If End Sub -
Excel Macro copia e cola PDF a partir da busca de uma lista
Midori respondeu ao tópico de pedroch em Microsoft Office e similares
Você pode fazer só um loop na tabela e usar a função Dir para testar se o arquivo existe, é bem mais simples. Array é desnecessário. Não precisa de FSO e Shell para isso. O VBA tem FileCopy e, para pegar o diretório, FileDialog. -
Excel Macro copia e cola PDF a partir da busca de uma lista
Midori respondeu ao tópico de pedroch em Microsoft Office e similares
O nome dos arquivos são esses da coluna A, 48083823.pdf, 4808382.pdf...? -
O tamanho deve ficar pelo menos 250MB maior que o anterior. O seu parece suficiente.
-
Outro VB6: como usar vários 'or' e 'and'?
Midori respondeu ao tópico de Cambalinho em Programação - iniciantes
Nesse estilo não. -
@lucaslabam Em quanto estava a sua partição de recuperação? E depois do procedimento que tamanho ficou?
-
Resolvi o erro da atualização KB5034441 aumentando a partição de recuperação. Estava 519MB e deixei com mais de 1GB Este é o passo a passo para quem quiser fazer por própria conta e risco, https://support.microsoft.com/en-us/topic/kb5028997-instructions-to-manually-resize-your-partition-to-install-the-winre-update-400faa27-9343-461c-ada9-24c8229763bf
-
Excel Formula Excel 100% para validação premio
Midori respondeu ao tópico de Netobarbuio em Microsoft Office e similares
Se for no excel 365 você pode usar a fórmula ORDEM.EQ, =SEERRO(ÍNDICE($N$8:$N$14;ORDEM.EQ(K8;$K$8:$K$19));0) -
Outro VB6: como usar vários 'or' e 'and'?
Midori respondeu ao tópico de Cambalinho em Programação - iniciantes
Que tipo de macros? Do Office? -
Excel Formula Excel 100% para validação premio
Midori respondeu ao tópico de Netobarbuio em Microsoft Office e similares
Se anexar a planilha será mais fácil ajudar. Pode ser com dados fictícios, -
Excel somar células com fórmula matricial
Midori respondeu ao tópico de mcoumiotis em Microsoft Office e similares
Com Subtotal fica assim, =SUBTOTAL(9;INDIRETO(ENDEREÇO(MÍNIMO(LIN(B2:B14));COL(B:B))&":"&ENDEREÇO(LIN(B2:B14);COL(B:B)))) -
Outro VB6: como usar vários 'or' e 'and'?
Midori respondeu ao tópico de Cambalinho em Programação - iniciantes
É válido sim. -
Excel Captura e Armazena Dados Externos
Midori respondeu ao tópico de Alexandre José Costa em Microsoft Office e similares
@Alexandre José Costa As macros estão ativadas? Tentou rodar alguma para verificar isso? Pode ser um Msgbox. A macro vai pegar os dados da coluna E/ULT_Dados. Se não tiver nada lá o histórico vai ficar em branco. Estes são os resultados dos meus testes, Coloquei valores aleatórios para simular a atualização. -
Excel Captura e Armazena Dados Externos
Midori respondeu ao tópico de Alexandre José Costa em Microsoft Office e similares
Talvez as macros ou os eventos estejam desativados. Tenta rodar manualmente. Selecione Calculate e digite F5. -
Outro VB6: como usar vários 'or' e 'and'?
Midori respondeu ao tópico de Cambalinho em Programação - iniciantes
Não tem similar. Mas se o teste for simples, sem a necessidade de abrir um bloco, dá para fazer na mesma linha, p.ex, If X = 5 Then If Y = 5 Then MsgBox "X = 5 e Y = 5" Assim só acontece o teste do Y se X = 5.
Sobre o Clube do Hardware
No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais
Direitos autorais
Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais