Valero Angel Serrano Mercadal

No sabemos como son las fórmulas de las columnas B y D. Las instrucciones de la macro que has escrito son muy pocas luego no tendrían que tardar nada en hacerse. Lo mejor sería que me mandases el fichero a [email protected] Así veré como se puede...

Mucho mejor que un ejemplo gráfico será que me mandes el libro a: [email protected] Lo que pasa es que ahora tengo que dormir y luego varias horas de trabajo, tardaré en verlo.

Claudia Vilchez! Entiendo que cuando pinchas un determinado elemento de la ListBox este pasa a un textbox y quieres que si se vuleve a pinchar en él ya no se pase al Textbox. ¿Te serviría que una vez pinchado desapareciese del ListBox? Sería lo más...

En vez de Numeros debes usar el contenido de esa celda, esta es la forma más sencilla, poniendo[E4] en el lugar de Numeros Sub asignar_numeros() 'modificar este numero con el numero de participantes ' Const Numeros As Long = 20 Const Salida As String...

· Si quieres mantener al máximo la macro tal como está, solo debes cambiar esta línea If Celda <> "" Then por esta otra If Celda <> "" and LCase(cells(Celda.Row,"N"))="x" Then · Y eso es todo.

Lo único que debes cambiar es el nombre del fichero, luego cambia esto "C:\Users\FireEquiposSomp\Desktop\holas.pdf" por esto otro "C:\Users\FireEquiposSomp\Desktop & Sheets("Hoja1").Range("B3") & ".pdf" · En B3 pon solo el nombre sin punto ni...

Raul Ceseña! Estoy haciendo pruebas y no consigo salir de los errores en esa línea o si no los da me sale que TipoMov es Nothing. ¿Por qué no pruebas con algo más sencillo? Defines estas funciones para el clic en los botones Private Sub...

Espero haber entendido bien lo que pides. Mira a ver si te sirve esta macro Sub TresSeguidas() Dim FilaFinal, Repes, i, j As Integer Dim UltChar, celda, Datos(3, 2) As String Datos(1, 1) = "H": Datos(1, 2) = "M" Datos(2, 1) = "Y": Datos(2, 2) = "Z"...

Arantxa Blanco! Antes de nada un comentario. ¿No será Exhalación la palabra en lugar de Escalación? La macro sería esta Sub Prioridad() Dim i, dias, FilaFinal As Integer FilaFinal = Range("H" & Rows.Count).End(xlUp).Row For i = 2 To FilaFinal dias =...

Luis Meza! Esta es la macro que te sirv apara hacer eso Sub ponerB() Dim i, Filafinal As Integer Filafinal = Range("C" & Rows.Count).End(xlUp).Row For i = 1 To Filafinal If InStr(Range("C" & i).Text, "0001") > 0 Then Cells(i, "B") = "Flex 1" ElseIf...