Nieuwe rij met gegevens maken met behulp van knop

[scartsjer]

Hallo,

Ik heb een excel document met een Index werkblad en een Template werkblad.

Nu heb met behulp van een oud topic in dit forum een knop gemaakt op de index pagina. Deze knop maakt een nieuw werkblad aan en stelt een aantal vragen en vult de antwoorden op deze vragen in op het nieuwe werkblad.

Private Sub CommandButton21_Click()
 Dim sh As Object
    snaam = InputBox("What is the Contractno.?")
    sdesc = InputBox("What is the description?")
    sref = InputBox("What is the S-Number?")
    For x = 1 To Sheets.Count
    If Sheets(x).Name = snaam Then
    MsgBox "blad bestaat al"
    Exit Sub
    End If
    Next
    Sheets("Template").Copy After:=Sheets(2)
    Sheets("Template (2)").Select
    Sheets("Template (2)").Name = snaam
    Sheets(snaam).Range("B1").Value = snaam
    Sheets(snaam).Range("B2").Value = sdesc
    Sheets(snaam).Range("B3").Value = sref
End Sub

Nu wil ik dat deze knop tegelijkertijd een nieuwe rij aanmaakt onder Rij 5 op de index werkblad met hierin de zelfde ingevulde gegevens, dus:
A6=snaam B6=sdesc C6=sref

Hierbij moet de cel A6 linken naar het aangemaakte tabblad met de zelfde naam als de inhoud van deze cel.

Wie kan mij hierbij helpen?

 

[JohannusBakfiets]

Kan je misschien je bestand hier ook neerzetten, dan kan je gemakkelijker er op door bouwen.

Waarom moet hij eigenlijk de gegevens op rij 6 invoeren op de index.pagina? Of bedoel je de onderste lege regel?

 

[scartsjer]

Hierbij het documentje,

een extra aanpassing is dat ik het aangemaakte werkblad ook als laatste geplaatst wil hebben, is dit moeilijk om te doen?

 

[JohannusBakfiets]

Dit moet het zijn:

Sub AddItem()
 
    snaam = InputBox("What is the Contractno.?")
    sdesc = InputBox("What is the description?")
    sref = InputBox("What is the Bauhuis S-Number?")
    
    'Verplicht om waarden in te vullen (mogen niet leeg zijn, anders krijg je foutmelding)
    If snaam = "" Or sref = "" Then Exit Sub
    
    'Controle of blad al bestaat
    For x = 1 To Sheets.Count
        If Sheets(x).Name = snaam Then
            MsgBox "Blad bestaat al"
            Exit Sub
        End If
    Next
  
'Nieuw blad toevoegen
Dim NewSht As Sheets
Set NewSht = Sheets.Add(After:=Sheets(Sheets.Count))
    
    'naam wijzigen
    NewSht.Select
    Sheets.Name = snaam
    
    'Al de gegevens uit het template-blad kopiëren
    Sheets("Template").Cells.Copy
    Sheets(snaam).Range("A1").PasteSpecial xlPasteAll
    
    Sheets(snaam).Range("B1").Value = snaam
    Sheets(snaam).Range("B2").Value = sdesc
    Sheets(snaam).Range("B3").Value = sref
End Sub

 

[scartsjer]

De code die jij me net gaf werkt niet, de code die ik eerder noemde werkt wel maar ik zoek daar op een aanvulling waarmee ik dus een regel kan toevoegen op de index pagina en daarnaast een nieuw werkblad maak met een aantal ingevulde gegevens.

 

[JohannusBakfiets]

De code die jij me net gaf werkt niet, de code die ik eerder noemde werkt wel maar ik zoek daar op een aanvulling waarmee ik dus een regel kan toevoegen op de index pagina en daarnaast een nieuw werkblad maak met een aantal ingevulde gegevens.

Bekijk bijlage PROJECTNUMMER-retour.xlsm

Zo moet het kloppen, script klopt, maar kan het door een vreemde fout niet uitvoeren.

Wat hij doet (laatste stukje):
- Index-sheet selecteren
- laatste lege regel opzoeken in je overzichtje
- de waarde in de juiste cel zetten
- een rand om de cellen zetten zodat het weer 1 geheel is.

Als cel Ax een link moet zijn, kan je werken met de formule hyperlink. Het volgende invoeren:
in plaats van:

Range("A" & LaatsteRij).value = snaam

Het volgende:

Range("A" & LaatsteRij).FormulaR1C1 = "=HYPERLINK(" & snaam & "!R1C2,""" & snaam & """)"

Hoop dat je er wat aan hebt.