tag:blogger.com,1999:blog-1613210108185682998.post3217320844282673182..comments2023-10-31T20:37:56.568-07:00Comments on Excel y Yo: formato: insertar simbolos especiales en excelDamian Omar Silvahttp://www.blogger.com/profile/16039167842052507316noreply@blogger.comBlogger11125tag:blogger.com,1999:blog-1613210108185682998.post-26848991589076554112012-07-21T11:51:07.518-07:002012-07-21T11:51:07.518-07:00un tilde? será un "checkbox" lo que está...un tilde? será un "checkbox" lo que estás necesitando?<br />Desde la barra de herramientas "formularios" podes tomar botones de opción, botones de chequeo (checkboxes, listas desplegables, etc, etc).<br />Hacé click con el botón derecho del mouse sobre algún lugar la lado de los menús: de la lista desplegable selecciona "formularios":<br />la quinta opción me parece que es el objeto que estás buscando.<br /><br />otra. colocas la letra "a" en en rango A1, por ejemplo. te vas a formato de celdas y seleccionas la fuente "Webdings", lo que convertirá esa "a" en un tilde.<br />avisame como te fueDamian Omar Silvahttps://www.blogger.com/profile/16039167842052507316noreply@blogger.comtag:blogger.com,1999:blog-1613210108185682998.post-85134668830431044002012-07-21T06:31:11.774-07:002012-07-21T06:31:11.774-07:00BUENOS DIAS DAMIAN, NECESITO PONER EN UNA HOJA DE ...BUENOS DIAS DAMIAN, NECESITO PONER EN UNA HOJA DE EXCEL TILDE COMO SI FUERA UN VISTO EN UN CUADRO. LA VERDAD QUE LO UNICO QUE ENCUENTRO ES INSERTAR LOS FORMAS. PERO NO SE COMO INSERTAR UN TILDE! ME PODRIAS AYUDAR???<br />DESDE YA GRACIAS. <br />SALUDOSAnonymousnoreply@blogger.comtag:blogger.com,1999:blog-1613210108185682998.post-56613332625562136162012-02-05T08:07:25.405-08:002012-02-05T08:07:25.405-08:00Ulises: supongamos que tenes los datos en A1:A1500...Ulises: supongamos que tenes los datos en A1:A1500. en B1 colocas ="'" & A1, copiando luego la función hasta B1500.<br />Listo, en la columna B tendrás los valores de A, pero con el apóstrofe concatenado. Luego copias la columna B y vas a "edición/pegado especial/valores"; finalmente eliminas la columna A. Entonces allí solo te quedarían los datos con el apóstrofe delante.<br /><br />si queres automatizar el proceso, te paso esta macro sencilla:<br />Sub Apostrofe()<br />Dim Uf, X As Long<br />'veo cual es la ultima fila ocupada de la columna<br />Uf = Cells(Cells.Rows.Count, "A").End(xlUp).Row<br />'y la recorro, agregando el caracter<br />For X = 1 To Uf<br /> Cells(X, "A") = "''" & Cells(X, "A")<br />Next X<br />End Sub<br />copiala y pegala dentro de un módulo en VBA.<br />en esa macro supongo que tus datos están en la columna "A" y empiezan en la primer fila. Si no fuese así, podés cambiar esas cosas ("B", "C" o la columna que sea, o también la fila desde donde comienza el bucle).<br />suerte y cualquier cosa me avisas.Damian Omar Silvahttps://www.blogger.com/profile/16039167842052507316noreply@blogger.comtag:blogger.com,1999:blog-1613210108185682998.post-35999380582768000082012-02-04T05:14:53.812-08:002012-02-04T05:14:53.812-08:00Necesito realizar una carga de datos desde excel a...Necesito realizar una carga de datos desde excel a sqlserver, pero para que algunos valores sean importados correctamente necesito agregarles el apostrofe al inicio al valor de aproximadamente 1500 registros, ¿Cómo puedo hacerlo de manera automática para toda una columna?Ulises Esaúhttps://www.blogger.com/profile/06775172792840752423noreply@blogger.comtag:blogger.com,1999:blog-1613210108185682998.post-68394963636051025602011-12-15T10:14:47.510-08:002011-12-15T10:14:47.510-08:00otra seria utilizar las "expresiones regulare...otra seria utilizar las "expresiones regulares" de visual basic, aunque es un tanto mas complejo de manejar. voy a levantar un post con tu consulta, abarcando dos o tres soluciones posibles.Damian Omar Silvahttps://www.blogger.com/profile/16039167842052507316noreply@blogger.comtag:blogger.com,1999:blog-1613210108185682998.post-22727710887485502032011-12-15T10:13:48.420-08:002011-12-15T10:13:48.420-08:00Hola Raimond, te paso un código que utilizo casi s...Hola Raimond, te paso un código que utilizo casi siempre en estos casos. Realmente tu ejemplo no está mal para nada y no es extenso. Quizás veas que el mío tiene muchas líneas, pero observa que varias de ellas son comentarios que dejo para explicarte el funcionamiento.<br /><br />Private Sub Worksheet_Change(ByVal Target As Range)<br />'creo una constante con todos los caracteres no permitidos:<br />Const Cadena As String = "ÑÁÓÉñáóé"<br />Dim LetraNo As String<br /><br />'con un bucle recorro uno por uno los caracteres de Cadena<br />'y con InStr() veo si dentro de la celda se encuentra alguna<br />'letra no permitida:<br />For x = 1 To Len(Cadena)<br /> 'si instr me devuelve un valor mayor a cero, quiere decir<br /> 'que alguna letra "mala" se ingresó en la celda<br /> If InStr(1, Target.Value, Mid(Cadena, x, 1)) > 0 Then<br /> 'almaceno esa letra para mostrarla en el mensaje<br /> LetraNo = Mid(Cadena, x, 1)<br /> MsgBox "la letra '" & LetraNo & "' es inválida", vbCritical<br /> 'y selecciono la celda<br /> Target.Select<br /> End If<br />Next x<br />'si quisieras borrar el contenido de la celda en donde se ingresó<br />'una letra incorrecta, luego de target.select deberías colocar<br />'Target.ClearContents<br />End Sub<br /><br />espero que te sirva, copia y pega las líneas de arriba dentro de la ventana de código de la hoja en cuestión y fijate que funciona bien.<br />cualquier cosa me avisas.<br />Un abrazo y muchas gracias por tu mensaje.Damian Omar Silvahttps://www.blogger.com/profile/16039167842052507316noreply@blogger.comtag:blogger.com,1999:blog-1613210108185682998.post-69006303404545994892011-12-15T06:31:25.992-08:002011-12-15T06:31:25.992-08:00Hola Damian.
Necesito hacer una macro que identifi...Hola Damian.<br />Necesito hacer una macro que identifique caracteres inválidos (definidos por mi) en una hoja y que ubique la celda o celdas donde éstos caracteres se encuentran y que no deje continuar la edición del archivo hasta que no sean corregidos dichos caracteres.<br /><br />Ya tengo algo hecho, pero como lo tengo se hace muy extenso y quisiera saber si hay otra forma. Lo que tengo hecho es lo siguiente:<br />Private Sub Worksheet_Change(ByVal Target As Range)<br />Dim validation As Boolean<br />validation = True<br /> If Intersect(Target, [c4:c10]) Is Nothing Then Exit Sub<br /> Do While validation = True<br /> If Target Like "*ñ*" Or Target Like "*Ñ*" Or Target Like "*á*" Or Target Like "*Á*" Or Target Like "*ó*" Or Target Like "*Ó*" Or Target Like "*É*" Or Target Like "*é*" Then<br /> MsgBox "Error, hay caracteres inválidos en uno o más campos"<br /> ActiveSheet.Cells(4, 3).Select<br /> SendKeys ("texto invalido")<br /> End<br /> Else<br /> validation = False<br /> CommandButton1.Visible = True<br /> End If<br /> Loop<br />End SubRAIMOND ESCORCIA ROMEROhttps://www.blogger.com/profile/16224883409975358049noreply@blogger.comtag:blogger.com,1999:blog-1613210108185682998.post-79930421798256921052011-09-29T17:37:47.740-07:002011-09-29T17:37:47.740-07:00para agregar dicho símbolo tenés que seguir los pa...para agregar dicho símbolo tenés que seguir los pasos de la entrada, no comprendo bien que me preguntas con "y hacer lo mismo en fórmula". explicamelo un poco mas y lo vemos.<br />gracias x tu mensajeDamian Omar Silvahttps://www.blogger.com/profile/16039167842052507316noreply@blogger.comtag:blogger.com,1999:blog-1613210108185682998.post-18766073321172676142011-09-29T07:25:01.833-07:002011-09-29T07:25:01.833-07:00COMO PUEDO PONER EN MI COMPUTADORA EL SIGNO DE ¢ (...COMO PUEDO PONER EN MI COMPUTADORA EL SIGNO DE ¢ (COLONES) Y HACER LO MISMO EN FORMULA, MI CORREO ES PITAFUENTES2008@HOTMAIL.COM PARA Q ME AYUDES GRACIASAnonymousnoreply@blogger.comtag:blogger.com,1999:blog-1613210108185682998.post-39418217922957045962010-09-03T13:51:06.019-07:002010-09-03T13:51:06.019-07:00si, generalmente entre las pc's y las notebook...si, generalmente entre las pc's y las notebooks existen diferencias, habría que revisar la configuración regional y de teclado de cada una.<br />en mi pc (tanto en excel 2010-beta como en la versión 2003) el ALT + 230 me arroja: µ.<br />lamentablemente no tengo ahora una notebook a mano para probar, pero apenas lo haga te digo.<br />fijate un dato curioso:<br />en A1 poné: 1 y en A2 poné 2. luego arrastrá y rellená la serie hasta la fila 255.<br />ahora en B1 ingresás: =Caracter(A1)<br />esta función te pone el codigo ascii de cada número, aunque en muchos casos no coincide con la siguiente tabla: http://www.elcodigoascii.com.ar/<br />... como si Excel tuviese su propio ascii =)<br />si hacemos esto con una macro, como por ejemplo:<br />Sub MyAscii()<br /> MsgBox Chr(230)<br />End Sub<br />te dará como resultado un caracter muy distinto a la µ griega (el æ).<br />es todo un tema, pero con la funcion =Caracter() o el Sub que te pasé podrás ubicar el caracter que te hace falta. <br />muchas veces, si esto no te funciona, deberás presionar la misma combinación, pero anteponiendo un 0 (cero).<br />por ejemplo: ALT + 0230<br /><br />en las notebooks generalmente debés presionar también la tecla "FN" (funcion) para acceder al <br />teclado numérico que se encuentra dentro de las letras, no al teclado numérico de la parte superior. sería: ALT + FN + 230<br /><br />fijate que tal y me avisas.Damian Omar Silvahttps://www.blogger.com/profile/16039167842052507316noreply@blogger.comtag:blogger.com,1999:blog-1613210108185682998.post-31306319148499247542010-09-02T07:03:30.390-07:002010-09-02T07:03:30.390-07:00En mi PC de escritorio (excel 2003) sosteniendo Al...En mi PC de escritorio (excel 2003) sosteniendo Alt+230 sale la letra MU del alfabeto griego. <br /> Pero en la notebook (excel 2010) no hace nada. Aclaro que en la PC tengo panel numérico y en la notebook no...<br />Gracias.Anonymousnoreply@blogger.com