Buenas a todos nuevamente...estoy con problemas en esta macro, 1- no me traspasa los datos del UserForm al seleccionar el mes; me da dos errores
1 - Error de compilación...se requiere objeto ......(en este caso es cuando no desactivo ninguana línea de la macro)
2 - Se ha producido el error '-2147417848(80010108) en tiempo de ejecucion.: ..error en el metodo 'Apply' de objeto 'Sort'...(en este caso es cuando desactivo la línea 'Set MES = Sheets("Rucs Empresas")...me pueden dar una mano con esto...
la idea es que me arroje los datos segun la seleccion del mes que lo hago en el ComboBox4 y que me ordene por fecha que se encuentra en la columna A a partir de la fila 7
Todas las hojas de los meses; quisiera dejar protejida...este es el código
Private Sub CommandButton3_Click()........(Me pinta en AMARILLO)...Error 1
Dim MES As String
' BOTÓN REGISTRAR
Dim UltFila As Long
'MANDAR LOS DATOS EN SUS MESES RESPECTIVO
MES = ComboBox4.Value
If MES <> "" Then
Set MES = Sheets("Rucs Empresas")......(La palabra MES..me pinta en AZUL)...si desactivo esta línea...Error 1
Sheets(MES).Activate
UltFila = Sheets(MES).Range("S" & Rows.Count).End(xlUp).Row + 1 ' busca la últíma fila para introducir los datos
Range("A7:S7").Select
Selection.AutoFilter
With ActiveWorkbook.Worksheets(MES).AutoFilter.Sort
.SortFields.Clear
.SortFields.Add Key:=Range("A7"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply......................................(esto me lo pinta de AMARILLO)..en el segundo error al desactivar la línea de Set....)
End With
Selection.AutoFilter
End If
MES = Empty
End Sub
Link del Archivo....gracias desde ya por su tiempo
Buenas a todos nuevamente...estoy con problemas en esta macro, 1- no me traspasa los datos del UserForm al seleccionar el mes; me da dos errores
1 - Error de compilación...se requiere objeto ......(en este caso es cuando no desactivo ninguana línea de la macro)
2 - Se ha producido el error '-2147417848(80010108) en tiempo de ejecucion.: ..error en el metodo 'Apply' de objeto 'Sort'...(en este caso es cuando desactivo la línea 'Set MES = Sheets("Rucs Empresas")...me pueden dar una mano con esto...
la idea es que me arroje los datos segun la seleccion del mes que lo hago en el ComboBox4 y que me ordene por fecha que se encuentra en la columna A a partir de la fila 7
Todas las hojas de los meses; quisiera dejar protejida...este es el código
Private Sub CommandButton3_Click()........(Me pinta en AMARILLO)...Error 1
Dim MES As String
' BOTÓN REGISTRAR
Dim UltFila As Long
'MANDAR LOS DATOS EN SUS MESES RESPECTIVO
MES = ComboBox4.Value
If MES <> "" Then
Set MES = Sheets("Rucs Empresas")......(La palabra MES..me pinta en AZUL)...si desactivo esta línea...Error 1
Sheets(MES).Activate
UltFila = Sheets(MES).Range("S" & Rows.Count).End(xlUp).Row + 1 ' busca la últíma fila para introducir los datos
Sheets(MES).Range("A" & UltFila).Value = TextBox3 ' FECHA
Sheets(MES).Range("B" & UltFila).Value = TextBox1 ' RUC's
Sheets(MES).Range("C" & UltFila).Value = TextBox2 ' EMPRESAS
Sheets(MES).Range("D" & UltFila).Value = TextBox6 ' N° FACTURAS
Sheets(MES).Range("E" & UltFila).Value = TextBox3 ' N° TIMBRADO
Sheets(MES).Range("F" & UltFila).Value = ComboBox1 ' TIPO DE DOCUMENTO
Sheets(MES).Range("G" & UltFila).Value = TextBox8 'IMPORTE
Sheets(MES).Range("H" & UltFila).Value = ComboBox2 ' TIPO DE CODIGO
Sheets(MES).Range("J" & UltFila).Value = ComboBox3 ' % IVA
Sheets(MES).Range("L" & UltFila).Value = TextBox9 'MONTO A CREDITO
' ORDENAR DATOS POR FECHA EN LOS MESES
Range("A7:S7").Select
Selection.AutoFilter
With ActiveWorkbook.Worksheets(MES).AutoFilter.Sort
.SortFields.Clear
.SortFields.Add Key:=Range("A7"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply......................................(esto me lo pinta de AMARILLO)..en el segundo error al desactivar la línea de Set....)
End With
Selection.AutoFilter
End If
MES = Empty
End Sub
Link del Archivo....gracias desde ya por su tiempo
https://drive.google.com/drive/folders/0B5-NlIfimBMURGRzeDh6bEJGaVU
https://onedrive.live.com/?id=E55EF42198BD63DF!3096&cid=E55EF42198BD63DF