Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$1" And Target <> "" Then
For i = 2 To Sheets.Count
Sheets(i).[C1] = Target
Next
End If
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Range("C3:C7500").AutoFilter 3, Range("C1").Value '& "*" dit toevoegen als het tekst is / field is kolom
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address = "$C$1" And Target <> "" Then
With Target.Offset(1).Resize(7500)
.AutoFilter
.AutoFilter 1, Target
End With
End If
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address = "$C$1" And Target <> "" Then
for each sn in sheets
With sn.range(Target.address).Offset(1).Resize(7500)
.AutoFilter
.AutoFilter 1, Target
End With
next
End If
End Sub
=RECHTS(CEL("bestandsnaam");LENGTE(CEL("bestandsnaam"))-VIND.SPEC("]";CEL("bestandsnaam")))
sn.Range(Target.Address).Offset(, 1) = sn.Name
Sheets("naam").Delete
Application.DisplayAlerts = False
Sheets("naam").Delete
Application.DisplayAlerts = True
[COLOR="darkorange"]Sub PrintToPDF_MultiSheet_Early()[/COLOR]'Author : Ken Puls (www.excelguru.ca)
'Macro Purpose: Print to PDF file using PDFCreator
' (Download from http://sourceforge.net/projects/pdfcreator/)
' Designed for early bind, set reference to PDFCreator
Dim pdfjob As [COLOR="deepskyblue"]PDFCreator.clsPDFCreator[/COLOR]
Dim sPDFName As String
Dim sPDFPath As String
Dim lSheet As Long
Dim bRestart As Boolean
'Activate error handling and turn off screen updates
On Error GoTo EarlyExit
Application.ScreenUpdating = False
Set pdfjob = New PDFCreator.clsPDFCreator
sPDFPath = ActiveWorkbook.Path & Application.PathSeparator
'Check if PDFCreator is already running and attempt to kill the process if so
Do
bRestart = False
Set pdfjob = New PDFCreator.clsPDFCreator
If pdfjob.cStart("/NoProcessingAtStartup") = False Then
'PDF Creator is already running. Kill the existing process
Shell "taskkill /f /im PDFCreator.exe", vbHide
DoEvents
Set pdfjob = Nothing
bRestart = True
End If
Loop Until bRestart = False
For lSheet = 1 To ActiveWorkbook.Sheets.Count
'Check if worksheet is empty and skip if so
If Not IsEmpty(Sheets(lSheet).UsedRange) Then
With pdfjob
'/// Change the output file name here! ///
sPDFName = "testPDF" & Sheets(lSheet).Name & ".pdf"
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = sPDFPath
.cOption("AutosaveFilename") = sPDFName
.cOption("AutosaveFormat") = 0 ' 0 = PDF
.cClearCache
End With
'Delete the PDF if it already exists
If Dir(sPDFPath & sPDFName) = sPDFName Then Kill (sPDFPath & sPDFName)
'Print the document to PDF
Worksheets(lSheet).PrintOut copies:=1, ActivePrinter:="PDFCreator"
'Wait until the print job has entered the print queue
Do Until pdfjob.cCountOfPrintjobs = 1
DoEvents
Loop
pdfjob.cPrinterStop = False
'Wait until the file shows up before moving on
'Important: Counter must reach zero or hangs on next iteration
Do Until pdfjob.cCountOfPrintjobs = 0
DoEvents
Loop
End If
Next lSheet
Cleanup:
'Release objects and terminate PDFCreator
Set pdfjob = Nothing
Shell "taskkill /f /im PDFCreator.exe", vbHide
On Error GoTo 0
Application.ScreenUpdating = True
Exit Sub
EarlyExit:
'Inform user of error, and go to cleanup section
MsgBox "There was an error encountered. PDFCreator has" & vbCrLf & _
"has been terminated. Please try again.", _
vbCritical + vbOKOnly, "Error"
Resume Cleanup
End Sub
Zoek niet (op Internet) wat op je eigen computer staat.
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.