No me funciona bien un macro
'tengo esta macro y lo que debe de hacer es buscar los clientes en la hoja "Datos" y llevarlo a la hoja "facturacion", pero al aplicar la macro no me traslada todos los clientes que hay en la hoja y aparte me entrega algunos clientes separado por valores y no sumados como debiese de ser.
Adjunto la macro.
ActiveWorkbook. RefreshAll
Application.ScreenUpdating = False
Sheets("Facturación").Select
ActiveSheet.Unprotect Password:="2012"
Range("B12:L362").Select
Selection.ClearContents
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Sheets("Fact_01").Visible = True
Sheets("Fact_01").Select
Sheets("Fact_02").Visible = True
Sheets("Fact_02").Select
Selection.ClearContents
Selection.ClearContents
Sheets("Fact_01").Select
Range("B12:L362").Select
Selection.Copy
Sheets("Fact_02").Select
Range("B11").Select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B11:L361").Select
Application.CutCopyMode = False
Selection.AutoFilter
ActiveSheet.Range("$B$11:$L$361").AutoFilter Field:=11, Criteria1:=">$ 0", _
Operator:=xlAnd
ActiveWorkbook.Worksheets("Fact_02").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Fact_02").Sort.SortFields.Add Key:=Range( _
"H12:H362"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Fact_02").Sort
.SetRange Range("B11:L361")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("B11:L361").Select
Selection.Copy
Sheets("Facturación").Select
Range("B11").Select
ActiveSheet.Paste
Range("D5").Select
Sheets("Fact_01").Visible = xlVeryHidden
Sheets("Fact_02").Visible = xlVeryHidden
Sheets("db_fact").Visible = xlVeryHidden
ActiveSheet.Protect Password:="2012"
End Sub