tonissteiner
Gebruiker
- Lid geworden
- 17 sep 2008
- Berichten
- 337
beste forumgebruikers,
ik heb jullie hulp nodig met een code. de bedoeling is om met een knop een vba code te starten die:
1. het dialoogvenster opent "open" (zoals je gewoon op de knop "open bestand" zou klikken)
2. je dus via dit venster kan browsen en een bestand kan selecteren, maar enkel met een excel extensie
3. vanaf hier alle volgende stappen verborgen gebeuren
4. er naar een bepaalde sheet gegaan wordt (bijvoorbeeld "Design Summary")
5. hier de waarde van een bepaalde cel gekopieerd wordt (bijvoorbeeld cel D24)
6. deze dan in het eerste bestand (waar de knop staat, maar dit bestand kan nog niet gesaved zijn of telkens een andere naam hebben) in een bepaalde cel geplakt wordt (bijvoorbeeld cel D6)
7. het geselecteerde bestand terug gesloten wordt zonder op te slaan
ik heb al twee codes maar kan ze niet combineren tot ��n.
via deze code lukte het me al dit "browse" venster te krijgen:
de andere code is gewoon opgenomen met "record macro"
iemand die me verder kan helpen met een werkende code te schrijven
alvast mijn dank
Stefan
ik heb jullie hulp nodig met een code. de bedoeling is om met een knop een vba code te starten die:
1. het dialoogvenster opent "open" (zoals je gewoon op de knop "open bestand" zou klikken)
2. je dus via dit venster kan browsen en een bestand kan selecteren, maar enkel met een excel extensie
3. vanaf hier alle volgende stappen verborgen gebeuren
4. er naar een bepaalde sheet gegaan wordt (bijvoorbeeld "Design Summary")
5. hier de waarde van een bepaalde cel gekopieerd wordt (bijvoorbeeld cel D24)
6. deze dan in het eerste bestand (waar de knop staat, maar dit bestand kan nog niet gesaved zijn of telkens een andere naam hebben) in een bepaalde cel geplakt wordt (bijvoorbeeld cel D6)
7. het geselecteerde bestand terug gesloten wordt zonder op te slaan
ik heb al twee codes maar kan ze niet combineren tot ��n.
via deze code lukte het me al dit "browse" venster te krijgen:
Code:
Sub test()
Dim fDialog As Office.FileDialog
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
If .Show = True Then
'Loop through each file selected and add it to our list box.
For Each varfile In .SelectedItems
MsgBox varfile
Next
Else
MsgBox "You clicked Cancel in the file dialog box."
End If
End With
End Sub
de andere code is gewoon opgenomen met "record macro"
iemand die me verder kan helpen met een werkende code te schrijven
alvast mijn dank
Stefan