Pytanie : Ustalony pasmo imię ustalony w VBA Przodować

I mieć procedura który pętla przez the workbook i lista wszystkie the numer konta od the worksheet tab.  Kolumna zmieniać każdy miesiąc i I potrzebować zwany pasmo (che używać w import w DOJAZDOWY 2003 baza danych) który 2003 tworzyć oparty na the liczba konto w the kolumna.  Jeden miesiąc móc 35 the następny, 125. 
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

Public Okręt podwodny CreateWorksheetList ()
'Raport zrobić gdy the dane eksportować właśnie w skrzynka tam  być zmiana w the raport
'który tworzyć.  Ono używać przeciw the baza danych jeżeli tam 
'być jakaś nowy konto który biedak wchodzić do tam.
Ciemnawy rngTOC Jako Pasmo, rngWksName Pasmo
Ciemnawy rngAccount Pasmo

    Ustalony wksTOC = Worksheets ("Table_Of_Contents")
    wksTOC.Activate
    Ustalony rngTOC = Pasmo ("Z2")
        Dla Each wks W Worksheets
            Jeżeli wks. Imię Lubić "Acct_*" Wtedy
        Ustalony rngWksName = rngTOC.Offset ((1), (0))
            rngTOC.Value = CStr (Prawy (wks. Imię, 6))
        Ustalony rngTOC = rngWksName
            Kończyć Jeżeli
        Następnie
        
       Ustalony rngAccount = wksTOC.Range ("Z2"). Końcówka (xlDown). Odsadzka ((0), (0)). Wybiórka
        
Końcówka Okręt podwodny

Odpowiedź : Ustalony pasmo imię ustalony w VBA Przodować

ten kod tworzyć zwany pasmo widoczny w the imię kierownik, the imię the pasmo być Cel, ono patrzeć jednakowy strzał ty powiedzieć ty próbować ale ono pracować dla więc dawać ono strzał

(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

Okręt podwodny Macro1 ()

Ciemnawy cel Pasmo

Pasmo (ActiveCell, ActiveCell.End (xlDown)). Wybiórka
Ustalony cel = Application.Selection
    
ActiveWorkbook.Names.Add Imię: = " Cel ", RefersTo: =target
ActiveWorkbook.Names ("Cel"). Komentarz = ""

Końcówka Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us