Saltar al contenido

Macro para enviar a diferentes hojas de acuerdo a condición

publicado

Hola buen día...tengo esta macro que envía los datos como lo quiero, incrementando la columna "T" para tomar como referencia de la última fila con datos...como puedo evitar eso, es decir que no me registre nada en la columna "T", y además me sale un mensaje de error al proteger la hoja..es una tabla dinámica donde se debe arrojar los datos...y finalmente que me ordene por fecha que se encuentran en la columna "A"

Private Sub CommandButton3_Click()
Dim MES As String
' BOTÓN REGISTRAR
Dim UltFila As Long

'MANDAR LOS DATOS EN SUS MESES RESPECTIVO

MES = ComboBox4.Value
If MES <> "" Then
    Sheets(MES).Activate
    
    UltFila = Sheets(MES).Range("T" & Rows.Count).End(xlUp).Row + 1 ' busca la últíma fila para introducir los datos
    
    Sheets(MES).Range("A" & UltFila).Value = TextBox8 ' FECHA
    Sheets(MES).Range("B" & UltFila).Value = TextBox7 ' RUC's
    Sheets(MES).Range("C" & UltFila).Value = TextBox6 ' EMPRESAS
    Sheets(MES).Range("D" & UltFila).Value = TextBox3 ' N° FACTURAS
    Sheets(MES).Range("E" & UltFila).Value = TextBox5 ' N° TIMBRADO
    Sheets(MES).Range("F" & UltFila).Value = ComboBox1 ' TIPO DE DOCUMENTO
    Sheets(MES).Range("G" & UltFila).Value = TextBox4 '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
    
    Sheets(MES).Range("T" & UltFila).Value = "x" ' se marca la ultima fila con datos

' ORDENAR DATOS POR FECHA EN LOS MESES

    Range("B7").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    'ActiveWorkbook.Worksheets("MES").Sort.SortFields.Clear
    'ActiveWorkbook.Worksheets("MES").Sort.SortFields.Add Key:=Range("A7"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

    'Range("A7:L7").Select
    'Selection.AutoFilter
        With ActiveWorkbook.Worksheets(MES).Sort 'AutoFilter.Sort
            '.SortFields.Clear
            '.SortFields.Add Key:=Range("A7"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            .SetRange Range("A2:L" & UltFila)
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
    End With
            Selection.AutoFilter
End If
MES = Empty

End Sub

Link de Archivo

https://drive.google.com/drive/folders/0B5-NlIfimBMURGRzeDh6bEJGaVU

https://onedrive.live.com/?id=E55EF42198BD63DF!3096&cid=E55EF42198BD63DF

 

Editado el por ramonvar
Corregí esta fila..Sheets(MES).Range("T" & UltFila).Value = "x" ' se marca la ultima fila con datos

Featured Replies

publicado

Hola Ramon!!!1

o Logre Hacer Prueba a tu Archivo, no me reconoce una instrucción

haber Intenta así:

Private Sub CommandButton3_Click()
Dim MES As String
' BOTÓN REGISTRAR
Dim UltFila As Long

'MANDAR LOS DATOS EN SUS MESES RESPECTIVO

MES = ComboBox4.Value
If MES <> "" Then
    Sheets(MES).Activate
    
    UltFila = Sheets(MES).Range("A" & Rows.Count).End(xlUp).Row + 1 ' busca la últíma fila para introducir los datos
    
    Sheets(MES).Range("A" & UltFila).Value = TextBox8 ' FECHA
    Sheets(MES).Range("B" & UltFila).Value = TextBox7 ' RUC's
    Sheets(MES).Range("C" & UltFila).Value = TextBox6 ' EMPRESAS
    Sheets(MES).Range("D" & UltFila).Value = TextBox3 ' N° FACTURAS
    Sheets(MES).Range("E" & UltFila).Value = TextBox5 ' N° TIMBRADO
    Sheets(MES).Range("F" & UltFila).Value = ComboBox1 ' TIPO DE DOCUMENTO
    Sheets(MES).Range("G" & UltFila).Value = TextBox4 '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
    
    Sheets(MES).Range("A" & UltFila).Select
    
' ORDENAR DATOS POR FECHA EN LOS MESES

    Range("B7").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    'ActiveWorkbook.Worksheets("MES").Sort.SortFields.Clear
    'ActiveWorkbook.Worksheets("MES").Sort.SortFields.Add Key:=Range("A7"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

    'Range("A7:L7").Select
    'Selection.AutoFilter
        With ActiveWorkbook.Worksheets(MES).Sort 'AutoFilter.Sort
            '.SortFields.Clear
            '.SortFields.Add Key:=Range("A7"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            .SetRange Range("A2:L" & UltFila)
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
    End With
            Selection.AutoFilter
End If
MES = Empty

End Sub

publicado
  • Autor

Hola Mauricio...buenas tarde...en realidad en un principio era mas o menos así el código que tenia...me sugirieron la que te envié...lo que sucede es que aparentemente solo funciona si se le coloca como una columna auxiliar fuera de la tabla dinámica para que encuentre la última fila con datos..como comente en este caso coloque en la columna "T"...pero lo que hace es que va incrementando un "x", para tomar siempre como referencia de que es la última fila con datos y grabar en la siguiente...

Lo que quería es ver si se puede evitar esa referencia...

Lo que percibí es que cualquier columna de la tabla dinámica que tome como referencia me arroja afuera de esta

Cuando toma como referencia una columna fuera de la tabla funciona pero agregando la "x"...o cualquier carácter que designe

Substituí nuevamente el archivo en la misma dirección ...

espero haberme explicado...cualquier cosa estoy para lo que tu sugieras..

Abrazo

  • Silvia bloqueó este tema

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Ir al listado de temas