formule aanpassen

[dinoshop]

ik gebruik deze formulle

Sub BladInvullenKopieren()
  Dim sNaam    As String
  Sheets("invullen").Select
  sNaam = Range("d3").Value
  If sNaam <> "" Then
    If SheetExists(sNaam) Then
      MsgBox "Dat Werkblad kan niet aangemaakt worden, het bestaat al"
    Else
      Sheets("Invullen").Copy After:=Sheets("invullen")
      ActiveSheet.Name = sNaam
    End If
  End If
End Sub

nu zou ik ook willen dat hij na aanmaak sheet hier de data van D3 ook in blad zet in cel B19

wie kan me daarbij helpen

 

[oeldere]

Als niet VBA kenner gebruik ik in een dergelijk geval de macro-recorder.

Hiermee krijg ik de volgende macro.

Sub Macro1()

    Range("D3").Select
    Selection.Copy
    Range("B19").Select
    ActiveSheet.Paste
        Application.CutCopyMode = False
End Sub

Ik zag in je tekst niet of dit op hetzelfde blad gecopieerd mag worden.

Dat doet deze macro wel.

 

[dinoshop]

jammer

leuk dat je ff de tijd hebt genomen maar helaas komt niet in de buurt van wat ik wil .
moet in de bovenste formule VBA gplaats worden

 

[roeljongman]

Voeg de regel ActiveSheet.Range("B19") = sNaam toe,

Sub BladInvullenKopieren()
  Dim sNaam    As String
  Sheets("invullen").Select
  sNaam = Range("d3").Value
  If sNaam <> "" Then
    If SheetExists(sNaam) Then
      MsgBox "Dat Werkblad kan niet aangemaakt worden, het bestaat al"
    Else
      Sheets("Invullen").Copy After:=Sheets("invullen")
      ActiveSheet.Name = sNaam
      [COLOR="#0000FF"]ActiveSheet.Range("B19") = sNaam[/COLOR]
    End If
  End If
End Sub

 

[dinoshop]

thanks zo eenvoudig dus wel haha
had het zelfde alleen activecell dat werkt niet dus maar bedankt