Vraag : het .find kolomonderzoek terugkeren

Hallo stellen allen,

Hopefuly een gemakkelijke one.

basically wat ik probeer om te doen ik een cacualtionformule in werking zodat wanneer om het even welke vastgestelde cellen wij opnieuw berekenen costs.

now worden veranderd de kosten op een afzonderlijk blad, worden gehouden en zo een funtion geschreven om de rij van het correcte product terug te keren. howevere krijg ik een type mismatc in mijn onderzoek function

basically die ik heb willen om kolom B van het aantekenvel zoeken.

howevere wanneer ik probeer en de functie gebruik het erroring. kan iedereen vertellen me welk ik verkeerd doe?
" 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:
45:
" notpretty "
 ' de gebeurtenismacro van de veranderingscel
Privé SubWorksheet_Change (Doel ByVal als Waaier)

Schemerige rng als Waaier

Met Bladen („De prijs vaststellend van“)
   Reeks rng = Waaier (. Cellen („3“, „D“). Cellen („17“, „D“)) 'nota belangrijke periodes/punten
Eind met

Als niet Snijden (rng, Doel) dan niets is
   Vraag OverlapCalculator
   Vraag CalculateDrops
   Vraag CalculatePrice
Eind als

Sub van het eind

Functie getPVCRow ()

    Schemerig pvc als Koord
    pvc = Aantekenvellen („De prijs vaststellend van“). Waaier („D8“). Waarde
    
    Als pvc = "" toen
        MsgBox („te selecteren gelieve een type van pvc alvorens verder te gaan“)
    Beëindig als
    
    'gekregen waarde nu moeten wij de juiste steun en het aantal inkepingen aan dit verbonden vinden
    'vind eerst de waarde in de kolom van B
    getPVCRow = Aantekenvellen („Kosten“). Kolommen (2). Cells.Find (wat: =pvc, na: =ActiveCell, LookIn: =xlValues, _
        LookAt: =xlPart, SearchOrder: =xlByRows, SearchDirection: =xlNext, _
        MatchCase: =False). Rij
    

De Functie van het eind

Sub OverlapCalculator ()
'
'Macro OverlapCalculator
'
'Eerst en vooral moeten wij strookbreedte van de geselecteerde dropdown doos te weten komen
'Daarna moeten wij het aantal inkepingen op de steun dan controleren
'Definitief kunnen wij de waarden berekenen en toevoegen aan dropdown

    Schemerige selectedrow als Geheel
    selectedrow = getPVCRow

Antwoord : het .find kolomonderzoek terugkeren

Enkel omdat de motherboard lichten geen dosis zijn niet om te betekenen dat de macht fijn is.

Ik zou het testen met een verschillende PSU onderwerpen
Andere oplossingen  
 
programming4us programming4us