tag:blogger.com,1999:blog-62839137040550927782024-03-08T13:39:52.308-04:00Formulas En Excel y Macros En ExcelLa Mejor Ayuda Para Formular Tus Hojas De Excel y Crear Macros En ExcelUnknownnoreply@blogger.comBlogger23125tag:blogger.com,1999:blog-6283913704055092778.post-76375027696766565382012-04-22T22:46:00.001-04:302012-04-22T22:46:40.031-04:30[MACRO] Ayuda con macro (gestion de error)<br />
<div class="Message" style="border-bottom-color: initial; border-bottom-style: initial; border-bottom-width: 0px; font-family: Arial, Helvetica, sans-serif; font-size: 12px; line-height: 17px; padding-bottom: 10px; padding-top: 10px; text-align: left;">
<div class="MessageTextContainer" style="border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; float: left; min-height: 82px; width: 555px; word-wrap: break-word;">
<div class="MessageText description" id="freqdescription" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;"><b><u>Usuario:</u></b></span></div>
<div class="MessageText description" id="freqdescription" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;">Buenas tardes serian tan amable de ayudarme con una inquietud que tengo como puedo colocar un msg box que logre salir cuando en input box no coloque el nombre del libro correcto en vez del error "se ha producido el error '9' en tiempo de ejecución: subdice fuera del intervalo<br /><br />Sub cmbCopiar()<br />Dim a As String<br />Dim d As String<br />a = InputBox("Nombre del Archivo: ", "MiArchivo")<br />d = a<br />If d = "" Then<br />Else<br />Workbooks(a).Sheets("Mana_Infantil").Activate<br />Selection.Copy<br />Workbooks("libro1.xlsm").Sheets("Mana_Infantil").Activate<br />ActiveSheet.Range("a2").Select<br />Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _<br /> :=False, Transpose:=False<br />Application.Dialogs(xlDialogSaveAs).Show<br />End If<br />End Sub<br /><br /><br />Gracias</span></div>
<div class="MessageText description" id="freqdescription" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b style="background-color: white;"><u><span style="color: blue;"><br /></span></u></b></div>
<div class="MessageText description" id="freqdescription" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b style="background-color: white;"><u><span style="color: blue;">Respuesta:</span></u></b></div>
</div>
</div>
<div class="Message AlternatingMessage" style="border-bottom-color: initial; border-bottom-style: initial; border-bottom-width: 0px; font-family: Arial, Helvetica, sans-serif; padding-bottom: 10px; padding-top: 10px; text-align: left;">
<div class="MessageTextContainer" style="border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; float: left; min-height: 82px; width: 555px; word-wrap: break-word;">
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;">La manera más fácil de hacer esto es untilizando On Error, te quedaría algo como esto:<br /><br /><em>Sub cmbCopiar()<br />Dim a As String<br />Dim d As String<br /> a = InputBox("Nombre del Archivo: ", "MiArchivo")<br /> d = a<br /> If d = "" Then<br /> Else<br /> On Error GoTo ControlError ' Activa la rutina de control de errores.<br /> Workbooks(a).Sheets("Mana_Infantil").Activate<br /> Selection.Copy<br /> Workbooks("libro1.xlsm").Sheets("Mana_Infantil").Activate<br /> ActiveSheet.Range("a2").Select<br /> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _<br /> :=False, Transpose:=False<br /> Application.Dialogs(xlDialogSaveAs).Show<br /> On Error GoTo 0 ' Desactiva la detección de errores.<br /> End If<br /> <br /> Exit Sub ' Salir para evitar el controlador.<br />ControlError: ' Rutina de control de errores.<br /> MsgBox "Error en la lectura de datos"<br />End Sub</em><br /><br />Saludos</span></div>
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;"><br /></span></div>
</div>
</div>
<div class="Message" style="border-bottom-color: initial; border-bottom-style: initial; border-bottom-width: 0px; padding-bottom: 10px; padding-top: 10px; text-align: left;">
<div class="MessageTextContainer" style="border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; float: left; font-family: Arial, Helvetica, sans-serif; min-height: 82px; width: 555px; word-wrap: break-word;">
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b style="background-color: white;"><u>Usuario:</u></b></div>
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;">Muchas garcías funciona ecxelente</span></div>
</div>
</div>Unknownnoreply@blogger.comtag:blogger.com,1999:blog-6283913704055092778.post-19899958527190008992012-04-22T19:57:00.001-04:302012-04-22T19:57:28.361-04:30[MACROS] Como se autoborra archivo excel, en cuanto desbloqeen<br />
<div class="Message" style="border-bottom-color: initial; border-bottom-style: initial; border-bottom-width: 0px; font-family: Arial, Helvetica, sans-serif; font-size: 12px; line-height: 17px; padding-bottom: 10px; padding-top: 10px; text-align: left;">
<div class="MessageTextContainer" style="border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; float: left; min-height: 82px; width: 555px; word-wrap: break-word;">
<div class="MessageText description" id="freqdescription" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;"><b><u>Usuario:</u></b></span></div>
<div class="MessageText description" id="freqdescription" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;">Hola, quiera saber si hay una forma como una macro para borrar un archivo en cuanto se desbloque, debido a que tengo un archivo que creé, pero no me gustaría que hicieran mal uso con la información que tengo oculta y en las fórmulas, esta bloqueado las hojas y el libro en estructura, y se que es muy sencillo violar las claves ya que hay macros que lo hacen, por lo que me gustaría encontrar una forma de que el archivo se auto borre en cuanto lo desbloqueen. ¿Habrá alguna forma?</span></div>
<div class="MessageText description" id="freqdescription" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b style="background-color: white;"><u><span style="color: blue;"><br /></span></u></b></div>
<div class="MessageText description" id="freqdescription" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b style="background-color: white;"><u><span style="color: blue;">Respuesta:</span></u></b></div>
</div>
</div>
<div class="Message AlternatingMessage" style="border-bottom-color: initial; border-bottom-style: initial; border-bottom-width: 0px; font-family: Arial, Helvetica, sans-serif; padding-bottom: 10px; padding-top: 10px; text-align: left;">
<div class="MessageTextContainer" style="border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; float: left; min-height: 82px; width: 555px; word-wrap: break-word;">
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;">Buenas noches amigo<br /> <br />Existe una posible solución aplicando Worksheets("Hoja1"). ProtectContents . Esto le devolvera True si la hoja esta protegida y False si la hoja esta desprotegida.<br /> <br />Con el siguiente ejemplo básico podrá ver como funciona el comando.<br /> <br /><em>Private Sub CommandButton1_Click()<br /> If Worksheets("Hoja1").ProtectContents = True Then<br /> Range("B2").Select<br /> ActiveCell.FormulaR1C1 = "Protegido"<br /> End If<br /> <br /> If Worksheets("Hoja1").ProtectContents = False Then<br /> Range("B2").Select<br /> ActiveCell.FormulaR1C1 = "Desprotegido"<br /> End If<br /> <br />End Sub</em><br /><em></em><br />Para que funcione correctamente debe cambiar el formato de la celda "B1" para desbloquear la misma.<br /> <br />Intente programar el código de una hoja para que verifique cualquier cambio, usando el evento Changue de Worksheet, y que en cada verificación compruebe que la hoja esta protegida. Si la hoja esta desprotegida, entonces que seleccione toda la hoja y la borre.<br /> <br />Si me me da algo de tiempo, puedo hacer el intento de programarle una hoja de ejemplo.<br /> <br />Saludos</span></div>
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b style="background-color: white;"><u><br /></u></b></div>
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b style="background-color: white;"><u>Usuario:</u></b></div>
</div>
</div>
<div class="Message" style="border-bottom-color: initial; border-bottom-style: initial; border-bottom-width: 0px; font-family: Arial, Helvetica, sans-serif; padding-bottom: 10px; padding-top: 10px; text-align: left;">
<div class="MessageTextContainer" style="border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; float: left; min-height: 82px; width: 555px; word-wrap: break-word;">
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;">Bien. Una respuesta aceptable.</span></div>
</div>
</div>Unknownnoreply@blogger.comtag:blogger.com,1999:blog-6283913704055092778.post-12886640478423157652012-04-22T19:52:00.001-04:302012-04-22T19:52:49.237-04:30[MACROS] Botón para guardar en pdf<br />
<div class="Message" style="border-bottom-color: initial; border-bottom-style: initial; border-bottom-width: 0px; font-family: Arial, Helvetica, sans-serif; font-size: 12px; line-height: 17px; padding-bottom: 10px; padding-top: 10px; text-align: left;">
<div class="MessageTextContainer" style="border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; float: left; min-height: 82px; width: 555px; word-wrap: break-word;">
<div class="MessageText description" id="freqdescription" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;"><b><u>Usuario:</u></b></span></div>
<div class="MessageText description" id="freqdescription" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;">Hola, tengo un botón en una hoja llamada "formulario" y quiero que cuando clique en él me guarde unos rangos de la hoja "enmarcador" d1733:q1787 a un archivo en pdf en la ruta c:/albaranes y ese archivo vaya llevando el nombre que hay en la celda c3 de la hoja "formulario".<br />¿Podéis ayudarme?</span></div>
<div class="MessageText description" id="freqdescription" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b style="background-color: white;"><u><span style="color: blue;"><br /></span></u></b></div>
<div class="MessageText description" id="freqdescription" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b style="background-color: white;"><u><span style="color: blue;">Respuesta:</span></u></b></div>
</div>
</div>
<div class="Message AlternatingMessage" style="border-bottom-color: initial; border-bottom-style: initial; border-bottom-width: 0px; font-family: Arial, Helvetica, sans-serif; padding-bottom: 10px; padding-top: 10px; text-align: left;">
<div class="MessageTextContainer" style="border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; float: left; min-height: 82px; width: 555px; word-wrap: break-word;">
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;">Buenas tardes amigo, disculpe la tardanza en responder.<br /> <br />Imagino que usa Excel 2007 o superior. Esta es una posible solución a lo que desea hacer:<br /> <br /><em>Sheets("formulario").Select</em><br /><em>Range("D1733:Q1787").Select</em><br /><em>Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= Range("C3").Value, Quality:= _</em><br /><em>xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _</em><br /><em> OpenAfterPublish:=False</em><br /><em></em><br />Saludos</span></div>
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b style="background-color: white;"><u><br /></u></b></div>
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b style="background-color: white;"><u>Usuario:</u></b></div>
</div>
</div>
<div class="Message" style="border-bottom-color: initial; border-bottom-style: initial; border-bottom-width: 0px; font-family: Arial, Helvetica, sans-serif; padding-bottom: 10px; padding-top: 10px; text-align: left;">
<div class="MessageTextContainer" style="border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; float: left; min-height: 82px; width: 555px; word-wrap: break-word;">
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;">Gracias, eso era la solución, ahora voy a seguir con este mismo botón para incluir en el código que me has dado pa posibilidad de imprimirlo.</span></div>
</div>
</div>Unknownnoreply@blogger.comtag:blogger.com,1999:blog-6283913704055092778.post-73871220639345260332012-04-22T19:48:00.001-04:302012-04-22T19:48:17.656-04:30[MACROS] Macro para concatenar<br />
<div class="Message AlternatingMessage" style="border-bottom-color: initial; border-bottom-style: initial; border-bottom-width: 0px; font-family: Arial, Helvetica, sans-serif; font-size: 12px; line-height: 17px; padding-bottom: 10px; padding-top: 10px; text-align: left;">
<div class="MessageTextContainer" style="border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; float: left; min-height: 82px; width: 555px; word-wrap: break-word;">
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;"><b><u>Usuario:</u></b></span></div>
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;">Buenos días<br />Necesito una macro que me concatene las columnas bcde pero que antes de guardarme la concatenación en la columna f me inserte una columna ya que en f hay datos gracias</span></div>
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b style="background-color: white;"><u><span style="color: blue;"><br /></span></u></b></div>
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b style="background-color: white;"><u><span style="color: blue;">Respuesta:</span></u></b></div>
</div>
</div>
<div class="Message" style="border-bottom-color: initial; border-bottom-style: initial; border-bottom-width: 0px; font-family: Arial, Helvetica, sans-serif; padding-bottom: 10px; padding-top: 10px; text-align: left;">
<div class="MessageTextContainer" style="border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; float: left; min-height: 82px; width: 555px; word-wrap: break-word;">
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;">Buen día amigo, disculpe la tardanza en responder.<br /> <br />Una posible solución podría ser el siguiente código:<br /><em>Columns("F:F").Select<br />Selection.Insert Shift:=xlToRight<br />Range("F1").Value = Range("B1").Text + Range("C1").Text + Range("D1").Text + Range("E1").Text</em><br /> <br />Saludos</span></div>
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<br /></div>
</div>
</div>
<div class="Message AlternatingMessage" style="border-bottom-color: initial; border-bottom-style: initial; border-bottom-width: 0px; padding-bottom: 10px; padding-top: 10px; text-align: left;">
<div class="MessageTextContainer" style="border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; float: left; font-family: Arial, Helvetica, sans-serif; min-height: 82px; width: 555px; word-wrap: break-word;">
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b style="background-color: white;"><u>Usuario:</u></b></div>
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;">Muchas gracias excelente respuesta</span></div>
</div>
</div>Unknownnoreply@blogger.comtag:blogger.com,1999:blog-6283913704055092778.post-33274540582370863012012-04-22T19:42:00.001-04:302012-04-22T19:42:09.608-04:30[MACROS] Cambiar texto en celda en función del día de la semana<br />
<div class="Message" style="border-bottom-color: initial; border-bottom-style: initial; border-bottom-width: 0px; font-family: Arial, Helvetica, sans-serif; font-size: 12px; line-height: 17px; padding-bottom: 10px; padding-top: 10px; text-align: left;">
<div class="MessageTextContainer" style="border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; float: left; min-height: 82px; width: 555px; word-wrap: break-word;">
<div class="MessageText description" id="freqdescription" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;"><b><u>Usuario:</u></b></span></div>
<div class="MessageText description" id="freqdescription" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;">Hola, espero puedas ayudarme con lo siguiente:<br /> <br />Tengo puesto en la celda B1 la fecha de hoy sin hora.<br /> <br />Range("B1").Select<br /> ActiveCell.FormulaR1C1 = "=TODAY()"<br /> <br />Y lo que quiero es que cuando ejecute la macro en la celda B6 aparezca un texto determinado, dependiendo de si el día de la semana es Sábado o si es otro día cualquiera de la semana.<br />El código que tengo puesto es el siguiente:<br /> <br />If "=TODAY()" = Saturday Then<br /> Range("B6").Select<br /> ActiveCell.FormulaR1C1 = _<br /> "LOS CAMBIOS VIGENTES HASTA LAS 16:00 H DEL LUNES ____/____ SON:"<br /> Else<br /> Range("B6").Select<br /> ActiveCell.FormulaR1C1 = _<br /> "LOS CAMBIOS VIGENTES HASTA LAS 16:00 H SON:"<br />End If<br /> <br />Es correcto este código o debería poner If Range("B1") = Saturday then. Etc.<br /> <br />Muchas gracias de antemano</span></div>
<div class="MessageText description" id="freqdescription" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b style="background-color: white;"><u><span style="color: blue;"><br /></span></u></b></div>
<div class="MessageText description" id="freqdescription" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b style="background-color: white;"><u><span style="color: blue;">Respuesta:</span></u></b></div>
</div>
</div>
<div class="Message AlternatingMessage" style="border-bottom-color: initial; border-bottom-style: initial; border-bottom-width: 0px; font-family: Arial, Helvetica, sans-serif; padding-bottom: 10px; padding-top: 10px; text-align: left;">
<div class="MessageTextContainer" style="border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; float: left; min-height: 82px; width: 555px; word-wrap: break-word;">
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;">Buen día mi amigo, disculpe la tardanza en responderle.</span><span style="background-color: white;"> </span></div>
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;"> <br />Efectivamente lo correcto es <em><strong>If Range("B1") = Saturday then</strong></em><br /> <br />Saludos</span></div>
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b style="background-color: white;"><u><br /></u></b></div>
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b style="background-color: white;"><u>Usuario:</u></b></div>
</div>
</div>
<div class="Message" style="border-bottom-color: initial; border-bottom-style: initial; border-bottom-width: 0px; font-family: Arial, Helvetica, sans-serif; padding-bottom: 10px; padding-top: 10px; text-align: left;">
<div class="MessageTextContainer" style="border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; float: left; min-height: 82px; width: 555px; word-wrap: break-word;">
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;">Bien. Una respuesta aceptable.</span></div>
</div>
</div>Unknownnoreply@blogger.comtag:blogger.com,1999:blog-6283913704055092778.post-79332802919838124992012-04-22T19:39:00.001-04:302012-04-22T19:39:04.696-04:30[FORMULAS] Duda excel<br />
<div class="Message" style="border-bottom-color: initial; border-bottom-style: initial; border-bottom-width: 0px; font-family: Arial, Helvetica, sans-serif; font-size: 12px; line-height: 17px; padding-bottom: 10px; padding-top: 10px; text-align: left;">
<div class="MessageTextContainer" style="border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; float: left; min-height: 82px; width: 555px; word-wrap: break-word;">
<div class="MessageText description" id="freqdescription" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;"><b><u>Usuario:</u></b></span></div>
<div class="MessageText description" id="freqdescription" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;">Tengo dos celdas que quiero relacionar en C1 por la operación "división". (A1 / B1). ¿Qué expresión tengo que escribir en C1 para que me dé siempre un resultado numérico y nunca me salga un mensaje de error? Esto sucede cuando:<br />1) En B1 (que es el divisor) hemos introducido un cero o, por error, una letra o signo distinto a un número.<br />2) En A1 hemos introducido una letra o un signo distinto a un número.<br />Es evidente que la fórmula debe decir algo así: "dividir A1 entre B1 y indicar el resultado en C1, a excepción de que B1 sea igual a 0 o a un signo distinto de un número, o A1 sea un signo distinto a un número, con lo que el resultado indicado será "Sin solución". Me resulta imposible formularlo con la gramática del excel.<br />Muchas gracias.</span></div>
<div class="MessageText description" id="freqdescription" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b style="background-color: white;"><u><span style="color: blue;"><br /></span></u></b></div>
<div class="MessageText description" id="freqdescription" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b style="background-color: white;"><u><span style="color: blue;">Respuesta:</span></u></b></div>
</div>
</div>
<div class="Message AlternatingMessage" style="border-bottom-color: initial; border-bottom-style: initial; border-bottom-width: 0px; font-family: Arial, Helvetica, sans-serif; padding-bottom: 10px; padding-top: 10px; text-align: left;">
<div class="MessageTextContainer" style="border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; float: left; min-height: 82px; width: 555px; word-wrap: break-word;">
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;">Buen día, disculpe la tardanza en responder<br /> <br />Para esto puede utilizar la función SI en conjunto con la función ESERROR de la siguiente forma:<br /><em><strong>=SI(ESERROR(A1/B1);"";A1/B1)</strong></em><br /> <br />Saludos</span></div>
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b style="background-color: white;"><u><br /></u></b></div>
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b style="background-color: white;"><u>Usuario:</u></b></div>
</div>
</div>
<div class="Message" style="border-bottom-color: initial; border-bottom-style: initial; border-bottom-width: 0px; font-family: Arial, Helvetica, sans-serif; padding-bottom: 10px; padding-top: 10px; text-align: left;">
<div class="MessageTextContainer" style="border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; float: left; min-height: 82px; width: 555px; word-wrap: break-word;">
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;">Excelente. Una fantástica solución.</span></div>
</div>
</div>Unknownnoreply@blogger.comtag:blogger.com,1999:blog-6283913704055092778.post-69957895090466187802012-04-22T19:30:00.000-04:302012-04-22T19:30:54.121-04:30[MACROS] Buscar Dato traer modificar actualizar<br />
<div class="Message" style="border-bottom-color: initial; border-bottom-style: initial; border-bottom-width: 0px; font-family: Arial, Helvetica, sans-serif; font-size: 12px; line-height: 17px; padding-bottom: 10px; padding-top: 10px; text-align: left;">
<div class="MessageTextContainer" style="border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; float: left; min-height: 82px; width: 555px; word-wrap: break-word;">
<div class="MessageText description" id="freqdescription" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;"><b><u>Usuario:</u></b></span></div>
<div class="MessageText description" id="freqdescription" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;">Buenas tardes expertos, les explico<br />Tengo un libro con 8 hojas, en las cuales la hoja uno esta vacía y las demás completas de datos.<br />En la hoja1 quiero ingresar un numero, ese número puede estar UNA SOLA VEZ en cualquiera de las hojas, que me lo busque y me traiga toda la horizontal de ese dato para yo poder modificarlo y que se actualice en la hoja correspondiente de donde lo encontró.<br />La idea es hacerlo con botones de buscar y actualizar y algo por el estilo, donde yo pueda entrar el "numero a buscar" le doy click en buscar, que me traiga toda la horizontal, la modifique en la misma hoja1 y luego le de click a actualizar y me actualice la modificación en la hoja correspondiente.<br /> <br />De ante mano muchas gracias.</span></div>
<div class="MessageText description" id="freqdescription" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b style="background-color: white;"><u><span style="color: blue;"><br /></span></u></b></div>
<div class="MessageText description" id="freqdescription" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b style="background-color: white;"><u><span style="color: blue;">Respuesta:</span></u></b></div>
</div>
</div>
<div class="Message AlternatingMessage" style="border-bottom-color: initial; border-bottom-style: initial; border-bottom-width: 0px; font-family: Arial, Helvetica, sans-serif; padding-bottom: 10px; padding-top: 10px; text-align: left;">
<div class="MessageTextContainer" style="border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; float: left; min-height: 82px; width: 555px; word-wrap: break-word;">
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;">Buenas tardes amigo, disculpe la tardanza<br /> <br />Aquí le dejo un archivo como posible solución a su problema:<br /><a href="http://dl.dropbox.com/u/39664288/Excel/buscar%20dato%20traer%20modificar%20actualizar.xls" rel="nofollow" style="cursor: pointer;" target="_blank">EJEMPLO Buscar_Dato_Traer_Modificar_Actualizar.html</a><br /> <br />Saludos<br /><a href="http://formulas-en-excel.blogspot.com/" rel="nofollow" style="cursor: pointer;" target="_blank">http://formulas-en-excel.blogspot.com</a>/</span></div>
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b style="background-color: white;"><u><br /></u></b></div>
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b style="background-color: white;"><u>Usuario:</u></b></div>
</div>
</div>
<div class="Message" style="border-bottom-color: initial; border-bottom-style: initial; border-bottom-width: 0px; font-family: Arial, Helvetica, sans-serif; padding-bottom: 10px; padding-top: 10px; text-align: left;">
<div class="MessageTextContainer" style="border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; float: left; min-height: 82px; width: 555px; word-wrap: break-word;">
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;">Muchas gracias, muy buen dato.</span></div>
</div>
</div>Unknownnoreply@blogger.comtag:blogger.com,1999:blog-6283913704055092778.post-24723647436174543302012-04-22T18:16:00.001-04:302012-04-22T18:17:58.673-04:30[FORMULAS] Extraer datos de hoja por formulario<br />
<div class="Message" style="border-bottom-color: initial; border-bottom-style: initial; border-bottom-width: 0px; font-family: Arial, Helvetica, sans-serif; font-size: 12px; line-height: 17px; padding-bottom: 10px; padding-top: 10px; text-align: left;">
<div class="MessageTextContainer" style="border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; float: left; min-height: 82px; width: 555px; word-wrap: break-word;">
<div class="MessageText description" id="freqdescription" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b><u style="background-color: white;">Usuario:</u></b></div>
<div class="MessageText description" id="freqdescription" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;">Hola<br />Un saludo<br />Tengo una base de clientes en Excel a los que accedo frecuentemente para tomar cierta o cual información. Necesito saber como puedo hacer para que, escribiendo cierto dato en un textbox de un formulario, me despliegue otro relacionado con dicho dato en el mismo formulario (o en otro). Por ej. Escribiría el numero de crédito en el textbox y me desplegaría la información del nombre de dicho acreditado, su numero consecutivo y el estatus de su crédito, ya sea en un promt o en el mismo formulario dentro de otro textbox.<br />A lo mejor es muy complicado pero por lo general cuando busco información utilizo el buscador (Ctrl+b) y tengo que hacerlo de uno por uno. Sin embargo necesito obtener la información de varios créditos a la vez. ¿Puede ser esto posible?<br />Muchas gracias.</span></div>
<div class="MessageText description" id="freqdescription" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b><u style="background-color: white;"><span style="color: blue;"><br /></span></u></b></div>
<div class="MessageText description" id="freqdescription" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b><u style="background-color: white;"><span style="color: blue;">Respuesta:</span></u></b></div>
</div>
</div>
<div class="Message AlternatingMessage" style="border-bottom-color: initial; border-bottom-style: initial; border-bottom-width: 0px; font-family: Arial, Helvetica, sans-serif; padding-bottom: 10px; padding-top: 10px; text-align: left;">
<div class="MessageTextContainer" style="border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; float: left; min-height: 82px; width: 555px; word-wrap: break-word;">
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;">Buenas tardes amigo<br />Efectivamente si se puede hacer con un formulario pero para poder hacer varias búsqueda se necesitaría saber cuanto es el máximo de búsquedas, que desea realizar simultáneamente.<br /><br />Exista otra forma mucho más fácil utilizando un condicional SI junto con la función BUSCARV. La ventaja es que usted podrá realizarle ajustes, a la Hoja, sin necesidad de saber programar lo que facilitaría aplicar el mismo método para cualquier otro caso que se le presente. Otra ventaja es que puede realizar cualquier cantidad de búsquedas simultaneas y los datos obtenidos los puede utilizar libremente (cosa que se haría algo difícil con un formulario).<br /><br />Revise el siguiente archivo y me avisa si aun desea la solución con un formulario<br /><a href="http://dl.dropbox.com/u/39664288/Excel/Extraer%20Datos%20de%20Hoja.xls" rel="nofollow" style="cursor: pointer;" target="_blank">EJEMPLO Extraer_Datos_de_Hoja.html</a><br /><br />Saludos<br /><a href="http://formulas-en-excel.blogspot.com/" rel="nofollow" style="cursor: pointer;" target="_blank">http://formulas-en-excel.blogspot.com</a></span></div>
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b><u style="background-color: white;"><br /></u></b></div>
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b><u style="background-color: white;">Usuario:</u></b></div>
</div>
</div>
<div class="Message" style="border-bottom-color: initial; border-bottom-style: initial; border-bottom-width: 0px; font-family: Arial, Helvetica, sans-serif; padding-bottom: 10px; padding-top: 10px; text-align: left;">
<div class="clear" style="clear: both; font-size: 12px; line-height: 17px;">
</div>
</div>
<div class="Message AlternatingMessage" style="border-bottom-color: initial; border-bottom-style: initial; border-bottom-width: 0px; font-family: Arial, Helvetica, sans-serif; padding-bottom: 10px; padding-top: 10px; text-align: left;">
<div class="MessageTextContainer" style="border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; float: left; min-height: 82px; width: 555px; word-wrap: break-word;">
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;">Muy Bien. Me ha sido de gran utilidad</span></div>
</div>
</div>Unknownnoreply@blogger.comtag:blogger.com,1999:blog-6283913704055092778.post-87156062845171096172012-04-22T18:11:00.001-04:302012-04-22T18:11:43.113-04:30[MACROS] Actualizar textbox con celdas<br />
<div class="Message" style="border-bottom-color: initial; border-bottom-style: initial; border-bottom-width: 0px; font-family: Arial, Helvetica, sans-serif; font-size: 12px; line-height: 17px; padding-bottom: 10px; padding-top: 10px; text-align: left;">
<div class="MessageTextContainer" style="border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; float: left; min-height: 82px; width: 555px; word-wrap: break-word;">
<div class="MessageText description" id="freqdescription" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;"><b><u>Usuario:</u></b></span></div>
<div class="MessageText description" id="freqdescription" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;">Buen día, estaría agradecido si me pudieras ayudar con este inconveniente...<br />Tengo un formulario en donde tengo varios textboxs, lo que necesito es que cada textbox se actualice conforme las selecciones que voy asignándole en el worksheet.<br />******************************************************************<br />Ejemplo:<br />Al seleccionar con el mouse la celda "d5" aparezca inmediatamente en el textbox1 el valor de la celda "d5".<br />La EXPRESION: TextBox1.Value = ActiveCell.value <br /> sobre la CONDICION: TextBox1_Change() <br />me entrega el valor de la celda pero hasta que digito algo en el textbox1. <br />Alguna sugerencia para actualizar el textbox automáticamente cuando selecciono con el mouse o teclado una celda cualquiera.<br />Muchas Gracias de antemano por tu preciado tiempo!</span></div>
<div class="MessageText description" id="freqdescription" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b style="background-color: white;"><u><span style="color: blue;"><br /></span></u></b></div>
<div class="MessageText description" id="freqdescription" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b style="background-color: white;"><u><span style="color: blue;">Respuesta:</span></u></b></div>
</div>
</div>
<div class="Message AlternatingMessage" style="border-bottom-color: initial; border-bottom-style: initial; border-bottom-width: 0px; font-family: Arial, Helvetica, sans-serif; padding-bottom: 10px; padding-top: 10px; text-align: left;">
<div class="MessageTextContainer" style="border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; float: left; min-height: 82px; width: 555px; word-wrap: break-word;">
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;">Buenas tardes amigo, esto se resuelve escribiendo lo siguiente en el código de la Hoja que desee:<br /> <br /><em>Private Sub Worksheet_SelectionChange(ByVal Target As Range)</em><br /><em> TextBox1.Text = Target.Value<br /> <br />End Sub</em><br /><em></em><br /><em>Para que esto funcione no debe estar en modo de diseño en la Hoja</em><br /><em>Saludos</em></span></div>
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b style="background-color: white;"><u><br /></u></b></div>
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b style="background-color: white;"><u>Usuario:</u></b></div>
</div>
</div>
<div class="Message" style="border-bottom-color: initial; border-bottom-style: initial; border-bottom-width: 0px; font-family: Arial, Helvetica, sans-serif; padding-bottom: 10px; padding-top: 10px; text-align: left;">
<div class="MessageTextContainer" style="border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; float: left; min-height: 82px; width: 555px; word-wrap: break-word;">
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;">Exacto compañero, era el comportamiento de la hoja contra el form, muy bien detallada,<br />Al final me quedo así (Ya que era sobre un form):<br />Private Sub Worksheet_SelectionChange(ByVal Target As Range)<br /> UserForm1.Show<br /> On Error Resume Next<br /> UserForm1.TextBox1.Text = Target.Value 'Ejemplo<br /> <br />End Sub<br /><br />Muchas Gracias! Puedo continuar con mi sistema!</span></div>
</div>
</div>Unknownnoreply@blogger.comtag:blogger.com,1999:blog-6283913704055092778.post-29776098244358870062012-04-22T18:05:00.001-04:302012-04-22T18:05:55.335-04:30[MACROS] Mensaje de error al escribir en una celda excel<br />
<div class="Message" style="border-bottom-color: initial; border-bottom-style: initial; border-bottom-width: 0px; font-family: Arial, Helvetica, sans-serif; font-size: 12px; line-height: 17px; padding-bottom: 10px; padding-top: 10px; text-align: left;">
<div class="MessageTextContainer" style="border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; float: left; min-height: 82px; width: 555px; word-wrap: break-word;">
<div class="MessageText description" id="freqdescription" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;"><b><u>Usuario:</u></b></span></div>
<div class="MessageText description" id="freqdescription" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;">Buenos días y gracias por atenderme.<br />Tengo un programilla que me copia unos valores mediante formulario en una hoja (datos). Te copio el código para ponerte en situación.<br /></span></div>
<div class="MessageText description" id="freqdescription" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;"><i>Private Sub Guardar_Click()<br /> If MsgBox("¿Seguro que desea cargar los datos?", vbQuestion + vbYesNo, "CONFIRMACION") = vbNo Then<br /> TextBox3 = Empty<br /> Exit Sub<br /> End If<br /> Dim x As Integer<br /> x = Choose(ComboBox1.ListIndex + 1, 4, 18, 33, 39, 43, 46, 55, 61, 66, 72, 75, 80, 117, 122, 124, 126, 144, 169, 172, 197, 202) + ComboBox2.ListIndex<br /> Sheets("Datos").Cells(x, 4) = Sheets("Datos").Cells(x, 4) - SalidaMaterial.TextBox3.Value<br /> TextBox3 = Empty<br /> MsgBox ("La operación se ha realizado correctamente")<br />End Sub </i></span></div>
<div class="MessageText description" id="freqdescription" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;"><br />Lo que ue hace es sumarme el valor del textbox en función de los combobox. Me lol hace bien, pero si selecciono una opción en el primer combobox y ninguna en el segundo me copia el valor a una celda que no quiero. En este caso la celda 3, 17, 32, 38, 42, etc,<br />¿Cómo puedo quitar esta opción? Y que me de un mensaje de error cuando no haya seleccionado una opción en el combobox 2. </span></div>
<div class="MessageText description" id="freqdescription" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b style="background-color: white;"><u><span style="color: blue;"><br /></span></u></b></div>
<div class="MessageText description" id="freqdescription" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b style="background-color: white;"><u><span style="color: blue;">Respuesta:</span></u></b></div>
</div>
</div>
<div class="Message AlternatingMessage" style="border-bottom-color: initial; border-bottom-style: initial; border-bottom-width: 0px; font-family: Arial, Helvetica, sans-serif; padding-bottom: 10px; padding-top: 10px; text-align: left;">
<div class="MessageTextContainer" style="border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; float: left; min-height: 82px; width: 555px; word-wrap: break-word;">
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;">Buenas tardes, una posible solución seria colocar un condicional que verifique que ComboBox2 no este vacío.<br /> <br />El código podría ser algo como esto:<br /></span></div>
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;"><i>If ComboBox2.Text = "" Then<br /> MsgBox ("ComboBox2 no seleccionado")<br /> Exit Sub<br /> End If </i><br /> <br />Pruébalo y me dices que tal te fue<br /> <br />Saludos<br /><a href="http://formulas-en-excel.blogspot.com/" rel="nofollow" style="cursor: pointer;" target="_blank">http://formulas-en-excel.blogspot.com</a>/</span></div>
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b style="background-color: white;"><u><br /></u></b></div>
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b style="background-color: white;"><u>Usuario:</u></b></div>
</div>
</div>
<div class="Message" style="border-bottom-color: initial; border-bottom-style: initial; border-bottom-width: 0px; font-family: Arial, Helvetica, sans-serif; padding-bottom: 10px; padding-top: 10px; text-align: left;">
<div class="MessageTextContainer" style="border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; float: left; min-height: 82px; width: 555px; word-wrap: break-word;">
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;">Gracias, lo he probado y funciona, lo que pasa ahora es que si antes he seleccionado un producto en el combobox, se me queda y me hace otra vez lo mismo. ¿Cómo puedo vaciar el combobox cada vez que opero con el?<br />Un saludo.</span></div>
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b style="background-color: white;"><u><span style="color: blue;"><br /></span></u></b></div>
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b style="background-color: white;"><u><span style="color: blue;">Respuesta:</span></u></b></div>
</div>
</div>
<div class="Message AlternatingMessage" style="border-bottom-color: initial; border-bottom-style: initial; border-bottom-width: 0px; font-family: Arial, Helvetica, sans-serif; font-size: 12px; line-height: 17px; padding-bottom: 10px; padding-top: 10px; text-align: left;">
<div class="MessageTextContainer" style="border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; float: left; min-height: 82px; width: 555px; word-wrap: break-word;">
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;">Pruebe colocando ComboBox2.Text = "" como ultima accion de la macro. Seria algo así como:<br /> <br /> <i>TextBox3 = Empty<br /> MsgBox ("La operación se ha realizado correctamente")<br /> ComboBox2.Text = ""<br />End Sub </i><br /> <br />Saludos</span></div>
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b style="background-color: white;"><u><br /></u></b></div>
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b style="background-color: white;"><u>Usuario:</u></b></div>
</div>
</div>
<div class="Message" style="border-bottom-color: initial; border-bottom-style: initial; border-bottom-width: 0px; font-family: Arial, Helvetica, sans-serif; padding-bottom: 10px; padding-top: 10px; text-align: left;">
<div class="MessageTextContainer" style="border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; float: left; min-height: 82px; width: 555px; word-wrap: break-word;">
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;">Excelente. Una fantástica solución.</span></div>
</div>
</div>Unknownnoreply@blogger.comtag:blogger.com,1999:blog-6283913704055092778.post-15257416894170195922012-04-22T12:49:00.001-04:302012-04-22T12:51:20.329-04:30[MACROS] Necesito crear una macro en Excel para hacer búsquedas de tablas combinadas<br />
<div class="Message" style="border-bottom-color: initial; border-bottom-style: initial; border-bottom-width: 0px; font-family: Arial, Helvetica, sans-serif; font-size: 12px; line-height: 17px; padding-bottom: 10px; padding-top: 10px; text-align: left;">
<div class="MessageTextContainer" style="border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; float: left; min-height: 82px; width: 555px; word-wrap: break-word;">
<div class="MessageText description" id="freqdescription" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;"><b><u>Usuario:</u></b></span></div>
<div class="MessageText description" id="freqdescription" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;">Hola,<br />Me gustaría que me pudieran ayudar en este caso ya que estoy un poco perdida.<br />Tengo una tabla con las siguientes columnas<br />Año, Trimestre, Convenio, Entidad, Responsable, Objeto y Actuación<br />En otra hoja tengo un cuadro combinado para realizar búsquedas por Año, Trimestre, Convenio, Entidad y Responsable.<br />Lo que quiero es que al pulsar un botón "Buscar" me aparezca una tabla (en la misma hoja o en otra) con todas las filas (puede haber más de una filae que coincida con los datos de búqsueda) que se correspondan con los datos de los cuadros combinados (no siempre se utilizaran todos ni los mismos cuadros combinados, es decir, unas veces se puede buscar por Año y Convenio, otras por Año, Trimestre y Responsable... etc).<br />Sería genial que en las filas aparecieran todas las columnas excepto por las que se ha realizado el filtro de la búsqueda.<br />No sé como realizar esto, ¿macro?, ¿Tablas dinámicas?, ¿Combinación de funciones?</span></div>
<div class="MessageText description" id="freqdescription" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b style="background-color: white; color: blue;"><u><br /></u></b></div>
<div class="MessageText description" id="freqdescription" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b style="background-color: white; color: blue;"><u>Respuesta:</u></b></div>
</div>
</div>
<div class="Message AlternatingMessage" style="border-bottom-color: initial; border-bottom-style: initial; border-bottom-width: 0px; font-family: Arial, Helvetica, sans-serif; padding-bottom: 10px; padding-top: 10px; text-align: left;">
<div class="MessageTextContainer" style="border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; float: left; min-height: 82px; width: 555px; word-wrap: break-word;">
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;">Buenas noches, disculpe la tardanza en responder<br /> <br />Le tengo una posible solución: Un Libro con dos Hojas llamadas "Datos" y "Busqueda".<br />En la Hoja "Datos" evidentemente estarán todos los datos que se desean filtrar.<br />En la Hoja "Busqueda" tendremos un Botón "Buscar" el cual realizara el filtro dependiende de los valores asignados a las celdas que van desde C3 a D7. En estas celdas usted puede seleccionar cuales criterios (Columna C) desea que se apliquen en la búsqueda conlocando "Si" o "No". También puede especificar los valores (Columna D) que se desea que se busque.<br /> <br />Revise este archivo y me dice que tal le parece<br /><a href="http://dl.dropbox.com/u/39664288/Excel/Busque%20Multiple%20Con%20Criterios%20Multiples.xls" rel="nofollow" style="cursor: pointer;" target="_blank">EJEMPLO Busque_Multiple_Con_Criterios_Multiples.html</a><br /> <br />Saludos<br /><a href="http://formulas-en-excel.blogspot.com/" rel="nofollow" style="cursor: pointer;" target="_blank">http://formulas-en-excel.blogspot.com</a></span></div>
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b style="background-color: white;"><u><br /></u></b></div>
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b style="background-color: white;"><u>Usuario:</u></b></div>
</div>
</div>
<div class="Message" style="border-bottom-color: initial; border-bottom-style: initial; border-bottom-width: 0px; font-family: Arial, Helvetica, sans-serif; padding-bottom: 10px; padding-top: 10px; text-align: left;">
<div class="MessageTextContainer" style="border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; float: left; min-height: 82px; width: 555px; word-wrap: break-word;">
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;">Hola,<br />Muchas gracias por tu respuesta.<br />He estado echándole un vistazo y tiene muy buena pinta aunque me gustaría hacerle un par de cambios.<br />En primer lugar si hago una búsqueda que el resultado tiene 7 filas, y la siguiente tiene 3, me aparecen las 3 de la segunda búsqueda pero también las filas 4, 5, 6 y 7 de la primera. Es decir, tendrían que borrarse los registros antiguos para cada nueva búsqueda.<br />En segundo lugar, me gusta la idea, aunque yo lo había pensado de otra forma, igual que tiene un desplegable para si/no, yo había pensado en montar un desplegable para cada criterio con todas las opciones. Siguiendo el ejemplo, que en año se desplegara 2001, 2005, 2006, 2007 y 2009, en trimestre 1, 2, 3 y 4... etc y en cada uno de ellos también la opción en blanco que equivaldría a cuando no se quiere realizar una búsqueda por ese criterio.<br />De esta forma para las búsquedas solo tendrían que seleccionarse las opciones de los desplegables, bien en blanco (para que no busque por este criterio) o con algún dato.<br />Y por último, aunque es lo menos relevante, que en los resultados no aparecieran los criterios por los que se ha hecho la búsqueda, por ejemplo, si busco por año y responable, que solo saque los resultados de trimestre, convenio y entidad.<br />He mirado el código de la macro aunque no lo comprendo muy bien. Me gustaría que me dijeras si estos cambios que te comento son viables o no, sobretodo el segundo ya que me parece mucho más práctico para el usuario final.<br />Muchísimas gracias por tu ayuda de verdad</span></div>
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b style="background-color: white; color: blue;"><u><br /></u></b></div>
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b style="background-color: white; color: blue;"><u>Respuesta:</u></b></div>
</div>
</div>
<div class="Message AlternatingMessage" style="border-bottom-color: initial; border-bottom-style: initial; border-bottom-width: 0px; font-family: Arial, Helvetica, sans-serif; padding-bottom: 10px; padding-top: 10px; text-align: left;">
<div class="MessageTextContainer" style="border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; float: left; min-height: 82px; width: 555px; word-wrap: break-word;">
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;">Buenas noches, disculpe la tardanza.<br /> <br />Realize los ajustes que solicitaste. Me gusto mucho la idea de aplicar criterio de búsqueda en base a las listas con valores asignados.<br /> <br />Las listas desplegables fueron creadas con validación de datos (Menu Datos -> Validación) ustilizando los datos que puedes ver en el rango de celdas H3:AH7. Todas estas columnas las puedes ocultar sin problemas.<br /> <br />También ajuste la macro para que no muestre las columnas con los criterios utilizados para la búsqueda pero no esta permitido realizar una búsqueda con los 5 criterios, simultáneamente, porque no habrían columnas que mostrar.<br /> <br />Revisa el archivo y me dices que tal te parece<br /><a href="http://dl.dropbox.com/u/39664288/Excel/Busque%20Multiple%20Con%20Criterios%20Multiples.xls" rel="nofollow" style="cursor: pointer;" target="_blank">EJEMPLO Busque_Multiple_Con_Criterios_Multiples.html</a><br /> <br />Saludos<br /><a href="http://formulas-en-excel.blogspot.com/" rel="nofollow" style="cursor: pointer;" target="_blank">http://formulas-en-excel.blogspot.com</a> </span></div>
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b style="background-color: white;"><u><br /></u></b></div>
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b style="background-color: white;"><u>Usuario:</u></b></div>
</div>
</div>
<div class="Message" style="border-bottom-color: initial; border-bottom-style: initial; border-bottom-width: 0px; font-family: Arial, Helvetica, sans-serif; font-size: 12px; line-height: 17px; padding-bottom: 10px; padding-top: 10px; text-align: left;">
<div class="MessageTextContainer" style="border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; float: left; min-height: 82px; width: 555px; word-wrap: break-word;">
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;">Muchas gracias!<br />Esa era exactamente mi idea</span></div>
</div>
</div>Unknownnoreply@blogger.comtag:blogger.com,1999:blog-6283913704055092778.post-62651887815872629522012-04-22T11:25:00.001-04:302012-04-22T11:25:05.808-04:30[MACROS] Como usar Fileappend filewrite EmReadscreen<br />
<div class="Message" style="border-bottom-color: initial; border-bottom-style: initial; border-bottom-width: 0px; font-family: Arial, Helvetica, sans-serif; font-size: 12px; line-height: 17px; padding-bottom: 10px; padding-top: 10px; text-align: left;">
<div class="MessageTextContainer" style="border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; float: left; min-height: 82px; width: 555px; word-wrap: break-word;">
<div class="MessageText description" id="freqdescription" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b><u>Usuario:</u></b></div>
<div class="MessageText description" id="freqdescription" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;">Hola experto<br />Estoy programando una macro en excel, pero no conozco como funcionan estas funciones me las puedes explicar<br />Fileappend<br />Filewrite<br />Emreadscreen<br />Gracias y espero su respuesta</span></div>
<div class="MessageText description" id="freqdescription" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b><u><span style="color: blue;"><br /></span></u></b></div>
<div class="MessageText description" id="freqdescription" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b><u><span style="color: blue;">Respuesta:</span></u></b></div>
</div>
</div>
<div class="Message AlternatingMessage" style="border-bottom-color: initial; border-bottom-style: initial; border-bottom-width: 0px; font-family: Arial, Helvetica, sans-serif; font-size: 12px; line-height: 17px; padding-bottom: 10px; padding-top: 10px; text-align: left;">
<div class="MessageTextContainer" style="border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; float: left; min-height: 82px; width: 555px; word-wrap: break-word;">
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;">Buenas tardes amigo, disculpe la tardanza en responder.<br /> <br />No tengo información referente a esos comandos pero si tengo una posible solución.<br />Para FILEAPPEND puede utilizar APPEND, y para FILEWRITE puede utilizar WRITE. En el caso de ENREADSCREEN lamentablemente no conozco algún equivalente.<br /> <br />Los comandos estrellas que se necesitan para poder aplicar esto, correctamente, es OPEN y CLOSE.<br /> <br />APPEND no es un comando, es una opción del comando Open que define la forma como se va a tratar el archivo que se piensa abrir. En este caso se abrirá para adicionar lineas de texto al final del archivo.<br /> <br />WRITE si es un comando y su funcion es escribir en el archivo que se piensa abrir. Tambien puede usar el comando PRINT.<br /> <br />Le dejo un código de ejemplo para que lo revise:<br /> <br />Private Sub cmdAppend_Click()<br /> <br /> Dim intFileHandle As Integer<br /> Dim myStr As String<br /> myStr = "Celda A1 " & Range("A1").Value<br /> intFileHandle = FreeFile<br /> Open "Prueba.txt" For Append As #intFileHandle<br /> Print #intFileHandle, myStr<br /> Close #intFileHandle<br />End Sub<br />Private Sub cmdWrite_Click()<br /> <br /> Dim intFileHandle As Integer<br /> Dim myStr As String<br /> myStr = "Celda A1 " & Range("A1").Value<br /> intFileHandle = FreeFile<br /> Open "Prueba.txt" For Output As #intFileHandle<br /> Write #intFileHandle, myStr ' Delimita con comas los datos introducidos.<br /> Write #intFileHandle, ' Coloca una línea en blanco.<br /> <br /> Dim MiBool, MiFecha, MiNull, MiError<br /> ' Se establecen valores Boolean, Date, Null y Error.<br /> MiBool = False: MiFecha = #2/12/1969#: MiNull = Null<br /> MiError = CVErr(32767)<br /> ' Los datos booleanos se escriben como #TRUE# o #FALSE#. ' Los literales de fecha se escriben en el formato de<br /> ' fecha universal, por ejemplo,#13-07-1994# representa<br /> '13 de julio de 1994. Los datos nulos se escriben como #NULL#.<br /> ' Los datos de error se escriben como #ERROR código_error#.<br /> Write #intFileHandle, MiBool; "es un valor booleano"<br /> Write #intFileHandle, MiFecha; "es una fecha"<br /> Write #intFileHandle, MiNull; "es un valor nulo"<br /> Write #intFileHandle, MiError; "es un valor de error"<br /> Close #intFileHandle ' Cierra el archivo.<br />End Sub<br /> <br />Saludos<br /><a href="http://formulas-en-excel.blogspot.com/" rel="nofollow" style="cursor: pointer;" target="_blank">http://formulas-en-excel.blogspot.com</a>/</span></div>
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b><u><br /></u></b></div>
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b><u>Usuario:</u></b></div>
</div>
</div>
<div class="Message" style="border-bottom-color: initial; border-bottom-style: initial; border-bottom-width: 0px; font-family: Arial, Helvetica, sans-serif; padding-bottom: 10px; padding-top: 10px; text-align: left;">
<div class="MessageTextContainer" style="border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; float: left; min-height: 82px; width: 555px; word-wrap: break-word;">
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;">Muy Bien. Me ha sido de gran utilidad</span></div>
</div>
</div>Unknownnoreply@blogger.comtag:blogger.com,1999:blog-6283913704055092778.post-53556953754817519932012-04-22T11:12:00.001-04:302012-04-22T11:12:38.843-04:30[FORMULAS] Condicionar casilla para que aparezca valor en celda<br />
<div class="Message" style="border-bottom-color: initial; border-bottom-style: initial; border-bottom-width: 0px; font-family: Arial, Helvetica, sans-serif; font-size: 12px; line-height: 17px; padding-bottom: 10px; padding-top: 10px; text-align: left;">
<div class="MessageTextContainer" style="border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; float: left; min-height: 82px; width: 555px; word-wrap: break-word;">
<div class="MessageText description" id="freqdescription" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;"><b><u>Usuario:</u></b></span></div>
<div class="MessageText description" id="freqdescription" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;">Hola, bueno mi problema es que estoy haciendo una hoja de calculo para facturación, tengo los siguientes títulos: descripción, cantidad, precio unidad e importe. Bueno he creado una fórmula en importe con la función PRODUCTO para que me multiplique la cantidad con el precio unidad y me salga el resultado en importe, pero el problema es que me sale 0,00 si no inserto ningunos valores en cantidad ni en precio unidad, solo quiero que me aparezca el valor en importe cuando inserte algún valor en las otras casillas y mientras que este en blanco, para que a la hora de imprimir no me aparezca en toda la columna los "0,00". En fin no se si esto se podrá hacer de alguna manera para ocultar las celdas de importe hasta que se aplique algún valor en las otras celdas, espero su ayuda, gracias</span></div>
<div class="MessageText description" id="freqdescription" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b style="background-color: white;"><u><span style="color: blue;"><br /></span></u></b></div>
<div class="MessageText description" id="freqdescription" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b style="background-color: white;"><u><span style="color: blue;">Respuesta:</span></u></b></div>
</div>
</div>
<div class="Message AlternatingMessage" style="border-bottom-color: initial; border-bottom-style: initial; border-bottom-width: 0px; font-family: Arial, Helvetica, sans-serif; padding-bottom: 10px; padding-top: 10px; text-align: left;">
<div class="MessageTextContainer" style="border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; float: left; min-height: 82px; width: 555px; word-wrap: break-word;">
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;">Buenas tardes, esto se puede resolver con una función "SI" de la siguiente manera.<br />=SI(Y(C2<>"";D2<>"");C2*D2;"")<br /> <br />Lo que hace la función es verificar que las dos celdas (C2 y D2) no estén vacías. Si la condición se cumple entonces multiplicara los dos valores. Si alguna de las dos celdas esta vacía entonces el resultado sera "" (vacío).<br /> <br />Saludos y espero que con esto puedas resolver tu inquietud.<br /><a href="http://formulas-en-excel.blogspot.com/" rel="nofollow" style="cursor: pointer;" target="_blank">http://formulas-en-excel.blogspot.com</a>/</span></div>
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b style="background-color: white;"><u><br /></u></b></div>
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b style="background-color: white;"><u>Usuario:</u></b></div>
</div>
</div>
<div class="Message" style="border-bottom-color: initial; border-bottom-style: initial; border-bottom-width: 0px; font-family: Arial, Helvetica, sans-serif; padding-bottom: 10px; padding-top: 10px; text-align: left;">
<div class="MessageTextContainer" style="border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; float: left; min-height: 82px; width: 555px; word-wrap: break-word;">
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;">Hola, gracias por la respuesta, acabo de probar la fórmula y funciona pero claro me pone en el resultado "FALSO" en el caso de que no se metan datos, y yo no quiero que me aparezca nada, es decir la celda vacía, en fin, a ver si se puede hacer para que no aparezca, gracias</span></div>
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b style="background-color: white;"><u><span style="color: blue;"><br /></span></u></b></div>
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b style="background-color: white;"><u><span style="color: blue;">Respuesta:</span></u></b></div>
</div>
</div>
<div class="Message AlternatingMessage" style="border-bottom-color: initial; border-bottom-style: initial; border-bottom-width: 0px; font-family: Arial, Helvetica, sans-serif; padding-bottom: 10px; padding-top: 10px; text-align: left;">
<div class="MessageTextContainer" style="border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; float: left; min-height: 82px; width: 555px; word-wrap: break-word;">
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;">¿Esta seguro de que copio bien la fórmula? Ese valor sale cuando no se coloca "" en el tercer parámetro de la función SI.<br /> <br />Le dejo este archivo para que lo revise<br /><a href="http://dl.dropbox.com/u/39664288/Excel/Condicionar%20Casilla.xls" rel="nofollow" style="cursor: pointer;" target="_blank">EJEMPLO Condicionar_Casilla.html</a><br /> <br />Saludos<br /><a href="http://formulas-en-excel.blogspot.com/" rel="nofollow" style="cursor: pointer;" target="_blank">http://formulas-en-excel.blogspot.com</a>/</span></div>
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b style="background-color: white;"><u><br /></u></b></div>
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b style="background-color: white;"><u>Usuario:</u></b></div>
</div>
</div>
<div class="Message" style="border-bottom-color: initial; border-bottom-style: initial; border-bottom-width: 0px; font-family: Arial, Helvetica, sans-serif; padding-bottom: 10px; padding-top: 10px; text-align: left;">
<div class="MessageTextContainer" style="border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; float: left; min-height: 82px; width: 555px; word-wrap: break-word;">
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;">Ok, al final lo conseguí, muchas gracias por tu ayuda, saludos</span></div>
</div>
</div>Unknownnoreply@blogger.comtag:blogger.com,1999:blog-6283913704055092778.post-73362098034322959752012-04-22T11:00:00.001-04:302012-04-22T11:00:05.109-04:30[FORMULAS] Como cambio la condición de la fórmula<br />
<div class="Message" style="border-bottom-color: initial; border-bottom-style: initial; border-bottom-width: 0px; font-family: Arial, Helvetica, sans-serif; font-size: 12px; line-height: 17px; padding-bottom: 10px; padding-top: 10px; text-align: left;">
<div class="MessageTextContainer" style="border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; float: left; min-height: 82px; width: 555px; word-wrap: break-word;">
<div class="MessageText description" id="freqdescription" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b><u style="background-color: white;">Usuario:</u></b></div>
<div class="MessageText description" id="freqdescription" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;">Hola, nuevamente me gusto tu trabajo pero encontré otra incógnita que es:<br />Como cambio la condición de la letra "e" por una palabra.<br />Pues como puedes ver también habían (actividades con otras palabras como vencido)</span></div>
<div class="MessageText description" id="freqdescription" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b><u style="background-color: white;"><span style="color: blue;"><br /></span></u></b></div>
<div class="MessageText description" id="freqdescription" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b><u style="background-color: white;"><span style="color: blue;">Respuesta:</span></u></b></div>
</div>
</div>
<div class="Message AlternatingMessage" style="border-bottom-color: initial; border-bottom-style: initial; border-bottom-width: 0px; font-family: Arial, Helvetica, sans-serif; padding-bottom: 10px; padding-top: 10px; text-align: left;">
<div class="MessageTextContainer" style="border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; float: left; min-height: 82px; width: 555px; word-wrap: break-word;">
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;">Me alegra que te gustara el trabajo.<br />Si te fijas bien en la Hoja1 esta oculta la columna "A". En esa columna están los condicionales que son la base de la selección de los datos a transferir. La fórmula de esos condicionales es la siguiente:<br />=SI(L4="e";A3+1;A3)<br /> <br />La letra "e" la puedes sustituir por otra palabra o por una referencia a otra celda.<br />Te modifique el trabajo para que coloques en la Hoja2 (celda "M1") la palabra que deseas que se busque.<br /><a href="http://dl.dropbox.com/u/39664288/Excel/Base%20de%20datos%20actividades%20Operaciones2.xls" rel="nofollow" style="cursor: pointer;" target="_blank">EJEMPLO Base_de_datos_actividades_Oper.html</a><br /> <br />Saludos</span></div>
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b><u style="background-color: white;"><br /></u></b></div>
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b><u style="background-color: white;">Usuario:</u></b></div>
</div>
</div>
<div class="Message" style="border-bottom-color: initial; border-bottom-style: initial; border-bottom-width: 0px; padding-bottom: 10px; padding-top: 10px; text-align: left;">
<div class="MessageTextContainer" style="border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; float: left; font-family: Arial, Helvetica, sans-serif; min-height: 82px; width: 555px; word-wrap: break-word;">
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;">Esta muy buena tu idea, y te lo agradezco nuevamente. Pero cuando la fórmula pasa las fechas las suma, resta o no se que hará con ellas, por que sea lo que haga no las pasa iguales.<br />Si me puedes colaborar con esto, seria muy bueno, y si no, te quieres molestar más esta bien. Pero sino solo ocultare esa columna.<br />Esta preguntita más, tengo otra base de datos, y quise implementar los trucos que me enseñaste. pero me aparecio un error (######). Yo creía que el error era por el nombre de las hojas, pero no fue así, le cambie el nombre y siguió igual. Porque todo lo puse igual a la otra con las ubicaciones de las celdas y todo pero no.</span></div>
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b><u style="background-color: white;"><br /></u></b></div>
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b><u style="background-color: white;">Usuario:</u></b></div>
</div>
</div>
<div class="Message AlternatingMessage" style="border-bottom-color: initial; border-bottom-style: initial; border-bottom-width: 0px; padding-bottom: 10px; padding-top: 10px; text-align: left;">
<div class="MessageTextContainer" style="border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; float: left; font-family: Arial, Helvetica, sans-serif; min-height: 82px; width: 555px; word-wrap: break-word;">
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;">Hola, ya se me arreglo cambiando el nombre de las hojas. Pero yo no quiero que el nombre de la hoja 1 quede como (Hoja1) ni el de la hoja 2 Quede como (Hoja2).<br />Pero si no les coloco este nombre no me funcionan.<br />Ha y no te olvides de mirar la posibilidad de lo de la fecha.</span></div>
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b><u style="background-color: white;"><span style="color: blue;"><br /></span></u></b></div>
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b><u style="background-color: white;"><span style="color: blue;">Respuesta:</span></u></b></div>
</div>
</div>
<div class="Message" style="border-bottom-color: initial; border-bottom-style: initial; border-bottom-width: 0px; font-family: Arial, Helvetica, sans-serif; padding-bottom: 10px; padding-top: 10px; text-align: left;">
<div class="MessageTextContainer" style="border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; float: left; min-height: 82px; width: 555px; word-wrap: break-word;">
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;">No es ninguna molestia, estamos para ayudar ;)<br /> <br />Para que las fechas te aparezcan correctamente debes cambiar el formato de las celdas haciendo click con el botón derecho del mouse y seleccionar el formato "Fecha".<br /> <br />Con respecto a la segunda duda, cuando en una celda te aparece #### es porque el resultado es un numero con un largo más ancho que el mismo ancho de la columna. Ajusta el ancho de la columna hasta que logres ver el resultado.<br /> <br />Saludos y no dudes en preguntar =)</span></div>
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b><u style="background-color: white;"><span style="color: blue;"><br /></span></u></b></div>
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b><u style="background-color: white;"><span style="color: blue;">Respuesta:</span></u></b></div>
</div>
</div>
<div class="Message AlternatingMessage" style="border-bottom-color: initial; border-bottom-style: initial; border-bottom-width: 0px; font-family: Arial, Helvetica, sans-serif; padding-bottom: 10px; padding-top: 10px; text-align: left;">
<div class="MessageTextContainer" style="border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; float: left; min-height: 82px; width: 555px; word-wrap: break-word;">
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;">No hay problema, cambia el nombre de las hojas pero en la fórmula<br />=SI(FILA(A3)-2<=TUHOJA!$A$2;BUSCARV(FILA(A3)-2;TUHOJA!$A$4:$L$199;COLUMNA(A3)+1;0);"")<br /> <br />Saludos<br /><a href="http://formulas-en-excel.blogspot.com/" rel="nofollow" style="cursor: pointer;" target="_blank">http://formulas-en-excel.blogspot.com</a>/</span></div>
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;"><br /></span></div>
</div>
</div>
<div class="Message" style="border-bottom-color: initial; border-bottom-style: initial; border-bottom-width: 0px; padding-bottom: 10px; padding-top: 10px; text-align: left;">
<div class="MessageTextContainer" style="border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; float: left; font-family: Arial, Helvetica, sans-serif; min-height: 82px; width: 555px; word-wrap: break-word;">
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<b><u style="background-color: white;">Usuario:</u></b></div>
<div class="MessageText" style="font-size: 14px; height: auto !important; line-height: 20px; padding-bottom: 10px !important; padding-left: 4px !important; padding-right: 10px !important; padding-top: 4px !important;">
<span style="background-color: white;">Gracias por tu ayuda</span></div>
</div>
</div>Unknownnoreply@blogger.comtag:blogger.com,1999:blog-6283913704055092778.post-92114119203483071572012-04-22T10:46:00.001-04:302012-04-22T10:46:06.808-04:30[FORMULAS] Pasar datos de una hoja a otra con una condición<b><u style="background-color: white;">Usuario:</u></b><br />
<span style="background-color: white;"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;">Hola, mi pregunta es: que la información que tengo en la hoja1 desde a1 hasta k1, me la pase a la hoja 2, cuando en la celda k1 se escriba la palabra ejecutado.</span>
</span><br />
<span style="background-color: white; font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;"><br /></span><br />
<span style="background-color: white; font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;"><span style="color: blue;"><b><u>Respuesta:</u></b></span></span><br />
<span style="background-color: white;"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;">Buenas tardes, esto se puede resolver con la fórmula "SI". </span><br style="font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;" /><span style="font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;"> </span><br style="font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;" /><span style="font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;">En la celda "A1", de la Hoja2, debe colocar la siguiente fórmula: </span><br style="font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;" /><span style="font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;">=SI($K$1="ejecutado";Hoja1!A1;"") </span><br style="font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;" /><span style="font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;"> </span><br style="font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;" /><span style="font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;">Luego copia y pega la celda "A1" en las celdas desde "B1" en adelante. </span><br style="font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;" /><span style="font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;">Saludos =)</span>
</span><br />
<span style="background-color: white; font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;"><br /></span><br />
<span style="background-color: white;"><b><u>Usuario:</u></b>
</span><br />
<span style="background-color: white;"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;">Hola, primero gracias por tu diligencia. </span><br style="font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;" /><span style="font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;">Lo hice como usted lo dijo y me apareció Erro de Fórmula. No se por que si me puede dar otra sugerencia, lo agradezco.</span>
</span><br />
<span style="background-color: white; font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;"><br /></span><br />
<b style="background-color: white; color: blue; font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;"><u>Respuesta:</u></b>
<br />
<span style="background-color: white;"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;">Es extraño, debería funcionar bien. ¿Tu version de Excel es en español? </span><br style="font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;" /><span style="font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;"> </span><br style="font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;" /><span style="font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;">Este archivo es un ejemplo de como funciona. Las fórmulas están en la celdas de la Hoja2. </span><br style="font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;" /><a href="http://dl.dropbox.com/u/39664288/Excel/pasar%20datos%20con%20condicion.xls" rel="nofollow" style="cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;" target="_blank">EJEMPLO Pasar_Datos_con_Condicion</a><span style="font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;"> </span><br style="font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;" /><span style="font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;"> </span><br style="font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;" /><span style="font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;">Saludos</span>
</span><br />
<span style="background-color: white; font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;"><br /></span><br />
<span style="background-color: white;"><b><u>Usuario:</u></b>
</span><br />
<span style="background-color: white;"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;">Hola gracias por tu respuesta. Me sirvió en una parte pero al implementarla me apareció otra cosa, y es la siguiente: </span><br style="font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;" /><span style="font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;">Que cuando este pasando los datos ala hoja 2 no me deje espacios de los que no cumplen la condición. </span><br style="font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;" /><span style="font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;">Si no me entiendes bien dime como me puedo expresar mejor </span><br style="font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;" /><span style="font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;">Este es un link donde puedes ver lo que me ocurrió implementando tu respuesta </span>
</span><br />
<span style="background-color: white;"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;">Muchas gracias</span>
</span><br />
<span style="background-color: white; font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;"><br /></span><br />
<b style="background-color: white; color: blue; font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;"><u>Respuesta:</u></b>
<br />
<span style="background-color: white;"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;">Ok amigo, lo que usted necesita es algo un poquito más complejo que un condicional. Modifique un poco su archivo para que haga lo que usted esta pidiendo. </span><br style="font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;" /><span style="font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;">Al colocar la letra "e" en la celda que, de la Hoja1, los datos de esa fila se verán reflejados en la Hoja2 </span><br style="font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;" /><a href="http://dl.dropbox.com/u/39664288/Excel/Base%20de%20datos%20actividades%20Operaciones2.xls" rel="nofollow" style="cursor: pointer; font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;" target="_blank">EJEMPLO Base de datos actividades Operaciones2.xls</a><span style="font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;"> </span><br style="font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;" /><span style="font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;"> </span><br style="font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;" /><span style="font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;">Saludos</span>
</span><br />
<span style="background-color: white; font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;"><br /></span><br />
<span style="background-color: white;"><b><u>Usuario:</u></b>
</span><br />
<span style="background-color: white;"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;">Gracias por tu esfuerzo y rapidez de respuesta. </span><br style="font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;" /><span style="font-family: Arial, Helvetica, sans-serif; font-size: 14px; line-height: 20px; text-align: left;">Saludos</span></span>Unknownnoreply@blogger.comtag:blogger.com,1999:blog-6283913704055092778.post-6761739362419140942011-01-18T15:48:00.000-04:302011-01-18T15:48:04.659-04:30Pregunta: Copiar datos sin tomar filas vacias<strong><u>Usuario:</u></strong><br />
<div class="MessageText" id="freqdescription">En un libro de Excel, de la hoja "Diario" por medio de una macro, deseo copiar el rango (Q10:R40), pegar los datos a partir de la celda (Q100), eliminando las filas vacias. <br />
Un saludo </div><div class="MessageText"> </div><div class="MessageText"><strong><u>Respuesta:</u></strong></div><div class="MessageText"><div class="MessageText">Buen dia amigo, por lo que pude entender esto es lo que usted necesita: <br />
<br />
<em>contador1 = 0 <br />
contador2 = 0 <br />
<br />
For Each c In Worksheets("Diario").Range("Q10:Q40") <br />
<br />
If c.Value <> "" Then <br />
Worksheets("Diario").Cells(100 + contador2, 17).Value = Worksheets("Diario").Cells(10 + contador1, 17).Value <br />
Worksheets("Diario").Cells(100 + contador2, 18).Value = Worksheets("Diario").Cells(10 + contador1, 18).Value <br />
contador2 = contador2 + 1 <br />
End If <br />
<br />
contador1 = contador1 + 1 <br />
<br />
Next c</em> <br />
<br />
Saludos </div><div class="MessageText"> </div><div class="MessageText"><strong><u>Usuario:</u></strong></div><div class="MessageText"><div class="MessageText">En primer lugar el rango indicado no es el corrector, deberia de ser (Q10:S40). <br />
lo he cambiado y no funciona, no elimina las celdas vacias y al copiar los datos en <br />
Q100, el primer dato es la suma del total, hasta ahora yo funcionaba con una macro <br />
para hacer lo mismo en el rango (A10:R40) y pegarlos en (A55) que es el siguiente y me funciona correctamente <br />
Sub locomocion() <br />
ActiveWindow.LargeScroll Down:=-1 <br />
Selection.Autofilter Field:=1, Criterial:=">0", Operator:=xlAnd <br />
Range("A10:R40").Select <br />
Selection.Copy <br />
Range("A55").Select <br />
ActiveSheet.Paste <br />
Application.CutCopyMode=False <br />
ActiveWindow.SmallScroll Down:=-9 <br />
Selection.Autofilter Field:=1 <br />
End Sub <br />
a esta macro le cambio el rango a copiar y el de destino y no me funciona, si te es más facil corregir esta ajustadola a los rangos ("Q10:S40") y pegarlos en Q100. <br />
Gracias por anticipado </div><div class="MessageText"> </div><div class="MessageText"><strong><u>Respuesta:</u></strong></div><div class="MessageText"><div class="MessageText">Amigo le voy a dar un consejo, cuando le den una posible solucion pruebela tal como se la dan sin modificarla. <br />
<br />
Su propuesta quedaria asi: <br />
<br />
<em>Range("Q10:S40").Select <br />
Selection.AutoFilter <br />
Selection.AutoFilter Field:=1, Criteria1:="<>" <br />
Range("Q10:S40").Select <br />
Selection.Copy <br />
Range("Q100").Select <br />
ActiveSheet.Paste <br />
Range("Q10:S40").Select <br />
Application.CutCopyMode = False <br />
Selection.AutoFilter</em> <br />
<br />
Si no le funciona por favor agame llegar su archivo para ajustarlo a sus necesidades <br />
Saludos </div><div class="MessageText"> </div><div class="MessageText"><strong><u>Usuario:</u></strong></div><div class="MessageText"><div class="MessageText">Perdona por modificar tu macro, mi intención era no tener que volverte a molestar <br />
Gracias por tu interes </div></div></div></div></div>Unknownnoreply@blogger.comtag:blogger.com,1999:blog-6283913704055092778.post-11274700830921885112011-01-18T15:38:00.002-04:302012-04-22T10:48:47.678-04:30Pregunta: ¿Se puede poner una formula en una ruta?<strong><u>Usuario:</u></strong><br />
<div class="MessageText" id="freqdescription">
Hola <br />
Queria saber si se puede poner una formula en una ruta. <br />
Es decir. Yo tengo un excel llamado ACUMULADO, por otro lado tengo 12 archivos (correspondientes a los meses llamados FINAL 1, FINAL 2, FINAL 3... asi hasta FINAL 12. <br />
En ACUMULADO quiero traer los datos de los FINALES, con lo cual tengo en A2, 1; en A3, 2; en A4, 3; asi hasta 12. En B2 quiero traer el dato de FINAL 1 de la celda B2, con lo cual pondria ='[FINAL 1.xlsx]Hoja1'!B2... PERO lo que quiero formular es el nombre del archivo en funcion a la celda A2, es decir, en lugar de poner ='[FINAL 1.xlsx]Hoja1'!B2 poner algo asi como ='[FINAL <u><strong>"A2"</strong></u><strong></strong>.xlsx]Hoja1'!B2. <br />
Se puede hacer???? <br />
GRACIASSSSSSSSSSSSSSSSSSS <br />
<br /></div>
<div class="MessageText">
</div>
<div class="MessageText">
<strong><u>Respuesta:</u></strong></div>
<div class="MessageText">
<div class="MessageText">
Me parece que lo que quieres decir es poner una ruta en una formula ;) <br />
Si se puede hacer y es realmente sencillo. Solo tienes que abrir los Libros y luego vincular las celdas del Libro ACUMULADO con las celdas de los Libros FINAL tal cual como lo harias con una celda comun y corriente: <br />
-Abrir libros. <br />
-En el Libro ACUMULADO seleccionas la celda B2. <br />
-Colocas = y luego te vas al Libro FINAL 1. Seleccinas la celda que quieres vincular y presionas ENTER. <br />
Saludos <br />
<br /></div>
<div class="MessageText">
</div>
<div class="MessageText">
<strong><u>Usuario:</u></strong></div>
<div class="MessageText">
<div class="MessageText">
No no es esto lo que busco. <br />
Es una formula en una ruta. <br />
Ya que tengo varios archivos de FINAL, no es solo FINAL 1 y justamente lo que quiero es que el excel sepa que FINAL coger segun la cel da A2 o A3 o A4... <br />
Gracias de todos modos. <br />
<br /></div>
<div class="MessageText">
</div>
<div class="MessageText">
<strong><u>Respuesta:</u></strong></div>
<div class="MessageText">
<div class="MessageText">
Ah ok, en verdad disculpame por no haber leido bien la pregunta. Lo que necesitas es una funcion llamada DIRECCION: <br />
<br />
=DIRECCION(2;2;1;1;"[FINAL "&A2&".xls]Hoja1") <br />
<br />
Saludos =) <br />
<br /></div>
<div class="MessageText">
</div>
<div class="MessageText">
<strong><u>Usuario:</u></strong></div>
<div class="MessageText">
GRACIAS, vamos llegando, pero no me da el valor de la celda sino la ruta... y necesito el valor de FINAL 1 Celda B2.<br />
<br /></div>
<div class="MessageText">
</div>
<div class="MessageText">
<strong><u>Respuesta:</u></strong></div>
<div class="MessageText">
<div class="MessageText">
Tienes razon, la funcion DIRECCION devuelve una cadena de texto que hay que evaluarla con la funcion INDIRECTO de la siguiente forma: <br />
<br />
=INDIRECTO(DIRECCION(2;2;1;1;"[FINAL "&A2&".xls]Hoja1");1) <br />
<br />
Saludos <br />
<br /></div>
<div class="MessageText">
</div>
<div class="MessageText">
<strong><u>Usuario:</u></strong></div>
<div class="MessageText">
<div class="MessageText">
Wow... impresionante. El unico problema que tengo ahora es que deben estar abiertos los ficheros de origen y son mas de 50 jijijiji no sé si lo resistirá!!! <br />
GRACIAS <br />
<br /></div>
<div class="MessageText">
</div>
<div class="MessageText">
<strong><u>Respuesta:</u></strong></div>
<div class="MessageText">
<div class="MessageText">
No es necesario mantener abierto los 50 ficheros, excel deberia intentar actualizar los datos recuperando los ultimos datos guardados. <br />
En todo caso, con abrir y cerrar los archivos es suficiente sin tener que mantenerlos abiertos. <br />
<br />
Saludos =) <br />
<br /></div>
<div class="MessageText">
</div>
<div class="MessageText">
<strong><u>Usuario:</u></strong></div>
<div class="MessageText">
<div class="MessageText">
Mis mas sinceras gracias! </div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>Unknownnoreply@blogger.comtag:blogger.com,1999:blog-6283913704055092778.post-6276240354223238072011-01-18T15:27:00.001-04:302012-04-22T10:48:47.691-04:30Pregunta: Pasar datos a otra hoja<strong><u>Usuario:</u></strong><br />
<div class="MessageText" id="freqdescription">Buenas a todos!! <br />
Les escribo porque necesito saber si se puede exportar datos de una hoja a otra. Les comento como viene el asunto: <br />
Tengo una serie aprox. 200 empleados que estan activos y cada uno ocupa con sus datos personales una fila; me gustaria que al renunciar o que sea despedido; marcarlo con un checkbox (o con lo que ustedes sugieran) y sea pasado a una segunda hoja y eliminado ese empleado de la hoja de los activos. <br />
No se si fui claro, si es asi, espero que puedan ayudarme. <br />
Muchas gracias.- </div><div class="MessageText"></div><div class="MessageText"><strong><u>Respuesta:</u></strong></div><div class="MessageText"><div class="MessageText">Buenas tardes amigo <br />
Tengo una posible solucion a tu problema. Cree un libro con tres hojas llamadas "Todos", "Activos" y "No Activos". Haciendo una seleccion de un campo de Status, en la joja "Todos", se puede intercambiar automaticamente todos los datos entre las hojas "Activos" y "No Activos". <br />
El Ejemplo puedes descargarlo aqui <a href="http://dl.dropbox.com/u/39664288/Excel/Activos%20y%20No%20Activos.xls" rel="nofollow" target="_blank">EJEMPLO ACTIVOS_Y_NO_ACTIVOS.XLS</a> <br />
Saludos </div><div class="MessageText"></div><div class="MessageText"><strong><u>Usuario:</u></strong></div><div class="MessageText"><div class="MessageText">Es buena y practica tu respuesta, pero tengo una gran cantidad de datos por cada uno y tengo miedo que con tanta formula se me clave el archivo. Lo aplico y te cuento como me fue. <br />
Muchas gracias.- </div></div></div>Unknownnoreply@blogger.comtag:blogger.com,1999:blog-6283913704055092778.post-84123465610066494142011-01-18T15:22:00.000-04:302012-04-22T10:11:54.260-04:30Pregunta: ¿Es posible relacionar dos celdas editables?<strong><u>Usuario:</u></strong><br />
<div class="MessageText" id="freqdescription">Hola, <br />
Mi consulta radica en poder editar valores en diferentes celdas y que estas se cambien automáticamente, es decir poder editar un valor en una celdo o la otra indiferentemente. Pensado en una planilla de gastos general y en otra hoja las planillas con el detalle de cada categoría, o para la programación de una proyección de sueldos donde se pueda tener una hoja por cada proyecto y una general donde se resuman todos los proyectos para cada persona. <br />
Sé que se puede hacer con referencias a una base de datos SQL, pero ya no sería en excel y tendría que entrar a hacer un programa para el despliege y edición de los datos. <br />
Muchas Gracias, </div><div class="MessageText"> </div><div class="MessageText"><strong><u>Respuesta:</u></strong></div><div class="MessageText"><div class="MessageText">Buenas tardes bgino <br />
Esto no se puede hacer directamente en la hoja porque se crearia bucle ciclico infinito, pero si se puede hacer con un sencillo Macro y el edito VB: <br />
En el codigo de la Hoja1 colcas esto <br />
<em>Private Sub Worksheet_Change(ByVal Target As Range) <br />
If Target = Range("b2") Then <br />
Worksheets("Hoja2").Range("b2").Value = Range("b2").Value <br />
End If <br />
<br />
End Sub</em> <br />
En el codigo de la Hoja2 colocas esto <br />
<em>Private Sub Worksheet_Change(ByVal Target As Range) <br />
If Target = Range("b2") Then <br />
Worksheets("Hoja1").Range("b2").Value = Range("b2").Value <br />
End If <br />
<br />
End Sub</em> <br />
Con eso queda resuelto tu problema y aqui te dejo un sencillo ejemplo: <a href="http://dl.dropbox.com/u/39664288/Excel/Celdas%20Conectadas.xls">EJEMPLO CELDAS CONECTADAS</a> </div><div class="MessageText"> </div><div class="MessageText"><strong><u>Usuario:</u></strong></div><div class="MessageText"><div class="MessageText">Hola, <br />
Excelente, Muchas Gracias. <br />
Para pocas celdas sirve mucho al igual que para contiguas cambiando el rango, pero para muchas celdas separadas puede ser un gran problema, especialmente para llevar el control de cambios. <br />
Muchas Gracias, el ejemplo está clarísimo y funciona perfecto. </div></div></div>Unknownnoreply@blogger.comtag:blogger.com,1999:blog-6283913704055092778.post-15336122997320787312011-01-18T15:17:00.001-04:302011-01-18T15:18:50.631-04:30Pregunta: eliminar una linea creada por medio de dos puntos<strong><u>Usuario:</u></strong><br />
Hola, vuelvo a tener alguna dudilla sobre el VBA excel. <br />
El caso es que he creado una funcion "REPRESENTAR" que lo que hace es coger valores de distintas celdas a modo de coordenadas: <br />
a1x = Worksheets("New Position").Cells(30, 6).Value <br />
a1y = .... <br />
(como este otros tantos). <br />
Luego, creo lineas que unen esas coordenadas, por ej: <br />
Set myDocument = Worksheets("HOJA3") <br />
With myDocument.Shapes.AddLine(xoffset1 + b1x, yoffset1 - b1y, xoffset1, yoffset1).Line <br />
.DashStyle = msoLineSingle <br />
.ForeColor.RGB = RGB(136, 0, 0) <br />
End With <br />
(habiendo definido anteriormente YOFFSET, XOFFSET ). <br />
<br />
Lo que ahora quiero, es hacer otra funcion en otro módulo, que lo que haga es borrarme esas lineas que he creado. <br />
No tengo ni idea de cómo hacerlo!! <br />
No he encontrado mucho en los tutoriales... <br />
Espero que me podais ayudar. <br />
Muchas gracias de antemano!! ;) <br />
<br />
<strong><u>Respuesta:</u></strong><br />
<div class="MessageText">Puedes hacerlo de la siguiente forma: <br />
myDocument.Shapes("Line 1").Select <br />
Selection.Delete <br />
Saludos </div><div class="MessageText"></div><div class="MessageText"><strong><u>Usuario:</u></strong></div><div class="MessageText"><div class="MessageText">Hola, muchas gracias por la respuesta, pero... <br />
es que en mi código no escribo en ningún momento "Line 1", entonces... cómo puedo diferenciar las lineas?, <br />
el caso es q cada linea está escrita por coordenadas... <br />
Gracias de nuevo </div><div class="MessageText"></div><div class="MessageText"><strong><u>Respuesta:</u></strong></div><div class="MessageText"><div class="MessageText">Buen dia <br />
Los nombres se colocan automaticamente pero no te preocupes, con este codigo eliminaras todas las lineas que esten en la hoja: <br />
<em></em></div><div class="MessageText"><em>Set myDocument = Worksheets("Hoja1") <br />
myDocument.Shapes.SelectAll <br />
Selection.Delete</em> </div><div class="MessageText">Saludos </div><div class="MessageText"></div><div class="MessageText"><strong><u>Usuario:</u></strong></div><div class="MessageText"><div class="MessageText">Hola de nuevo!! <br />
acabo de probar lo que me has dicho y el caso es que en mi HOJA1, donde hace las lineas, tengo tambien unos botones que al clickarlos crea la figura. <br />
El problema es que cuando creo este código "SELECTALL", me borra incluso esos botones!! <br />
sabrías como poder ayudarme?? <br />
muchas gracias de nuevo!! </div><div class="MessageText"></div><div class="MessageText"><strong><u>Respuesta:</u></strong></div><div class="MessageText"><div class="MessageText">No hay problema mi amigo, con este otro codigo se borraran solamente las lineas: <br />
<br />
<em>Set myDocument = Worksheets("Hoja1") <br />
For Each sh In myDocument.Shapes <br />
If sh.Type = msoLine Then <br />
sh.Select <br />
Selection.Delete <br />
End If <br />
Next</em> <br />
<em> </em> <br />
Saludos =) </div><div class="MessageText"></div><div class="MessageText"><u><strong>Usuario:</strong></u></div><div class="MessageText"><div class="MessageText">Ya lo he probado y funciona a la perfeccion!! muchisimas gracias!!! ;) </div></div></div></div></div></div>Unknownnoreply@blogger.comtag:blogger.com,1999:blog-6283913704055092778.post-25722195575106796042011-01-18T15:10:00.000-04:302011-01-18T15:10:44.791-04:30Pregunta: Usar OptionButton con un Boton<strong><u>Usuario:</u></strong><br />
<div class="MessageText" id="freqdescription">Saludos a todos en el foro <br />
Mi consulta es la siguiente: Tengo un UserForm1 con un Frame1, en el cual existen 3 optionButton (OptionButton1, OptionButton2 y OptionButton3) y fuera del Frame un Boton de comando. <br />
Lo que pretendo es que al seleccionar un optionButton se ejecute una macro para la que fué configurado y que ésto se realice hasta que pulse el boton ejecutar. <br />
En el Boton tengo el siguiente codigo: <br />
Private Sub CommandButton_Click() <br />
Dim x as Control <br />
For Each x In Frame1.Controls <br />
If x.value = True then <br />
If OpttionButton.Enabled = True Then <br />
Range("a1").value = 1 <br />
Else <br />
If OpttionButton2.Enabled = True Then <br />
Range("a1").value = 2 <br />
Else <br />
If OpttionButton3.Enabled = True Then <br />
Range("a1").value = 3 <br />
End If <br />
End If <br />
End If <br />
End Sub <br />
Al ejecutarlo efectivamente me pone los valores en A1 pero lo hace al momento de seleccionar el OpttionButton y yo necesito que lo haga hasta que yo pulse el Boton Aceptar. <br />
¿Alguien podria ayudarme con el código? <br />
Desde Ya muchas Gracias <br />
Jonathan </div><div class="MessageText"> </div><div class="MessageText"><strong><u>Respuesta:</u></strong></div><div class="MessageText"><div class="MessageText">Buenas tardes amigo <br />
Modifique y probe su codigo y funciona bien. El problema que encontre es el uso de <strong>OptionButton.Enabled</strong> cuando en realidad deberia utilizar <strong>OptionButton.Value</strong>. <br />
Pruebe con el siguiente codigo: <br />
Dim x As Control <br />
<br />
For Each x In Frame1.Controls <br />
If x.Value = True Then <br />
If OptionButton1.Value = True Then <br />
Range("a1").Value = 1 <br />
End If <br />
If OptionButton2.Value = True Then <br />
Range("a1").Value = 2 <br />
End If <br />
If OptionButton3.Value = True Then <br />
Range("a1").Value = 3 <br />
End If <br />
End If <br />
Next x </div><div class="MessageText"><br />
Saludos </div><div class="MessageText"> </div><div class="MessageText"><strong><u>Usuario:</u></strong></div><div class="MessageText"><div class="MessageText">Muy Bien. Me ha sido de gran utilidad </div></div></div>Unknownnoreply@blogger.comtag:blogger.com,1999:blog-6283913704055092778.post-4746428289499031632011-01-15T16:46:00.000-04:302012-04-22T10:48:47.684-04:30Transferencia automatica de datos entre Hojas de un mismo LibroEn el presente Ejemplo se aplica la Funcion BUSVARV para transferir los datos desde una Hoja a otra.<br />
<br />
Ejemplo: Se tiene una serie de 20 empleados y cada uno con sus respectivos datos personales. Se desea que, dependiendo de su Status, los datos de cada empleado sean transferidos a una Hoaja "Activos" o "No Activos" segun sea el caso.<br />
<br />
<a href="http://dl.dropbox.com/u/39664288/Excel/Activos%20y%20No%20Activos.xls">DOWNLOAD</a> el archivo .xlsUnknownnoreply@blogger.comtag:blogger.com,1999:blog-6283913704055092778.post-778609984404871972011-01-15T15:31:00.001-04:302011-01-15T16:17:15.880-04:30Saludos a todosHe creado este blog con la intencion de ayudar a todos aquellos que nececiten formular, o mejorar, sus hojas Excel para algun fin especifico.<br />
<br />
Espero ser de gran ayuda para ti y que puedas disfrutar de todo el material que sera publicado, frecuentemente, en este Blog.<br />
<br />
No dudes nunca en hacer alguna pregunta o solicitud ya que es esa la idea, ayudar a todo aquel que lo necesite.<br />
<br />
SaludosUnknownnoreply@blogger.com