santiagomf

Si el valor de la celda es una fecha y se ve así porque tiene ese formato, entonces puedes obtener el mes mediante la función "month": if month(A1) = mesBuscado then .... Si el valor es un texto, supongo que es ese el caso, lo que tienes que tener en...

Supongamos que quieres poner el código en A2 y que el nombre/marca y proveedor están en B2, C2 y D2 En A2 tendrás que poner la siguiente fórmula: =izquierda(B2;2) & "-" & izquierda(C2;2) & "-" & izquierda(D2;2) Puedes ver que he puesto los guiones de...

Te dejo dos formas de hacerlo. Creo que lo que buscas es la primera, pero la segunda queda mucho más bonita (te dibuja cada tabla en 5 columnas)... y también más complicada. El código de la primera sería este: Sub generarTablasMultiplicar() Dim i As...

No acabo de entender cual sería la primera celda de destino en la que quieres copiar los datos, pero empecemos por el principio. Prueba este código: Option Explicit Sub copiaFilasTablaEnHojasSeparadas() Dim nLin As Integer Dim hojaTabla As Worksheet...

Lo que tienes que hacer es controlar el momento en que se cierra el formulario y ver si se ha pulsado o no el botón de cerrar (en caso contrario es que se cierra con "X"). Usa este código: Option Explicit Dim snBotonCerrar As Boolean Private Sub...

A ver si consigo adivinar lo que quieres hacer. En el primer bucle estás buscando una página cuyo nombre está en A11 y, cuando la encuentras haces una copia de la página "Mensual" y renombras la copia con el nombre de A11. Problema: haces eso cuando...

Utilizando el 'Acivecell' y el 'Offset' es muy fácil que te compliques la ejecución del proceso. Te dejo un código que hace algo ¿similar? A lo que quieres hacer, o eso me parece. Option Explicit Sub copiarDatosPermiso() Dim permiso As String Dim...

En un módulo escribe esta función: Option Explicit Function quitarCerosPoner30(ByVal txt As String) As String Do While txt <> "" If Left$(txt, 1) = "0" Then txt = Right$(txt, Len(txt) - 1) Else Exit Do Loop quitarCerosPoner30 = "30" & txt End...

La forma más sencilla sería añadir ceros por la izquierda. Si el primer DNI está en la celda A1, pon la siguiente fórmula en B1 =SI(A1="";"";DERECHA("000000000" & ESPACIOS(A1);10)) Uso la función espacios por si acaso en A1 hay algún espacio que...

Te he preparado este código que, creo, es más o menos lo que buscas. Parto de la idea de que los proveedores están en la columna "A" de la "Hoja1", eso lo tendrás que ajustar a la realidad, así como los nombres de los objetos. Option Explicit Private...