João Cassiano

Bom dia pessoal, criei uma macro que seleciona toda a linha, copia, insere uma linha e cola na linha inserida o conteúdo da linha copiada (a linha de cima no caso) Porém, quando eu estou utilizando filtro na minha tabela, quando eu rodo a macro ela não copia as células da linha anterior, ela apenas insere uma linha em branco. Alguém poderia me ajudar? Obrigado. Sub AddLine() ' ' AddLine Macro ''Selecione a linha antes de executar With Selection.EntireRow .Copy .Insert End With Application.CutCopyMode = False End Sub

Bom dia Pessoal, Eu fiz uma macro que: Abre uma nova aba, nesta nova aba dados de outra planilha são importados através do endereço ''C:\Users\A270411\Desktop\PE Cost Estimate\Cost Estimate.csv''. Porém, esta planilha deverá ser utilizada por mais pessoas na minha empresa, sendo que meu ID é o número ''A270411''. Quando eu passar este arquivo para as outras pessoas, que possuem ID's diferentes, elas não conseguirão rodar a macro. Bom o resto da macro é basicamente rodar uma outra macro, copiar e colar. Alguém poderia me ajudar a solucionar esse problema na hora de buscar o endereço do outro arquivo excel .csv ? Obrigado Sub ImportarDados() ' ' ImportarDados Macro ' ' Sheets.Add After:=Sheets(Sheets.Count) With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;C:\Users\A270411\Desktop\PE Cost Estimate\Cost Estimate.csv", _ Destination:=Range("$A$1")) .Name = "Cost Estimate" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 65001 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = True .TextFileSemicolonDelimiter = True .TextFileCommaDelimiter = True .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False End With Application.Run "'PE Cost Estimate - Template.xlsm'!NumberingMindJet" Range("A2").Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets("VM").Select Range("B9").Select ActiveSheet.Paste Application.CutCopyMode = False With Selection .HorizontalAlignment = xlGeneral .VerticalAlignment = xlBottom .WrapText = True .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Range("C1").Select Sheets("Sheet1").Select ActiveWindow.SelectedSheets.Visible = False Sheets("Sheet2").Select ActiveWindow.SelectedSheets.Visible = False Sheets("VM").Select Range("C1").Select End Sub Obrigado

Olá Pessoal, Sou novo em programação VBA e eu me deparei com um desafio no meu trabalho. Eu preciso criar o seguinte programa VBA: Eu tenho meu arquivo template chamado TEMPLATE. Eu preciso criar um botão que abra outro arquivo excel extensão .csv com o nome REFERENCE Neste arquivo REFERENCE rodar a macro NumberingMindJet. E após essa macro rodar, copiar os dados da célula B2 até a D150 e colar no meu arquivo TEMPLATE na célula B13. Estou tendo dificuldade com a montagem deste programa, se alguém puder me ajudar eu ficaria muito agradecido.