Dom maar ik weet 't ff niet

[Jarodxxx]

Hallo luitjes,

Ben nog flink aan de gang met excel de laatste tijd. 't begint op een nieuwe hobby te lijken

Maar nu even mijn niet zo slimme vraag:

In mijn userform staat onderstaande stuk code:

'Vestigingscode kopieren naar Cel C6 op blad Algemeen'
Application.ScreenUpdating = False
Sheets("Algemeen").Activate
            Range("$C$6") = txbVestigingCode
Application.ScreenUpdating = True
       End If

Sheets("Home").Activate

Application.ScreenUpdating = True
           
Unload Me

Het kopieren werkt prima!
Alleen 't updaten van de cel niet en de vraag is dan ook hoe doe ik dat precies?

Via de userform doet de sheet verder niks qua opzoeken van de andere gegevens
Handmatig wel en dat komt door selecteren van de cel?

Wie heeft een oplossing?

tx!

Jarod!

 

[eric cirkel]

'Vestigingscode kopieren naar Cel C6 op blad Algemeen'
Application.ScreenUpdating = False
Sheets("Algemeen").Activate
Range("$C$6") = txbVestigingCode
Application.ScreenUpdating = True
End If <<<<<<<< wat end if je begint geen eens met what of if?

Sheets("Home").Activate

Application.ScreenUpdating = True

Unload Me

maar goed.... ik denk dat dit de reden is;

Sheets("Algemeen").Activate
Range("$C$6") = txbVestigingCode

Maak daar eens van

Sheets("Algemeen").Range("$C$6") = txbVestigingCode


Of ----- Let op de punt voor Range!!!

With Sheets("Algemeen")
.Range("$C$6") = txbVestigingCode

End with


Let wel op dat de sheetnaam nooit meer veranderd kan worden, binnen VBA kun je beter project verwijzing gebruiken; dan blijft de code werken ook al verander je de bladnaam!
VB Blad1. Range("$C$6") of Blad1.[C6]


Maar het zou wat makkelijker zijn als het bestand bij gesloten (in zip formaat) wordt, er kunnen ook andere dingen meespelen en aangezien we niet de hele code zien kunnen we ook niet zulke fouten zien. En domme vragen bestaan niet, men kan niet alles weten je leert elke dag wat bij.
Kijk uit met het hobby gedoe voor je het weet zit je tot diep in de nacht te programmeren en leef jij zo ook in een kartonnen doos! Zo is dat bij mij ook gegaan … snik

Mvg eric cirkel

 

[Jarodxxx]

Hmmz, thinkin

Tx voor de input!

Domme vragen bestaan idd niet, was melig geworden gisteravond en down, omdat dat 't niet wilde :thumb:

Ik heb 't uitgeprobeerd, maar 't doet exact 't zelfde als ervoor.
Hij kopieert braaf het vestigingsnummer uit de userform naar C6, zoals ik ook al werkend had, echter de code kon mooier idd.

't probleem is nu dat de vestigingscode er nu wel staat, maar hij haalt pas de gegevens rondom c6 op als ik weer op c6 dubbelklik en er met de cursor in sta en daarna op een andere cel klik.

Zo duidelijker?

End if snap je nu waarschijnlijk wel

Private Sub CommandButtonSelecteren_Click()

'tegen flikkeren van beeldscherm
    Application.ScreenUpdating = False

'zoeknaam is naam van combobox waar je de naam van de Vestigings heb ingeladen
'hierin selecteer je de naam van de Vestiging, vb: bladiebla
'als deze leeg is dan komt er een popup met de vraag: kies Vestiging
If zoeknaam = Empty Then

    MsgBox "Kies een Vestiging!"
    Exit Sub

'is deze niet leeg voer dan de volgende code uit
Else

    'Vestigingscode kopieren naar Cel C6 op blad Algemeen'
 Application.ScreenUpdating = False
    Sheets("Algemeen").Range("$C$6") = txbVestigingCode
 Application.ScreenUpdating = True
End If

Sheets("Home").Activate

Application.ScreenUpdating = True
           
Unload Me
           
'tegen flikkeren van beeldscherm
Application.ScreenUpdating = True
End Sub

Projectverwijzing heb ik nog niet gebruikt, maar zocht ik idd wel ja, handig, bedankt!

In mijn module (die ik je helaas niet mag sturen ivm privacygegevens) maak ik ook gebruik van veel externe bestanden (query's, voor lijsten, vert.zoeken voor individuele opzoekopdrachten etc) Wat ik nog zoek is een mogelijkheid om die externe bestanden of op de een of andere manier bijelkaar te houden of aan het hoofdbestand te koppelen of iets zoals je een programma installeert, dat mag ook overal)

Heb je suggesties? o.b.v. deze summiere info?

Jarod.

 

[eric cirkel]

voeg deze eens in tussen je code;

EnableCalculation = True
Application.EnableEvents = True

ik heb zo een idee dat of je events of cal uit staan

gr eric cirkel

 

[Wigi]

voeg deze eens in tussen je code;

EnableCalculation = True
Application.EnableEvents = True

ik heb zo een idee dat of je events of cal uit staan

gr eric cirkel

Of probeer

Application.Calculation = xlCalculationAutomatic

 

[Jarodxxx]

In de eerder geposte code door moi heb ik de oplossingen neergezet bij de kopie naar cel c6, maar dat werkt niet.
Wat doe ik fout?

Jarod

 

[eric cirkel]

Kan veel oorzaken hebben dan zal je toch het org bestand moeten posten of op sturen.

Mvg eric cirkel