opdracht regel bijvoegen

[grema]

Weer eentje:

heb onderstaande code :

Sub bewaar()
'
' bewaar Macro
'
'

'
    ActiveWindow.SmallScroll Down:=0
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Documents and Settings\MARK\Bureaublad\WB SANITAIR\" & Range("C7") & " " & Range("B4") & ".xls", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
        Range("B4").Value = Range("B4").Value + 1
        
End Sub

wil aan deze code volgende opdracht toevoegen :



Selecteer blad " Klanten"
Selecteer kolom 1 rij 2
Keer terug naar blad Werkbon

Weet iemand hoe de sub en if ... enz opdrachten kunnen gekoppeld worden en wat ik hier precies nodig heb.


Probeerde reeds onderstaande ;

Sheets("Klanten").Range("A2").Select
        Sheets("Werkbon").Paste

thx

grema

 

[Wigi]

Sheets("Klanten").Select
Range("A2").Select
Sheets("Werkbon").Select

Wigi

PS: mailtje gehad?

 

[grema]

wigi,

PS: mailtje gehad?

Neen.

Wat betreft de vraag :

Ik ben er voorzover uitgeraak dat als ik bij het opstarten van m'n bestand ( gekoppeld aan een snelkoppeling)
telkens een nieuw nummer krijg

Dus gaf ik deze opdracht regel mee :

Private Sub Workbook_Open()
Sheets ( "Werkbon").Range("B4").Value = Range("B4").Value + 1
End Sub

Bij het sluiten zou nu de ingevoerde klant naam op blad "Werkbon" ( afkomstig van blad " klanten") via dropdownlist in te vullen in werblad terug naar Klant 1 = "" moeten komen te staan .


Daar loopt het nog even vast ( vooral de link met de dropdownlist) .

Als ik " ClearContents " ingeef zit er zelfs geen waarde meer in m'n dropdown list.

en dan ....

 

[Wigi]

Dit is beter/veiliger:

Private Sub Workbook_Open()
    Sheets("Werkbon").Range("B4").Value = Sheets("Werkbon").Range("B4").Value + 1
End Sub

Jouw code geeft een fout resultaat als blad Werkbon niet geselecteerd was.

Over de rest: dat kunnen we zo niet zeggen zonder voorbeeldbestandje.

Ik heb jou trouwens terug gemaild.

Wigi

 

[grema]

Wigi,

bijlage overschrijft 800 Kb

ps : graag je mailtje opnieuw aub (niet ontvangen graag op eerste mail adres)

Mark

 

[grema]

de bijlage;


waarbij ik gebruik maak van een snelkoppeling naar dit bestand.

Wanneer ik het blad open gebruik ik de code van Wigi

Private Sub Workbook_Open()
    Sheets("Werkbon").Range("B4").Value = Sheets("Werkbon").Range("B4").Value + 1
End Sub

Wanneer ik sluit de knop " Opslaan" waarbij de werkbon nummer ook verder loopt.
Bijgevolg een verspringende nummer. Zou dit kunnen oplossen door

Range("B4").Value = Range("B4").Value + 1

te laten wegvallen.



maar de klant naam via de dropdown list komt niet op nr 1 ( leeg nummer dat nooit ingevuld mag worden) te staan.

Dit zou ideaal zijn.

'k weet niet wat de beste oplossing is. M'n vertrekt steeds vanuit de snelkoppelling.

grema.