• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

verwijzing invoeren bij aanmaak nieuw tabblad

Status
Niet open voor verdere reacties.
T

tommylammerink

Gebruiker
Lid geworden
24 jul 2009
Berichten
15
Hoi,

In bijgevoegd Excel document wordt een nieuw tabblad aangemaakt indien een kvk nummer wordt ingevoerd in tab "invoer".

Op het nieuw aangemaakte tabblad wordt de bedrijfsnaam ingevuld (B4). Deze wil ik vervolgens op het tabblad "invoer" laten terugkomen. Kan dat ook automatisch mbt vba?

Thnx!
 

Bijlagen

  • Voorbeeld.xlsm
    15,8 KB · Weergaven: 43
Is het niet makkelijker om eerst de bedrijfsnaam in te voeren op het blad invoer?
 
In de ThisWorkbook-sectie
Code: 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Address = "$B$4" Then
        If Target.Offset(, -1) = "Bedrijfsnaam" Then
            Sheets("invoer").Columns(2).Find(Sh.Name, LookAt:=xlWhole).Offset(, 1) = Target.Value
        End If
    End If
End Sub
 
Bedankt! Nu komt hier de tekst te staan. Is het ook mogelijk dat hier een verwijzing komt te staan?
 
Verwijzing?
Code: 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim Cl As Range
    If Target.Address = "$B$4" Then
        If Target.Offset(, -1) = "Bedrijfsnaam" Then
            Set Cl = Sheets("invoer").Columns(2).Find(Sh.Name, LookAt:=xlWhole)
            If Not Cl Is Nothing Then Sheets("invoer").Hyperlinks.Add Cl.Offset(, 1), "", "'" & Sh.Name & "'!A1", , Target.Value
        End If
    End If
End Sub
 
Laatst bewerkt:
Dan heb je eigenlijk dat Workbook_SheetChange-event niet nodig en kun je volstaan met een regeltje toevoegen aan het bestaande Worksheet_Change-event
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 And Target.Value <> "" Then
        Sheets("Template").Copy After:=Worksheets(Worksheets.Count - 1) 'zo blijft de "Template" achteraan staan
        With ActiveSheet
            .Name = Target
            .Cells(3, 2).Value = Target 'zo komt het recordnummer op de juiste plaats te staan
        End With
        Sheets("invoer").Hyperlinks.Add Target, "", "'" & ActiveSheet.Name & "'!A1", , ActiveSheet.Name
        [COLOR="#FF0000"]Target.Offset(, 1) = "='" & Target.Value & "'!B4"[/COLOR]
    End If
End Sub
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan