Juan Cosceri

Juan Cosceri

 9.225 puntos  Argentina @juancosceri desde - visto

Respuestas

Respuesta en a

Como combinar dos formulas en una

La formula que deberias usar es un if anidado. Primero verificaria si B1 esta vacio y si no esta vacio, entraria en la formula. =SI(B1="";"";SI(A1=B1;"OK";"NO"))
Respuesta en y en 1 temas más a

Excel: Macro para ejecutar Texto en columnas

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

Importa datos de 2 o más libros en uno solo

Te envío una macro que se adapta a tus necesidades Sub Macro3() ' Written by Juan Manuel Cosceri (25-01-2018) Set TOOL = Workbooks(ActiveWorkbook.Name) Set ConsolidatedSH = TOOL.Sheets("Sheet2") 'Reemplazar SHEET2 por el nombre de la hoja donde ira...
Respuesta en a

Tengo una columna en excel y me gustaría pasar los datos que contiene a otra hoja dividida en tres columnas.

Al parecer el reporte esta normalizado y se detalla proveedor - FC y Monto, por lo tanto, bastaria con armar un loop con un contador que cuando llegue a 3 se reinicie y pase a la siguiente linea. Te envio la macro que se adapta a tus necesidades Sub...
Respuesta en y en 1 temas más a

Eliminar espacios de un textbox

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...
Respuesta en y en 2 temas más a

Grabe una macro de excel pero al momento de correrla se guardo un rango específico, que hago?

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,...
Respuesta en y en 1 temas más a

Macro para separar datos en una misma hoja según criterio

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...
Respuesta en y en 1 temas más a

Vencimiento de horas extras en por meses

Entiendo que lo que pretendes identificar es aquellas Horas que corresponde imputar para desestimar las vencidas. Ingles --> =IF(A3>TODAY()-120;"Pendiente";"Vencida") Español --> =SI(A3>HOY()-120;"Pendiente";"Vencida") En caso de que lo que pretendas...
Respuesta en y en 2 temas más a

Save As CSV encoding UTF-8

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...
Respuesta en y en 1 temas más a

Ordenar varios datos con rango variable

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