Pytanie : Przodować Macro/VB wieloskładnikowy worksheets

Cześć Przodować,

I potrzeba niektóre pomoc dalej Przodować Macro/VB script

Following być mój wymaganie

I mieć przodować workbook z 7 worksheets, worksheets 1-6 niektóre numbers.

Worksheet 7 mieć lista liczba che móc lub móc w worksheets 1-6.

I chcieć VB/macro kod, dokąd w ono brać 7 szczególny kolumna w prześcieradło 7 jako wkład i dla 7 liczba w prześcieradło 1-6

If the rewizja rezultat być prawdziwy wtedy aktualizować the prześcieradło 7 z lokacja the rewizja rezultat i jeśli nie zakładać wtedy główna atrakcja the komórka w prześcieradło 7 z niektóre colour.

Any pomoc na 7 appreciated.

Odpowiedź : Przodować Macro/VB wieloskładnikowy worksheets

Cześć tam, próbować ten macro.

To zakładać że "Prześcieradło 7" być the ostatni prześcieradło w twój workbook, i ty chcieć wszystkie inny worksheets.

Zmieniać strColumn the colum w Prześcieradło 7 który mieć the liczba dla.
Zmieniać intStartRow the rząd liczba na Prześcieradło 7 dokąd the liczba zaczynać.
Upewniać się ty pusty kolumna dla the rezultat na the prawa ręka strona the kolumna z the liczba.

Uwzględnienie,

Rob.
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

Okręt podwodny FindNumbers ()
    strColumn = "A"
    intStartRow = (1)
    Ustalony objLastSheet = Ciąć na arkusze (Sheets.Count)
    Dla intRow = intStartRow ObjLastSheet.Cells (65536, strColumn). Końcówka (xlUp). Rząd
        strValue = objLastSheet.Cells (intRow, strColumn). Wartość
        strFoundSheet = ""
        Dla intSheet = (1) Sheets.Count - (1)
            Prześcieradło (intSheet). Aktywować
            Ustawiać objCell = Cells.Find (Co: =strValue, Póżniej: =Sheets (intSheet). Komórka ((1), 1), LookIn: =xlValues, LookAt: =xlWhole, SearchOrder: =xlByRows, SearchDirection: =xlNext, MatchCase: =False, SearchFormat: =False)
            Jeśli nie objCell Być Nic Wtedy
                strFoundSheet = Prześcieradło (intSheet). Imię
                Wyjście Dla
            Kończyć Jeżeli
        Następnie
        Jeżeli strFoundSheet <> "" Wtedy
            objLastSheet.Cells (intRow, strColumn). Odsadzka ((0), 1).Value = strFoundSheet
        Inny
            objLastSheet.Cells (intRow, strColumn). Odsadzka ((0), 1).Interior.Color = 255
        Kończyć Jeżeli
    Następnie
    objLastSheet.Activate
Końcówka Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us