opslaan in een nieuw bla

Status
Niet open voor verdere reacties.
K

kattenbe

Gebruiker
Lid geworden
12 jan 2016
Berichten
56
Besturingssysteem
Windows
Office versie
365
Goede avond, Ik hoop dat u mij kunt helpen. Ik wil het formulier van het blad Data opslaan in een eventueel nieuw te openen blad. Het blad krijgt dan automatisch de naam gegeven in cel J7.
Dat lukt mij wel zie daarvoor module 4.
Maar wat mij niet lukt te programmeren is als er al een blad met die naam al bestaat om dan (ik denk) via de If, Then , else formule toe te passen om het formulier daar dan te krijgen. (zie module 6).
De namen uit cel j7 zijn dus variabel en kunnen vaker voorkomen en komen dan onder het al opgeslagen formulier.
Bij voorbaat dank. En ik hoor graag van u.
 

Bijlagen

Voor de controle of een blad bestaat kan je dit gebruiken:
Code: 
If Evaluate("ISREF('" & Bladnaam & "'!A1)") Then
    .
    .
End If
 
Dank je wel EdMoor en Ahulpje,
alleen mijn vraag is/was dat als bijvoorbeeld het Data formulier voor Vlaardingen Senior nog een keer voorkomt (wat zeker zal gebeuren) dat dan dat Data formulier onder het al bestaande formulier wordt geplaatst.
 
Even quick and dirty, maak er eens dit van:
Code: 
Sub KopieerSheet()
    Dim doelsheet As String
    Dim rijdoel As Integer
    doelsheet = Range("J7")
    If Not SheetBestaat(doelsheet) Then
        Sheets.Add After:=Sheets(Sheets.Count)
        ActiveSheet.Name = doelsheet
        rijdoel = 1
    Else
        Sheets(doelsheet).Activate
        Range("A1").SpecialCells(xlLastCell).Select
        rijdoel = ActiveCell.Row + 2
    End If
    Sheets("Data").Range("A1:N27").Copy Worksheets(doelsheet).Cells(rijdoel, 1)
    Sheets(doelsheet).Range("A1").Select
    Application.CutCopyMode = False
End Sub
 
Laatst bewerkt:
Juist, dat is wat ik zocht. Het werkt helemaal naar behoren. Hartelijk dank.
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan