gilson santos07

Bom dia Senhores, Nesses dados abaixo só organiza na coluna A e preciso que organize de A a I, como altero. Private Sub Worksheet_Activate() ActiveSheet.ScrollArea = "$A$2:$A$300" End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Column <> 1 Then Exit Sub Dim LR As Long LR = Cells(Rows.Count, "A").End(xlUp).Row Range("$A$2:$A" & LR).Sort Key1:=Range("$A$2") End Sub Grato Gilson

Vics esta com erro também adicionado 1 minuto depois Edson Perfeito muito obrigado

Tenho uma planilha mas não consigo gravar com os dados da range "E9" da erro de sintaxe. Private Sub btExecuta_Click() Dim Wp As Workbook 'pasta atual Dim ws As New Workbook 'nova pasta de trabalho Dim WPsheet As Worksheet 'Planilha atual Dim RngWP As Range 'região com dados da plan atual Dim Rg As Range Set Wp = ActiveWorkbook Set WPsheet = Wp.Sheets("Pedido") Set Rg = Range("E9") WPsheet.Select WPsheet.UsedRange.Copy 'todas as celulas utilizadas Set ws = Workbooks.Add 'Adciona uma nova workbook ws.Sheets(1).Select ActiveCell.PasteSpecial Paste:=xlValues ws.Sheets(1).Name = WPsheet.Name Application.DisplayAlerts = False ws.SaveAs Wp.Path "\(E9) -" & Year(Date) & "-" & Month(Date) ws.Close saveChanges:=True Application.DisplayAlerts = True Wp.Activate Wp.Sheets(1).Select WPsheet.Range("A1").Select MsgBox "Geração do arquivo concluida", vbOKOnly End Sub