calvuch

Solo debes aumentar el tamaño de la fuente del combo en modo de diseño ve al control y con el botón derecho del mouse selecciona "propiedades", en el cuadro de lista que te aparecerea ve a "Font", si entras en la casilla parecerá un botón con tres...

Prueba esto : Private Sub CommandButton1_Click() Dim i As Integer Dim f As Integer Dim c As Integer Dim nombre As Variant nombre = InputBox("Indique el valor buscado", "Buscar", 0) If nombre = "" Then Exit Sub On Error GoTo 1 Cells.Find(What:=nombre,...

Prueba este script Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) Dim d As String If KeyCode = 13 Then TextBox1 = Trim(TextBox1) If TextBox1 = "" Then Exit Sub If Len(TextBox1) = 0 Then Exit Sub Range("A4")...

Utiliza esta fórmula =EXTRAE(A1;1;LARGO(A1)-2)*-1 Si el dato lo tienes en A1 esta fórmula la digitas en B1 ( en donde te dará el resultado) Luego solo lacopias hacia abajo y listo Ahora cuidado con esto, la fórmula esta adecuada considerando el largo...

Excel tiene la opción de crear un autoformulario que cumple esa necesidad, al ingresar un nuevo dato, este se agrega secuencialmente y fila a fila. Los campos de este autoformulario estarán definidos por los encabezados de tu lista por ejemplo, si...

Con este macro pude copiar todos los datos visibles desde la celda A2 de la hoja1 a la Hoja4 Private Sub CommandButton1_Click() Range("A2").Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select Range("A2").Select Range(Selection,...

En Excel 2007 en la pestaña "Datos" tienes un botón que indica "Texto en columnas", con esta funcionalidad puedes realizar la separación de cada cadena de texto y dejarlas separadas en varias celdas, es decir : electrolíticos C83, C84, C113, quedaría...

Prueba con esto, debes incluir un botón llamado CommandButton1 y luego en su evento Click copia el código adjunto. Private Sub CommandButton1_Click() Dim col As Integer For col = 1 To 8 For I = 1 To 13 Worksheets(Hoja2. Name). UsedRange. Rows(I)....

Esta macro hace lo que necesitas Sub Macro1() ' ' Macro1 Macro' Range("A2:A14").Select Selection.Copy Range("B2").Select ActiveSheet.Paste Application.CutCopyMode = False ActiveSheet.Range("$B$2:$B$14").RemoveDuplicates Columns:=1, Header:=xlNo...