Verborgen Werkblad zichtbaar maken via VBA

[pasayan19]

Hallo,

ik heb in verschillende workbooks een blad verborgen. Ik heb nu een VBA applicatie gemaakt die deze verborgen bladen oproept en nadien moet copieren. Hoe kan ik bij het openen van de verschillende werkboeken de verborgen bladen zichtbaar maken en ze moeten het eerste werkblad zijn. Bij het normale openen staat in Workbook_Open worksheet("Verzamelstaat").Visible =False en dit moet eigenlijk zo blijven. Alleen de VBA opdracht moeten even dit blad zichtbaar maken.

Wie kan me even helpen????

Thanks

Benny:thumb:

NB. Indien nodig kan ik de code als zip-file sturen

 

[pasayan19]

niet meer nodig, gevonden

Groetjes

 

[Wigi]

Fijn voor jou, maar licht evt. geïnteresseerden in over jouw oplossing.

 

[pasayan19]

data importeren en verborgen sheets weergeven in VBA

Hallo,

ik heb een combinatie van 2 vragen opgelost :
zie code hieronder

Sub FileBepalen()

Dim fileToOpen As String
Dim teller As Integer
Dim tellerString As String
Dim strPeriode As String
Dim currentFile As String


strPeriode = Cells(6, 9).Value ' de waarde van de periode wordt hier getoond en later opgehaald
teller = [i10] + 1
If teller < 10 Then ' op de volgende lijnen wordt de week in 2 getallen getoond
tellerString = "0" & teller
Else
tellerString = teller
End If
Range("I10").Select ' de volgende week wordt nu weergegeven, dus de week die ingevoerd wordt
ActiveCell.FormulaR1C1 = tellerString
strPeriode = Cells(6, 9).Value ' de waarde van de periode wordt hier ingevuld en later opgehaald
'MsgBox ("laatst ingevoerde week is " & tellerString)

fileToOpen = "I:\VB\StoringVBA_ENNL_2006\Periode " & strPeriode & "_2006\storingslijsten wk" & tellerString & ".xls"

' origineel
'Dim fileToOpen As String ' docu
'fileToOpen = Application.GetOpenFilename ' met browser venster
If fileToOpen = "False" Then
Exit Sub
End If

AllesTonen

'nu zorgen we er voor dat in ons verzamelstaat sheet we op de eerste lege regel komen.

'We selecteren de eerste cel A12.
'Omdat we ctrl naar beneden gebruiken proberen we naar de laatst beschreven regel te gaan.
'Wanneer A13 leeg is gaan we echter naar de onderste regel van het excel document.
Range("a11").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
'nu staan we op de eerste lege regel.
'we openen het andere bestand

Workbooks.Open (fileToOpen)
currentFile = ActiveWorkbook.Name


Sheets("Verzamelstaat").Visible = True
Sheets("Verzamelstaat").Select


'ik gebruik currentfile om hem straks weer te kunnen sluiten

'we gaan nu alles daar kopieren naar onze eigen sheet
Range("A5").Select
Selection.End(xlDown).Select
Selection.End(xlToRight).Select

'nu staan we helemaal rechts onderaan de pagina
Range("A5:" & ActiveCell.Address).Select
'nu hebben de vanaf a5 tot aan het einde van de beschreven cellen geselecteerd

Selection.Copy
'nu gaan we naar ons orginele bestand terug
Workbooks(ThisWorkbook.Name).Activate
Sheets("Verzamelstaat").Activate
ActiveSheet.Paste
HoogteBreedte
Workbooks(currentFile).Close

End Sub

Wie meer wil weten, stuur even een mailtje en ik stuur de volledige applicatie door.
Is te gebruiken voor verschillende toepassingen

Thanks

Benny


:love: Vrouwelijk schoon kun je nooit precies in cijfers achter de komma uitdrukken, want juist de afronding maakt het zo mooi

 

[Wigi]

Bedankt Benny