miniCheed

Como o Junior falou, uma b350 vai te servir, daí qual modelou específico vai depender da sua necessidade. AMD vai precisar do dual-channel nas memórias mesmo, então é melhor ir com esse kit aí mesmo e overclockar elas pra 2933Mhz.

@rafacba87 1) Pra Escolher a aba que você quer (dentro da mesma planilha), coloca: Sheets("nome da aba").Activate 2) Se você tiver 2 planilhas diferentes> primeiro coloca ela numa mesma pasta dentro do pc, depois: caminho = ThisWorkbook.Path Workbooks.Open (caminho & "\NOME DA OUTRA PLANILHA.xlsx") '<< Se for outro formato, por exemplo, xlsm, basta trocar aqui<< Sheets("nome da aba").Activate

É apenas 1 coluna? De qualquer forma, pra selecionar até a última célula vazia vai ser o seguinte: Sub UltimaLinha() Dim coluna As Integer coluna = 1 Do Until Cells(1, coluna).Value = "" coluna = coluna + 1 Cells(1, coluna - 1).Select Dim uColun4 As Long uColun4 = ActiveCell.Column Loop Dim linha As Integer linha = 1 Do Until Cells(linha, 1).Value = "" linha = linha + 1 Cells(linha - 1, 1).Select Dim ulinh4 As Long ulinh4 = ActiveCell.Row Loop Range(Cells(1, "A"), Cells(ulinh4, uColun4)).Select Range(Cells(1, "A"), Cells(ulinh4, uColun4)).Copy AbrirNotePad = Shell("Notepad.exe", vbNormalFocus) SendKeys "^v" End Sub adicionado 22 minutos depois

PC barato tá complicado. Se pensa em upgrade talvez seria indicado um Ryzen 2200g/2400g, que daí a placa-mãe vai servir até 2020. Já Intel (h310) você fica preso na oitava geração. Eu prefiro juntar mais grana e investir num PC que sei que vai durar mais, por exemplo Ryzen 5 2600. Mas se você não tem essa opção... o gabinete é o mais barato que eu tinha na minha planilha, você encontra mais baratos.

Acho que só é possível exportar uma aba toda, embora eu testei essa sua macro e não vi nenhum problema nela. Agora se você precisa muito que só exporte uma única tabela da sua aba, você pode fazer é o seguinte: 1) fazer uma macro que copie até as células vazias 2) uma macro que abra o txt e cole os dados lá. Dicas: 1) Se os dados estiverem numa tabela organizadinha, entre A1 e "xy" eu faria um simples: Range(Range("A1"), Range("A1").SpecialCells(xlLastCell)).Copy ou Você pode usar Do Until pra descobrir a primeira linha (ou coluna) vazia para depois copiar o que está à cima (ou à esquerda). por exemplo (supondo 10 colunas): Dim linha as Integer Do Until (linha, 10) = "" linha = linha + 1 Loop 2) Depois de copiar tudo que você quer> abrir bloco de notas e colar dados AbrirNotePad = Shell("Notepad.exe", vbNormalFocus) SendKeys "^v"