Ir ao conteúdo
  • Cadastre-se

Muca Costa

Membro Pleno
  • Total de itens

    133
  • Registro em

  • Última visita

  • Qualificações

    0%

Reputação

44

Sobre Muca Costa

  • Data de Nascimento 24 de agosto

Informações gerais

  • Cidade e Estado
    São José dos Campos/SP
  • Sexo
    Masculino
  1. Tente assim: Sub Abrir_Exel_ou_Não() Dim RESPOSTA As Integer, ANS As Integer, xls As Object, excel As String RESPOSTA = vbYesNo + vbQuestion + vbDefaultButton2 ANS = MsgBox("Deseja Acesso os Dados?", RESPOSTA, "Prosseguir") If ANS = vbYes Then Set xls = CreateObject("Excel.Application") excel = "C:\Sistema_Certificados_Venda\Dados.xlsm" xls.Workbooks.Open (excel) xls.Visible = True Else End If ActiveDocument.Save Application.Quit End Sub
  2. Tente assim: def __init__(self, username, password): def login(self):
  3. Tente assim: import os dir = 'D:\Downloads\Muca' #Cria diretídio Muca os.makedirs(dir) arquivo = open(dir + '\Arq.txt','w') #Cria arquivo Arq.txt arquivo.write("Número: 010010\nCanção: Teste\nCantor: TESTE\nInício: T e s t e") arquivo.close()
  4. O código abaixo se destina a copiar texto de vários docx e colar, um seguido do outro, em um outro docx(Principal.docx. Funciona bem para pequenos textos (10 linhas por exemplo); porém quando o texto é longo ele até copia parte do texto, porém dá erro: File "d:/Documents/Cina/TRT 15/Estruturas/Python/Estrutura.py", line 13, in <module> PermissionError: [Errno 13] Permission denied: 'D:\\Documents\\Cina\\TRT 15\\Estruturas\\Python\\Principal.docx' Solicito ajuda para solucionar... import os from docx import Document from tkinter import filedialog as dlg Dir
  5. Se for possível, anexe suas planilhas.
  6. Veja se dá pra adaptar o exemplo anexo... DadosOutraPlanilha.rar
  7. A Aba General é atualizada automaticamente de acordo com as informações inseridas na Base de Dados...
  8. Veja se ajuda: Os eventos abaixo objetivam percorrer os códigos da coluna A informando, automaticamente, na célula F3 o item selecionado na coluna A. Basta você incluir sua macro de cálculos, exportação para PDF, etc.. Evento de Planilha: Click lado direito na Aba Base_Códigos > Exibir código e inclua o evento abaixo: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column <> 1 Then Exit Sub Range("F3") = Target.Offset(, 0).Value End Sub Em um módulo: Sub PercorreColunaA() Dim i As Long Dim iUltimaLinha As Long Dim iCol As
  9. Veja se é isso! ... Planilha_de_Vendas_OUT_19_a_SET_20_(JCB).xlsx
  10. Vai pra última célula preenchida: Sub Ultima() Dim lig As Long Lin = 1 'primeira linha a ser verificada Do While Not IsEmpty(Range("A" & Lin)) Lin = Lin + 1 Loop Range("A" & Lin - 1).Select End Sub
  11. Veja se o anexo lhe ajuda. você pode aproveitar a ideia e adaptar às suas necessidades... AtualizarAbas.rar
  12. Desculpe a ignorância, mas "não estou entendendo nada"...
  13. Tente assim: For i = 2 To UltimaLinha If Planilha1.Cells(i, 3) = Planilha1.Cells(i, 4) And Planilha1.Cells(i, 7) = "" Then Planilha1.Cells(i, 7) = Planilha1.Cells(i, 3) ElseIf Planilha1.Cells(i, 3) = 0 And Planilha1.Cells(i, 7) = "" Then Planilha1.Cells(i, 7) = Planilha1.Cells(i, 4) ElseIf Planilha1.Cells(i, 4) = 0 And Planilha1.Cells(i, 7) = "" Then Planilha1.Cells(i, 7) = Planilha1.Cells(i, 3) ElseIf Planilha1.Cells(i, 3) <> Planilha1.Cells(i, 4) And Planilha1.Cells(i, 3) <> 0 And Planilha1.Cells(i, 4) <> 0 And Planilha1.Cells(i, 7) = "" Then Planilh
  14. Se a célula R5 for maior que zero, então, a célula S5 fica em branco, caso contrário, a célula S5 fica com o valor que estiver em I5. =SE(R5>0;"";I5) Se a célula T5 for maior que zero, então, a célula U5 fica em branco, caso contrário, a célula U5 fica com o valor que estiver em K5. =SE(T5>0;"";K5) Se a célula V5 for maior que zero, então, a célula W5 fica em branco, caso contrário, a célula W5 fica com o valor que estiver em M5. =SE(V5>0;"";M5) Se a célula X5 for maior que zero, então, a célula Y5 fica em branco, caso contrário, a célula Y5 fica com o

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

×
×
  • Criar novo...

Redes-Wi-Fi-capa-3d-newsletter.png

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!