Dante Amor

Aquí otra función a considerar. Function ConvPalabras(pal As String) As String Dim tx As Variant, c As String Dim f As Range, i As Long ' tx = Split(pal & " |", " ") c = WorksheetFunction.Proper(tx(0)) & " " For i = 1 To UBound(tx) Set f =...

Aquí una macro con otro enfoque para considerar: Sub Contar_Numeros() Dim c As Range Dim dic As Object ' Range("B2:C" & Rows.Count).ClearContents Set dic = CreateObject("Scripting.Dictionary") For Each c In Range("A2", Range("A" & Rows.Count).End(3))...

Utiliza la siguiente fórmula en la celda C2 y copia hacia abajo: =SI.ERROR(BUSCARV("*"&B2&"*",E:E,1,0),SI.ERROR(BUSCARV("*"&IZQUIERDA(B2,ENCONTRAR(" ",B2&" ")-1)&"*",E:E,1,0),"")) Nota: si utilizas punto y como ( ; ) como separador de argumentos,...

Nota: con el evento Exit, el color cambia cuando sales del Textbox Otra opción: Private Sub TextBox24_Exit(ByVal Cancel As MSForms.ReturnBoolean) With TextBox24 Select Case .Value Case "", Empty: .BackColor = RGB(234, 234, 234) Case Is < 1260:...

Entra opciones de excel, Avanzadas, Mostrar opciones para este libro y selecciona la opción Mostrar fichas de hojas.

Prueba con la instrucción DoEvents: Sub InsertaImagen() Dim sPath As String, Li As String Dim img As Object Dim rngCell As Range Dim i As Long, n As Long Dim s1 As Worksheet ' Set s1 = Sheets("Sheet1") sPath = Sheets("Main").Range("C11") n = 6 For i...

For i = 0 to 6 AND n = 6 Step 4 Definitivamente eso no es posible. Pero lo podemos resolver de la siguiente manera. Cada contador por separado, según tu requerimiento las imágenes son 1,2,3,4 y 5, entonces i empieza en 1 y termina en 5. Para el valor...

Ho la y bienvenido a TodoExpertos: Con esta línea estás limpiando la memoria, por eso no hay nada que pegar. Application.CutCopyMode = False Debes ponerla al final de la macro: Sheets("Facturacion").Select Range("G3").Select Selection.Copy...

Utiliza lo siguiente. Si en la celda G10 tienes "metropolitan[12]", al ejecutar la macro "llamada", te enviará un mensaje con el texto: [12] Sub llamada() Dim resultado As String resultado = ExtraerDato(Range("G10").Value) MsgBox resultado End Sub...

Es posible crear varios listbox y que cada una de ellas haga referencia a una columna especifica En un listbox puedes tener varias columnas. Puedes explicar tu propósito final con un ejemplo e imágenes.