Private Sub Workbook_Open() linhadados = 2 Do While Sheets(1).Cells(linhadados, 5).Value <> "" If Sheets(1).Cell...

Sugiro que seja criada uma contra na nuvem na qual você e essa outra pessoa tenham acesso, sincronizando na maquina dela e na sua.

Parte 3: Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim linha As Long linha = ActiveCell.Row 'colocando o valor ...

Parte 2: Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim linha As Long linha = 8 While Planilha1.Cells(linha, 1)&...

Resolvendo a parte 1: Private Sub UserForm_Initialize() ' ListBox1.ColumnCount = 1 ' ListBox1.ColumnWidths = "20" End Sub Priva...

Pegando o exemplo Google Drive, o backup é feito automaticamente. Suponha que esse arquivo do Excel está na pasta X. Pelo menos na minha máquina, ex...

Apenas uma dica gramatical: autoexplicativo fonte: https://educacao.uol.com.br/portugues/reforma-ortografica/2009/01/30/hifen-p...

Se quiser também impedir a exclusão de linha: Sub protege_planilha( ) ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scena...

https://social.msdn.microsoft.com/Forums/pt-BR/54d74330-1daa-4828-baa1-4af6ecc90ccb/bloquear-a-excluso-de-linhas-e-colunas?forum=v...

Não entendi essa proporção. A soma das porcentagens dá 80%, mas as faixas preenchem 100%.

Creio que o xlarruda chegou ao que você queria.

Sub Macro1() Range("A1:D10191").Select ActiveWorkbook.Worksheets("Planilha1").Sort.SortFields�...

https://www.youtube.com/results?search_query=vba+controle+de+estoque+e+vendas

A macro envia a imagem no corpo do email. Talvez eu tenha anexado o arquivo errado. Favor testar novamente. https://www.youtube.com/wat...

Favor verificar o anexo. Testei e deu certinho. Na planilha, onde está C:UsersafdDesktop Você deve mudar para o endereço da sua área de trabalho.