Enrique Bernal

Imagino que esos datos te los debe traer algún programa para que te muestre esa info, pero puedes crear otra columna con una fórmula de texto para que con esa columna puedas utilizar el buscarv() La formula serìa =TEXTO(A1;"hh:mm"), pensando que el...

Utiliza esta macro y me comentas Sub transporner() Sheets("hoja1").Select Set miRango = Sheets("Hoja1").Range("A2:A10") A = Application.WorksheetFunction.CountA(miRango) fila = 2 b = Range("A2").Value Range("C2").Value = b c = Range("B2").Value...

Para comprendernos un poco, yo llamo formulario a un USEFORM que creo para el ingreso de info. Ahora si es de lo mismo de lo que estamos hablando, no entiendo como quieres que se guarde ese USEFORM lleno. Imagino que es por eso que debes utilizar...

Pues para evitar las macros podrías crear vínculos, pero recuerda que eso no interactúa con el usuario. Creo que lo correcto es lo de la firma digital, es al menos lo que yo utilizo.

Prueba con esta macro y me comentas, si te funciona no olvides finalizar la pregunta Sub coloreaDup() 'controla col A inicio = InputBox("Indicar la columna y la Fila Inicial", "INICIO") Range(inicio).Select ultima = InputBox("Indicar la columna y la...

remplaza tu parte del codigo que dice "=TODAY()" por este codigo "=TEXT(TODAY(),""dddd"")" Si esto te ayudo no olvides finalizar la pregunta

Esta macro te podría ayudar Sub Actualiza() For Each cell In Range("A1:A5") Sheets("Productos").Select a = a + 1 b = Range("B" & a).Value Sheets("TarifaFestool2011").Select Cells.Find(What:=b, After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart,...

Pues el tema de los vínculos es complicado, y la verdad a veces son inesperados los resultados. Por lo que lo mejor es guardar siempre tus archivos en una carpeta directa desde el C:/ y así cuando los envíes los deben guardar en la misma carpeta en...

Esta macro tendrías que asignarla a un botón dentro de la hoja en la que esta la info que necesitas exportar: Sub Exp_TXT() Sheets("libro 4").select Range("QI957:QI965").Select Selection.Copy Workbooks.Add ActiveSheet.Paste Application.CutCopyMode =...

Utilizar la función Si. Error(), como funciona: =si.error(tu formula;"Sin Solución") ó =si.error(tu formula;"")----Para dejar en blanco