Hulp met Macro, creeëren nieuw blad

[Loth]

Beste allen,

Ik ben bezig een bestand te maken waarbij ik een overzichts tabblad heb en elke regel een nummer bevat die coronspendeert met het nummer van een tabblad.
Nu wil ik met behulp van een knop in mijn overzichtsblad dat er een nieuwe tabblad wordt gemaakt met het cijfer dat ik invoer.

Tot nu toe heb ik de macro even zo opgenomen. Echter is de waarde hiervan altijd 101.
En dit wil ik eigenlijk met een keuze menu een soort van variabel maken. (bijvoorbeeld: Ik klik op de knop. Ik moet een getal invoeren. druk op ok en de macro verandert automatisch alle 101's naar het ingevoerde cijfer)

elke keer als ik dit nu uitvoer wordt het dus 101 en niet 102...103...104 etc

 Sub Macro2()
'
' Macro2 Macro
'

'
    Rows("114:114").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("B113:S113").Select
    Selection.AutoFill Destination:=Range("B113:S114"), Type:=xlFillDefault
    Range("B113:S114").Select
    Range("U113").Select
    Selection.AutoFill Destination:=Range("U113:U114"), Type:=xlFillDefault
    Range("U113:U114").Select
    Sheets("Concept").Select
    Sheets("Concept").Copy After:=Sheets(106)
    Sheets("Concept").Select
    Sheets("Concept").Name = "101"
    Sheets("Concept (2)").Select
    Sheets("Concept (2)").Name = "Concept"
    Sheets("OverzichtBlad").Select
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 1
    Range("B114").Select
    ActiveCell.FormulaR1C1 = "'101"
    Range("C114").Select
    ActiveCell.FormulaR1C1 = "='101'!R13C8"
    Range("F114").Select
    ActiveCell.FormulaR1C1 = "='101'!R17C18"
    Range("G114:I114").Select
    ActiveCell.FormulaR1C1 = "='101'!R18C5"
    Range("J114:K114").Select
    ActiveCell.FormulaR1C1 = "='101'!R14C8"
    Range("L114").Select
    ActiveCell.FormulaR1C1 = "='101'!R15C8"
    Range("O114").Select
    ActiveCell.FormulaR1C1 = "='101'!R15C10"
    Range("P114").Select
    ActiveCell.FormulaR1C1 = "='101'!R59C15"
    Range("R114:S114").Select
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    Range("U114").Select
    ActiveCell.FormulaR1C1 = "='101'!R54C29"
    Range("U115").Select
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 1
End Sub

Dit is een klein voorbeeld bestand van hoe het werkt. (werkt wel met andere nummers)
Bekijk bijlage voorbeeld.xlsm

 

[lam201]

Loth,

hiermee moet het werken.
je kunt een werkbladnaam ingeven met de inputbox.

Alleen het stuk onder '--Werkblad 'OverzichtBlad' bijwerken-- moet nog aangepast worden.
Elke formule wordt telkens in regel 114 bijgeschreven.
Zonder voorbeeld bestad is het gissen hoe dit er uit moet komen te zien.

Lambert

Sub WerkbladInvoegen()
Dim WB As String
Dim WS As Worksheet

WB = InputBox("Geef werkblad naam")

'--Controleer werkblad naam--
For Each WS In ActiveWorkbook.Worksheets
    If WS.Name = WB Then
        MsgBox "Werkblad bestaat al", vbCritical
        Exit Sub
    End If
Next WS

'--Kopieer concept en voeg in na laatste werkblad--
Sheets("Concept").Copy After:=Sheets(Sheets.Count)
'--Hernoem werkblad naam--
ActiveSheet.Name = WB
    
    
'--Werkblad 'OverzichtBlad' bijwerken--
With Sheets("OverzichtBlad")
    Range("B114").FormulaR1C1 = WB
    Range("C114").FormulaR1C1 = "='" & WB & "'!R13C8"
    Range("F114").FormulaR1C1 = "='" & WB & "'!R17C18"
    Range("G114:I114").FormulaR1C1 = "='" & WB & "'!R18C5"
    Range("J114:K114").FormulaR1C1 = "='" & WB & "'!R14C8"
    Range("L114").FormulaR1C1 = "='" & WB & "'!R15C8"
    Range("O114").FormulaR1C1 = "='" & WB & "'!R15C10"
    Range("P114").FormulaR1C1 = "='" & WB & "'!R59C15"
    
End With
    
End Sub

 

[Loth]

Loth,

hiermee moet het werken.
je kunt een werkbladnaam ingeven met de inputbox.

Alleen het stuk onder '--Werkblad 'OverzichtBlad' bijwerken-- moet nog aangepast worden.
Elke formule wordt telkens in regel 114 bijgeschreven.
Zonder voorbeeld bestad is het gissen hoe dit er uit moet komen te zien.

Lambert

Sub WerkbladInvoegen()
Dim WB As String
Dim WS As Worksheet

WB = InputBox("Geef werkblad naam")

'--Controleer werkblad naam--
For Each WS In ActiveWorkbook.Worksheets
    If WS.Name = WB Then
        MsgBox "Werkblad bestaat al", vbCritical
        Exit Sub
    End If
Next WS

'--Kopieer concept en voeg in na laatste werkblad--
Sheets("Concept").Copy After:=Sheets(Sheets.Count)
'--Hernoem werkblad naam--
ActiveSheet.Name = WB
    
    
'--Werkblad 'OverzichtBlad' bijwerken--
With Sheets("OverzichtBlad")
    Range("B114").FormulaR1C1 = WB
    Range("C114").FormulaR1C1 = "='" & WB & "'!R13C8"
    Range("F114").FormulaR1C1 = "='" & WB & "'!R17C18"
    Range("G114:I114").FormulaR1C1 = "='" & WB & "'!R18C5"
    Range("J114:K114").FormulaR1C1 = "='" & WB & "'!R14C8"
    Range("L114").FormulaR1C1 = "='" & WB & "'!R15C8"
    Range("O114").FormulaR1C1 = "='" & WB & "'!R15C10"
    Range("P114").FormulaR1C1 = "='" & WB & "'!R59C15"
    
End With
    
End Sub

Helaas lost dit het niet geheel op. De knop en het invul menu zijn nu inderdaad werkend.
Ook met het nummer dat ik invoer wordt een nieuwe tabblad aangemaakt met dat nummer en een kopie van concept.
Echter komt er geen regel bij in het overzichtsblad en worden daar de formules niet in aangepast.
En het moet inderdaad niet allemaal in regel 114. maar telkens eentje daaronder wanneer er een nieuwe wordt aangemaakt.
Ik zal het bestand even toevoegen.Bekijk bijlage nieuw meerminderwerk met macro.xlsm

 

[Loth]

iemand?