DECOVIOTI

Olá Pessoal Eu estou desenvolvendo um formulário no VBA que tem o "Text 1" and "Text 2" os quais estou tentando realizar uma subtração entre eles e mostrar o resultado em um Text3. No momento estou utilizando a macro abaixo a qual esta funcionando. O meu problema e que estou tentando criar uma validação, na qual, por exemplo, se o usuário digitar no "Text 1" = 1000 e no "Text 2" = 2000, gostaria que o vba exibisse uma mensagem para o usuário do tipo "Text1" não pode ser menor que o "Text2". e dar um reset no Text1 and Text 2 Sera que alguém pode me ajudar? Sub SubtrairTXT() ' On Error Resume Next If Text1.Value <> "" And Text2.Value <> "" Then If Text1.Value >= 0 And Text2.Value >= 0 Then Text3.Value = Text1.Value - Text2.Value Text3.Value = Format(Text3.Value, "$#,##0.00;-$#,##0.00") Else Cancel = True End If Else Cancel = True End If End Sub Obrigado

Olá Pessoal Estou tendo problemas para mostrar corretamente os gráficos em um form vba Tenho 11 gráficos. Eu já tentei maneiras diferentes. Na máquina o código vba funciona bem, mas quando outro usuário tenta acessar via OneDrive. Recebe a mensagem de erro. Alguem pode me ajudar? Private Sub UpdateChart() 'Save the chart in the GIF format 'Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.gif" FName = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\temp_chart.jpg" 'On Error Resume Next 'On Error GoTo 0 Set CurrentChart = Sheets(".").ChartObjects(ChartNum).Chart CurrentChart.Parent.Width = 670 CurrentChart.Parent.Height = 360 CurrentChart.Export Filename:=FName, FilterName:="jpg" ' Load the chart to the form Image1.Picture = LoadPicture(FName) End Sub

Olá Pessoal Eu tenho uma pasta de trabalho com 11 planilhas e em cada uma dessas planilhas eu tenho uma imagem de um gráfico. Eu gostaria de ter um vba macro que copie e cole uma de cada imagem em um novo slide em uma nova apresentação de power point. Você poderia me ajudar?

Obrigado @Midori Agora para que cada célula da planilha Sumario recebesse o resultado do "Count.se", eu teria que fazer um Loop de repetição? Poderia me auxiliar, sou relativamente novo com o VBA..

Sera que alguém pode me ajudar, por favor?

Ola Pessoal. Gostaria de uma ajuda. Eu tenho uma planilha sumario em anexo que precisa receber a quantidade de funcionários por cargo. Eu gostaria de criar uma macro para que a mesma fosse ate a planilha base que contem a lista de funcionários e fizesse um "Count.Se" na coluna Cargo, que neste caso seria a coluna "A" e que fica salva em um outra pasta. como, por exemplo, no drive C : \. Podem me ajudar, por favor? Sumario.xlsx Base.xlsx

se eu quiser um label e por background como transparente , pode ser possível?

Ola @Basole Acabei conseguindo usando a sua orientação. Agora o usuário perguntou se e possível ao passar o mouse sobre a célula, se e possível mudar a cor da fonte ou background da celula Seria possivle?

Ola Pessoal Estou tentando criar uma "tooltip" em uma célula especifica, por exemplo: "A1". Nessa célula existe a informação, por exemplo, "Calculo de Vendas". E quando o usuário passar o mouse em cima dessa célula, será exibida uma mensagem explicativa, por exemplo, "Teste" E quando o usuário tirar o mouse dessa célula, a mensagem (tooltip) desapareça. No estilo de um comentário, mas sem aquele pequeno triângulo vermelho no canto superior da célula. E possível criar isso no VBA?

@osvaldomp Ola Tudo bem? Agradeco muito a orientacao Por uma questão de confidencialidade, tive que renomear as colunas. Consegui realizar o que queria usando o código o qual achei em outro site. Estou disponibilizando caso alguém também precise. Columns("I:I").Select Selection.TextToColumns Destination:=Range("I:I"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _ :=Array(1, 4), TrailingMinusNumbers:=True Ate a proxima

@osvaldomp Grato pela mensagem/orientação Eu anexei o arquivo juntamente com o código que estou utilizando No arquivo em questão, há 2760 registros, onde temos uma coluna chamada "Data depois da importacao", uma coluna chamada "Data Antes da importacao". Sub Import() Dim lin, linfinal, rg As Double Dim sDir, sPath As String 'Clean data Sheets("Data").Range("A2:AP100000").ClearContents 'Improve the performance of the macro With Application .ScreenUpdating = False .DisplayAlerts = False End With 'Determine the location and name of the file sPath = Sheets("Data").Cells(1, 73).Value sDir = Sheets("Data").Cells(1, 75).Value Workbooks.Open Filename:=sPath & sDir Range("A2").Select Range("A2", Cells([A1].CurrentRegion.Rows.Count, [A1].CurrentRegion.Columns.Count)).Copy Workbooks(sDir).Close False 'Paste the data inside the dataset Range("A1048576").End(xlUp).Offset(1, 0).PasteSpecial Range("A1").Select 'linfinal = Sheets(1).Cells(Cells.Rows.Count, "G").End(xlUp).Row linfinal = Cells(Rows.Count, "G").End(xlUp).Row 'Insert the borders to the dataset With Range("A1") .CurrentRegion.Borders.LineStyle = xlContinuous End With 'User Message rg = Range("A1048576").End(xlUp).Row MsgBox "Number of records uploaded is: " & rg, vbOKOnly + vbInformation, "System Alert" & " " & Format(Now(), "dd/mmm/yyyy") End Sub Dataset.zip

O que acontece comigo e isso datas 01 a 12/mm/aaaa são gravadas na planilha Excel, erroneamente, como mm/dd/aaaa. O formato dessas células aparece como DATA. Ou seja, o Excel está interpretando dias de 01 a 12 como se fossem meses e alterando o formato da célula. b) datas 13 a 31/mm/aaaa são gravadas corretamente na planilha Excel como dd/mm/aaaa. O formato dessas células aparece como GERAL.

Eu preciso na verdade que o dado em si sejam alterado, não só formato.

OK Mas como eu posso corrigir isso? Eu preciso que ficar no formato "DD/MM/YYY"

Hello Pessoal Eu tenho uma macro que realiza a importação de uma planilha para a outra. O campo data fica na coluna "I" e por algum motivo, após a importação ser feita, a data esta sendo invertida Como por exemplo, de 12/08/2020 para 08/12/2020. Podem me ajudar? Book2.xlsx