Fråga : Excelsökandemakroen som använder en bomma för, kodifierar söker efter resultat i arbetssedel, startar över

Hälsningar jag använder en överträffaarbetssedelnedladdning från vår website för att avläsa etiketterar för en händelse.  Etiketterar har att bomma för kodifierar utskrivavet på dem.  Jag ska bruk som en bomma för kodifierar avläsaren för att avläsa etikettera för etiketteraIDet, söker arbetssedeln för att se till att etiketteraIDet kan finnas och också det det inte har redan använts.  För närvarande göra detta med fyndsärdrag och ta därefter bort etiketteraIDet, om det finnas.  Jag skulle något liknande för att ha en lättare metod som gör this.

So, jag behöver hjälp med en makro att söka arbetssedeln för ett etiketteraID, bekräftar IDet finns, och det har den inte använts redan.   Om det har använts, gå ett hörbart tillbaka att sända ut en tonsignal, och en skärm av ”använt föregående”, om inte redan använd, ”ok” skärm, markerar den nästa kolonnen på samma ror med ett JA (för att bestämma den första delen av makroen), retur till sökandebetalningspåminnelsen för bommar för kodifierar tillträdeet för att göra det all över igen.  Förmiddag som I är öppen till något, som ska, utför den samma grundläggande concept.
som jag har fäst del av en ta prov filename” för class= för >

 " s > (58 KB) <-/span> (filtyp specificerar), för den class=" beskrivningen " för
Sample etiketterar sparar downlod<-/div>
<-/div>
" " för >
<-/div> " klar "

Svar : Excelsökandemakroen som använder en bomma för, kodifierar söker efter resultat i arbetssedel, startar över

Ge detta en aktivitet.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

Sub x ()
  
Dunkel rFind som spänner, sFind, s som stränger

line1:
sFind = Application.InputBox (”skriv in bommar för kodifierar”, 2),
Om sFind = falskt går ut därefter suben

Med Sheet1.Range (”E2”, Sheet1.Range (”E2”). Avsluta (xlDown))
    Fastställd rFind =. Fynd (vad: =sFind LookAt: =xlWhole MatchCase: =False SearchFormat: =False)
    Om rFind är ingenting därefter
        s = MsgBox (”LEGITIMATIONEN inte finns försök igen? ” vbYesNo)
        Om s = vbNoen går ut därefter suben
    Annars
        Om UCase (rFind.Offset (, 1)) = ”JA” därefter
            MsgBox ”som föregående används”,
            Att sända ut en tonsignal
        Annars
            rFind.Offset (, 1) = ”JA”,
            ”REKO” MsgBox,
        Avsluta om
    Avsluta om
Avsluta med

GoTo line1

Avsluta suben
Andra lösningar  
 
programming4us programming4us