Vraag : De celwaarde van het exemplaar in een waaier in VBA

Ik zal aantekenvel hebben ongeveer 180 en voor elke één, moet ik de eerste zes karakters in cel A2 nemen en het kleven in waaier vier van cellen in kolom H.  De code neemt aan de sectie af om het exemplaar/het deeg te doen maar het houdt gevend me „Run-time fout „toepassing-Bepaald of voorwerp-bepaalde 1004“ error.
" codeBody " 
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:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:

Public SubDataRanges ()
'Plaatst de gegevenswaaiers voor de gegevensbronnen, kopi�ërt het rekeningsaantal in
'bijbehorende kolom
Schemerige rngchar als Waaier, rngCharAcct als Waaier, rngTop10 als Waaier, rngTop10Acct als Waaier
Schemerige rnggics als Waaier, rnggicsAcct als Waaier, rngCountry als Waaier, rngCountryAcct als Waaier
Schemerige rngSecurities als Waaier, rngCheck als Waaier, wks als Aantekenvel
Schemerige strAccount als Koord

Voor Elke wks in Aantekenvellen
Als wks. Naam zoals „MySheet_*“ toen
        wks. Activeer
        strAccount = Verlaten CStr ((wks. Waaier („A2“). Waarde, 6))
        Vastgestelde rngchar = wks. Waaier („C11: G15“)
        Reeks rngCharAcct = wks. Waaier („H11: H15“)
        Vastgesteld rngTop10 = wks. Waaier („C35: F44“)
        Vastgesteld rngTop10Acct = wks. Waaier („H356: H44“)
        Vastgestelde rnggics = wks. Waaier („A68: D77“)
        Reeks rnggicsAcct = wks. Waaier („H68: H77“)
        Vastgestelde rngSecurities = wks. Waaier („C16: E16“)
        Reeks rngCheck = Cellen (Rows.Count, „E“). Eind (xlUp). Compensatie (- 1, -1)
    
            Als rngCheck.Value <= 5 toen
                Vastgestelde rngCountry = Waaier (Cellen (98, „A“), Cellen (Rows.Count, „E“). Eind (xlUp). Compensatie (- 2, 0))
                Reeks rngCountryAcct = Waaier (Cellen (98, „H“), Cellen (Rows.Count, „E“). Eind (xlUp). Compensatie (- 2, 3))
            Anders
                Vastgestelde rngCountry = Waaier (Cellen (98, „A“), Cellen (Rows.Count, „E“). Eind (xlUp). Compensatie (- 1, 0))
                Reeks rngCountryAcct = Waaier (Cellen (98, „H“), Cellen (Rows.Count, „E“). Eind (xlUp). Compensatie (- 1, 3))
            Eind als

'De rekeningsaantal van het exemplaar aan selectiewaaiers in kolom H
'FOUTEN UIT HIER!
        wks. Waaier (rngCharAcct). Selecteer
        ActiveSheet.Paste (strAccount)
        wks. Waaier (rngTop10Acct). Selecteer
        ActiveSheet.Paste (strAccount)
        wks. Waaier (rnggicsAcct). Selecteer
        ActiveSheet.Paste (strAccount)
        wks. Waaier (rngCountryAcct). Selecteer
        ActiveSheet.Paste (strAccount)
    Eind als
         
Daarna

Sub van het eind

Antwoord : De celwaarde van het exemplaar in een waaier in VBA

dan unidirectioneel om te doen is het
'bepaal deze nieuwe variabele
Verduister rngCell als Waaier

Voor Elke rngCell in rngCharAcct
  rngCell = strAccount
Daarna
Andere oplossingen  
 
programming4us programming4us