verschil office 2003 en 2007 ??

[avesoft]

forumleden

ik heb een excel file gemaakt met div macro,s in 2007 nu zou ik die graag op de zaak willen draaien maar stopt op een macro op zaak 2003, zie hier voor code

bij openen van een userform

Private Sub UserForm_Initialize()
With Sheets("ingevoerde gegevens")
sq = .Range("A2:A" & .Cells(Rows.Count, 1).End(xlUp).Row)
ComboBox1.List = sq
End With
End Sub

loopt vast op ,sq = .Range............, kunnen jullie hier mij een antwoord op kunnen geven aub

gr arie

 

[HSV]

En met een punt voor Rows.Count?

sq = .Range("A2:A" & .Cells([COLOR="red"][B].[/B][/COLOR]Rows.Count, 1).End(xlUp).Row)

Of:

sq = .Range("A2:A" & .Cells([COLOR="red"][B].[/B][/COLOR]Rows.Count, 1).End(xlUp).Row).value

Edit: het gaat tussen twee versies, dus verkeerd gelezen denk ik.

 

[avesoft]

harry

top

ik zal dit morgen op zaak proberen,alvast bedankt

je hoort morgen van of het gelukt is

gr arie

 

[Warme bakkertje]

Zet eens bovenaan de macro

Dim sq as Variant

 

[avesoft]

rudi

dank je

ik ga morgen alles proberen wat tot goed resultaat komt

gr arie

 

[avesoft]

harry

de punt er voor zetten of .value werken niet

van rudi heb ik nog niet geprobeerd

gr arie

 

[jolivanes]

Private Sub UserForm_Initialize()
With Sheets("Sheet1")
sq = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
ComboBox1.List = sq
End With
End Sub

Zonder "punten" werkt het in 2007

HTH
John

 

[Niels28]

Zonder punten werkt het niet helemaal want dan heeft with sheets("sheet1") geen nut. Ik heb zelf het probleem ook gehad, ik weet niet of dit de beste oplossing is maar zo heb ik het toen opgelost.

Private Sub UserForm_Initialize()
With Sheets("sheet1")
Set sq = .Range("A2:A" & .Cells(Rows.Count, 1).End(xlUp).Row)
lijst = sq
ComboBox1.List = lijst
End With
End Sub

Niels

 

[avesoft]

heren

2007 werkt het goed maar zodra ik het via mail naar mijn werk stuur en daar wil gaan gebruiken loopt het van macro tot macro vast

Dim sq as Variant , heb ik ook geprobeerd loopt het door tot een volgende macro en stopt dan weer

gr arie

 

[HSV]

Probeer het zo eens.

Private Sub UserForm_Initialize()
[COLOR="red"]dim sq as variant
  application.enableevents = false[/COLOR]  
    With Sheets("sheet1")
     Set sq = .Range("A2:A" & .Cells(Rows.Count, 1).End(xlUp).Row)
      lijst = sq
    ComboBox1.List = lijst
   End With
 [COLOR="red"]application.enableevents = true[/COLOR]
End Sub

 

[Warme bakkertje]

Declareer alle variabelen in uw macro's.

 

[avesoft]

harry

dat ga ik morgen weer proberen

rudi , wat bedoel je met Declareer alle variabelen in uw macro's ?

ik weet niet of dit een goed idee maar ik post even komplete macrolijst van userform

Bekijk bijlage 134389

Ik neem morgen mijn laptop van werk mee (staat ook 2003 op kan dan gelijk controleren)

gr arie

 

[jolivanes]

http://www.cpearson.com/excel/DeclaringVariables.aspx

 

[avesoft]

luitjes

van harry werkt ook niet en

declaring is aangezet , maar werkt nog niet

dan loopt het weer door tot CLR = vbGreen en dan word gezegd , compileerfout Kan het project of bibliotheek niet vinden

gr arie

 

[avesoft]

heren

ik laat onze it,r er na kijken (upgrade naar 2007) dan zijn alle problemen opgelost

dank jullie voor alle moeite

gr arie

 

[avesoft]

heren

ik denk dat ik weet wat het is ik mis ,Microsoft Office 12.0 Object Library, word veel gezegd

gr arie

 

[robdgr]

Arie,

Vind je hier iets tussen?

 

[avesoft]

Rob

dank je voor url , had al gevonden . had dit id wel even kunnen laten weten

toch bedankt voor moeite

gr arie

 

[avesoft]

vraagje voor rob

heb het geinstalleerd maar doet het nog niet waar zou ik het moeten zoeken (dir) waar het geinstallerd of aan moet vinken

gr arie

 

[robdgr]

Arie,

Eerlijk gezegd geen idee. Is het een invoegtoepassing, dus opties - invoegtoepassingen? Anders even in die google-selectie kijken of iemand dit probleem eerder had.