Standardtekster til hele celler

Hvor mange etiketter udskriver ad gangen.
Opfatter det som samme adresse pr. gang - eller ?

Det skulle nok være muligt, at gøre "tilværelsen" (hvad angår etiketter) lidt lettere for dig - idé haves...

Lyder godt. :o)

Jeg laver typisk 1-3 etiketter ad gangen. Det sker simpelthen manuelt, når jeg skal sende en faktura eller et brev. Og hvorfor taste samme kundes navn og adresse ind hver eneste gang, når jeg måske sender en faktura om måneden og et brev nu og da? Eller en kunde, der får 15 breve på et par måneder...

Kan du hjælpe, bli'r jeg RIGTIG glad.

Mine labels sidder på et ark, som jeg forud har printet logo på på én gang. Hvis du ønsker det, kan jeg godt uploade det et eller andet sted.

Glæder mig til at høre mere. :o)

Hvis man forestiller sig, at på ark1 er der formateret til 3 etiketter.
På ark2 er alle adresser registreret - med een pr. række og så det nødvendige antal kolonner (3-5).

På ark2 kunne man klikke på en given adresse i kolonne A og denne blev så overført til Ark1 på respektive 3 etiket-pladser. Eller skal der spørges om det ønskede antal (1-3)? 

Hvor mange adresser er der tale om?
Er der flere etiketter pr. række?

Du måtte gerne sende filen m/"etiket-ark formatet" til: pb@supertekst-it.dk

Dim plads
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
    Sheets("Adresser").Select
   
Rem hvis dobbbelt-klikket i kolonne A (1) og celle er udfyldt
    If Target.Column = 1 Then
        If Target.Value <> "" Then
            Target.Copy
            indsætAdresse
           
            If plads <> 0 Then
Rem flyt markering en kolonne til højre
                Target.Offset(0, 1).Select
            End If
           
Rem ophæv markering
            Application.CutCopyMode = False
        End If
    End If
End Sub
Private Sub indsætAdresse()
    Sheets("Etiketter").Select
   
    plads = findLedigCelle
    If plads <> 0 Then
        ActiveSheet.Range(plads).Select
        ActiveSheet.Paste
       
        Sheets("Adresser").Select
    End If
End Sub
Private Function findLedigCelle()
    With ActiveSheet
        For ræk = 1 To 9 Step 2
            For kol = 1 To 2
                If .Cells(ræk, kol) = "" Then
                    findLedigCelle = .Cells(ræk, kol).Address
                    Exit Function
                End If
            Next kol
        Next ræk
    End With
   
    MsgBox ("Ingen ledige pladser")
    findLedigCelle = 0
End Function

Fantastisk!

Tusind tak for hurtig og effektiv hjælp til at fjerne et dagligt irritationsmoment fra mit arbejde. Godt gået.