link tssn blad 1 en 2 in offerte

[grema]

hoi,

ik zoek een link tussen een eerste werkblad en een tweede werkblad dat weggeschreven is op een andere plaats op de harde schijf.
De bedoeling is dat ik bij een offerte niet telkens alle omschrijvingen en de daaraan gekoppelde prijzen moet gaan opnieuw ingeven.

vb : op blad 2 staat :
in kolom 1 EP = subtot van K2*K3
in kolom 2 " niets " hier wordt het aantal ingevoerd
in kolom 3 12.00 = prijs
in kolom 4 subtotaal van artiekels

indien ik nu in blad 1 EP TYP , wens ik dat dit geselecteerd word op het nieuwe blad en dat ik juist nog de aantallen dien in te vullen.


Kan dit ??

Je zou er mij eneorm mee helpen .Alvast dank!

 

[Wigi]

Grema

Zie bijlage waar ik één en ander uitgewerkt heb.

Je moet beide bestanden openen om het te laten werken, alhoewel een gesloten bestand gebruiken niet onoverkomelijk zou zijn qua VBA code.

Dit is de code, ik heb ze al op de juiste plaats gezet.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range, foundcell As Range, data As Range
    If Target.Count > 1 Or Target.Column <> 1 Then Exit Sub
    If Target = "" Then Exit Sub
    Set data = Workbooks("Map4").Sheets("Blad1").Range("A:A")
    Set foundcell = data.Find(what:=Target, lookat:=xlWhole, LookIn:=xlFormulas)
    Workbooks("Map4").Activate
    Application.Goto Reference:=foundcell.Offset(, 1)
End Sub

Is het naar genoegen?

Wigi

 

[grema]

zie ander topic

zie opmerkingen ( excell) meerdere art*****en invoegen

alvast bedankt