inhoud kopieren naar bestand met voorwaarde

[elodie]

Weet iemand hoe ik het volgende in een macro kan zetten?

in vakje "A34" wordt informatie getypt en deze informatie moet naar een bestand met de zelfde naam als hetgeen in vakje "2B" staat.

dus in "2B" staat "HKR42" dus het bestand waar de inhoud van "A34" naartoe moet is "c:\school\HKR42.xls"

in dit laatste bestand zou deze opmerking dan in vakje "A14" moeten komen.

 

[danny147]

Beste elodie

Ik denk met deze code

ThisWorkbook.Sheets("Blad1").UsedRange.Copy .[A34]
.Parent.SaveAs c:\school\ & ThisWorkbook.Sheets("Blad1").[B2] & ".xls"

Groetjes Danny. :thumb:

 

[elodie]

ik zal het direct een proberen sé...

mercikes x

 

[Warme bakkertje]

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
On Error Resume Next
If Target.Address = "$A$34" Then
    Workbooks.Open "C:\School\" & [B2].Value & ".xls"
    With ActiveWorkbook
        .Sheets("Blad1").Range("A14").Value = Target.Value
        .Close True
    End With
End If
Application.ScreenUpdating = True
End Sub

 

[elodie]

Rudi,

Je bent men held van de dag, bedankt.

groetjes

elo