Muca Costa

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

Tente assim: def __init__(self, username, password): def login(self):

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()

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

Se for possível, anexe suas planilhas.

Veja se dá pra adaptar o exemplo anexo... DadosOutraPlanilha.rar

A Aba General é atualizada automaticamente de acordo com as informações inseridas na Base de Dados...

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

Veja se é isso! ... Planilha_de_Vendas_OUT_19_a_SET_20_(JCB).xlsx

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

Veja se o anexo lhe ajuda. você pode aproveitar a ideia e adaptar às suas necessidades... AtualizarAbas.rar

Tente assim: =SE(R5="";I5;"")

Desculpe a ignorância, mas "não estou entendendo nada"...

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

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