COPIAR UNA TABLA A UN NUEVO LIBRO
Publicado por brian V. (1 intervención) el 30/07/2020 19:21:54
Favor alguien su ayuda por que me sale siguiente error :
Error en el método 'Range ' de objeto'_ WorkSheet'
Error en el método 'Range ' de objeto'_ WorkSheet'
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub CONSULTASALIDAS()
Dim wbLibroActual As Workbook
Dim wsHojaActual As Worksheet
Dim RangoDatos As Range
Dim uFila As Long
Dim wbLibroNuevo As Workbook
Set wbLibroActual = Workbooks(ThisWorkbook.Name)
Set wsHojaActual = wbLibroActual.ActiveSheet
Set RangoDatos = wsHojaActual.UsedRange
RangoDatos.AutoFilter Field:=12, Criteria1:="SALIDAS"
uFila = wsHojaActual.Range("A" & Rows.Count).End(xlUp).Row
wsHojaActual.Range("A1:M" & uFila).Copy
Set wbLibroNuevo = Workbooks.Add
wbLibroNuevo.ActiveSheet.Paste
Application.CutCopyMode = False
Windows(wbLibroActual.Name).Activate
wsHojaActual.Range("A1").Select
Selection.AutoFilter
End Sub
Valora esta pregunta


0