tabblad kopieeren incl. vba code

[Lèchajiém]

Hoi

Ik wil een Tabblad Kopiëren met daarop een image controlbox waar wat vba aan hang.
ik krijg het wel voor elkaar om de image control box te kopieën maar de vba codes niet.
Heeft iemand hier een antwoord op ??


groetjes Lechie

 

[trucker10]

Waarschijnlijk staat jouw vba code in een module , dan zal je deze via wat meer code moeten exporteren naar het nieuwe tabblad . kijk eens naar " vba module export"

 

[Lèchajiém]

Hey Trucker,

bedankt voor je snelle antwoord.
ik heb gezocht in de help functie en hier op het forum maar weet niet precies waar ik moet kijken naar "vba Module Export" kun je me nog een zetje de goede richting in geven ??

bvd

Lechie

 

[trucker10]

Staat jouw code in een module ? indien ja , typ dan eens in google deze tekst

vba Module Export

 

[Lèchajiém]

hmmm beetje te hoog gegrepen voor mij...
heeft er iemand een voorbeeldje in de vorm van een excel sheet je..
als ik het zo lees op internet kan ik niet helemaal de verbindingen tussen bepaalde sheets leggen en daardoor begrijp ik het niet helemaal.

Dus als iemand iet heeft liggen en wil plaatsen hier ben ik daarvoor erg dankbaar.

groet Lechie

 

[trucker10]

Staat je code in een aparte module of staat deze zoals we zeggen achter je tabblad ?
Hoe ziet jouw macro der nu uit voor het kopieren van je tabblad naar .........

 

[Lèchajiém]

Dit is de code die ik mee gekopieerd wil hebben.
Er staan wel andere makro's op het tabblad en die worden wel gekopieerd mnaar het volgende blad
code :
Private Sub Worksheet_Change(ByVal Target As Range)
Const PictDir As String = "C:\spelersdatabase\"
If Target.Address = "$A$1" Then
If Not Dir(PictDir & Target & ".jpg") = vbNullString Then
Image1.Picture = LoadPicture(PictDir & Target & ".jpg")
Else
Image1.Picture = LoadPicture(PictDir & "geen_foto.jpg")
End If
End If

End Sub

groetjes Lechie

 

[trucker10]

Zet ook eens je macro code die je hebt voor het kopiëren van je tabblad . Als ik een kleine test doe met een eenvoudige kopieer macro gaat de code mee

sub copie ()
ActiveSheet.Copy Before:=Sheets(1)
end sub

 

[Lèchajiém]

Hey Trucker dankje voor het helpen in ieder geval.
Dit is de code voor het kopiëren van get tabbled

Dim ws As Worksheet
Dim sSheetName As String

sSheetName = [F4]

Set ws = ThisWorkbook.Sheets.Add(After:=ActiveSheet)

ws.Name = sSheetName

Set ws = Nothing

groetjes Lechie

edit : ik denk dat ik al weet wat er mis gaat..ik voeg een Tabblad toe en kopieer dan het andere tabblad en plak dat ik het nieuwe tabblad...terwijl jij een kopie maak van het gehele tabblad!!!!!!
Of zit ik mis ??

 

[trucker10]

Sheet add is een tabblad toevoegen , sheet copy is een copie maken van je tabblad
dat had ik uit je vraag begrepen

Tabblad Kopiëren met daarop een image controlbox

 

[trucker10]

Dit zou op te lossen zijn ( heb een code gevonden ) bekijk of je der iets met kan .

 

[Lèchajiém]

heel veel bedankt Trucker.

ik denk dat ik het hiermee wel voor elkaar krijg..
mijn dank is echt groot.

Lechie

 

[trucker10]

Een alternatief is een sjabloon maken deze hidden zetten , als je een nieuw tabblad nodig hebt dat je deze via een macro aanspreekt met sheet copy .