Tabblad aanmaken

[bascas]

Hallo, als je in "main" in kolom a een nummer invult wordt een tabblad gemaakt met dat nummer identiek als tablad "1" . Nu wil ik graag dat hier bij blad 2 in de velden C3,4,5,6 de gegevens komen van "main" B9,C9,D9,G9. En als je een volgens blad aanmaakt hetzelfde, dus dan B10, C10, D10, G10. Hoe gaat dat?

groet bas

Bekijk bijlage Personeelskorting.xls

 

[popipipo]

zet in cel B4 een vert.zoeken functie ipv de verwijzing

=VERT.ZOEKEN(C$3;Main!$A$8:$G$23;2;0)

 

[bascas]

Bedankt Willem, dat ik daar nu zelf weer niet op kom. Als je de sheet bekijkt zit ik nog met een probleem. Er komen ongeveer 225 tabbladen. En dus namen op de " main" . Hoe zou ik dat nu handig kunnen inrichten. Achter elke naam een knop die naar het betreffende tabblad verwijst? Een invoerveld waar hetzelfde gebeurt na de enter? Ik weet het even niet!
Groet Bas

 

[popipipo]

Een hyperlink zou een oplossing kunnen zijn.

 

[bascas]

Willem,

heb nu deze code, maar het werkt niet, hij zou een hyperlink moeten zetten in kolom D op dezelfde regel als waar het blad op gemaakt is.

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column = 1 And Target <> "" Then
  Sheets.Add(after:=Sheets(Sheets.Count)).Name = Target
   Sheets("1").Range("1:50").Copy ActiveSheet.Range("1:50")
   ActiveSheet.Range("C3") = ActiveSheet.Name
   Sheets("Main").Range(Target.Address).Offset(0, 7) = "=" & Target & "!$D$46"
   Sheets("Main").Range(Target.Address).Offset(0, 8) = "=" & Target & "!$I$46"
   Sheets("Main").Range(Target.Address).Offset(0, 9) = "=" & Target & "!$N$46"
   Sheets("Main").Range(Target.Address).Offset(0, 10) = "=" & Target & "!$S$46"
 End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c
   For Each c In Sheets("Main").Range("D8:D300")
    If c > 0 Then
      c.Hyperlinks.Add Anchor:=c, Address:="", SubAddress:="'" & c.Value & "'!A1", TextToDisplay:=" " & c.Value
    End If
  Next
End Sub

Wat wel gebeurt is als je zelf een getal in kolom D invult hij er een hyperlink van maakt.

 

[popipipo]

Als je iets over VBA moet weten dan heb je verder niet zo veel aan mij, want dat beheers in niet/heel slecht.