Hola Juan, ante todo mil gracias y al margen de mi consulta, te comento que estoy planeando un viaje para conocer tu ciudad el año próximo con mi sra;con lo que me mandaste lo lee perfecto, el tema es como puedo injertar tu macro ya que, yo tengo una macro bastante complicadita ya hecha;te adjunto un parcial de ese código que tengo(si es necesario te envío el archivo)para que vea como procedo a generar el código de barras ... al aparecer el nombre de determinado proveedor, utiliza el código code3x del numero(por ejemplo) 32584192
If sProveedor = "perez, gonzales & CIA S.A.I.C." Then
sCodBar = Replace(Replace(ActiveCell.Text, "(", ""), ")", "")
If InStr(1, sCodBar, "/") Then
If Len(Trim(sCodBar)) >= 10 Then
sCodBar = Mid(sCodBar, 1, 10)
End If
Else
If Len(Trim(sCodBar)) >= 8 Then
sCodBar = Mid(sCodBar, 1, 8)
End If
End If
ActiveCell.Value2 = sCodBar
End If
ActiveCell.Offset(0, 1).Select
iLen = Len(Trim(ActiveCell.Text)) 'Leyenda adicional
ActiveCell.Offset(0, 5).Select
Selection.Copy
Sheets("Plantilla").Activate
'CONSULTA SI TIENE ETIQUETAS ANTES O NO
If ULTCELDA <> "" Then
Sheets("Plantilla").Range(ULTCELDA).Select
Else
Sheets("Plantilla").Range("A1").Select
End If
i = 0
For i = 0 To CANT - 1 Step 1
If SALTO = 2 Or SALTO = 4 Or SALTO = 6 Or SALTO = 8 Or SALTO = 10 Or SALTO = 12 Or SALTO = 14 _
Or SALTO = 16 Or SALTO = 18 Or SALTO = 20 Or SALTO = 22 Or SALTO = 24 Or SALTO = 26 Or SALTO = 28 Or SALTO = 30 _
Or SALTO = 32 Or SALTO = 34 Or SALTO = 36 Or SALTO = 38 Or SALTO = 40 Or SALTO = 42 Or SALTO = 44 Or SALTO = 46 _
Or SALTO = 48 Or SALTO = 50 Or SALTO = 52 Or SALTO = 54 Or SALTO = 56 Or SALTO = 58 Or SALTO = 60 Or SALTO = 62 _
Or SALTO = 64 Or SALTO = 66 Or SALTO = 68 Then 'AGREGA MAS SEGUN NECESITES
ActiveCell.Offset(1, -2).Select 'SI CAMBIAS LO DE ARRIBA TAMBIEN DEBERAS CAMBIAR ESTE RETROCESO
End If
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
With ActiveCell.Characters(1, Len(ActiveCell.Text)).Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 9
End With
Sheets("etiquetas").Activate
Selection.Copy
Sheets("Plantilla").Activate
If iLen > 0 Then
With ActiveCell.Characters(Len(ActiveCell.Text) - iLen, iLen + 1).Font
.Name = "Arial"
.FontStyle = "Negrita"
.Size = 10
End With
Sheets("etiquetas").Activate
Selection.Copy
Sheets("Plantilla").Activate
End If
If Len(sCodBar) > 0 Then
With ActiveCell.Characters(InStr(1, ActiveCell.Text, sCodBar), Len(sCodBar)).Font
.Name = "CODE3X"
.Size = 34
End With