Juan Cosceri

Te paso el codigo para el Text to column desde VBA Columns("D:D").Select Selection.TextToColumns Destination:=Range("D1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False,...

Te envío la macro que se adapta a tus requerimientos. Deberas reemplazar Range("B7").value por el text box, para que tome el input que vos buscas y al final que pegue el valor depurado en el campo de input box o mismo en la planilla para que la...

Deberas definir LastRow y Last Column por ejemplo para que el rango sea variable. FirstRow = 1 FirstCol = 1 LR = ActiveSheet.Cells(ActiveSheet.Rows.Count, FirstCol).End(xlUp).Row LC = ActiveSheet.Cells(FirstRow,...

Te envío la macro solicitada! Sub Macro1() ' Dim LoopRow As Integer Dim LoopColumn As Integer Dim Valor As String Dim Comienzo As String Dim CodX As Integer Dim CodY As Integer Dim NumX As Integer Dim NumY As Integer Set DataSH = Sheets("Data") 'Hoja...

El problema persistía, pero conseguí resolverlo con otro código. Copio el mismo para Importante: se requiere habilitar la librería "Microsoft ActiveX Data Objects 2.8 Lbrary" Sub SaveAsUTF8() Dim objStream As ADODB.Stream Dim MiTexto As String Set...

Nani, Buen dia! El error se debe al rango para ordenar seleccionado. Vos estas queriendo ordenar por las columnas C, AF y AG y la matriz a Ordenar es son es la columna "A", por lo tanto te tira error. Te envio el codigo Debuggeado Sub Macro1() ' Set...

Te envío la macro solicitada! Sub Macro2() Dim Semana As String Dim NumSemana As Long 'Agrega la Hoja para la pivot al final del Workbook' Sheets.Add After:=Sheets(ActiveWorkbook.Sheets.Count) 'Definis el num de semana (Esto lo hago para que puedas...

Te envío la macro solicitada Sub Macro1() Set InputSH = Sheets("scs") Set FilterSH = Sheets("salarios") InputSH.Activate Valor = InputSH.Range("C3").Value TableHeaderRow = 1 FilterColumn = 1 LastColumn = 4 LR = FilterSH.Cells(FilterSH.Rows.Count,...

Estas utilizando un TextBox y para Desplegables debes utilizar ComboBox. Cambia el TextBox por un Combo Y agregá el siguiente Codigo Private Sub UserForm_Activate() ComboBox1. Clear ComboBox1. AddItem "Select a Type" ComboBox1. AddItem "Emision"...

Error 9 corresponde a que no encuentra la Hoja, el error lo debe arrojar en la linea Hoja1. Activate En la macro no veo que tengas definido el Set de la Hoja, ¿a qué hoja deberias ir? Debes definir Hoja1 como una variable de Worksheet colocale set...