UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

masdelomenos


Buenos días.
Hace unos dias estoy intentando combinar la accion de dos botones (generar etiquetas y el otro que les de formato) sin mucho exito, y sin embargo en el intento aprendi mas de lo esperado.
Estas acciones las tengo por separado aunque quisiera poder combinarlas.
Gracias a su inigualable ayuda.

Gabriel Surprised
Archivos
proyecto etiquetas.zip
No tienes los permisos para descargar los archivos.
(33 KB)

jhon1904


hola  masdelomenos

pega este código a un modulo espero te sirva saludos



Código:
Sub generar()
Dim fila
A = 1
B = 2
fila = Hoja1.Range("A1048576").End(xlUp).Row


Hoja3.Activate
Columns("A:G").Select
Selection.Delete Shift:=xlToLeft



  With Hoja2
        Hoja2.Activate
        .Range("A1:e5").Select
        Selection.Copy
 End With
 
 
 
For i = 6 To fila
 
        Sheets("ETIQUETAS").Select
       
        Range("A" & A).Select
        Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
        A = A + 6
           
           
    Range("b" & B) = Hoja1.Range("a" & i)
    B = B + 6
   


Next i

End Sub

saludos

masdelomenos


Buenos días jhon1904.
Intente tu sugerencia y todavia no pude resolver mi cuestion.
Voy a seguir intentando.


Gracias.

masdelomenos


Estimados del foro.
Aun no logre realizar lo solicitado, alguien que pueda ayudarme nuevamente?

Saludos

Igtelo


Hola Masdelomenos.

No he visto tu archivo, si dices que ambas macros te funcionan bien independientemente, entonces en la 1a. macro al final agrégale:

Call xxxxx     las x significan el nombre de tu 2a. macro.

Prueba y nos avisas.

Saludos
Ignacio Téllez

masdelomenos


Ignacio, ahi adjunto el archivo.
Gracias por la paciencia de siempre.

Gabriel.
Archivos
proyecto etiquetas2.zip
No tienes los permisos para descargar los archivos.
(33 KB)

Igtelo


Hola nuevamente.

Te doy un par de enlaces para que veas el porque no te trabaja como quieres, intenta y verás que lo logras.

http://www.universoexcelforo.com/t1181-como-trabaja-una-macro-y-la-hoja-de-calculo-simultaneamente-videotutorial

http://www.universoexcelforo.com/t1461-encontrar-ayuda-en-vba-p-nuestras-macros-videotutorial

Saludos y a echarle ganas.
Ignacio Téllez

jhon1904


Hola Masdelosmenos Igtelo un abrzo

subo el archivo con lo que necesitas, utiliza el botón de formato para crear loas etiquetas, espero te sirva saludos
Archivos
proyecto etiquetas.xlsm
No tienes los permisos para descargar los archivos.
(37 KB)

masdelomenos


Muy buenas.
Estimado John, por una cuestion de ahorrar hojas ¿existe la posibilidad de que las etiquetas se orden una al lado de la otra?
3 por fila y no en una sola columna.
Puede ser, por favor.
Saludos Smile

jhon1904


Hola 

Espero te sirva
Archivos
proyecto etiquetas.xlsm
No tienes los permisos para descargar los archivos.
(41 KB)

masdelomenos


Jhon muchas gracias. Es todo lo que esperaba.
Gracias a Igtelo tambien.
Saludos a todos.

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.