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...

Estoy con un problemita, tengo un reporte que genera KPI´s por cliente y los formateo con CSS. El archivo se guarda en HTML y se abre en Google Chrome. Desde ahí tengo que darle manualmente Print as PDF y guardarlo Ok. ¿Me podrían decir si hay una...

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...

Estoy con un problemita. En la empresa utilizamos mailchimp para enviar campañas de Marketing. El problema es que la base de usuarios a enviar es bastante dinamica, por lo tanto tenemos que actualizar antes de enviar la campaña los usuarios. Tengo...

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"...