Basole

@Vinicius Passsos não entendi qual o formato desta placa de dados. É uma tabela, uma imagem? Acho que seria melhor anexar um exemplo, para tentarmos entender melhor o que precisa.

@Fernanda andrey bom dia, acredito que o problema não seja este que relatou. Que eu saiba, o whatsapp não permite diretamente importar contatos, esse processo é feito via contatos do aparelho e normalmente o formato do arquivo é o vCard(vcf). voce pode fazer esta conversão através do próprio windows e depois importar para o seu aparelho. Veja o passo-a-passo. http://wordpress.semnaitik.com/excel-to-vcard/ Ou se preferir converter diretamente no site https://thewebvendor.com/excel-to-vcf-vcard-online-converter.html

voce está utilizando a formatação personalizada "0#" nas colunas A a K. Sendo assim pode utilizar a seguinte formula, pra chegar ao resultado desejado =TEXTO(A1;"00") &TEXTO(B1;"00")& TEXTO(C1;"00")& TEXTO(D1;"00")&TEXTO(E1;"00")& TEXTO(F1;"00") & TEXTO(G1;"00") & TEXTO(H1;"00")& TEXTO(I1;"00") & TEXTO(J1;"00") & TEXTO(K1;"00") E se alterar a formatação para mais caracteres pode usar a formula =TEXTO(A1;REPT("0";CÉL("largura";A1)))

Sugiro disponíbolizar o arquivo exemplo pra entender melhor e fazer os testes de acordo com a formatação

O link que postei encontrei neste forum: https://www.hardware.com.br/comunidade/bat-converter/1109450/ E nenhum membro acusou virus, Leia aqui tambem: https://4sysops.com/archives/free-bat-to-exe-converter-4-ways-to-convert-a-batch-file-to-an-exe-file/#comment-243311 https://stackoverflow.com/questions/32168332/after-converting-batch-file-to-exe-windows-defender-shows-the-file-as-trojan-why https://www.cnet.com/forums/discussions/bat-to-exe-virus-262081/ Dica.: Coloque o comando do seu arquivo *.bat aqui, de repente alguém consegue compliar em *.exe para voce

experimente na celula [c1] =texto(a1;rept("0";núm.caract(a1))) & texto(b1;rept("0";núm.caract(b1)))

Não entendi a sua resposta. Não sei porque utiliza emoticons sendo que pode se expressar melhor através da escrita Aqui pra mim esse conversor converteu um arquivo com extensão *.bat para *.exe, perfeitamente. Se não é isso que precisa explique melhor o que precisa, por favor.

Utilize o evento calculate Exemplo Private Sub Worksheet_Calculate() If [H17] > [J7] And [H17] < [J8] Then MsgBox "Macro 1" End If End Sub

Segue link de um conversor https://www.4shared.com/postDownload/qrU_cIqA/Bat_To_Exe_Converter.html

Coloque este codigo em EstaPasta_de_trabalho na Planilha que deseja desabilitar este comando. Private Sub Workbook_Activate() Application.CellDragAndDrop = False End Sub Private Sub Workbook_Deactivate() Application.CellDragAndDrop = True End Sub

Sim, no Excel dá pra fazer isso mas para o Excel avisar sobre os períodos ele tem que estar aberto, neste caso então teria que o Excel trabalhar junto com o agendador do Windows, para abrir nas determinas datas.

Cole o código em EstaPasta_de_trabalho Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) On Error Resume Next Target.PasteSpecial xlPasteValues Application.CutCopyMode = True On Error GoTo 0 End Sub

Acredito que não tem como, pois o Excel Online segue as configurações regionais, e as configurações padrão segue o padrão americano. As configurações são ajustadas na conta do usuário, então tem que estar logada para ele entender; how-to-change-regional-settings https://support.office.com/en-us/article/change-your-personal-language-and-region-settings-caa1fccc-bcdb-42f3-9e5b-45957647ffd7

A no Excel 2010, função =INFORMAÇÃO("DIRETÓRIO"), retorna o caminho completo do arquivo planilha. Para o que voce está querendo, pesquise sobre a formula "Indireto" .

Veja se este exemplo lhe atende Cole o código em EstaPasta_de_trabalho Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _ ByVal Target As Excel.Range) Select Case Application.CutCopyMode Case Is = False Case Is = xlCopy Case Is = xlCut MsgBox "Por favor, NÃO corte e cole. Use Copiar e Colar, depois aperte o ESC" Application.CutCopyMode = False End Select End Sub

@ErickSant não precisa fazer tudo isso não, a não ser que queira guardar os dados em um banco. Basta criar um find no próprio Excel, para esta verificação. Mais tarde, assim que der um tempinho, eu preparo um exemplo e posto aqui.

@Jéssica De Moura Lima fiz as alterações,mas não tive como testar, Veja se é isso e de retorno por favor. . Sub Importar() Dim Abrir As String Dim Importarwb As Workbook Dim Importarguia As Worksheet Dim xlObj As Object On Error GoTo trataErro Set xlObj = CreateObject("excel.application") Abrir = Application.GetOpenFilename( _ FileFilter:="Arquivo do Excel (*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xlsm", Title:="Escolha o arquivo a ser importado") Set Importarwb = xlObj.Workbooks.Open( _ Filename:=Abrir, Password:="123") Set Importarguia = Importarwb.Worksheets(1) Application.ScreenUpdating = False 'Desbloquear guia e pasta de trabalho ThisWorkbook.Unprotect ("123") ActiveSheet.Unprotect ("123") 'Copiar dados Importarguia.UsedRange.Copy 'Limpar guia "Relatório" e colar dados ThisWorkbook.Worksheets("Relatório").Visible = True With Worksheets("Relatório") .Activate .Range(.Cells(1, 1), .Cells(10000, 90)).ClearContents .Cells(1, 1).Select .Paste .Visible = False End With Importarwb.Application.CutCopyMode = False 'Fechar arquivo externo If Not Importarwb Is Nothing Then Importarwb.Close False Set Importarwb = Nothing Set xlObj = Nothing End If 'Bloquear guia e pasta de trabalho ThisWorkbook.Protect Password:="123", Structure:=True, Windows:=False Sheets("Base de Contratos").Protect Password:="123", _ DrawingObjects:=True, _ Contents:=True, _ Scenarios:=True, _ UserInterfaceOnly:=True, _ AllowFormattingCells:=False, _ AllowFormattingColumns:=False, _ AllowFormattingRows:=True, _ AllowInsertingColumns:=False, _ AllowInsertingRows:=True, _ AllowInsertingHyperlinks:=False, _ AllowDeletingColumns:=False, _ AllowDeletingRows:=True, _ AllowSorting:=False, _ AllowFiltering:=True, _ AllowUsingPivotTables:=False trataErro: Application.ScreenUpdating = True If Not Importarwb Is Nothing Then Importarwb.Close False Set Importarwb = Nothing Set xlObj = Nothing End If MsgBox "Relatório importado com sucesso!" End Sub

Veja este outro modelo que encontrei nos meus arquivos. Fiz dois testes aqui e aparentemente está ok. 101.593,98 (Cento e um mil, quinhentos e noventa e três reais e noventa e oito centavos) 6.101.593,98 (Seis milhões, cento e um mil, quinhentos e noventa e três reais e noventa e oito centavos) ExtensoWord.zip

Sim! use a função Environ Exemplo Sub Teste_Path() Dim msg msg = "C:\Users\" & VBA.Environ$("USERNAME") & "\Desktop\novo sistig\cartas\carta de colaboração.doc" & VBA.vbCr msg = msg & "C:\Users\" & VBA.Environ$("USERNAME") & "\Desktop\novo sistig\cartas\carta de colaboração.doc" MsgBox msg End Sub

Após colar o codigo, tem que salva-lo com a extensão *.docm, habilitado com macros. No anexo, selecione o valor monetário e aperte o atalho de teclas, [ ctrl + q ]. Clube do Hardware.zip

Experimente inseri um modulo para colar o codigo.

Vamos la.... Plan1.Cells(2, 1).Value = CountFontColour(Plan1.Range(Plan1.Cells(4, 8), Plan1.Cells(a, 8)), Plan1.Range("C1")) Detalhando.... Plan1.Cells(2, 1).Value => A2, é a celula que receberá o resultado da contagem da cor Plan1.Range(Plan1.Cells(4, 8), Plan1.Cells(a, 8)) => H4:HX, é o intervalo que você deseja verificar. Plan1.Range("C1") => C1, é a célula com uma cor de fonte específica que você deseja contar.

@LarissaGontijo sim. Esta udf conta através da cor da fonte. Public Function CountFontColour(Range1 As Range, Range2 As Range) As Double Application.Volatile Dim rng As Range For Each rng In Range1 If rng.Font.Color = Range2.Font.Color Then CountFontColour = CountFontColour + 1 End If Next End Function =CountFontColour(H4:H10;C1) Na fórmula acima, H4:H10 é o intervalo que você deseja usar e C1 é a célula com uma cor de fonte específica que você deseja contar. E aqui você 'chama' a função dentro do seu código. Plan1.Cells(2, 1).Value = CountFontColour(Plan1.Range(Plan1.Cells(4, 8), Plan1.Cells(a, 8)), Plan1.Range("C1")) ' * ALTERE OS ENDEREÇOS DAS CELULAS ACIMA DE ACORDO COM A SUA PLANILHA * Coloque no final da sua macro

@Jéssica De Moura Lima acho que sim. Veja se é isso que deseja. Sub Salvar_dados() Dim wbNew As Workbook Dim wb1 As Workbook Dim wsN1 As Worksheet Set wbNew = Excel.Application.Workbooks.Add(1) Set wb1 = ThisWorkbook Set wsN1 = wbNew.Sheets(1) 'Copiar e colar como valores With wb1.Sheets("Base de Contratos") .Activate .Range("B12:CN100000").Select Selection.Copy Application.DisplayAlerts = False With wsN1 .Activate .Range("A1").Select .Name = "Relatório" End With Selection.PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False wb1.Sheets("Base de Contratos").Activate 'Gerar relatório de dados Application.DisplayAlerts = False wbNew.SaveAs Filename:="C:\Users\User\Documents\Relatório\" & "report" & "_" & Format(Now, "m.dd.yy hhmm") & _ ".xlsx", FileFormat:=51 Application.DisplayAlerts = True .Range("A1").Select wbNew.Close End With End Sub

voce pode usar essa udf (formula), para contar as células coloridas: Function CountCcolor(range_data As Range, criteria As Range) As Long Dim datax As Range Dim xcolor As Long xcolor = criteria.Interior.ColorIndex For Each datax In range_data If datax.Interior.ColorIndex = xcolor Then CountCcolor = CountCcolor + 1 End If Next datax End Function Fonte: https://support.microsoft.com/en-us/help/2815384/count-the-number-of-cells-with-specific-cell-color-by-using-vba ..onde: C2:C51 é o intervalor que sera contado F1 a cor que sera veriifcada